TUGAS PEMROGRAMAN 1(DATABASE)

TUGAS 1

SOURCE CODE TUGAS 1

Private Sub CboGol_Click()
Dim Gp, Pj, Tj, Total As Variant
Select Case CboGol.Text
Case “I”
Gp = 1550000
Tj = 155000
Case “II”
Gp = 2550000
Tj = 255000
Case “III”
Gp = 3550000
Tj = 355000
Case “IV”
Gp = 4550000
Tj = 455000
Case Else
Gp = 0
Tj = 0
End Select
Total = Gp + Tj
Pj = Total * 0.1
TxtGp.Text = Gp
TxtTj.Text = Tj
TxtPj.Text = Pj
TxtTotal.Text = Total – Pj
End Sub

Private Sub cmcancel_Click()
Data1.Recordset.Delete
Data1.Recordset.MovePrevious
End Sub

Private Sub cmdadd_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
End Sub

Private Sub cmdkeluar_Click()
Form2.Show
End Sub

Private Sub cmdsave_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveNext

End Sub

Private Sub Form_Load()
CboGol.AddItem “I”
CboGol.AddItem “II”
CboGol.AddItem “III”
CboGol.AddItem “IV”
End Sub

Private Sub TxtRio_KeyPress(keyascii As Integer)
If keyascii = 13 Then
TxtNp.SetFocus
End If
End Sub

SOURCE CODE TUGAS 1 PILIHAN KELUAR YES OR NO

Private Sub cmdno_Click()
Form1.Show
End Sub

Private Sub cmdyes_Click()
End
End Sub

GAMBAR TAMPILAN TUGAS 1

TUGAS1

TUGAS1.1

TUGAS 2

SOURCE CODE TUGAS 2

Private Sub CmdAdd_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
End Sub

Private Sub CmdCancel_Click()
Data1.Recordset.Delete
Data1.Recordset.MovePrevious
End Sub

Private Sub CmdKeluar_Click()
Form2.Show
End Sub

Private Sub CmdProses_Click()
Dim Jurusan, Prodi, R As String
R = Mid(TxtNpm, 3, 1)
If R = “1” Then
Jurusan = ” Sistem Informasi”

ElseIf R = “2” Then
Jurusan = ” Teknik Informatika”

ElseIf R = “3” Then
Jurusan = ” Manajemen Informatika”

ElseIf R = “4” Then
Jurusan = ” Komputer Akuntansi”
End If
TxtJr = Jurusan
R = Mid(TxtNpm, 4, 2)
If R = “01” Then
Prodi = “Strata Satu”

ElseIf R = “02” Then
Prodi = “Diploma Empat”

ElseIf R = “03” Then
Prodi = “Diploma Tiga”

ElseIf R = “04” Then
Prodi = “Diploma Dua”
End If
TxtPs = Prodi
TxtTm = “20” & Left(TxtNpm, 2)
TxtNomor = Right(TxtNpm, 3)
End Sub

Private Sub CmdSave_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveNext
End Sub

Private Sub TxtNm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNpm.SetFocus
End If
End Sub

SOURCE CODE TUGAS 2 PILIHAN KELUAR YES OR NO

Private Sub CmdNo_Click()
Form1.Show
End Sub

Private Sub CmdYes_Click()
End
End Sub

GAMBAR TAMPILAN TUGAS 2

TUGAS2

TUGAS2.1

TUGAS 3

SOURCE CODE TUGAS 3

Private Sub CboKl_Click()
Dim Merek, Harga, Kode As Variant
Kode = Mid(CboKl.Text, 7, 5)
Select Case Kode
Case “MC965”
Merek = “Apple MacBook Air MC965”
Harga = “12800000”

Case “MC966”
Merek = “Apple MacBook Air MC966”
Harga = “15800000”

Case “MC968”
Merek = “Apple MacBook Air MC968”
Harga = “9900000”

Case “MC969”
Merek = “Apple MacBook Air MC969”
Harga = “11900000”

Case “MC700”
Merek = “Apple MacBook Pro MC700”
Harga = “10800000”

Case “MC721”
Merek = “Apple MacBook Pro MC721”
Harga = “15900000”

Case “MC723”
Merek = “Apple MacBook Pro MC723”
Harga = “19300000 ”

Case “MC311”
Merek = “Apple MacBook Pro MC311”
Harga = “24200000 ”

Case ” MC313″
Merek = “Apple MacBook Pro MC313”
Harga = “11900000”

Case ” MC314″
Merek = “Apple MacBook Pro MC314”
Harga = “14700000”

Case “MC318”
Merek = “Apple MacBook Pro MC318”
Harga = “17600000”

Case “MC322”
Merek = “Apple MacBook Pro MC322 ”
Harga = “21300000”

Case “MC965”
Merek = “Apple MacBook Air MC965”
Harga = “12800000”

Case “MC96”
Merek = “Apple MacBook Air MC966 ”
Harga = “15800000 ”
End Select
TxtMt = Merek
TxtHs = Harga
TxtJj.SetFocus
End Sub

Private Sub cmdadd_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
End Sub

Private Sub cmdcancel_Click()
Data1.Recordset.Delete
Data1.Recordset.MovePrevious
End Sub

Private Sub cmdkeluar_Click()
Form2.Show
End Sub

Private Sub CmdProses_Click()
TxtHp = Val(TxtJj) * Val(TxtHs)
Select Case TxtHp.Text
Case Is > 30000000
TxtDis = Val(TxtHp) * 0.15
TxtTotal = Val(TxtHp) – Val(TxtDis)

Case Is > 25000000
TxtDis = Val(TxtHp) * 0.1
TxtTotal = Val(TxtHp) – Val(TxtDis)

Case Is > 20000000
TxtDis = Val(TxtHp) * 0.05
TxtTotal = Val(TxtHp) – Val(TxtDis)

Case Is > 15000000
TxtDis = Val(TxtHp) * 0.02
TxtTotal = Val(TxtHp) – Val(TxtDis)
End Select
End Sub

Private Sub cmdsave_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveNext
End Sub

Private Sub Form_Load()
CboKl.AddItem “Apple MC965 MacBook Air”
CboKl.AddItem “Apple MC966 MacBook Air”
CboKl.AddItem “Apple MC968 MacBook Air”
CboKl.AddItem “Apple MC969 MacBook Air”
CboKl.AddItem “Apple MC700 MacBook Pro”
CboKl.AddItem “Apple MC721 MacBook Pro”
CboKl.AddItem “Apple MC723 MacBook Pro”
CboKl.AddItem “Apple MC724 MacBook Pro”
CboKl.AddItem “Apple MC311 MacBook Pro”
CboKl.AddItem “Apple MC313 MacBook Pro”
CboKl.AddItem “Apple MC314 MacBook Pro”
CboKl.AddItem “Apple MC318 MacBook Pro”
CboKl.AddItem “Apple MC322 MacBook Pro”
CboKl.AddItem “Apple MC965 MacBook Air”
CboKl.AddItem “Apple MC966 MacBook Air”
End Sub

SOURCE CODE TUGAS 3 PILIHAN KELUAR YES OR NO

Private Sub cmdno_Click()
Form1.Show
End Sub

Private Sub cmdyes_Click()
End
End Sub

GAMBAR TAMPILAN TUGAS3

TUGAS3

TUGAS3.1

TUGAS 4

SOURCE CODE TUGAS 4

Private Sub CboKode_Click()
Dim Jenis, Harga As String
Select Case CboKode.Text
Case “P205”
Jenis = “Pentium II  500 Mega Hz”
Harga = “1500000”

