program kalkulator visual basic 6.0

23 april 2016 tepatnya jam 01:35 bersama dengan dinginnya hembusan angin malam kami terus berjuang mengerjakan test PRAKERIN dari Bpk. Muhamad Soleh S.Kom (CEO GTOI).  kami adalah siswa siswi SMK TAKHASSUS AL-QUR'AN WONOSOBO yang sedang  ditugaskan PSG di GTOI (Global Trading on Internasional) Gondang 17 A Watumalang, Wonosobo.

Oh ya guys sebelumnya kenalin nama aku bela aku bersama kedua temanku farid dan eko sedang melakukan misi bersama. sebenarnya si bukan misi tapi ya lebih tepatnya tugas sekolah hhe :D hari ini kami ada ujian uuumz test PSG sebenarnya si nggak susah susah bgt tapi sulit dicernanya,,, 

HUUUFTTTT ADUUUUH...... bikin pusing tahu  nggak sihhh

Kita mulai belajar dari pagi hingga suntukkkkk malam" kaya' gini tapi ya kami enjoy aja asyyyyik bikin tegang, bikin gregetan pokoknya hhahaaaah pingin cepet bisa dech

nnnahhhh dari cerita ni kami mengambil ilmu yang sulit kami pahami sebelumnya
ini GUYS ilmunya moga bermanfaat yaaaaaaaa !!!

KALKULATOR SEDERHANA

ini dia codingnya,,, agak bikin pusing sich tapi mudah kok tenang aja

eeettttzzzz jangan lupa codingnya dimasukin dalam project ok!

Dim a, b, c, d As Integer

Private Sub tmb1_Click()

    tbnilai = tbnilai + "1"

End Sub

Private Sub tmb2_Click()

    tbnilai = tbnilai + "2"

End Sub

Private Sub tmb3_Click()

    tbnilai = tbnilai + "3"

End Sub

Private Sub tmb4_Click()

    tbnilai = tbnilai + "4"

End Sub

Private Sub tmb5_Click()

    tbnilai = tbnilai + "5"

End Sub

Private Sub tmb6_Click()

    tbnilai = tbnilai + "6"

End Sub

Private Sub tmb7_Click()

    tbnilai = tbnilai + "7"

End Sub

Private Sub tmb8_Click()

    tbnilai = tbnilai + "8"

End Sub

Private Sub tmb9_Click()

    tbnilai = tbnilai + "9"

End Sub

Private Sub tmb0_Click()

    tbnilai = tbnilai + "0"

End Sub

Private Sub tmbhapus_Click()

    tbnilai = ""

    tbhasil = ""

    tbnilaiA = ""

    tbnilaiB = ""

End Sub

Private Sub tmbhasil_Click()

    b = Val(tbnilai)

    Select Case d

        Case 1

            c = a + b

        Case 2

            c = a - b

        Case 3

            c = a / b

        Case 4

            c = a * b

    End Select

    tbhasil = c

    tbnilaiA = a

    tbnilaiB = b

    tbnilai = ""

    MsgBox "hasilnya adalah : " + tbhasil, vbOKOnly

End Sub

Private Sub tmbbagi_Click()

    d = 3

    a = Val(tbnilai)

    tbnilai = ""

End Sub

Private Sub tmbkali_Click()

    d = 4

    a = Val(tbnilai)

    tbnilai = ""

End Sub

Private Sub tmbkeluar_Click()

    MsgBox "terima kasih !", vbOKOnly

    End

End Sub

Private Sub tmbkurang_Click()

    d = 2

    a = Val(tbnilai)

    tbnilai = ""

End Sub

Private Sub tmbtambah_Click()

    d = 1

    a = Val(tbnilai)

    tbnilai = ""

End Sub

 #"Terima Kasih Atas Kunjungannya"#