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

[zahra303]

قسمت هایی از برنامه نویسی ماشین حساب در ویژوال بیسیک 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 * *