Selasa, 14 Agustus 2012

membuat Kalkulator Sederhana dengan Visual Basic

Diposting oleh Unknown di 10:43 AM
         Program sederhana membuat kalkulator dengan visual basic., bagi anda yang ingin tau bagaimana membuatnya silahkan lihat di bawah ini :
1. Buka program visual basic., pilih new project kemudian pilh standart exe.
2. Tambah kan pada form anda 4 label, 3 textBox, 5 CammondButton., Kemudian desain form seperti di bawah ini :




3. Kemudian Aturlah Propetis masing-masing Kontrol seperti di bawah ini :



3.Kemudian Masukkan Kode atau listing Program seperti di bawah ini :
Private Sub cmdKali_Click()
TxtHasil.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub cmdKurang_Click()
TxtHasil.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub cmdTambah_Click()
TxtHasil.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub cmdClear_Click()
Text1.Text = ""
Text2.Text = ""
TxtHasil.Text = ""
End Sub

Private Sub CmdExit_Click()
End
End Sub


4. Kemudian jalankan program., Run pilih Start Atau tekan F5
    Silahkan Mencoba.... ^_^



   


















































































                    






















































































   

0 komentar:

membuat Kalkulator Sederhana dengan Visual Basic

         Program sederhana membuat kalkulator dengan visual basic., bagi anda yang ingin tau bagaimana membuatnya silahkan lihat di bawah ini :
1. Buka program visual basic., pilih new project kemudian pilh standart exe.
2. Tambah kan pada form anda 4 label, 3 textBox, 5 CammondButton., Kemudian desain form seperti di bawah ini :




3. Kemudian Aturlah Propetis masing-masing Kontrol seperti di bawah ini :



3.Kemudian Masukkan Kode atau listing Program seperti di bawah ini :
Private Sub cmdKali_Click()
TxtHasil.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub cmdKurang_Click()
TxtHasil.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub cmdTambah_Click()
TxtHasil.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub cmdClear_Click()
Text1.Text = ""
Text2.Text = ""
TxtHasil.Text = ""
End Sub

Private Sub CmdExit_Click()
End
End Sub


4. Kemudian jalankan program., Run pilih Start Atau tekan F5
    Silahkan Mencoba.... ^_^



   


















































































                    






















































































   

0 komentar:

 

Smile Copyright © 2010 Design by Ipietoon Blogger Template Graphic from Enakei