Case “P305”
Jenis = “Pentium III 800 Mega Hz”
Harga = “2100000 ”

Case “P310”
Jenis = “Pentium III  1.0 Giga Hz ”
Harga = “3500000”

Case “P415”
Jenis = “Pentium IV  1.5 Giga Hz”
Harga = “4000000”

Case “P417”
Jenis = “Pentium IV  1.7 Giga Hz”
Harga = “4200000”

Case “P419”
Jenis = “Pentium IV  1.9 Giga Hz”
Harga = “5500000”
End Select
TxtJk = Jenis
TxtHs = Harga
TxtJj.SetFocus

End Sub

Private Sub cmdadd_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast

End Sub

Private Sub cmdcancel_Click()
Data1.Recordset.Delete
Data1.Recordset.MovePrevious

End Sub

Private Sub cmdkeluar_Click()
Form2.Show

End Sub

Private Sub CmdProses_Click()
TxtHp = Val(TxtJj) * Val(TxtHs)
Select Case TxtHp.Text
Case Is > 30000000
TxtDis = Val(TxtHp) * 0.15
TxtHb = Val(TxtHp) – Val(TxtDis)

Case Is > 25000000
TxtDis = Val(TxtHp) * 0.1
TxtHb = Val(TxtHp) – Val(TxtDis)

Case Is > 20000000
TxtDis = Val(TxtHp) * 0.05
TxtHb = Val(TxtHp) – Val(TxtDis)

Case Is > 15000000
TxtDis = Val(TxtHp) * 0.02
TxtHb = Val(TxtHp) – Val(TxtDis)
End Select
End Sub

Private Sub cmdsave_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveNext

End Sub

Private Sub Form_Load()
CboKode.AddItem “P205”
CboKode.AddItem “P305”
CboKode.AddItem “P310”
CboKode.AddItem “P415”
CboKode.AddItem “P417”
CboKode.AddItem “P419”

End Sub

SOURCE CODE TUGAS 4 PILIHAN KELUAR YES OR NO

Private Sub cmdno_Click()
Form1.Show
End Sub

Private Sub cmdyes_Click()
End
End Sub

GAMBAR TAMPILAN TUGAS 4

TUGAS4

TUGAS4.1

TUGAS 5

SOURCE CODE TUGAS 5

Private Sub cmdadd_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast

End Sub

Private Sub cmdcancel_Click()
Data1.Recordset.Delete
Data1.Recordset.MovePrevious

End Sub

Private Sub cmdkeluar_Click()
Form2.Show

End Sub

Private Sub CmdProses_Click()
Dim JudulBuku, Pengarang, Penerbit, Harga As String
TxtTt.Text = “20” & Right(CboKode, 2)
R = Mid(CboKode, 3, 3)
If R = “SIM” Then
JudulBuku = “Sistem Informasi Manajemen”
Pengarang = “Yati Nur Oktavia”
Harga = “75900”

ElseIf R = “EDP” Then
JudulBuku = “Elektronik Data Processing”
Pengarang = “Imam Tarmizi”
Harga = “62000”

ElseIf R = “MNJ” Then
JudulBuku = “Manajemen”
Pengarang = “Valentina Mariana Adiwianti”
Harga = “42000”

ElseIf R = “CDR” Then
JudulBuku = “Corel Draw”
Pengarang = “Riyan Suhandi”
Harga = “53000”

ElseIf R = “RPL” Then
JudulBuku = “Rekayasa Perangkat Lunak”
Pengarang = “Sinta Umpu Singa”
Harga = “83000”
End If

TxtJb = JudulBuku
TxtPg = Pengarang
TxtHarga = Harga
R = Mid(CboKode, 1, 1)
If R = “A” Then
Penerbit = “Andi Offset Yogyakarta”

ElseIf R = “I” Then
Penerbit = “Indah Surabaya”

ElseIf R = “S” Then
Penerbit = “Salemba Empat”

ElseIf R = “E” Then
Penerbit = “Elek Media Komputindo”

ElseIf R = “M” Then
Penerbit = “Maxicom”
End If
TxtP.Text = Penerbit

End Sub

Private Sub cmdsave_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveNext

End Sub

Private Sub Form_Load()

CboKode.AddItem “A-SIM-01”
CboKode.AddItem “I-EDP-02”
CboKode.AddItem “S-MNJ-03”
CboKode.AddItem “E-CDR-04”
CboKode.AddItem “M-RPL-05”
End Sub

SOURCE CODE TUGAS 5 PILIHAN KELUAR YES OR NO

Private Sub cmdno_Click()
Form1.Show
End Sub

Private Sub cmdyes_Click()
End
End Sub

GAMBAR TAMPILAN TUGAS 5

TUGAS5

TUGAS5.1

TUGAS 6

SOURCE CODE TUGAS 6

Private Sub cmdadd_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast

End Sub

Private Sub cmdcancel_Click()
Data1.Recordset.Delete
Data1.Recordset.MovePrevious

End Sub

Private Sub cmdkeluar_Click()
Form2.Show

End Sub

Private Sub CmdProses_Click()
Dim Kode, Harga, Jenis, Berangkat As Variant
Kode = Left(TxtKt.Text, 3)
Select Case Kode
Case “BIM”
Harga = “50000”
Jenis = “BIMA”
Berangkat = “16.00”
Case “EKO”
Harga = “35000”
Jenis = “EKONOMI”
Berangkat = “19.00”
Case “MUT”
Harga = “23000”
Jenis = “MUTIARA”
Berangkat = “17.00”
Case “SEN”
Harga = “15000”
Jenis = “SENJA”
Berangkat = “20.00”
End Select
TxtHt = Harga
TxtJk = Jenis
TxtJb = Berangkat
TxtJt.SetFocus

End Sub

Private Sub cmdsave_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveNext

End Sub

Private Sub TxtJt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtTotal = Val(TxtHt.Text) * Val(TxtJt.Text)
End If
End Sub

SOURCE CODE TUGAS 6 PILIHAN KELUAR YES OR NO

Private Sub cmdno_Click()
Form1.Show
End Sub

Private Sub cmdyes_Click()
End
End Sub

GAMBAR TAMPILAN TUGAS 6

TUGAS6

TUGAS6.1

TUGAS 7

SOURCE CODE TUGAS 7

Private Sub cmdadd_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast

End Sub

Private Sub cmdcancel_Click()
Data1.Recordset.Delete
Data1.Recordset.MovePrevious

End Sub

Private Sub cmdkeluar_Click()
Form2.Show

End Sub

Private Sub CmdProses_Click()
Dim Judul, Pengarang, Penerbit, Harga As String
TxtTt.Text = “20” & Mid(TxtKode, 5, 2)
R = Left(TxtKode, 3)
If R = “SIM” Then
Judul = “Sistem Informasi Manajemen”
Pengarang = “Fadiya Ulfa”
Harga = “75900”

ElseIf R = “EDP” Then
Judul = “Elektronik Data Processing”
Pengarang = “Nurul Agustina”
Harga = “62000”

ElseIf R = “MNJ” Then
Judul = “Manajemen”
Pengarang = “Rian Hidayat”
Harga = “42000”

ElseIf R = “CDR” Then
Judul = “Corel Draw”
Pengarang = “Siti Nur Khotimah”
Harga = “53000”

ElseIf R = “RPL” Then
Judul = “Rekayasa Perangkat Lunak”
Pengarang = “Winda Erlianti”
Harga = “83000”
End If
TxtJb = Judul
TxtPg = Pengarang
TxtHarga = Harga

R = Mid(TxtKode, 8)
If R = “A” Then
Penerbit = “Andi Offset Yogyakarta”

