Selasa, 06 Desember 2011

Membuat Form Login Delphi dengan Database

Step 1

Buat Database di Access dulu , pke yang 2003 gpp , yg formatnya *.mdb

Buat Juga Tablenya n isi datanya ni contohnya ky di bawah.




Step 2

Buat Form Login Sederhana aja dulu
Kaya gini nih ...



Teruz properties namenya di ganti ,
Euser --> buat username
Epass --> buat password

Ya itu mah biar gampang ajja , disave dulu tu form ....

Senin, 05 Desember 2011

Membuat Form Buku Alamat Sederhana di Web Bagian 3

Mendesain Menu Utama, File Master, dan File Transaksi(edit data)


Tampilan Sederhana Web :



ni script - scriptnya 


Untuk File index.php scriptnya :

Minggu, 04 Desember 2011

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

Latihan 4 - Looping (For to || Do While || Do Until ) - Visual Basic

Buat Desain Seperti Ini


Dan Ini Scriptnya ::

'Buat Frame1 , List1 , dan commandnya Urut dari 1-6 ke bawah
'Teruz copy frame , n pilih no teruz , Frame 3 pun tinggal paste jja n no lagi ....
' ni scriptnya ,, moga jja ga ribet ...

Dim bilangan As Integer
Private Sub Command1_Click()
List1.Clear
For bilangan = 1 To 20
List1.AddItem bilangan
Next bilangan
End Sub

Private Sub Command10_Click()
List2.Clear
bilangan = 2
Do While bilangan <= 40
List2.AddItem bilangan
bilangan = bilangan + 2
Loop
End Sub

Latihan 3 - Pertambahan Waktu - Visual Basic

Buat Desain Seperti ini :






dan masukan script ini sesuai dengan procedurenya masing2 :

Private Sub Command1_Click()
If Command1.Caption = "Mulai" Then
Timer1.Enabled = True
Command2.Enabled = False
Command1.Caption = "Selesai"
ElseIf Command1.Caption = "Selesai" Then
Timer1.Enabled = False
Command2.Enabled = True
End If
End Sub

Latihan 3 - Rumah Makan Serba Ayam - Visual Basic

Buat Desain Seperti ini :






dan masukan script dibawah ini sesuai procedurenya :

'text1 --> Total Tagihan
'text2-text5 (berurut ke bawah) --> Harga Perporsi - Total Biaya Minuman
'option1-option3 --> Ayam Bakar - Ayam Panggang
'check1 -> Es Kelapa , check2-> Es Buah
Private Sub Check1_Click()
If Check1.Value = 1 And Check2.Value = 1 Then
Text5.Text = "12500"
ElseIf Check1.Value = 0 And Check2.Value = 0 Then
Text5.Text = "0"
ElseIf Check1.Value = 0 And Check2.Value = 1 Then
Text5.Text = "7500"
ElseIf Check1.Value = 1 And Check2.Value = 0 Then
Text5.Text = "5000"
End If
End Sub

Latihan 3 - Menghitung Rata Rata Nilai - Visual Basic

Buat Desain Seperti ini :





masukan script di bawah ini sesuai dengan procedurenya :

Dim rata As Double
Dim hasil As String
Private Sub Command1_Click()
If Command1.Caption = "Baru" Then
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text1.SetFocus
Command1.Caption = "Proses"
ElseIf Command1.Caption = "Proses" Then

Latihan 3 - Program Hotel - Visual Basic

Desain seperti di bawah ini :



Kemudian masukan script di bawah ni sesuai dengan procedurenya masing masing :

'Text1 -- > Nama Penyewa
'Combo1 --> Kode Kamar
'Text2 --> Jenis Kamar
'Option1-->Superior
'Option2 --> Deluxe
'Option3 --> Suite
'check1 --> internet
'check2 --> TV cable
'Text3 --> Biaya Sewa
'Text4 --> Fasilitas Tambahan
'Text5 --> Total Sewa
'Text6 --> Bayar
'Text7 --> Kembali


Sabtu, 03 Desember 2011

Latihan 3 - Selisih Jam - Visual Basic

Desain form seperti di bawah ini :






Kemudian script di bawah ini sesuai dengan procedurenya :

'di command Mulai/selesai
Private Sub Command1_Click()
If Command1.Caption = "Mulai" Then
Label4.Caption = Format(Time(), "hh:mm:ss")
Command1.Caption = "Selesai"
Command2.Enabled = False
ElseIf Command1.Caption = "Selesai" Then
Label5.Caption = Format(Time(), "hh:mm:ss")
Command1.Caption = "Mulai"
Label6.Caption = Format((CDate(Label5.Caption) - CDate(Label4.Caption)), "hh:mm:ss")
Command1.Enabled = False
Command2.Enabled = True
End If
End Sub

Latihan 3 - Ganti warna form dengan comboBox - Visual Basic

Desain form seperti ini :


dan masukan script di bawah ini sesuai tempatnya :

Dim warna As String
Dim pesan As String

Latihan 3 - Menampilkan Jam dan Tanggal - Visual Basic

buat desain seperti di bawah ini :


Dan beri timer 1 dengan interval 1000 .
dan masukan script di bawah ini :

'untuk checkbox yang bercaption tampikan tanggal
Private Sub Check1_Click()
If Check1.Value = 1 Then
Label1.Visible = True
Label1.Caption = FormatDateTime(Date, vbLongDate)
Else
Label1.Visible = False
Label1.Caption = ""
End If
End Sub
'untuk checkbox yang bercaption stop jam
Private Sub Check2_Click()
If Check2.Value = 1 Then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If
End Sub

'untuk di timer
Private Sub Timer1_Timer()
Form1.Caption = "Sekarang Jam : " & FormatDateTime(Time(), vbLongTime)
End Sub

Latihan 2 - Ganti Warna Form - Visual Basic

Buat desain tampilan seperti ni :

Kemudian masukan script di bawah ini sesuai dengan warnanya :

Dim warna As String
Dim pesan As String

Private Sub Command1_Click()
warna = "Default"
pesan = MsgBox("Apakah anda ingin mengganti warna default " & warna & " ??", vbOKCancel + vbQuestion, "KOnfirmasi Ganti Warna")
If pesan = vbOK Then
Form1.Caption = "Ganti Warna Form : " & warna
Form1.BackColor = &H8000000F
Else
Cancel = True
End If
End Sub

Latihan 2 - Form Nilai - Visual Basic

Buat desain seperti ini :

 klik 2x di form dan masukan script ini :

Private Sub Form_Load()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Combo1.Enabled = False

Combo1.AddItem "Teknik Informatika"
Combo1.AddItem "Manajemen Informatika"
Combo1.AddItem "Komputer Akutansi"
Combo1.AddItem "Desain Grafis"
End Sub

Latihan 1- InputBox dan MessageBox - Visual Basic

Buatlah tampilan form seperti ini :




dan klik 2x mulai hitung dan masukan script di bawah ini :

Private Sub Command1_Click()
Dim pesan As String
Dim inputan As String
Dim nilai As Integer
Dim huruf As String

'memasukan nilai untuk perhitungan
inputan = InputBox("Masukan Nilai yang akan di hitung ?? ", "Perhitungan Nilai", nilai)

'mengecek apakan inputan kosong
If inputan = "" Then
MsgBox "Masukan Nilai untuk melakukan perhitungan", , "konfirmasi"