Kria Kolkulador Simplest Uja Visual Basic 6.0

Ba maluk sira iha timor laran tomak, no sira nebe mak gosta kria programa agora dadaun hau mai ho programa simplest ba Kalkulador no Uja visual basic 6.0.

Source Kode ba kalkulador nebe ita Kria ona mak ne'e :

Private Sub cmd0_Click()
txtresult.Text = txtresult.Text & "0"
End Sub
Private Sub cmd1_Click()
txtresult.Text = txtresult.Text & "1"
End Sub
Private Sub cmd2_Click()
txtresult.Text = txtresult.Text & "2"
End Sub
Private Sub cmd3_Click()
txtresult.Text = txtresult.Text & "3"
End Sub
Private Sub cmd4_Click()
txtresult.Text = txtresult.Text & "4"
End Sub
Private Sub cmd5_Click()
txtresult.Text = txtresult.Text & "5"
End Sub
Private Sub cmd6_Click()
txtresult.Text = txtresult.Text & "6"
End Sub
Private Sub cmd7_Click()
txtresult.Text = txtresult.Text & "7"
End Sub
Private Sub cmd8_Click()
txtresult.Text = txtresult.Text & "8"
End Sub
Private Sub cmd9_Click()
txtresult.Text = txtresult.Text & "9"
End Sub

Private Sub cmdassign_Click()
If txttemp2.Text = "+" Then
txtresult.Text = Val(txttemp1.Text) + Val(txtresult.Text)
ElseIf txttemp2.Text = "-" Then
txtresult.Text = Val(txttemp1.Text) - Val(txtresult.Text)
ElseIf txttemp2.Text = "*" Then
txtresult.Text = Val(txttemp1.Text) * Val(txtresult.Text)
ElseIf txttemp2.Text = "/" Then
txtresult.Text = Val(txttemp1.Text) / Val(txtresult.Text)
End If
End Sub
Private Sub cmddivided_Click()
txttemp2.Text = "/"
txttemp1.Text = Val(txtresult.Text)
txtresult.Text = ""
End Sub
Private Sub cmdhamos_Click()
txtresult.Text = ""
txtresult.SetFocus
End Sub
Private Sub cmdminus_Click()
txttemp2.Text = "-"
txttemp1.Text = Val(txtresult.Text)
txtresult.Text = ""
End Sub
Private Sub cmdplus_Click()
txttemp2.Text = "+"
txttemp1.Text = Val(txtresult.Text)
txtresult.Text = ""
End Sub
Private Sub cmdtimes_Click()
txttemp2.Text = "*"
txttemp1.Text = Val(txtresult.Text)
txtresult.Text = ""
End Sub
Private Sub cmdtitik_Click()
txtresult.Text = txtresult.Text & "."
End Sub