Ya Allah Zhy kangen :'(

Kita ngerasa kehilangan ketika orang yang kita sayang tidak di samping kita lagi...

ni dy soulmate-soulmate zhay

teman-teman zhy kangen

zhy kangen saat kita becanda,tertawa setiap ada hal yang lucu...

I LOVE U MY FRIEND'S

My Teacher

nah ini teh my teacher abdi...

Dosen paling sweet and pualing uhhhhhhhhh

pokonya hayu

rencang-rencang sadayana lebet ka STMIK KHARISMA KARAWANG

di jamin huhhh hahahahaha

Sahabat adalah sesuatu yang paling berharga dalam hidup kita tanpa mereka kita tidak bisa manghargai arti persaudaraan

I LOVE U MY FRIEND'S

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 If

End Sub

Modul 4 Vb

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 VB

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 Vb 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 Explici
tPrivate 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 VB

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 Tampil
Captiontxttampil.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 AkhirEnd IfIf 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 SubPrivate 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