Modul Peminjaman VCD

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 If
End Sub

Modul 4

Modul Praktek IV Vis_Basic

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

DateDiffDigunakan 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 harinya

VbSunday : Menunjukan hari pertama diseting pada hari mingguDatePart 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.command2

Name : CMDPutusWord

Caption : &Putus Koneksi

c.command3

Name : CMDKeluar

Caption : &Keluar

Source Code :

Option ExplicitPublic 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

Component yang dibutuhkan :

- 5 Image

- 1 commandButton

- 1 shape

- 1 label

- 1 PictureBox

Source Code:

Option ExplicitPrivate 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 SubPrivate Sub img5_Click()

shpkotak.Left = img5.Left

StatusGB.Cls

StatusGB.Print "Anda memilih : Gambar 5"

End Sub

Modul 1

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"

ThenCall Awal

End If

If Combo1.Text = "akhir"

ThenCall Akhir

End If

If Combo1.Text = "posisi5"

ThenCall posisi5

End If

If Combo1.Text = "Block"

ThenCall seleksi

End If

If Combo1.Text = "TambahText"

ThenCall 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