Minggu, 06 November 2011

Contoh Program kalkulator sederhana dengan VB

07.57  Belajar Ilmu Pengetahuan  No comments

Aktifkan VB 6 melalui tombol Start.
Buka kembali project Latihan.vbp.
Tambahkan Form baru ke dalam Project.
Pada Jendela Form buatlah UI seperti ini :
(Gunakan komponen TextBox dan CommandButton)

 
 

 
Buka Jendela Code dan pada bagian Code Editor, lalu ketikkan kode programnya sebagai berikut :  
Dim angka(1 To 2) As Single
Dim operator As String
Private Sub CmdAngka_Click(Index As Integer)
Text1.Text = Text1.Text & CmdAngka(Index).Caption
End Sub

Private Sub cmdAngka1_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka1(Index).Caption
End Sub

Private Sub cmdAngka10_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka10(Index).Caption
End Sub

Private Sub cmdAngka2_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka2(Index).Caption
End Sub

Private Sub cmdAngka3_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka3(Index).Caption
End Sub

Private Sub cmdAngka4_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka4(Index).Caption
End Sub

Private Sub cmdAngka5_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka5(Index).Caption
End Sub

Private Sub cmdAngka6_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka6(Index).Caption
End Sub

Private Sub cmdAngka7_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka7(Index).Caption
End Sub

Private Sub cmdAngka8_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka8(Index).Caption
End Sub

Private Sub cmdAngka9_Click(Index As Integer)
Text1.Text = Text1.Text & cmdAngka9(Index).Caption
End Sub

Private Sub cmdHapus_Click(Index As Integer)
Text1.Text = ""
End Sub

Private Sub Command3_Click(Index As Integer)
If Text1.Text = "" Then Exit Sub
angka(1) = CSng(Text1.Text)
operator = CmdOperator(Index).Caption
Text1.Text = ""
End Sub
Private Sub CmdHitung_Click()
Dim hasil As Single
If Text1.Text = "" Then Exit Sub
angka(2) = CSng(Text1.Text)
Select Case operator
Case "+"
hasil = angka(1) + angka(2)
Case "-"
hasil = angka(1) - angka(2)
Case "*"
hasil = angka(1) * angka(2)
Case "/"
hasil = angka(1) / angka(2)
End Select
Text1.Text = hasil
End Sub

Private Sub CmdOperator_Click(Index As Integer)
If Text1.Text = "" Then Exit Sub
angka(1) = CSng(Text1.Text)
operator = CmdOperator(Index).Caption
Text1.Text = ""
End Sub
Private Sub cmdOperator1_Click(Index As Integer)
If Text1.Text = "" Then Exit Sub
angka(1) = CSng(Text1.Text)
operator = cmdOperator1(Index).Caption
Text1.Text = ""
End Sub

Private Sub cmdOperator2_Click(Index As Integer)
If Text1.Text = "" Then Exit Sub
angka(1) = CSng(Text1.Text)
operator = cmdOperator2(Index).Caption
Text1.Text = ""
End Sub

Private Sub cmdOperator3_Click(Index As Integer)
If Text1.Text = "" Then Exit Sub
angka(1) = CSng(Text1.Text)
operator = cmdOperator3(Index).Caption
Text1.Text = ""
End Sub
 
 
 
 
 
 
 
 
 

******Program kalkulator ini masih sangat sederhana, sehingga kemungkinan ada error ataupun
“kejanggalan” lainnya.*******
 

Posted in: ,

0 komentar:

Posting Komentar