Modul Toko Buku

Kode Program
Dim tanggal As Date
Dim judul, usia As String
Private Sub Commandkeluar_Click()
End
End Sub
Private Sub DTPLahir_Click()
tanggal = DTPLahir.Value
usia = DateDiff("yyyy", Now, tanggal)
If (usia <= 15) Then
ListData.Clear
ListData.AddItem "supermen"
ListData.AddItem "Spiderman"
ListData.AddItem "Doraemon"
Else
ListData.AddItem "TheLoreGuru"
ListData.AddItem "ayat-ayatCinta"
End IfEnd Sub

Modul 4

A.Fungsi DateAdd
Adalah fungsi yang disediakan oleh **legal copy** of visual basic untuk menambah data tanggal baik menambah harin bulan atau tahun. Adapunt penulisan secara umum sebagai berikut :
Syntax : DateAdd(interval, number, date)
B.Fungsi DateDiff
Digunakan untuk mencari jarak / perbedaan antara 2 tanggal.
Syntax :
DateDIff(interval,date1,date2[, firstdayofweek[, firstweekofyear]])
C.Fungsi DatePart
Syntax
DatePart(interval, date[,firstdayofweek[, firstweekofyear]])
Fungsi DatePart dapat digunakan untuk menentukan angka hari, bulan, tahun dari sebuah data tanggal. Misalkan kita
mau mencari Hari apa tanggal 17 Juli 2006, dapat menggunakan contoh berikut:
DatePart("w", 17/07/2006, vbSunday)
W : menunjukan interval yang digunakan adalah dalam hitungan satu minggu
(week)
17/07/2006 : Adalah data tanggal yang akan dicari harinyaVbSunday : Menunjukan hari pertama diseting pada hari minggu
DatePart memberikan hasil angka Numeric, hasil dari kode program diatas adalah angka 2 (dua) berarti tanggal 17
Juli 2006 jatuh pada hari senin( Minggu = 1, senin = 2, dst...).
Kode Program :
Private Sub CommandHitung_Click()
Dim TanggalA, tanggalB As Date
Dim UsiaTH
TanggalA = DTPicker1.Value
tanggalB = DTPicker2.Value
UsiaTH = DateDIff("yyyy", TanggalA, tanggalB)
Textth.Text = UsiaTH
End Sub
Private Sub DTPicker1_Change()
Dim Tanggal As Date
Dim Angkahari
Dim hari
nhari = Array("", "Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu")
Tanggal = DTPicker1.Value
Angkahari = DatePart("w", Tanggal, vbSunday)
hari = nhari(Angkahari)
Labelnamahari.Caption = hari
End Sub

Modul 3

Komponen yang dibutuhkan :
3 tombol Command
Rancanglah seperti tampilan Form berikut:
Properti yang diubah:
a.command1
Name : CMDBukaWord
Caption : &Buka m_i_crosoft word
b.command2Name : CMDPutusWord
Caption : &Putus Koneksi
3.command3
Name : CMDKeluar
Caption : &Keluar
Source Code :
Option Explicit
Public appword As Word.Application
Public halword As Word.Document
Private Sub CMDKELUAR_Click()
End
End Sub
Private Sub CmdBukaWord_Click()
On Error Resume Next
Set appword = GetObject(, "word.Application")
If Err.Number <> 0 Then
Set appword = CreateObject("word.Application")
End If
Err.Clear
On Error GoTo 0
Set halword = appword.Documents.Open(App.Path & "\data.doc")
End Sub
Private Sub CmdPutusWord_Click()
Set appword = Nothing
Set halword = Nothing
End Sub
Sub Form_Unload(Cancel As Integer)
Set appword = Nothing
Set halword = Nothing
End Sub

Modul 2

Catatan :

perancangan Antarmuka Program dilakukan saat praktek berlangsung

Component yang dibutuhkan :

- 5 Image

- 1 commandButton

- 1 shape

- 1 label

