temonsoejadi

Mata Kuliah pemrograman Komputer with Bapak R. Hengki Rahmanto, ST.M.Eng

Langkah awal seperti biasa masuk program-buat standar exe

Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0. Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti

Langkah selanjutnya

1.Buat command button 1-9

2.Command button = / + – x

3. text boxt

Lihat seperti contoh diatas

Yang perlu diperhatikan

Setiap command button yang dirubah adalah name dan caption

Contoh command button angka 1

Name = cmd_1

Caption = 1

Command button bagi ( / )

Name = cmd_bagi

Caption = /

Begitu seterusnya

Untuk text box

Name = textNumber

Text = dikosongin

Yang lain diabaikan saja..

Atur posisi command button dan text box sebaik mungkin, langkah terakhir masukkan scrift kode program dibawah ini :

Dim mfirst As Single

Dim msecond As Single

Dim manswer As Single

Dim mbutton As Integer

Private Sub cmd_0_Click()

txtNumber = txtNumber + “0”

End Sub

Private Sub cmd_1_Click()

txtNumber = txtNumber + “1”

End Sub

Private Sub cmd_2_Click()

txtNumber = txtNumber + “2”

End Sub

Private Sub cmd_3_Click()

txtNumber = txtNumber + “3”

End Sub

Private Sub cmd_4_Click()

txtNumber = txtNumber + “4”

End Sub

Private Sub cmd_5_Click()

txtNumber = txtNumber + “5”

End Sub

Private Sub cmd_6_Click()

txtNumber = txtNumber + “6”

End Sub

Private Sub cmd_7_Click()

txtNumber = txtNumber + “7”

End Sub

Private Sub cmd_8_Click()

txtNumber = txtNumber + “8”

End Sub

Private Sub cmd_9_Click()

txtNumber = txtNumber + “9”

End Sub

Private Sub cmd_bagi_Click()

mbutton = 4

mfirst = Val(txtNumber)

txtNumber = “”

End Sub

Private Sub cmd_hasil_Click()

msecond = Val(txtNumber)

Select Case mbutton

Case Is = 1

manswer = mfirst + msecond

Case Is = 2

manswer = mfirst – msecond

Case Is = 3

manswer = mfirst * msecond

Case Is = 4

manswer = mfirst / msecond

End Select

txtNumber = manswer

End Sub

Private Sub cmd_kali_Click()

mbutton = 3

mfirst = Val(txtNumber)

txtNumber = “”

End Sub

Private Sub cmd_kurang_Click()

mbutton = 2

mfirst = Val(txtNumber)

txtNumber = “”

End Sub

Private Sub cmd_tambah_Click()

mbutton = 1

mfirst = Val(txtNumber)

txtNumber = “”

End Sub

Koreksi lagi semua scrip program, kemudian di run…. Hasilnya akan seperti ini

Semoga bermanfaat.

jika ditambah CE

maka buat command button lagi

name = cmd_ClearEntri

caption = CE

kode program

Private Sub cmd_ClearEntri_Click()
txtNumber.Text = “”
End Sub

 

 

 

 

 

 

 

 

 

 

hasilnya lebih menarik bukan.

Semoga bermanfaat.