[VB] Calculater โปรแกรมเครื่องคิดเลข
โค้คำณ
Dim num1 As Integer Dim num2 As Integer Dim result As Integer Dim sign As String
โค้ปุ่ตัเลข 0-9
Private SubButton10_Click() If Text1.Text <> "0" Then Text1.Text = Text1.Text + "0" Else Text1.Text = "0" End If End Sub
Private SubButton1_Click() If Text1.Text <> "1" Then Text1.Text = Text1.Text + "1" Else Text1.Text = "1" End If End Sub
Private SubButton2_Click() If Text1.Text <> "2" Then Text1.Text = Text1.Text + "2" Else Text1.Text = "2" End If End Sub
Private SubButton3_Click() If Text1.Text <> "3" Then Text1.Text = Text1.Text + "3" Else Text1.Text = "3" End If End Sub
Private SubButton4_Click() If Text1.Text <> "4" Then Text1.Text = Text1.Text + "4" Else Text1.Text = "4" End If End Sub
Private SubButton5_Click() If Text1.Text <> "5" Then Text1.Text = Text1.Text + "5" Else Text1.Text = "5" End If End Sub
Private SubButton6_Click() If Text1.Text <> "6" Then Text1.Text = Text1.Text + "6" Else Text1.Text = "6" End If End Sub
Private SubButton7_Click() If Text1.Text <> "7" Then Text1.Text = Text1.Text + "7" Else Text1.Text = "7" End If End Sub
Private SubButton8_Click() If Text1.Text <> "8" Then Text1.Text = Text1.Text + "8" Else Text1.Text = "8" End If End Sub
Private SubButton9_Click() If Text1.Text <> "9" Then Text1.Text = Text1.Text + "9" Else Text1.Text = "9" End If End Sub
โค้ปุ่ +,-,*,/
Private Subcmdplus_Click() num1 = Val(Text1.Text) Text1.Text = "" sign = "+" 'cmdplus = + ' End Sub
Private Subcmdminus_Click() num1 = Val(Text1.Text) Text1.Text = "" sign = "-" 'cmdminus = - ' End Sub
Private Subcmdmultiply_Click() num1 = Val(Text1.Text) Text1.Text = "" sign = "*" 'cmdmultiply = * ' End Sub
Private Subcmddivide_Click() num1 = Val(Text1.Text) Text1.Text = "" sign = "/" 'cmddivide = / ' End Sub
โค้ปุ่ =
Private Sub cmdequals_Click() num2 = Val(Text1.Text)
If sign = "+" Then result = num1 + num2
If sign = "-" Then result = num1 - num2
If sign = "*" Then result = num1 * num2
If sign = "/" Then result = num1 / num2
Text1.Text = Str(result) End Sub
โค้ปุ่ CE
Private Subcmdce_Click() Text1.Text = " " End Sub
ความคิดเห็นปักหมุด
ความคิดเห็นทั้งหมด ()
กรุณาเข้าสู่ระบบเพื่อแสดงความคิดเห็น