از پنجره properties خاصیتcaption کنترل Command1 را برابر 1 بگیرید
خاصیتcaption کنترل Command1 را برابر 1 بگیرید
خاصیتcaption کنترل Command2 را برابر 2 بگیرید
خاصیتcaption کنترل Command3 را برابر 3 بگیرید
خاصیتcaption کنترل ها را به این ترتیب تا command9 ادامه دهیدcommand9 هم
حال خاصیتcaption کنترل Command10 را برابر + بگیرید
خاصیتcaption کنترل Command10 را برابر + بگیرید
خاصیتcaption کنترل Command11 را برابر - بگیرید
خاصیتcaption کنترل Command12 را برابر * بگیرید
خاصیتcaption کنترل Command13 را برابر / بگیرید
خاصیتcaption کنترل Command14 را برابر = بگیرید
خاصیتtext کنترل text1 را برابر خالی بگیرید
خاصیتcaption کنترل Command15 را برابر صفر بگیرید
حال مانند شکل کنترل ها را مرتب کنید
حال در پنجره کد نوبسی هر کنترل بنا به زیر نوشته شود
برای command1کد Text1.Text = Text1.Text & 1
برای command2کد Text1.Text = Text1.Text & 2
برای command3کد Text1.Text = Text1.Text & 3
به همین ترتیب تا کنترل command9 عمل کنید command9 هم
برای command15کد Text1.Text = Text1.Text & 0
برای command10کد
"a = "j
b = Text1.Text
""=Text1.Text
برای command11کد
"a = "m
b = Text1.Text
""=Text1.Text
برای command12کد
"a = "z
b = Text1.Text
""=Text1.Text
برای command13کد
"a = "t
b = Text1.Text
""=Text1.Text
برای command14کد
(If a = "m" Then Text1.Text = Val(b) - Val(Text1.Text
(If a = "z" Then Text1.Text = Val(b) * Val(Text1.Text
(If a = "t" Then Text1.Text = Val(b) / Val(Text1.Text
(If a = "j" Then Text1.Text = Val(b) + Val(Text1.Text
حال روی form1 کلیک راست کنید و view code را بزنید به بالای پنجره بروید
و در قسمت بالای پنجره (این بخش general نام دارد)عبارت زیر را تایپ کنید
dim a,b as String
حالا F5 را بزنید برنامه را امتحان کنید و دوباره F5 ا بزنید برنامه را در ویندوز قرار دهید
