بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته تحية للجميع: اليكم الكود البرمجي: Private Sub Command1_Click() Label3.Caption = "Result of addition : " + Str(Val(Text1.Text) + Val(Text2.Text)) End Sub Private Sub cmd1_Click() Dim myvar As String myvar = InputBox("Enter your name") If myvar <> "" Then Label1.Caption = "Your name is : " & myvar Else Label1.Caption = "You didn't enter any name" End If End Sub Private Sub Command2_Click() Label3.Caption = "Result of addition : " + Str(Val(Text1.Text) - Val(Text2.Text)) End Sub Private Sub Command3_Click() Label3.Caption = "Result of addition : " + Str(Val(Text1.Text) * Val(Text2.Text)) End Sub Private Sub Command4_Click() If Val(Text2.Text) = 0 Then MsgBox ("Can't didive by zero") Else Label3.Caption = "Result of addition : " + Str(Val(Text1.Text) / Val(Text2.Text)) End If End Sub اتمنى ان تنال اعجابكم وأي استفسار انا حااااااااااضر وتحت الخدمة

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أخي العزيز حاول إعادة كتبة الكود مع مراعاة التسميات الصحيحة مثل : label3 راح يكون lbl_rslt comman2 = cmd_mins وهكذا ومن ثم سنعمل سوياً إذا لم يكن عندك مانع على تطور آله حاسبة متكاملة , مثل اللي تحمل ضمن windows و السلام عليكم

اقتباس الرّسالة الأصليّة كتبت بواسطة نجيب المجيدي بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أخي العزيز حاول إعادة كتبة الكود مع مراعاة التسميات الصحيحة مثل : label3 راح يكون lbl_rslt comman2 = cmd_mins وهكذا ومن ثم سنعمل سوياً إذا لم يكن عندك مانع على تطور آله حاسبة متكاملة , مثل اللي تحمل ضمن windows و السلام عليكم اخي القدير نجيب انا استخدم اختصارات متعارف عليها في لغة الفيجوال بيسك دائماً ناخذ الثلاثة الحروف المتعارف عليها لاسم الكائن او الاداة بس بشرط يكتب الاختصار في خاصية الاسمname: cmd مثل command اختصرهاالى cmd labelاختصرها الى lbl textنختصرها الى txt وهكذا والكود مكتوب بشكل صحيح وما عندي مانع في عمل حاسبة كما تفضلت وذكرت اشكرك للمتابعة وحبة حبة على اخوك ما زال مبتدىء

مشكرو اب الاصول

مشكو ابن الاصول و عفوا على الخا الي حصل

اقتباس الرّسالة الأصليّة كتبت بواسطة صدى الحرمان مشكو ابن الاصول و عفوا على الخا الي حصل

مشكور اخي ابن الاصول

ممتاز يابن الاصول....

مشكور

وينك يا ابن الأصول, كمل المشوار ...