ElseIf R = “I” Then
Penerbit = “Indah Surabaya”

ElseIf R = “S” Then
Penerbit = “Salemba Empat”

ElseIf R = “E” Then
Penerbit = “Elek Media Komputindo”

ElseIf R = “M” Then
Penerbit = “Maxicom”
End If
TxtP.Text = Penerbit

End Sub

Private Sub cmdsave_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveNext

End Sub

Private Sub TxtKode_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

SOURCE CODE TUGAS 7 PILIHAN KELUAR YES OR NO

Private Sub cmdno_Click()
Form1.Show
End Sub

Private Sub cmdyes_Click()
End
End Sub

GAMBAR TAMPILAN TUGAS 7

TUGAS7

TUGAS7.1

TUGAS 8

SOURCE CODE TUGAS 8

Private Sub cmdadd_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast

End Sub

Private Sub cmdcancel_Click()
Data1.Recordset.Delete
Data1.Recordset.MovePrevious

End Sub

Private Sub cmdkeluar_Click()
Form2.Show

End Sub

Private Sub CmdProses_Click()
Dim Golongan, KodeBagian, KodeStatus, Status, Tahun, Jabatan, Bagian, GajiPokok, Tunjangan As Variant

Golongan = Mid(TxtNik.Text, 5, 1)
TxtGol = Golongan

KodeStatus = Mid(TxtNik.Text, 7, 1)
TxtKode = KodeStatus

If KodeStatus = “S” Then
Status = “Single”
ElseIf KodeStatus = “M” Then
Status = “Menikah”
ElseIf KodeStatus = “J” Then
Status = “Janda”
ElseIf KodeStatus = “D” Then
Status = “Duda”
End If
TxtStatus = Status

Tahun = Left(TxtNik.Text, 4)
TxtTahun = Tahun

Select Case Golongan
Case “A”
Jabatan = “Manager”
GajiPokok = 4000000
Tunjangan = 1025000
Case “B”
Jabatan = “Ka. Seksi”
GajiPokok = 3500000
Tunjangan = 975000
Case “C”
Jabatan = “Staff”
GajiPokok = 3000000
Tunjangan = 925000
End Select
TxtJabatan = Jabatan
TxtGajiPokok = GajiPokok
TxtTunjangan = Tunjangan

KodeBagian = Right(TxtNik.Text, 3)
Select Case KodeBagian
Case “KEU”
Bagian = “Accounting”
Case “ADM”
Bagian = “Administrasi”
Case “SDM”
Bagian = “General Affair”
Case “EDP”
Bagian = “IT Unit”
Case “SPM”
Bagian = “Security”
End Select
TxtBagian = Bagian

TxtTotal = GajiPokok + Tunjangan
End Sub

Private Sub cmdsave_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveNext

End Sub

Private Sub Form_Activate()
TxtNm.SetFocus
End Sub

Private Sub TxtNm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNik.SetFocus
End If
End Sub

SOURCE CODE TUGAS 8 PILIHAN KELUAR YES OR NO

Private Sub cmdno_Click()
Form1.Show
End Sub

Private Sub cmdyes_Click()
End
End Sub

GAMBAR TAMPILAN TUGAS 8

TUGAS8

TUGAS8.1

TUGAS 9

SOURCE CODE TUGAS 9

Private Sub cmdadd_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast

End Sub

Private Sub cmdcancel_Click()
Data1.Recordset.Delete
Data1.Recordset.MovePrevious

End Sub

Private Sub cmdhitung_Click()
txtby = Val(txthb) * Val(txtjb)
If Val(txtjb) > 5 Then
txtpot = Val(txtby.Text) * 0.02
ElseIf Val(txtjb.Text) <= 5 Then
txtpot = “0”
End If
txttb = Val(txtby) – Val(txtpot)

End Sub

Private Sub cmdkeluar_Click()
Form2.Show

End Sub

Private Sub cmdproses_Click()
Dim Kode As Variant
Kode = Mid(txtkode.Text, 5, 2)
If Kode = “SP” Then
txtnb.Text = “Spidol”

ElseIf Kode = “BT” Then
txtnb.Text = “Buku Tulis”

ElseIf Kode = “TP” Then
txtnb.Text = “TIP EX”

ElseIf Kode = “PG” Then
txtnb.Text = “PENGGARIS”

ElseIf Kode = “PT” Then
txtnb.Text = “PAPAN TULIS”

End If

Kode = Mid(txtkode.Text, 8, 2)
If Kode = “01” Then
txthb.Text = “9500”

ElseIf Kode = “02” Then
txthb.Text = “12500”

ElseIf Kode = “03” Then
txthb.Text = “3000”

ElseIf Kode = “04” Then
txthb.Text = “25000”

ElseIf Kode = “05” Then
txthb.Text = “50000”
End If
txtjb.SetFocus

End Sub

Private Sub cmdsave_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveNext

End Sub

SOURCE CODE TUGAS 9 PILIHAN KELUAR YES 0R NO

Private Sub cmdno_Click()
Form1.Show
End Sub

Private Sub cmdyes_Click()
End
End Sub

GAMBAR TAMPILAN TUGAS 9

TUGAS9

TUGAS9.1

Iklan

TUGAS BAHASA PEMROGRAMAN 1

TUGAS 1

SOURCE CODE TUGAS 1

Private Sub CboGol_Click()
Dim Gp, Pj, Tj, Total As Variant
Select Case CboGol.Text
Case “I”
Gp = 1550000
Tj = 155000
Case “II”
Gp = 2550000
Tj = 255000
Case “III”
Gp = 3550000
Tj = 355000
Case “IV”
Gp = 4550000
Tj = 455000
Case Else
Gp = 0
Tj = 0
End Select
Total = Gp + Tj
Pj = Total * 0.1
TxtGp.Text = Gp
TxtTj.Text = Tj
TxtPj.Text = Pj
TxtTotal.Text = Total – Pj
End Sub

Private Sub CmdBatal_Click()
TxtRio.SetFocus
TxtRio.Text = “”
TxtNp.Text = ” ”
CboGol.Text = ” ”
TxtGp.Text = ” ”
TxtTj.Text = ” ”
TxtPj.Text = ” ”
TxtTotal.Text = ” ”
End Sub

Private Sub CmdKel_Click()
Unload Me
End Sub

Private Sub CmdLagi_Click()
TxtRio.SetFocus
TxtRio.Text = ” ”
TxtNp.Text = ” ”
CboGol.Text = ” ”
TxtGp.Text = ” ”
TxtTj.Text = ” ”
TxtPj.Text = ” ”
TxtTotal.Text = “”
End Sub

Private Sub Form_Load()

CboGol.AddItem “I”
CboGol.AddItem “II”
CboGol.AddItem “III”
CboGol.AddItem “IV”
End Sub

Private Sub TxtRio_KeyPress(keyascii As Integer)
If keyascii = 13 Then
TxtNp.SetFocus
End If
End Sub

GAMBAR TAMPILAN TUGAS 1

TUGAS1

TUGAS.1

TUGAS 2

SOURCE CODE TUGAS 2

Private Sub CmdBatal_Click()
TxtNm.SetFocus
TxtNm = “”
TxtNpm = “”
TxtJr = “”
TxtPs = “”
TxtTm = “”
TxtNomor = “”
End Sub

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub CmdLagi_Click()
TxtNm.SetFocus
TxtNm = “”
TxtNpm = “”
TxtJr = “”
TxtPs = “”
TxtTm = “”
TxtNomor = “”
End Sub

Private Sub CmdProses_Click()
Dim Jurusan, Prodi, R As String
R = Mid(TxtNpm, 3, 1)
If R = “1” Then
Jurusan = ” Sistem Informasi”

