Form Login Visual Basic Berdatabase

Membuat Form Login dengan tampilan sesuai anda

Membuat Tampilan Form Visual Basic Menjadi Transparant

Buat Sebuah Form , standart EXE jja ....

teruz masukin coding ni nih

OCX tambahan Visual Basic

Ni Tambahan OCX visual basic 6.0

download di sini : 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

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"

Format untuk Tanggal dan Jam

Di Delphi maupun Visual Basic biasa di kenal dengan FormatDateTime

FormatDateTime('formatnya',date/time) ---> untuk Delphi

FormatDateTime(Date/Time,formatnya)---->untuk Visual Basic
atau Format(Date/Time,"Formatnya")

Random Warna Visual Basic

Ni di visual basic -- > mo bikin random warna dasar form

butuh timer ....

klik 2x timernya truz masukin script ini :

Timer -> Delphi & Visual Basic

Timer berfungsi untuk memanipulasi waktu ...

misal untuk membuat gambar bergerak , jam , progressbar , dll

delphi dan visual basic dalam pembuatan Timer hampir sama saja , cuma beda bahasa doank koq ...