الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

بليز مساعده ضروريه

بدأه نوشه المنكوشه في 21 مايو 2010 · 2 رد · 423 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بليز محتاجه مساعدتكم ضروري

مطلوب مني أسوي برنامج والحمدلله خلصته بس باقي اناقش الشيفرات اللي بالمشروع بشرح وافي

وأنا مو فاهمه الشيفرات عشان أشرحهم

اذا ممكن احد يساعدني ويشرحلي شيفرات المشروع

هذا أول كود احتاج شرحه

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

'assign textbox values to variables

Dim a As Integer

a = a * ("10 ")

If CheckBox1.Checked = True Then

TextBox6.Text = (10 * TextBox1.Text)

Else

a = a * ("15 ")

If CheckBox2.Checked = True Then

TextBox7.Text = (15 * TextBox2.Text)

Else

a = a * ("20 ")

If CheckBox3.Checked = True Then

TextBox8.Text = (20 * TextBox3.Text)

Else

a = a * ("24 ")

If CheckBox4.Checked = True Then

TextBox9.Text = (24 * TextBox4.Text)

Else

a = a * ("30 ")

If CheckBox5.Checked = True Then

TextBox10.Text = (40 * TextBox5.Text)

Else

End If

End If

End If

End If

End If

End Sub

لا تخيبون رجائي مناقشتي بكره

#2

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

أولاً: أيتها المنكوشة :lol: العناوين السينمائية ممنوعة هنا

ضعي شيئاً يعبر عن محتوى الموضوع

ثانياً: هذا الكود بالدوت نت وليس بـ vb6 :wacko:

ثالثاً: الكود بسيط جداً معناه باختصار:

إذا كان التشيك بوكس مختار فقم بضرب مربع النص بالعدد 10 وإلا فالمتغير a=a*10 وهكذا

جمعة مقبولة

فاعلم أنه لا إله إلا الله

#3

يسلمووووووا خيو عالشرح المبسط بس وربي فهمت

مواضيع مشابهة