ElseIf R = “2” Then
Jurusan = ” Teknik Informatika”

ElseIf R = “3” Then
Jurusan = ” Manajemen Informatika”

ElseIf R = “4” Then
Jurusan = ” Komputer Akuntansi”
End If
TxtJr = Jurusan
R = Mid(TxtNpm, 4, 2)
If R = “01” Then
Prodi = “Strata Satu”

ElseIf R = “02” Then
Prodi = “Diploma Empat”

ElseIf R = “03” Then
Prodi = “Diploma Tiga”

ElseIf R = “04” Then
Prodi = “Diploma Dua”
End If
TxtPs = Prodi
TxtTm = “20” & Left(TxtNpm, 2)
TxtNomor = Right(TxtNpm, 3)
End Sub

Private Sub TxtNm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNpm.SetFocus
End If
End Sub

GAMBAR TAMPILAN TUGAS 2

TUGAS2

TUGAS.2

TUGAS 3

SOURCE CODE TUGAS 3

Private Sub CboKl_Click()
Dim Merek, Harga, Kode As Variant
Kode = Mid(CboKl.Text, 7, 5)
Select Case Kode
Case “MC965”
Merek = “Apple MacBook Air MC965”
Harga = “12800000”

Case “MC966”
Merek = “Apple MacBook Air MC966”
Harga = “15800000”

Case “MC968”
Merek = “Apple MacBook Air MC968”
Harga = “9900000”

Case “MC969”
Merek = “Apple MacBook Air MC969”
Harga = “11900000”

Case “MC700”
Merek = “Apple MacBook Pro MC700”
Harga = “10800000”

Case “MC721”
Merek = “Apple MacBook Pro MC721”
Harga = “15900000”

Case “MC723”
Merek = “Apple MacBook Pro MC723”
Harga = “19300000 ”

Case “MC311”
Merek = “Apple MacBook Pro MC311”
Harga = “24200000 ”

Case ” MC313″
Merek = “Apple MacBook Pro MC313”
Harga = “11900000”

Case ” MC314″
Merek = “Apple MacBook Pro MC314”
Harga = “14700000”

Case “MC318”
Merek = “Apple MacBook Pro MC318”
Harga = “17600000”

Case “MC322”
Merek = “Apple MacBook Pro MC322 ”
Harga = “21300000”

Case “MC965”
Merek = “Apple MacBook Air MC965”
Harga = “12800000”

Case “MC96”
Merek = “Apple MacBook Air MC966 ”
Harga = “15800000 ”
End Select
TxtMt = Merek
TxtHs = Harga
TxtJj.SetFocus
End Sub

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub CmdHl_Click()
CboKl.SetFocus
CboKl = “”
TxtMt = “”
TxtHs = “”
TxtJj = “”
TxtHp = “”
TxtDis = “”
TxtTotal = “”
End Sub

Private Sub CmdProses_Click()
TxtHp = Val(TxtJj) * Val(TxtHs)
Select Case TxtHp.Text
Case Is > 30000000
TxtDis = Val(TxtHp) * 0.15
TxtTotal = Val(TxtHp) – Val(TxtDis)

Case Is > 25000000
TxtDis = Val(TxtHp) * 0.1
TxtTotal = Val(TxtHp) – Val(TxtDis)

Case Is > 20000000
TxtDis = Val(TxtHp) * 0.05
TxtTotal = Val(TxtHp) – Val(TxtDis)

Case Is > 15000000
TxtDis = Val(TxtHp) * 0.02
TxtTotal = Val(TxtHp) – Val(TxtDis)
End Select
End Sub

Private Sub Form_Load()
CboKl.AddItem “Apple MC965 MacBook Air”
CboKl.AddItem “Apple MC966 MacBook Air”
CboKl.AddItem “Apple MC968 MacBook Air”
CboKl.AddItem “Apple MC969 MacBook Air”
CboKl.AddItem “Apple MC700 MacBook Pro”
CboKl.AddItem “Apple MC721 MacBook Pro”
CboKl.AddItem “Apple MC723 MacBook Pro”
CboKl.AddItem “Apple MC724 MacBook Pro”
CboKl.AddItem “Apple MC311 MacBook Pro”
CboKl.AddItem “Apple MC313 MacBook Pro”
CboKl.AddItem “Apple MC314 MacBook Pro”
CboKl.AddItem “Apple MC318 MacBook Pro”
CboKl.AddItem “Apple MC322 MacBook Pro”
CboKl.AddItem “Apple MC965 MacBook Air”
CboKl.AddItem “Apple MC966 MacBook Air”
End Sub

GAMBAR TAMPILAN TUGAS 3

TUGAS3

TUGAS.3

TUGAS 4

SOURCE CODE TUGAS 4

Private Sub CboKode_Click()
Dim Jenis, Harga As String
Select Case CboKode.Text
Case “P205”
Jenis = “Pentium II  500 Mega Hz”
Harga = “1500000”

Case “P305”
Jenis = “Pentium III 800 Mega Hz”
Harga = “2100000 ”

Case “P310”
Jenis = “Pentium III  1.0 Giga Hz ”
Harga = “3500000”

Case “P415”
Jenis = “Pentium IV  1.5 Giga Hz”
Harga = “4000000”

Case “P417”
Jenis = “Pentium IV  1.7 Giga Hz”
Harga = “4200000”

Case “P419”
Jenis = “Pentium IV  1.9 Giga Hz”
Harga = “5500000”
End Select
TxtJk = Jenis
TxtHs = Harga
TxtJj.SetFocus
End Sub

Private Sub CmdClose_Click()
Unload Me
End Sub

Private Sub CmdHl_Click()
CboKode.SetFocus
CboKode = “”
TxtJk = “”
TxtHs = “”
TxtJj = “”
TxtHp = “”
TxtDis = “”
TxtHb = “”
End Sub

Private Sub CmdProses_Click()
TxtHp = Val(TxtJj) * Val(TxtHs)
Select Case TxtHp.Text
Case Is > 30000000
TxtDis = Val(TxtHp) * 0.15
TxtHb = Val(TxtHp) – Val(TxtDis)

Case Is > 25000000
TxtDis = Val(TxtHp) * 0.1
TxtHb = Val(TxtHp) – Val(TxtDis)

Case Is > 20000000
TxtDis = Val(TxtHp) * 0.05
TxtHb = Val(TxtHp) – Val(TxtDis)

Case Is > 15000000
TxtDis = Val(TxtHp) * 0.02
TxtHb = Val(TxtHp) – Val(TxtDis)
End Select
End Sub

Private Sub Form_Load()
CboKode.AddItem “P205”
CboKode.AddItem “P305”
CboKode.AddItem “P310”
CboKode.AddItem “P415”
CboKode.AddItem “P417”
CboKode.AddItem “P419”
End Sub

GAMBAR TAMPILAN TUGAS 4

TUGAS4

TUGAS.4

TUGAS 5

SOURCE CODE TUGAS 5

Private Sub CmdBatal_Click()
CboKode = “Pilih Kode Buku”
TxtJb = “”
TxtPg = “”
TxtTt = “”
TxtP = “”
TxtHarga = “”
End Sub

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub CmdLagi_Click()
CboKode.SetFocus
CboKode = “Pilih Kode Buku”
TxtJb = “”
TxtPg = “”
TxtTt = “”
TxtP = “”
TxtHarga = “”
End Sub

