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