overflow error

مغلق

بدأه bayana في 3 يونيو 2007 · 6 رد · 776 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#13 يونيو 2007 في 18:30 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

اخواني اذا ممكن تشوفون هذا الكود

For w = 0 To 5
For u = 0 To 0
R = fr(w, u)
G = fg(w, u)
B = fb(w, u)
'Print , B
fcolor(w, u) = (256 * 256 * B) + (256 * G) + R
Print , fcolor(w, u)
'fcolor(w, u) = RGB(R, G, B)
' Picture9.PSet (w, u), fcolor(w, u)
Next
Next

Dim fcolor(300, 300) As Long

اريد احول من

RGB

الى

long

سيفت قيم كل لون في

array : ثلاث

fr(w, u) for red

fg(w, u) for green

تم تعديل هذه المشاركة بواسطة bayana في 3 يونيو 2007 في 18:34

#23 يونيو 2007 في 19:25

بدل الضرب ب 256 مباشرة ضعها بمتغير

dim R as long ,G as long ,B as long
dim x256 as  long 
x256=256

fcolor(w, u) = (x256* x256 * B +  (x256 * G) + R

مدونتي

استضافة مواقع asp.net :.Net 3.5,4,4.5, MVC2 & 3,SQL server 2008 R2, Crystal reports

#33 يونيو 2007 في 19:30

شكرا لك اخي الفاضل

جربت طريقتك

ومانفعت

اريد حل ثاني

#43 يونيو 2007 في 22:29

بص انت بدل لما تضرب فى 256 اضرب فى 255

عشان كدا بيقولك OVER FLOW

لان اللون من 0 الى 255

وارسل المثال كامل

وسلام

تم تعديل هذه المشاركة بواسطة hossam2525 في 3 يونيو 2007 في 22:36

من مواضيعى

ارسال صوت وصورة

Fm Transmittion Circuits

#54 يونيو 2007 في 07:52

هذا الكود الذي بعثته يضرب 256 * 256 *256 بنجاح

الظاهر في عندك مشكلة اخرى

وكما قال الاخ حسام ارسل الكود كامل حتى نعرف قيم

fg fb fr

مدونتي

استضافة مواقع asp.net :.Net 3.5,4,4.5, MVC2 & 3,SQL server 2008 R2, Crystal reports

#64 يونيو 2007 في 08:24

اخي العزيز يظهر هذا الخطأ بسبب عدم اعلانك عن المتغيرات المستخدمة في عمل العداد تأكد من الاعلان عن هذه المتغيرات كالتالي

dim w as long
dim u as long

جرب واعلمنا بالنتيجة

اقتباس
لا تنسوا محمد الدرة وايمان حجو وفارس عودة ....
لا تنسوا القدس وبغداد وبيروت والشيشان ....
ولا تنسوا الشيخ ياسين ود. الرنتيسي وشهداء القضية