Private Sub CmdProses_Click()
Dim JudulBuku, Pengarang, Penerbit, Harga As String
TxtTt.Text = “20” & Right(CboKode, 2)
R = Mid(CboKode, 3, 3)
If R = “SIM” Then
JudulBuku = “Sistem Informasi Manajemen”
Pengarang = “Yati Nur Oktavia”
Harga = “75900”

ElseIf R = “EDP” Then
JudulBuku = “Elektronik Data Processing”
Pengarang = “Imam Tarmizi”
Harga = “62000”

ElseIf R = “MNJ” Then
JudulBuku = “Manajemen”
Pengarang = “Valentina Mariana Adiwianti”
Harga = “42000”

ElseIf R = “CDR” Then
JudulBuku = “Corel Draw”
Pengarang = “Riyan Suhandi”
Harga = “53000”

ElseIf R = “RPL” Then
JudulBuku = “Rekayasa Perangkat Lunak”
Pengarang = “Sinta Umpu Singa”
Harga = “83000”
End If

TxtJb = JudulBuku
TxtPg = Pengarang
TxtHarga = Harga
R = Mid(CboKode, 1, 1)
If R = “A” Then
Penerbit = “Andi Offset Yogyakarta”

ElseIf R = “I” Then
Penerbit = “Indah Surabaya”

ElseIf R = “S” Then
Penerbit = “Salemba Empat”

ElseIf R = “E” Then
Penerbit = “Elek Media Komputindo”

ElseIf R = “M” Then
Penerbit = “Maxicom”
End If
TxtP.Text = Penerbit
End Sub

Private Sub Form_Load()

CboKode.AddItem “A-SIM-01”
CboKode.AddItem “I-EDP-02”
CboKode.AddItem “S-MNJ-03”
CboKode.AddItem “E-CDR-04”
CboKode.AddItem “M-RPL-05”
End Sub

GAMBAR TAMPILAN TUGAS 5

TUGAS5

TUGAS.5

TUGAS 6

SOURCE CODE TUGAS 6

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub CmdLagi_Click()
TxtKt.SetFocus
TxtKt = “”
TxtHt = “”
TxtJk = “”
TxtJb = “”
TxtJt = “”
TxtTotal = “”
End Sub

Private Sub CmdProses_Click()
Dim Kode, Harga, Jenis, Berangkat As Variant
Kode = Left(TxtKt.Text, 3)
Select Case Kode
Case “BIM”
Harga = “50000”
Jenis = “BIMA”
Berangkat = “16.00”
Case “EKO”
Harga = “35000”
Jenis = “EKONOMI”
Berangkat = “19.00”
Case “MUT”
Harga = “23000”
Jenis = “MUTIARA”
Berangkat = “17.00”
Case “SEN”
Harga = “15000”
Jenis = “SENJA”
Berangkat = “20.00”
End Select
TxtHt = Harga
TxtJk = Jenis
TxtJb = Berangkat
TxtJt.SetFocus
End Sub

Private Sub TxtJt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtTotal = Val(TxtHt.Text) * Val(TxtJt.Text)
End If
End Sub

 

GAMBAR TAMPILAN TUGAS 6

TUGAS6

TUGAS.6

 

 

TUGAS 7

SOURCE CODE TUGAS 7

Private Sub CmdBatal_Click()
TxtKode.SetFocus
TxtKode = “Pilih Kode Buku”
TxtJb = “”
TxtPg = “”
TxtTt = “”
TxtP = “”
TxtHarga = “”
End Sub

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub CmdLagi_Click()
TxtKode.SetFocus
TxtKode = “Pilih Kode Buku”
TxtJb = “”
TxtPg = “”
TxtTt = “”
TxtP = “”
TxtHarga = “”
End Sub

Private Sub CmdProses_Click()
Dim Judul, Pengarang, Penerbit, Harga As String
TxtTt.Text = “20” & Mid(TxtKode, 5, 2)
R = Left(TxtKode, 3)
If R = “SIM” Then
Judul = “Sistem Informasi Manajemen”
Pengarang = “Fadiya Ulfa”
Harga = “75900”

ElseIf R = “EDP” Then
Judul = “Elektronik Data Processing”
Pengarang = “Nurul Agustina”
Harga = “62000”

ElseIf R = “MNJ” Then
Judul = “Manajemen”
Pengarang = “Rian Hidayat”
Harga = “42000”

ElseIf R = “CDR” Then
Judul = “Corel Draw”
Pengarang = “Siti Nur Khotimah”
Harga = “53000”

ElseIf R = “RPL” Then
Judul = “Rekayasa Perangkat Lunak”
Pengarang = “Winda Erlianti”
Harga = “83000”
End If
TxtJb = Judul
TxtPg = Pengarang
TxtHarga = Harga

R = Mid(TxtKode, 8)
If R = “A” Then
Penerbit = “Andi Offset Yogyakarta”

ElseIf R = “I” Then
Penerbit = “Indah Surabaya”

ElseIf R = “S” Then
Penerbit = “Salemba Empat”

ElseIf R = “E” Then
Penerbit = “Elek Media Komputindo”

ElseIf R = “M” Then
Penerbit = “Maxicom”
End If
TxtP.Text = Penerbit
End Sub

Private Sub TxtKode_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

GAMBAR TAMPILAN TUGAS 7

TUGAS7

TUGAS.7

TUGAS 8

SOURCE CODE TUGAS 8

Private Sub CmdBatal_Click()
TxtNm.SetFocus
TxtNm = “”
TxtNik = “”
TxtGol = “”
TxtKode = “”
TxtStatus = “”
TxtTahun = “”
TxtJabatan = “”
TxtBagian = “”
TxtGajiPokok = “”
TxtTunjangan = “”
TxtTotal = “”
End Sub

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub CmdLagi_Click()
TxtNm.SetFocus
TxtNm = “”
TxtNik = “”
TxtGol = “”
TxtKode = “”
TxtStatus = “”
TxtTahun = “”
TxtJabatan = “”
TxtBagian = “”
TxtGajiPokok = “”
TxtTunjangan = “”
TxtTotal = “”
End Sub

Private Sub CmdProses_Click()
Dim Golongan, KodeBagian, KodeStatus, Status, Tahun, Jabatan, Bagian, GajiPokok, Tunjangan As Variant

Golongan = Mid(TxtNik.Text, 5, 1)
TxtGol = Golongan

KodeStatus = Mid(TxtNik.Text, 7, 1)
TxtKode = KodeStatus

If KodeStatus = “S” Then
Status = “Single”
ElseIf KodeStatus = “M” Then
Status = “Menikah”
ElseIf KodeStatus = “J” Then
Status = “Janda”
ElseIf KodeStatus = “D” Then
Status = “Duda”
End If
TxtStatus = Status

Tahun = Left(TxtNik.Text, 4)
TxtTahun = Tahun

Select Case Golongan
Case “A”
Jabatan = “Manager”
GajiPokok = 4000000
Tunjangan = 1025000
Case “B”
Jabatan = “Ka. Seksi”
GajiPokok = 3500000
Tunjangan = 975000
Case “C”
Jabatan = “Staff”
GajiPokok = 3000000
Tunjangan = 925000
End Select
TxtJabatan = Jabatan
TxtGajiPokok = GajiPokok
TxtTunjangan = Tunjangan

KodeBagian = Right(TxtNik.Text, 3)
Select Case KodeBagian
Case “KEU”
Bagian = “Accounting”
Case “ADM”
Bagian = “Administrasi”
Case “SDM”
Bagian = “General Affair”
Case “EDP”
Bagian = “IT Unit”
Case “SPM”
Bagian = “Security”
End Select
TxtBagian = Bagian
TxtTotal = GajiPokok + Tunjangan
End Sub