- 1 PictureBox

Source Code:

Option Explicit

Private Sub cmdKeluar_Click()

Unload Me

End Sub

Private Sub Form_Load()

shpkotak.Left = -500

End Sub

Private Sub img1_Click()

shpkotak.Left = img1.Left

StatusGB.Cls

StatusGB.Print "Anda memilih : Gambar 1"

End Sub

Private Sub img2_Click()

shpkotak.Left = img2.Left

StatusGB.Cls

StatusGB.Print "Anda memilih : Gambar2"

End Sub

Private Sub img3_Click()

shpkotak.Left = img3.Left

StatusGB.Cls

StatusGB.Print "Anda memilih : Gambar 3 "

End Sub

Private Sub img4_Click()

shpkotak.Left = img4.Left

StatusGB.Cls

StatusGB.Print "Anda memilih : Gambar 4"

End Sub

Private Sub img5_Click()

shpkotak.Left = img5.Left

StatusGB.Cls

StatusGB.Print "Anda memilih : Gambar 5"

end sub

Modul 1

Catatan :

Rancangan Antarmuka Formulir dilakukan saat praktek berlangsung

Source Code :

Dim posisi As String

Dim warna As String

Private Sub Form_Load()

OptAwal.Value = True

optMErah.Value = True

posisi = "Default /Awal"

warna = "Merah"

Call TampilCaption

End Sub

Private Sub cmdClose_Click()

Unload Me

End Sub

Private Sub cmdReset_Click()

txttampil.Text = "Manipulasi Text Belum DiaktIfkan Silahkan Coba"

OptAwal.Value = True

End Sub

Sub TampilCaption()

lblketerangan.Caption = "Anda memilih " & _

posisi & " Dengan warna Font " & warna

End Sub

Private Sub optMerah_Click()

warna = "Merah"

Call TampilCaption

txttampil.ForeColor = &HFF&

End Sub

Private Sub optbiru_Click()

warna = "Biru"

Call TampilCaption

txttampil.ForeColor = &HFF0000

End Sub

Private Sub Awal()

txttampil.SelStart = 0

txttampil.SetFocus

posisi = "Setting Default"

Call TampilCaption

End Sub

Private Sub Akhir()

txttampil.SelStart = Len(txttampil.Text)

txttampil.SetFocus

posisi = "Kursor Diakhir"

Call TampilCaption

End Sub

Private Sub posisi5()

txttampil.SelStart = 5

txttampil.SetFocus

posisi = "Menyisipkan"

Call TampilCaption

End Sub

Private Sub seleksi()

txttampil.SelStart = 0

txttampil.SelLength = Len(txttampil.Text)

txttampil.SetFocus

posisi = " Memblok Seluruh isi Text"

Call TampilCaption

End Sub

Private Sub Tambahtext()

txttampil.SelText = "Tambah Text"

txttampil.SetFocus

posisi = "Menambah Text"

Call TampilCaption

End Sub

Private Sub Combo1_DropDown()

Combo1.AddItem "Awal"

Combo1.AddItem "Akhir"

Combo1.AddItem "posisi5"

Combo1.AddItem "Block"

Combo1.AddItem "TambahText"

End Sub

Private Sub Combo1_Click()

If Combo1.Text = "Awal" Then

Call Awal

End If

If Combo1.Text = "akhir" Then

Call Akhir

End If

If Combo1.Text = "posisi5" Then

Call posisi5

End If

If Combo1.Text = "Block" Then

Call seleksi

End If

If Combo1.Text = "TambahText" Then

Call Tambahtext

End If

End Sub

Private Sub OptAwal_Click()

Call Awal

End Sub

Private Sub optAkhir_Click()

Call Akhir

End Sub

Private Sub optseleksi_Click()

Call seleksi

End Sub

Private Sub optSisip5_Click()

Call posisi5

End Sub

Private Sub opttambahtext_Click()

Call Tambahtext

End Sub