- Pertama kita buat 4 label seperti gambar di atas.
- kemudian tambahkan 3 textbox seperti gambar di atas.
- Langkah ke 3 kita tambahkan combobox.
kemudian kita ubah nama pada label,textbox,dan commandbutton
- langkah yg terakhir kita masuk k jendela coding dan masuk k command 1 contoh coddingnya seperti dibawah ini
Private Sub Command1_Click()
If Combo1.Text = "+" Then
Text3 = Val(Text1.Text) + Val(Text2.Text)
ElseIf Combo1.Text = "-" Then
Text3 = Val(Text1.Text) - Val(Text2.Text)
ElseIf Combo1.Text = "*" Then
Text3 = Val(Text1.Text) * Val(Text2.Text)
ElseIf Combo1.Text = "/" Then
Text3 = Val(Text1.Text) / Val(Text2.Text)
End If
End Sub
Nah selamat membuat kalkulator dengan vb
0 komentar:
Posting Komentar