Private Sub Form_Activate()
TxtNm.SetFocus
End Sub

Private Sub TxtNm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNik.SetFocus
End If
End Sub

GAMBAR TAMPILAN TUGAS 8

TUGAS8

TUGAS.8

TUGAS BAHASA PEMROGRAMAN 1

TUGAS 1

SOURCE CODE TUGAS 1

Private Sub ChkBold_Click()
If ChkBold.Value = 1 Then
LblRio.FontBold = True
Else
LblRio.FontBold = False
End If
End Sub

Private Sub ChkItalic_Click()
If ChkItalic.Value = 1 Then
LblRio.FontItalic = True
Else
LblRio.FontItalic = False
End If
End Sub

Private Sub ChkStrikeOut_Click()
If ChkStrikeOut.Value = 1 Then
LblRio.FontStrikethru = True
Else
LblRio.FontStrikethru = False
End If
End Sub

Private Sub ChkUnderline_Click()
If ChkUnderline.Value = 1 Then
LblRio.FontUnderline = True
Else
LblRio.FontUnderline = False
End If
End Sub

Private Sub CmdExit_Click()
Unload Me
End Sub

Private Sub OptBlue_Click()
LblRio.ForeColor = vbBlue
End Sub

Private Sub OptGreen_Click()
LblRio.ForeColor = vbGreen
End Sub

Private Sub OptRed_Click()
LblRio.ForeColor = vbRed
End Sub

Private Sub OptYellow_Click()
LblRio.ForeColor = vbYellow
End Sub

GAMBAR TAMPILAN TUGAS 1

TUGAS1

TUGAS1.1

TUGAS 2

SOURCE CODE TUGAS 2

Private Sub ChkBold_Click()
If ChkBold.Value = 1 Then
LblHasil.FontBold = True
Else
LblHasil.FontBold = False
End If
End Sub

Private Sub ChkMiring_Click()
If ChkMiring.Value = 1 Then
LblHasil.FontItalic = True
Else
LblHasil.FontItalic = False
End If
End Sub

Private Sub CmdOk_Click()
LblHasil.Caption = TxtInput.Text
End Sub

Private Sub CmdSelesai_Click()
Unload Me
End Sub

Private Sub OptBlue_Click()
LblHasil.ForeColor = vbBlue
End Sub

Private Sub OptRed_Click()
LblHasil.ForeColor = vbRed
End Sub

GAMBAR TAMPILAN TUGAS 2

TUGAS2

TUGAS2.1

TUGAS 3

SOURCE CODE TUGAS 3

Private Sub CboNpm_Click()
Dim Nm, Jr As String
Select Case CboNpm.Text
Case “15100001”
Nm = “STEVANUS PRIHANUJI”
Jr = “SISTEM INFORMASI”
Case “15100002”
Nm = “FERGIAWAN LISTIANTO”
Jr = “SISTEM INFORMASI”
Case “15100003”
Nm = “RENITA FITRI ANDRIYANTI”
Jr = “SISTEM INFORMASI”
Case “15100004”
Nm = “EVI SETYORINI”
Jr = “SISTEM INFORMASI”
Case “15100005”
Nm = “ANGGI MAHARANI”
Jr = “SISTEM INFORMASI”
Case “15100006”
Nm = “OKTAFIANI”
Jr = “SISTEM INFORMASI”
Case “15100007”
Nm = “DESI YULIANTI”
Jr = “SISTEM INFORMASI”
Case “15100008”
Nm = “AHMAD YUDI”
Jr = “SISTEM INFORMASI”
Case “15100009”
Nm = “OPI LARASWATI”
Jr = “SISTEM INFORMASI”
Case “15100027”
Nm = “RIO ADI PRADANA”
Jr = “SISTEM INFORMASI”
End Select
TxtNama = Nm
TxtJurusan = Jr
TxtNilaiQuis.SetFocus
End Sub

Private Sub CmdBatal_Click()
CboNpm.SetFocus
CboNpm.Text = “”
TxtNama.Text = “”
TxtJurusan.Text = “”
TxtNilaiQuis.Text = “”
TxtNilaiTugas.Text = “”
TxtUts.Text = “”
TxtUas.Text = “”
TxtNilaiAkhir.Text = “”
TxtHm.Text = “”
End Sub

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub CmdProses_Click()
Dim NA As Integer
Dim Hm As String
TxtNilaiAkhir = Val(Val(TxtNilaiQuis) + Val(TxtNilaiTugas) + Val(TxtUts) + Val(TxtUas)) / 4

Select Case TxtNilaiAkhir.Text
Case Is > 80
Hm = “A”
Case Is > 70
Hm = “B”
Case Is > 60
Hm = “C”
Case Is > 50
Hm = “D”
Case Is < 50
Hm = “E”
End Select
TxtHm = Hm
TxtNilaiAkhir.BackColor = vbRed
TxtHm.BackColor = vbRed

End Sub

Private Sub Form_Load()
CboNpm.AddItem “15100001”
CboNpm.AddItem “15100002”
CboNpm.AddItem “15100003”
CboNpm.AddItem “15100004”
CboNpm.AddItem “15100005”
CboNpm.AddItem “15100006”
CboNpm.AddItem “15100007”
CboNpm.AddItem “15100008”
CboNpm.AddItem “15100009”
CboNpm.AddItem “15100027”
End Sub

Private Sub TxtNilaiQuis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNilaiTugas.SetFocus
End If
End Sub

Private Sub TxtNilaiTugas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtUts.SetFocus
End If
End Sub

Private Sub TxtUts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtUas.SetFocus
End If
End Sub

GAMBAR TAMPILAN TUGAS 3

TUGAS3

TUGAS3.1

TUGAS 4

SOURCE CODE TUGAS 4

Private Sub CboNpm_Click()
Dim Nm, Jr As String
Select Case CboNpm.Text
Case “15100001”
Nm = “STEVANUS PRIHANUJI”
Jr = “SISTEM INFORMASI”
Case “15100002”
Nm = “FERGIAWAN LISTIANTO”
Jr = “SISTEM INFORMASI”
Case “15100003”
Nm = “RENITA FITRI ANDRIYANTI”
Jr = “SISTEM INFORMASI”
Case “15100004”
Nm = “EVI SETYORINI”
Jr = “SISTEM INFORMASI”
Case “15100005”
Nm = “ANGGI MAHARANI”
Jr = “SISTEM INFORMASI”
Case “15100006”
Nm = “OKTAFIANI”
Jr = “SISTEM INFORMASI”
Case “15100007”
Nm = “DESI YULIANTI”
Jr = “SISTEM INFORMASI”
Case “15100008”
Nm = “AHMAD YUDI”
Jr = “SISTEM INFORMASI”
Case “15100009”
Nm = “OPI LARASWATI”
Jr = “SISTEM INFORMASI”
Case “15100027”
Nm = “RIO ADI PRADANA”
Jr = “SISTEM INFORMASI”
End Select
TxtNama = Nm
TxtJurusan = Jr
TxtNilaiQuis.SetFocus
End Sub

Private Sub CmdBatal_Click()
CboNpm.SetFocus
CboNpm.Text = “”
TxtNama.Text = “”
TxtJurusan.Text = “”
TxtNilaiQuis.Text = “”
TxtNilaiTugas.Text = “”
TxtUts.Text = “”
TxtUas.Text = “”
TxtNilaiAkhir.Text = “”
TxtHm.Text = “”
TxtNilaiAkhir.BackColor = vbWhite
TxtHm.BackColor = vbWhite
End Sub

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub CmdProses_Click()
Dim NA As Integer
Dim Hm As String
TxtNilaiAkhir = Val(Val(TxtNilaiQuis) + Val(TxtNilaiTugas) + Val(TxtUts) + Val(TxtUas)) / 4

