Senin, 13 Maret 2017
TUGAS INDIVIDU
by: dela.j.
"Membuat Aplikasi Jadwal Kelas"
Untuk membuat jadwal kelas yang kamu
butuhkan adalah:
1
frame
12
Label
1
combobox
7
optionbutton
2
comandbutton
Jika ingin di tambahkan gambar bergerak
seperti aplikasi yang saya buat bisa tambahkan
1
kontrol image dan 1 kontrol timer.
Dibawah ini merupakan design dari aplikasi jadwal.
Masukkan kontrol yang dibutuhkan dan susun seperti gambar di bawah.
Jika ingin
ditambahkan image, maka seperti gambar di bawah ini.
Sebelumnya
klik kontrol image-nya . Pada properties
windows di bagian picture, klik load picture.
Cari gambar
yang diinginkan kemudian Ok.
Setelah
selesai menyusun kontrol-kontrolnya, selanjutkan meletakkan kode pada kontrol yang
harus diletakkan kode, agar menjadi program yang sebenarnya.
ketikkan Code seperti di bawah ini:
ketikkan Code seperti di bawah ini:
Kode untuk Tombol CommandButton LogOUt
Private Sub Command1_Click()
If MsgBox("Anda Yakin Keluar?", vbOKCancel, "Kotak
Pesan") = vbOK Then
End
End If
End Sub
Kode untuk Tombol CommandButton Lihat Lagi
Private Sub Command2_Click()
LblSel.Caption = ""
LblMul.Caption = ""
LblDos.Caption = ""
LblRun.Caption = ""
LblMATKUL.Caption = ""
CboKelas.Text = ""
CboKelas.SetFocus
End Sub
Kode untuk Sub Form
Private Sub Form_Load()
CboKelas.AddItem "YOUTUBE 1"
CboKelas.AddItem "YOUTUBE 2"
CboKelas.AddItem "YOUTUBE 3"
CboKelas.AddItem "YOUTUBE 4"
CboKelas.AddItem "YOUTUBE 5"
CboKelas.AddItem "YOUTUBE 6"
End Sub
Kode untuk OptionButton Jumat
Private Sub OptJumat_Click()
If CboKelas.Text = "YOUTUBE 1" Then
OptSenin.Caption = "JUMAT"
LblMATKUL.Caption = "TIDAK
ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 2" Then
OptSenin.Caption = "JUMAT"
LblMATKUL.Caption = "TIDAK
ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 3" Then
OptSenin.Caption = "JUMAT"
LblMATKUL.Caption = "TIDAK
ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 4" Then
OptSenin.Caption = "JUMAT"
LblMATKUL.Caption = ""
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 5" Then
OptSenin.Caption = "JUMAT"
LblMATKUL.Caption = "TIDAK ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 6" Then
OptSenin.Caption = "JUMAT"
LblMATKUL.Caption = "TIDAK ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
End If
End Sub
Kode untuk OptionButton Kamis
Private Sub OptKamis_Click()
If CboKelas.Text = "YOUTUBE 1" Then
OptSenin.Caption = "KAMIS"
LblMATKUL.Caption = "TIDAK
ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 2" Then
OptSenin.Caption = "KAMIS"
LblMATKUL.Caption = "TIDAK
ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 3" Then
OptSenin.Caption = "KAMIS"
LblMATKUL.Caption = "TIDAK
ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 4" Then
OptSenin.Caption = "KAMIS"
LblMATKUL.Caption = ""
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 5" Then
OptSenin.Caption = "KAMIS"
LblMATKUL.Caption = "TIDAK ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 6" Then
OptSenin.Caption = "KAMIS"
LblMATKUL.Caption = "BAHASA INDONESIA - BAHASA INGGRIS"
LblMul.Caption = "10:00 -
13:00 "
LblSel.Caption = "12:00 -
15:00"
LblRun.Caption = "JAVA -
JAVA"
LblDos.Caption = "MAVIS -
ERZA"
End If
End Sub
Kode untuk OptionButton Minggu
Private Sub OptMinggu_Click()
If CboKelas.Text = "YOUTUBE 1" Then
OptSenin.Caption = "MINGGU"
LblMATKUL.Caption = "TIDAK
ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 2" Then
OptSenin.Caption = "MINGGU"
LblMATKUL.Caption = "PSI -
BAHASA PEMROGRAMAN I - PANCASILA"
LblMul.Caption = "10:00 -
13:00 - 15:00"
LblSel.Caption = "12:00 -
15:00 - 17:00"
LblRun.Caption = "GOOGLE -
LAB 1 - SMADAV"
LblDos.Caption = "NORN -
WATARAI - SUBROTO"
ElseIf CboKelas.Text = "YOUTUBE 3" Then
OptSenin.Caption = "MINGGU"
LblMATKUL.Caption = "TIDAK
ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 4" Then
OptSenin.Caption = "MINGGU"
LblMATKUL.Caption = ""
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 5" Then
OptSenin.Caption = "MINGGU"
LblMATKUL.Caption = "PANCASILA - BAHASA PEMROGRAMAN 1 -
STATISTIK"
LblMul.Caption = "08:00 -
10:00 - 13:00"
LblSel.Caption = "10:00 -
12:00 - 15:00"
LblRun.Caption = "AVIRA -
LAB 1 - AVAST"
LblDos.Caption = "LIBRA -
LEO - GEMINI"
ElseIf CboKelas.Text = "YOUTUBE 6" Then
OptSenin.Caption = "MINGGU"
LblMATKUL.Caption = "TIDAK ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
End If
End Sub
Kode untuk OptionButton Rabu
Private Sub OptRabu_Click()
If CboKelas.Text = "YOUTUBE 1" Then
OptSenin.Caption = "RABU"
LblMATKUL.Caption =
"STATISTIK"
LblMul.Caption =
"10:00"
LblSel.Caption =
"12:00"
LblRun.Caption =
"Google"
LblDos.Caption =
"MAVIS"
ElseIf CboKelas.Text = "YOUTUBE 2" Then
OptSenin.Caption = "RABU"
LblMATKUL.Caption = "TIDAK
ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 3" Then
OptSenin.Caption = "RABU"
LblMATKUL.Caption =
"STATISTIK"
LblMul.Caption = "08:00
"
LblSel.Caption = "10:00
"
LblRun.Caption = "AVAST
"
LblDos.Caption =
"GERRAD"
ElseIf CboKelas.Text = "YOUTUBE 4" Then
OptSenin.Caption = "RABU"
LblMATKUL.Caption = "PANCASILA"
LblMul.Caption = "10:00
"
LblSel.Caption = "12:00
"
LblRun.Caption =
"SMADAV"
LblDos.Caption =
"CANA"
ElseIf CboKelas.Text = "YOUTUBE 5" Then
OptSenin.Caption = "RABU"
LblMATKUL.Caption = "TIDAK ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 6" Then
OptSenin.Caption = "RABU"
LblMATKUL.Caption = "BAHASA PEMROGRAMAN I - PSI"
LblMul.Caption = "10:00 -
13:00 "
LblSel.Caption = "12:00 -
15:00"
LblRun.Caption = "JAVA -
JAVA"
LblDos.Caption = "GERRAD -
NATSU"
End If
End Sub
Kode untuk OptionButton Sabtu
Private Sub OptSabtu_Click()
If CboKelas.Text = "YOUTUBE 1" Then
OptSenin.Caption = "SABTU"
LblMATKUL.Caption = "TIDAK
ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 2" Then
OptSenin.Caption = "SABTU"
LblMATKUL.Caption = "BAHASA
INDONESIA - BAHASA INGGRIS - STATISTIK"
LblMul.Caption = "08:00 -
10:00 - 13:00"
LblSel.Caption = "10:00 -
12:00 - 15:00"
LblRun.Caption = "Lantai 3
- Lantai 3 - SMADAV"
LblDos.Caption = "EGI -
YUME - WENDY"
ElseIf CboKelas.Text = "YOUTUBE 3" Then
OptSenin.Caption = "SABTU"
LblMATKUL.Caption = "TIDAK
ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 4" Then
OptSenin.Caption = "SABTU"
LblMATKUL.Caption = ""
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 5" Then
OptSenin.Caption = "SABTU"
LblMATKUL.Caption = "PSI - BAHASA INDONESIA - BAHASA INGGRIS"
LblMul.Caption = "08:00 -
10:00 - 13:00"
LblSel.Caption = "10:00 -
12:00 - 15:00"
LblRun.Caption = "JAVA -
GOOGLE - GOOGLE"
LblDos.Caption = "NATSU -
LINA - DEWI"
ElseIf CboKelas.Text = "YOUTUBE 6" Then
OptSenin.Caption = "SABTU"
LblMATKUL.Caption = "TIDAK ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
End If
End Sub
Kode untuk OptionButton Selasa
Private Sub OptSelasa_Click()
If CboKelas.Text = "YOUTUBE 1" Then
OptSenin.Caption = "SELASA"
LblMATKUL.Caption =
"BAHASA INDONESIA - BAHASA INGGRIS"
LblMul.Caption = "10:00 -
13:00"
LblSel.Caption = "12:00 -
15:00"
LblRun.Caption = "Google -
Google"
LblDos.Caption = "LUCY -
JUVIA"
ElseIf CboKelas.Text = "YOUTUBE 2" Then
OptSenin.Caption = "SELASA"
LblMATKUL.Caption = "TIDAK
ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 3" Then
OptSenin.Caption = "SELASA"
LblMATKUL.Caption = "BAHASA
INDONESIA - BAHASA INGGRIS"
LblMul.Caption = "08:00 -
10:00 "
LblSel.Caption = "10:00 -
12:00 "
LblRun.Caption = "AVAST -
AVAST "
LblDos.Caption = "JUVIA -
LUCY"
ElseIf CboKelas.Text = "YOUTUBE 4" Then
OptSenin.Caption = "SELASA"
LblMATKUL.Caption = "PSI - BAHASA PEMROGRAMAN I"
LblMul.Caption = "10:00 -
13:00 "
LblSel.Caption = "12:00 -
15:00 "
LblRun.Caption = "SMADAV -
LAB 1"
LblDos.Caption = "GEORGE -
WATARI"
ElseIf CboKelas.Text = "YOUTUBE 5" Then
OptSenin.Caption = "SELASA"
LblMATKUL.Caption = "TIDAK ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 6" Then
OptSenin.Caption = "SELASA"
LblMATKUL.Caption = "PANCASILA - STATISTIK"
LblMul.Caption = "10:00 -
13:00 "
LblSel.Caption = "12:00 -
15:00"
LblRun.Caption = "JAVA -
JAVA"
LblDos.Caption = "LAXUS -
MYSTOGAN"
End If
End Sub
Kode untuk OptionButton Senin
Private Sub OptSenin_Click()
If CboKelas.Text = "YOUTUBE 1" Then
OptSenin.Caption = "SENIN"
LblMATKUL.Caption =
"BAHASA PEMROGRAMAN I - PANCASILA - PSI"
LblMul.Caption = "08:00 -
10:00 - 13:00"
LblSel.Caption = "10:00 -
12:00 - 15:00"
LblRun.Caption = "LAB 1 -
Google - Google"
LblDos.Caption = "WATARI -
HIME - DEWO"
ElseIf CboKelas.Text = "YOUTUBE 2" Then
OptSenin.Caption = "SENIN"
LblMATKUL.Caption = "TIDAK
ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 3" Then
OptSenin.Caption = "SENIN"
LblMATKUL.Caption =
"PANCASILA - PSI- BAHASA PEMOGRAMAN I"
LblMul.Caption = "08:00 -
10:00 - 13:00"
LblSel.Caption = "10:00 - 12:00 - 15:00"
LblRun.Caption = "Google -
Lantai 3 - LAB 1"
LblDos.Caption = "HIME -
DEWO - WATARI"
ElseIf CboKelas.Text = "YOUTUBE 4" Then
OptSenin.Caption = "SENIN"
LblMATKUL.Caption = "BAHASA INDONESIA - BAHASA INGGRIS-
STATISTIK"
LblMul.Caption = "10:00 -
13:00 - 15:00"
LblSel.Caption = "12:00 -
15:00 - 17:00"
LblRun.Caption = "SMADAV -
AVAST - PHP"
LblDos.Caption = "MAUDY -
JAMES - ERZA"
ElseIf CboKelas.Text = "YOUTUBE 5" Then
OptSenin.Caption = "SENIN"
LblMATKUL.Caption = "TIDAK ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
ElseIf CboKelas.Text = "YOUTUBE 6" Then
OptSenin.Caption = "SENIN"
LblMATKUL.Caption = "TIDAK ADA JADWAL"
LblMul.Caption = ""
LblSel.Caption = ""
LblRun.Caption = ""
LblDos.Caption = ""
End If
End Sub
Kode untuk Timer
Private Sub Timer1_Timer()
Image1.Move Image1.Left - 80, Image1.Top
If Image1.Left + Image1.Width < ScaleLeft Then
Image1.Left = ScaleWidth
End If
End Sub
Setelah itu
Run-> Start
Dan hasilnya apabila dipilih YOUTUBE 1 pada combobox
dan di pilih option button senin, maka akan muncul keterangan di kolom mata
kuliah, jam mulai dan jam selesai, ruangan, serta dosen yang mengajar. Seperti gambar di bawah ini.
PART 2
"Membuat Aplikasi Di Kafe"
Untuk membuat aplikasi seperti gambar di bawah ini yang kita butuhkan adalah :
4 Label
2 Frame
8 CheckBox
11 TextBox
3
CommandButton
Kemudian susun kontrol-kontrol di atas seperti gambar di bawah ini:
Dan masukkan kode seperti di bawah :
Kode untuk CheckBox Jus Mix
Private Sub ChkMix_Click()
If ChkMix.Value = 1 Then
TxtMix.Text = 18000
ElseIf ChkMix.Value = 0 Then
TxtMix.Text = ""
End If
End Sub
Kode untuk CheckBox Ramen
Private Sub ChkRamen_Click()
If ChkRamen.Value = 1 Then
TxtRamen.Text = 20000
ElseIf ChkRamen.Value = 0 Then
TxtRamen.Text = ""
End If
End Sub
Kode untuk CheckBox Ice Cendol
Private Sub ChkIce_Click()
If ChkIce.Value = 1 Then
TxtIce.Text = 10000
ElseIf ChkIce.Value = 0 Then
TxtIce.Text = ""
End If
End Sub
Kode untuk CheckBox Takoyaki
Private Sub ChkTako_Click()
If ChkTako.Value = 1 Then
TxtTako.Text = 25000
ElseIf ChkTako.Value = 0 Then
TxtTako.Text = ""
End If
End Sub
Kode untuk CheckBox Ayam Teriyaki
Private Sub ChkAyam_Click()
If ChkAyam.Value = 1 Then
TxtAyam.Text = 35000
ElseIf ChkAyam.Value = 0 Then
TxtAyam.Text = ""
End If
End Sub
Kode untuk CheckBox Brokoli Tiram
Private Sub ChkBro_Click()
If ChkBro.Value = 1 Then
TxtBro.Text = 30000
ElseIf ChkBro.Value = 0 Then
TxtBro.Text = ""
End If
End Sub
Kode untuk CheckBox Cincau Cino
Private Sub ChkCin_Click()
If ChkCin.Value = 1 Then
TxtCin.Text = 15000
ElseIf ChkCin.Value = 0 Then
TxtCin.Text = ""
End If
End Sub
Kode untuk CheckBox Jus Gula
Private Sub ChkJus_Click()
If ChkJus.Value = 1 Then
TxtJus.Text = 15000
ElseIf ChkJus.Value = 0 Then
TxtJus.Text = ""
End If
End Sub
Kode untuk Tombol COmmandButton Hitung
Private Sub CmdHitung_Click()
If ChkRamen.Value = Checked Then
total = total + 20000
End If
If ChkAyam.Value = Checked Then
total = total + 35000
End If
If ChkTako.Value = Checked Then
total = total + 25000
End If
If ChkBro.Value = Checked Then
total = total + 30000
End If
If ChkIce.Value = Checked Then
total = total + 10000
End If
If ChkCin.Value = Checked Then
total = total + 15000
End If
If ChkJus.Value = Checked Then
total = total + 15000
End If
If ChkMix.Value = Checked Then
total = total + 18000
End If
TxtTotal.Text = Val(total)
End Sub
Kode untuk Tombol CommandButton Keluar
Private Sub CmdKeluar_Click()
If MsgBox("Yakin Mau Keluar Nih?", vbYesNo, "Kotak
Pesan") = vbYes Then
End
End If
End Sub
Kode untuk Tombol CommandButton Lagi
Private Sub CmdLagi_Click()
TxtTotal.Text = ""
ChkAyam.Value = 0
ChkRamen.Value = 0
ChkTako.Value = 0
ChkBro.Value = 0
ChkIce.Value = 0
ChkJus.Value = 0
ChkMix.Value = 0
ChkCin.Value = 0
TxtKem.Text = ""
TxtUang.Text = ""
End Sub
Kode Keypress untuk TextBox Uang yang DIbayarkan
Private Sub TxtUang_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtKem.Text = Val(TxtUang.Text) - Val(TxtTotal.Text)
End If
End Sub
Setelah selesai menuliskan Code-nya, Kemudian pilih Run > Start / F5
Dan hasilnya
akan seperti ini. Jika di check misal ramen dan es cendol dan di klik tombol
hitung, hasilnya akan muncul di Txttotal seperti dibawah.
Kemudian, jika diisi uang yang dibayarkan dan jika di
enter akan muncul kembalian dari uang yang di bayarkan di Txtkembali.
......"Semoga Bermanfaat"
....."Mohon maaf bila ada kesalahan Pengetikan"......
....."Mohon maaf bila ada kesalahan Pengetikan"......
.....By : Jeje_Art....
