Program Vb6 Calculator Sederhana

Sunday, October 13th, 2019 - Program VB6

Ternyata asik juga memprogram Calculator sederhana ini. Program VB6 ini dapat juga anda gunakan sebagai pembelajaran dasar untuk memprogram dengan memakai kegiatan VB6.

Design dahulu kegiatan VB6 Calculator sederhana ibarat tampilan di bawah ini :

Berikut kegiatan VB6 Calculator sederhana :

Dim op As String
Dim xhasil As Double

Private Sub cmdbagi_Click()
op = “/”
End Sub

Private Sub cmdhasil_Click()
    Select Case op
    Case “+”: xhasil = Val(bil1.Text) + Val(bil2.Text)
    Case “-“: xhasil = bil1.Text – bil2.Text
    Case “/”: xhasil = bil1.Text / bil2.Text
    Case “x”: xhasil = bil1.Text * bil2.Text
    End Select
    hasil.Text = xhasil
End Sub

Private Sub cmdkali_Click()
op = “x”
End Sub

Private Sub cmdKurang_Click()
op = “-“
End Sub

Private Sub cmdTambah_Click()
op = “+”
End Sub

Private Sub Form_Load()
    bil1.Text = “”
    bil2.Text = “”
    hasil.Text = “”
End Sub

Sederhana sekali bukan kegiatan VB6 Calculator sederhana tersebut diatas?

Demikian yang dapat kami share kepada sobat source code aplikasi pada kesempatan ini, semoga dapat bermanfaat dan bisa menjadi referensi pemrograman bagi anda. Jangan lupa like Fan Page kami, dan SUBSCRIBE Channel Youtube kami untuk dapatkan update source code aplikasi terbaru.