اريد مساعدة لبرنامج الة حاسبة

up

_{اخي العزيز aboaziab}

_{برنامج الالة الحاسبة يوجد في المرفق}

_{والعفو على التقصير}

الالة الحاسبة.rar

اخ muhedeen الله يعطيك الف الف الف عافيه يالغالي

مشكور اخوي وماقصرت

مشكور اخي

اولا بارك الله على جهودك , ولكن معلوماتي قليلة فهل بإمكانك اجلك الله , ان تشرح لي هذا الجزء من الكود . كود اضافة الرقم الى الليت بوكس .

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd1.Click

hh = ListBox1.Items.Count - 1

If hh >= 0 Then

If ListBox1.Items(hh) Is Nothing = False And ListBox1.Items(hh) <> "-" And ListBox1.Items(hh) <> "+" And ListBox1.Items(hh) <> "*" And ListBox1.Items(hh) <> "/" Then

ListBox1.Items(hh) = ListBox1.Items(hh) & cmd1.Text

Else

ListBox1.Items.Add(cmd1.Text)

End If

Else

ListBox1.Items.Add(cmd1.Text)

End If

End Sub