برنامه نویسی ماشین حساب در ویژوال بیسیک 6

قسمت هایی از برنامه نویسی ماشین حساب در ویژوال بیسیک 6 :
یادتون نره که متغیر ها رو عوض کنید.!



در قسمت general دو متغیر از نوع عددی و رشته ای تعریف می کنیم.
کد:

کد:

---

Dim p As Double
Dim k As String

---

در قسمت کد دکمه های 0 تا 9 کد های زیر را به ترتیب جایگزین می کنیم.
کد:

کد:

---

Private Sub C1_Click()
 T1.Text = Val(T1.Text) * 10 + 7
End Sub

Private Sub C11_Click()
T1.Text = Val(T1.Text) * 10 + 5
End Sub

 Private Sub C12_Click()
T1.Text = Val(T1.Text) * 10 + 6
End Sub

 Private Sub C2_Click()
T1.Text = Val(T1.Text) * 10 + 8
End Sub

Private Sub C22_Click()
T1.Text = Val(T1.Text) * 10 + 0
End Sub

Private Sub C3_Click()
T1.Text = Val(T1.Text) * 10 + 9
End Sub

Private Sub C9_Click()
T1.Text = Val(T1.Text) * 10 + 4
End Sub

Private Sub C16_Click()
T1.Text = Val(T1.Text) * 10 + 1
 End Sub

 Private Sub C17_Click()
 T1.Text = Val(T1.Text) * 10 + 2
End Sub

Private Sub C18_Click()
T1.Text = Val(T1.Text) * 10 + 3
End Sub

---

در قسمت کد های 4 عمل اصلی - و + و / و * کدهای زیر را می نویسیم.
کد:

کد:

---

Private Sub C13_Click()
 p = Val(T1.Text) k = "*" T1.Text = ""
End Sub
 
Private Sub C19_Click()
p = Val(T1.Text) k = "-" T1.Text = ""
End Sub

Private Sub C25_Click()
p = Val(T1.Text) k = "+" T1.Text = ""
 End Sub

 Private Sub C4_Click()
p = Val(T1.Text) k = "/" T1.Text = ""
End Sub

---

در قسمت Clear یا پاک کردن این کد را می نویسیم.
کد:

کد:

---

Private Sub C6_Click()
T1.Text = "0"
 End Sub

---

در قسمت = این کدها را می نویسیم.
کد:

کد:

---

Private Sub Command1_Click()
If k = "+"
Then T1.Text = p + T1.Text

 If k = "-"
Then T1.Text = p - T1.Text

If k = "/" And Val(T1.Text) *0
 Then T1.Text = p / T1.Text

 If k = "*" Then
T1.Text = p * T1.Text
End Sub
End Sub * *

---