Membuat Form Buku Alamat Sederhana di Web Bagian 2

Pembuatan Database dan File - File

setelah terinstal localhost , buka browser dan ketik http://localhost dan pilih phpmyadmin

Kemudian Buat database baru

Membuat Form Buku Alamat Sederhana di Web Bagian 1

Perkenalan Software yang di butuhkan

Membuat Web Sederhana untuk mengetahui bagaimana menggabungkan antara HTML , PHP , dan MySql , dan di baca di localhost , merupakan dasar dari pembuatan web dinamis.

Sebelumnya Software yang mungkin sedikit di butuhkan yaitu :

• WampServer / Xampp / appServer
• Komodo Edit
• Dreamweaver

WampServer bisa di download  langsung dari webnya : Klik Disini

Xampp bisa di download langsung dari webnya : Klik Disini

AppServer bisa di download langsung dari webnya : Klik Disini

Komodo Edit Bisa di Download di : Klik Disini

Latihan 5 - Hitung Tanggal Akhir - Visual Basic

Desain Seperti ini :

dan masukan script di bawah ini :


Private Sub Command1_Click()
If Combo1.ListIndex = -1 Then
    MsgBox "harap isikan type interval", , "Konfirmasi"
    Combo1.SetFocus
Else
If Combo1.ListIndex = 0 Then
    interval = "yyyy"
ElseIf Combo1.ListIndex = 1 Then
    interval = "m"
ElseIf Combo1.ListIndex = 2 Then
    interval = "d"
End If
Text3.Text = DateAdd(interval, Val(Text2.Text), CDate(Text1.Text))
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem "Tahun"
Combo1.AddItem "Bulan"
Combo1.AddItem "Hari"
End Sub

Latihan 5 - Hitung Interval Tanggal - Visual Basic

Desain seperti ini :

Masukan Scriptnya di bawah ini :


Private Sub Command1_Click()
Text3.Text = DateDiff("d", CDate(Text1.Text), CDate(Text2.Text))
End Sub

Latihan 5 - Fungsi String - Visual Basic

Buat Desainnya seperti ini :

dan ni scriptnya ::

' klo lower berarti untuk comand yang menjadi kecil

' klo upper berarti untuk comand yang menjadi besar

' klo proper berarti untuk comand yang awalnya aja menjadi besar

Private Sub Command1_Click()
Text2.Text = ""
Text2.Text = StrConv(Text1.Text, vbUpperCase)
End Sub

Private Sub Command2_Click()
Text2.Text = ""
Text2.Text = StrConv(Text1.Text, vbLowerCase)
End Sub