Materi Visual Basic 6.0 Part 4,5,6,

Posted by : AKei Rabu, 15 Maret 2017

Tugas..Pemrograman
by: Dela.J

PART 4

“Membuat Aplikasi Peminjaman Buku”

Aplikasi ini biasanya diterapkan di perpustakan atau jasa yang menyediakan peminjaman buku. Masukkan kontrol-kontrol berikut:

8 Label

8 TextBox

1 ComboBox

2 CommandButton

Susun dan edit kontrol di atas seperti gambar dibawah:

Dengan ketentuan:

Jika di pilih salah satu item di combobox, maka akan muncul keterangan di ‘Judul Buku, Penulis, Rak’
Jika sudah memasukkan jumlah keterlambatan peminjaman dan di enter akan muncul berapa dendanya di kolom ‘Denda’.

Ketikkan Code seperti gambar di bawah:

Kode untuk ComboBox Kode Buku

Private Sub CboKode_Click()

If CboKode.Text = "110" Then

TxtJudul.Text = "Photoshop"

TxtPenulis.Text = "Doni Albana"

TxtRak.Text = "R1"

ElseIf CboKode.Text = "111" Then

TxtJudul.Text = "Corel Draw"

TxtPenulis.Text = "Kerin Naoula"

TxtRak.Text = "R2"

ElseIf CboKode.Text = "112" Then

TxtJudul.Text = "Jaringan"

TxtPenulis.Text = "Jonathan Fernan"

TxtRak.Text = "R4"

ElseIf CboKode.Text = "113" Then

TxtJudul.Text = "LAN"

TxtPenulis.Text = "Goul"

TxtRak.Text = "R3"

ElseIf CboKode.Text = "114" Then

TxtJudul.Text = "PHP"

TxtPenulis.Text = "Law"

TxtRak.Text = "R5"

Else

TxtJudul.Text = "Java"

TxtPenulis.Text = "Rito"

TxtRak.Text = "R6"

End If

TxtTerlambat.SetFocus

End Sub

Kode untuk Tombol CommandButton Keluar

Private Sub CmdKeluar_Click()

If MsgBox("Anda Yakin Ingin Keluar", vbYesNo, "kotak pesan") = vbYes Then

End

End If

End Sub

Kode untuk Tombol CommandButton Lagi

Private Sub CmdLagi_Click()

TxtJudul.Text = ""

TxtPenulis.Text = ""

TxtRak.Text = ""

CboKode.Text = ""

TxtNama.Text = ""

TxtTerlambat.Text = ""

TxtDenda.Text = ""

TxtNama.SetFocus

End Sub

Kode untuk Sub Form

Private Sub Form_Load()

CboKode.AddItem "110"

CboKode.AddItem "111"

CboKode.AddItem "112"

CboKode.AddItem "113"

CboKode.AddItem "114"

CboKode.AddItem "115"

End Sub

Kode untuk TextBox Terlambat

Private Sub TxtTerlambat_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtDenda.Text = Val(TxtTerlambat.Text) * 3000

End If

End Sub

Setelah sudah selesai. Tekan F5.

Masukkan manual di kolom ‘ Nama Peminjam, Terlambat’. Hasilnya seperti gambar di bawah:

PART 5

“Membuat Aplikasi Nilai Mahasiswa”

Langsung saja masukkan kontrol berikut:

1 Frame

10 Label

8 TextBox

3 CommandButton

Susun dan Edit kontrol diatas seperti gambar di bawah ini:

Dengan ketentuan :

Jika di klik CommandButton ‘Proses’ maka akan muncul hasil dari ‘Absensi, KUIS, Tugas, UTS, UAS’ yang telah dijumlahkan di kolom ‘Nilai Akhir dan Huruf Mutu’.

Berikut Codenya :

Kode untuk Tombol CommandButton Keluar

Private Sub CmdKeluar_Click()

Unload Me

End Sub

Kode untuk Tombol CommandButton Lagi

Private Sub CmdLagi_Click()

TxtNpm.Text = ""

TxtNama.Text = ""

TxtAbsen.Text = ""

TxtKuis.Text = ""

TxtTugas.Text = ""

TxtUts.Text = ""

TxtUas.Text = ""

TxtNA.Text = ""

Label2.Caption = ""

TxtNpm.SetFocus

End Sub

Kode untuk Tombol CommandButton Proses

Private Sub CmdProses_Click()

TxtNA.Text = (Val(TxtAbsen.Text) + Val(TxtKuis.Text) + Val(TxtTugas.Text) + Val(TxtUts.Text) + Val(TxtUas.Text)) / Val(5)

If TxtNA.Text >= 80 Then

Label2.Caption = " A"

ElseIf TxtNA.Text >= 73 Then

Label2.Caption = "B"

ElseIf TxtNA.Text >= 65 Then

Label2.Caption = "C"

Else

Label2.Caption = "BL"

End If

End Sub

Kode Keypress untuk TextBox Absen

Private Sub TxtAbsen_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtKuis.SetFocus

End If

End Sub

Kode Keypress untuk TextBox Kuis

Private Sub TxtKuis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtTugas.SetFocus

End If

End Sub

Kode Keypress untuk TextBox Nama

Private Sub TxtNama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtAbsen.SetFocus

End If

End Sub

Kode Keypress untuk TextBox NPM

Private Sub TxtNpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNama.SetFocus

End If

End Sub

Kode Keypress untuk TextBox Tugas

Private Sub TxtTugas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtUts.SetFocus

End If

End Sub

Kode Keypress untuk TextBox Uts

Private Sub TxtUts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtUas.SetFocus

End If

End Sub

Kemudian pilih Run>Start atau tekan F5.

Isikan kolom dengan cara manual kecuali ‘Nilai Akhir dan Huruf Mutu’.

Dan hasilnya seperti gambar di bawah:

PART 6

"PROGRAM APLIKASI 2 BILANGAN"

untuk membuat program aplikasi 2 bilangan, masukkan kontrol-kontrol di bawah ini:

4 Label

3 TextBox

3 CommandButton

Setelah itu susun dan edit kontrol seperti gambar di bawah:

setelah selesai menyusun dan mengedit masing-masing kontrol masukkan kode dengan ketentuan:

jika dimasukkan nilai pada kolom nilai pertama dan nilai kedua, dan di klik commandbutton 'HITUNG' maka akan muncul hasilnya di kolom 'Hasil

berikut Code-nya:

Kode untuk Tombol CommandButton HITUNG

Private Sub CmdHitung_Click()

TxtHasil.Text = Val(TxtPertama.Text) + Val(TxtKedua.Text)

End Sub

Kode untuk Tombol CommandButton Lagi

Private Sub CmdLagi_Click()

TxtHasil.Text = ""

TxtPertama.Text = ""

TxtKedua.Text = ""

TxtPertama.SetFocus

End Sub

Kode untuk Tombol CommandButton Selesai

Private Sub CmdSelesai_Click()

Unload Me

End Sub

Kemudian pilih Run>Start atau tekan F5.

Isikan kolom nilai pertama dan nilai kedua dengan cara manual kecuali ‘kolom hasil'

kemudian klik CommandButton 'HITUNG'

Dan hasilnya seperti gambar di bawah:

"semoga bermanfaat"

"Terimakasih"

by: Jeje_Art

Subscribe to Posts | Subscribe to Comments

PERMROGRAMAN