KaWah Bodas

Tah geuning Sweet kan iH Masya aloh meni geuLis Ningan nYa

hahahahahahahah

Capek Dweh

Smile for all People Ok!!!!!!!

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