Tutorial visual basic VB6.0

ahaha.. postingan pertama euyy ! wkwkw :logatsunda
mari kita bikin kalkulator sederhana dengan vb6.0..
bagi yang sudah merasa jago.. di harapkan mending lewat ajah deh.. wahahha
oyah.. pertama buka vb nya dulu,pasti uda tau donk..
kalo GAU TAU :GUBRAKKEBANGETAN
ok,pertama klik windows lalu cari visualbasic.. ok !
kalo gatau juga.. cari pasti ada, kalo ga ada mungkin belum di instal vb nya.. wkwkwk
nah jika sudah.. vb nya di buka.. klik standar exe.
atau seperti gambar di bawah ini..

selanjutnya, kita bikin 4 command button dan teks box nya 2..
atau seperti gambar di bawah ini..

lanjut nya, tinggal mengisikan coding nya..
oyah untuk nama, biarkan sajah.. karna nanti jika sudah di coba pasti tau mana yang ditambah ato dikali dan sebagaina.. ahahah
oyah misalkan ga tau cara untuk memunculkan jendela code..
liat gambar di bawah ini.. ehehhe

nah,jika udah tinggal tuliskan coding dibawah ini di jendela code..

Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "maaf sebelum nya isi dulu tuh.. ntar aku debug deh..", vbInformation, "ichampanggantengna"
Else
MsgBox "hasil Perkalian " & Text1.Text & " dan " & Text2.Text & vbCrLf + " adalah :" & (Text1.Text * Text2.Text), vbInformation, "ichamganteng"
End If
End Sub

Private Sub Command2_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "maaf sebelum nya isi dulu tuh.. ntar aku debug deh..", vbInformation, "ichampanggantengna"
Else
MsgBox "hasil Pembagian " & Text1.Text & " dan " & Text2.Text & vbCrLf + " adalah :" & (Text1.Text / Text2.Text), vbInformation, "ichamganteng"
End If
End Sub



Private Sub Command3_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "maaf sebelum nya isi dulu tuh.. ntar aku debug deh..", vbInformation, "ichampanggantengna"
Else
MsgBox "hasil Penjumlahan " & Text1.Text & " dan " & Text2.Text & vbCrLf + " adalah :" & (Val(Text1.Text) + Val(Text2.Text)), vbInformation, "ichamganteng"
End If
End Sub

Private Sub Command4_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "maaf sebelum nya isi dulu tuh.. ntar aku debug deh..", vbInformation, "ichampanggantengna"
Else
MsgBox "hasil Pengurangan " & Text1.Text & " dan " & Text2.Text & vbCrLf + " adalah :" & (Text1.Text - Text2.Text), vbInformation, "ichamganteng"


End If
End Sub

ahaha selesai.. deh,tinggal di pahami ! ahahaha :D :D :D
SALAM TEAM DCN