Select Case TxtNilaiAkhir.Text
Case Is > 80
Hm = “A”
Case Is > 70
Hm = “B”
Case Is > 60
Hm = “C”
Case Is > 50
Hm = “D”
Case Is < 50
Hm = “E”
End Select
TxtHm = Hm
TxtNilaiAkhir.BackColor = vbRed
TxtHm.BackColor = vbRed
End Sub

Private Sub Form_Load()
CboNpm.AddItem “15100001”
CboNpm.AddItem “15100002”
CboNpm.AddItem “15100003”
CboNpm.AddItem “15100004”
CboNpm.AddItem “15100005”
CboNpm.AddItem “15100006”
CboNpm.AddItem “15100007”
CboNpm.AddItem “15100008”
CboNpm.AddItem “15100009”
CboNpm.AddItem “15100027”
End Sub

Private Sub TxtNilaiQuis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNilaiTugas.SetFocus
End If
End Sub

Private Sub TxtNilaiTugas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtUts.SetFocus
End If
End Sub

Private Sub TxtUas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim NA As Integer
Dim Hm As String
TxtNilaiAkhir = Val(Val(TxtNilaiQuis) + Val(TxtNilaiTugas) + Val(TxtUts) + Val(TxtUas)) / 4

Select Case TxtNilaiAkhir.Text
Case Is > 80
Hm = “A”
Case Is > 70
Hm = “B”
Case Is > 60
Hm = “C”
Case Is > 50
Hm = “D”
Case Is < 50
Hm = “E”
End Select
TxtHm = Hm
TxtNilaiAkhir.BackColor = vbRed
TxtHm.BackColor = vbRed
End If
End Sub

Private Sub TxtUts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtUas.SetFocus
End If
End Sub

GAMBAR TAMPILAN TUGAS 4

TUGAS4

TUGAS4.1

TUGAS PEMROGRAMAN 1

                                                                    PROGRAM 1

 

TUGAS 1

Source Code Aplikasi Perkalian Dua Bilangan Tugas 1.

Private Sub CmdBersih_Click()
TxtN1.SetFocus
TxtN1 = ” ”
TxtN2 = ” ”
TxtHasil = ” ”
End Sub

Private Sub CmdHitung_Click()
TxtHasil = Val(TxtN1) * (TxtN2)
End Sub

Private Sub CmdKeluar_Click()
End
End Sub

Private Sub TxtN1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtN2.SetFocus
End If

End Sub

tugas1

tugas1.1

 

TUGAS 2

Source Code Aplikasi Perkalian Dua Bilangan Tugas 2

Private Sub CmdBersih_Click()
TxtN1.SetFocus
TxtN1 = ” ”
TxtN2 = ” ”
TxtHasil = ” ”
End Sub

Private Sub CmdHitung_Click()
TxtHasil = Val(TxtN1) * Val(TxtN2)
End Sub

Private Sub CmdKeluar_Click()
End
End Sub

Private Sub TxtN1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtN2.SetFocus
End If
End Sub

Private Sub TxtN2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtHasil = Val(TxtN1) * Val(TxtN2)
End If

End Sub

tugas2

tugas2.1

 

 

PROGRAM 2

Tugas3

Source Code Aplikasi Kalkulator Mini Tugas 3

Private Sub CmdBatal_Click()
TxtPlus1.SetFocus
TxtPlus1 = ” ”
TxtPlus2 = ” ”
TxtHasilPlus = ” ”
TxtKali1 = ” ”
TxtKali2 = ” ”
TxtHasilKali = ” ”
TxtMin1 = ” ”
TxtMin2 = ” ”
TxtHasilMin = ” ”
TxtBagi1 = ” ”
TxtBagi2 = ” ”
TxtHasilBagi = ” ”
End Sub

Private Sub CmdKeluar_Click()
End
End Sub

Private Sub CmdLagi_Click()
TxtPlus1.SetFocus
TxtPlus1 = ” ”
TxtPlus2 = ” ”
TxtHasilPlus = ” ”
TxtKali1 = ” ”
TxtKali2 = ” ”
TxtHasilKali = ” ”
TxtMin1 = ” ”
TxtMin2 = ” ”
TxtHasilMin = ” ”
TxtBagi1 = ” ”
TxtBagi2 = ” ”
TxtHasilBagi = ” ”
End Sub

Private Sub CmdProses_Click()
If TxtBagi1 = “” Or TxtBagi2 = “” Then
TxtHasilPlus = Val(TxtPlus1) + Val(TxtPlus2)
TxtHasilKali = Val(TxtKali1) * Val(TxtKali2)
TxtHasilMin = Val(TxtMin1) – Val(TxtMin2)
TxtHasilBagi = 0
Else

TxtHasilPlus = Val(TxtPlus1) + Val(TxtPlus2)
TxtHasilKali = Val(TxtKali1) * Val(TxtKali2)
TxtHasilMin = Val(TxtMin1) – Val(TxtMin2)
TxtHasilBagi = Val(TxtBagi1) / Val(TxtBagi2)
End If
End Sub

Private Sub TxtBagi1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtBagi2.SetFocus
End If
End Sub

Private Sub TxtKali1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtKali2.SetFocus
End If
End Sub
Private Sub TxtKali2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtMin1.SetFocus
End If
End Sub
Private Sub TxtMin1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtMin2.SetFocus
End If
End Sub
Private Sub TxtMin2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtBagi1.SetFocus
End If
End Sub

Private Sub TxtPlus1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtPlus2.SetFocus
End If
End Sub
Private Sub TxtPlus2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtKali1.SetFocus
End If
End Sub

tugas3

tugas3.1

Tugas4

Source Code Aplikasi Kalkulator Mini Tugas 4

Private Sub CmdBatal_Click()
TxtPlus1.SetFocus
TxtPlus1 = ” ”
TxtPlus2 = ” ”
TxtHasilPlus = ” ”
TxtKali1 = ” ”
TxtKali2 = ” ”
TxtHasilKali = ” ”
TxtMin1 = ” ”
TxtMin2 = ” ”
TxtHasilMin = ” ”
TxtBagi1 = ” ”
TxtBagi2 = ” ”
TxtHasilBagi = ” “

End Sub

Private Sub CmdKeluar_Click()
End
End Sub

Private Sub CmdLagi_Click()
TxtPlus1.SetFocus
TxtPlus1 = ” ”
TxtPlus2 = ” ”
TxtHasilPlus = ” ”
TxtKali1 = ” ”
TxtKali2 = ” ”
TxtHasilKali = ” ”
TxtMin1 = ” ”
TxtMin2 = ” ”
TxtHasilMin = ” ”
TxtBagi1 = ” ”
TxtBagi2 = ” ”
TxtHasilBagi = ” ”
End Sub

Private Sub CmdProses_Click()
If TxtBagi1 = “” Or TxtBagi2 = “” Then
TxtHasilPlus = Val(TxtPlus1) + Val(TxtPlus2)
TxtHasilKali = Val(TxtKali1) * Val(TxtKali2)
TxtHasilMin = Val(TxtMin1) – Val(TxtMin2)
TxtHasilBagi = 0
Else

TxtHasilPlus = Val(TxtPlus1) + Val(TxtPlus2)
TxtHasilKali = Val(TxtKali1) * Val(TxtKali2)
TxtHasilMin = Val(TxtMin1) – Val(TxtMin2)
TxtHasilBagi = Val(TxtBagi1) / Val(TxtBagi2)
End If
End Sub

