Assalamu'alaikum wr,wb
Cara Membuat Kalkulator Sederhana dengan Visual Basic 6.0 - Pada tutorial Visual Basic kali ini kita akan membuat kalkulator dengan VB 6.0 yang terdiri dari penjumlahan pengurangan dan pembagian. Tentunya konsep pembuatan atau logika program yang akan kita buat ini bisa diterapkan pada rumus matematika atau fisika, yang pada intinya kita harus mengetahui alur kerja secara manual dari sebuah rumus tersebut sehingga bisa diterjemahkan kedalam bahasa pemograman visual basic. Baca juga tentang cara membuat program menghitung umur dengan VB 6.0
Desain sebuah form kalkulator sederhana yang akan kita buat seperti gambar beikut :
Untuk pengosongan text box ikuti instruksi seperti gambar berikut
Cara Membuat Kalkulator Sederhana dengan Visual Basic 6.0 - Pada tutorial Visual Basic kali ini kita akan membuat kalkulator dengan VB 6.0 yang terdiri dari penjumlahan pengurangan dan pembagian. Tentunya konsep pembuatan atau logika program yang akan kita buat ini bisa diterapkan pada rumus matematika atau fisika, yang pada intinya kita harus mengetahui alur kerja secara manual dari sebuah rumus tersebut sehingga bisa diterjemahkan kedalam bahasa pemograman visual basic. Baca juga tentang cara membuat program menghitung umur dengan VB 6.0
Desain sebuah form kalkulator sederhana yang akan kita buat seperti gambar beikut :
Untuk pengosongan text box ikuti instruksi seperti gambar berikut
Jika langkah diatas telah selesai. Silahkan Copy paste koding berikut :
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub
Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub Command6_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub
Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub Command6_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
hasil nya:

Referensi : http://www.abdusatri.com/2014/07/cara-membuat-kalkulator-dengan-visual-basic.html?=1
Tidak ada komentar:
Posting Komentar