Private Sub TxtBagi1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtBagi2.SetFocus
End If
End Sub
Private Sub TxtBagi2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtHasilBagi = Val(TxtBagi1) / Val(TxtBagi2)
End If
End Sub

Private Sub TxtKali1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtKali2.SetFocus
End If
End Sub
Private Sub TxtKali2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtMin1.SetFocus
TxtHasilKali = Val(TxtKali1) * Val(TxtKali2)
End If
End Sub
Private Sub TxtMin1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtMin2.SetFocus
End If
End Sub
Private Sub TxtMin2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtBagi1.SetFocus
TxtHasilMin = Val(TxtMin1) – Val(TxtMin2)
End If
End Sub

Private Sub TxtPlus1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtPlus2.SetFocus
End If
End Sub

Private Sub TxtPlus2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtKali1.SetFocus
TxtHasilPlus = Val(TxtPlus1) + Val(TxtPlus2)
End If
End Sub

tugas4

tugas4.1

PROGRAM 3

Tugas 5

Source Code Aplikasi Diskon Tugas 5

Private Sub CmdHitung_Click()
TxtDis = Val(TxtHa) * 0.1
TxtAkhir = Val(TxtHa) – Val(TxtDis)
End Sub

Private Sub CmdQuit_Click()
End
End Sub

Private Sub CmdUlangi_Click()
TxtHa.SetFocus
TxtHa = ” ”
TxtDis = ” ”
TxtAkhir = ” ”
End Sub

Private Sub TxtHa_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CmdHitung.SetFocus
End If
End Sub

tugas5

tugas5.1

TUGAS 6

Source Code Aplikasi Diskon Tugas 6

Private Sub CmdHitung_Click()
TxtDis = Val(TxtHa) * 0.1
TxtAkhir = Val(TxtHa) – Val(TxtDis)
End Sub

Private Sub CmdQuit_Click()
End
End Sub

Private Sub CmdUlang_Click()
TxtHa.SetFocus
TxtHa = ” ”
TxtDis = ” ”
TxtAkhir = ” ”
End Sub

Private Sub TxtHa_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtDis = Val(TxtHa) * 0.1
TxtAkhir = Val(TxtHa) – Val(TxtDis)
End If
End Sub

tugas6

tugas6.1

PROGRAM 4

TUGAS 7

Source Code Aplikasi Gaji Tugas 7

Private Sub CmdKeluar_Click()
End
End Sub

Private Sub CmdProses_Click()
TxtGk = Val(TxtGp) + Val(TxtTj) – Val(TxtPt)
TxtPj = Val(TxtGk) * 0.1
TxtGd = Val(TxtGk) – Val(TxtPj)
End Sub

Private Sub CmdUlang_Click()
TxtGp.SetFocus
TxtGp = ” ”
TxtTj = ” ”
TxtPt = ” ”
TxtGk = ” ”
TxtPj = ” ”
TxtGd = ” ”
End Sub

Private Sub TxtGp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtTj.SetFocus
End If
End Sub
Private Sub TxtPt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
End If

End Sub

Private Sub TxtTj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtPt.SetFocus
End If
End Sub

tugas7

tugas7.1

TUGAS 8

Source Code Aplikasi Gaji Tugas 8

Private Sub CmdKeluar_Click()
End
End Sub

Private Sub CmdProses_Click()
TxtGk = Val(TxtGp) + Val(TxtTj) – Val(TxtPt)
TxtPj = Val(TxtGk) * 0.1
TxtGd = Val(TxtGk) – Val(TxtPj)
End Sub

Private Sub CmdUlang_Click()
TxtGp.SetFocus
TxtGp = ” ”
TxtTj = ” ”
TxtPt = ” ”
TxtGk = ” ”
TxtPj = ” ”
TxtGd = ” ”
End Sub

Private Sub TxtGp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtTj.SetFocus
End If
End Sub
Private Sub TxtPt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtGk = Val(TxtGp) + Val(TxtTj) – Val(TxtPt)
TxtPj = Val(TxtGk) * 0.1
TxtGd = Val(TxtGk) – Val(TxtPj)
End If

End Sub

Private Sub TxtTj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtPt.SetFocus
End If
End Sub

tugas8

tugas8.1

TUGAS BAHASA PEMROGRAMAN VB PERTEMUAN 1

TUGAS 2

Private Sub CmdBatal_Click()
TxtNpm = ” ”
TxtNama = ” ”
TxtAlmt = ” ”
TxtPs = ” ”
TxtJr = ” ”
TxtAgm = ” ”
End Sub

Private Sub CmdKeluar_Click()
End
End Sub

Private Sub CmdLagi_Click()
TxtNpm.SetFocus
TxtNpm = ” ”
TxtNama = ” ”
TxtAlmt = ” ”
TxtPs = ” ”
TxtJr = ” ”
TxtAgm = ” ”
End Sub

End Sub

Private Sub TxtAlmt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtPs.SetFocus
End If

End Sub

Private Sub TxtJr_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtAgm.SetFocus
End If

End Sub

Private Sub TxtNama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtAlmt.SetFocus
End If

End Sub

Private Sub TxtNpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNama.SetFocus
End If
End Sub

Private Sub TxtPs_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtJr.SetFocus
End If
End Sub

SVOP;'

 

Untitled 2

TUGAS BAHASA PEMROGRAMAN VB PERTEMUAN KE 1

Tugas 1

Private Sub CmdBatal_Click()
TxtNpm = ” ”
TxtNama = ” ”
TxtAlamat = ” ”
End Sub

Private Sub CmdKeluar_Click()
End
End Sub

Private Sub CmdLagi_Click()
TxtNpm.SetFocus
TxtNpm = ” ”
TxtNama = ” ”
TxtAlamat = ” ”

End Sub

Private Sub TxtNama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtAlamat.SetFocus
End If
End Sub

Private Sub TxtNpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNama.SetFocus
End If
End Sub

 

Untitled

 

Untitled 1

Tidak Ada “Tidur” Didalam Syurga ?

Ada seseorang laki – laki menghadap Rasulullah kemudian dia bertanya; ” Wahai Rasulullah ,Tidur adalah sebagian nikmat Allah di dunia, Apakah kelak. kita juga kan tidur di Syurga ?

Jawab Rasulullah; TIDAK-TIDAK, Karena tidur adalah temannya MAUT, sedangkan di syurga tak ada. kematian, Bagaimana istirahat ahli syurga ? tanya lelaki itu lagi, Rasul pun menjawab; Di Syurga tak ada rasa lelah semuanya serba menyenangkan.” ( HR. Baihaqi, ibn Abi Hatim )

Allah Ta’ala berfirman; “Yang dengan KaruniaNya menempatkan kami dalam tempat yang kekal/Syurga, didalamnya tidak merasa lelah dan tidak merasa Lesu. (QS. Fathir 35)

SUBHANALLAH….

sungguh besar nikmat Allah yang diberikan kepada hamba-NYA, yang Taat kepada-NYA TIDAK bisa kita Bayangankan ‘Tidur” yang kita Anggap Nikmat Yang besar ini Kita tidak bisa merasakan kelak DiSyurgaNya ,karena Tidak ada Lelah ataupun Kantuk “Tak terbayangkan oleh kita Sebesar Apa Nikmatnya DiSyurga-Nya.

Semoga Allah memasukkan kita kedalam golongan hamba – hamba Nya yang bertakwa dalam keridhaan dan rahmatNya, Aamiin.

Sumber : facebook Khazanah Trans7 http://mamangsuryadi.blogspot.co.id/2014/02/tidak-ada-tidur-didalam-syurga.html