Minggu, 27 Mei 2012

Program Database Sederhana dengan Visual Basic 6.0


 Contoh programnya : Klik Disini ( BADAWI )
Langkan Melakukannya
Buatlah 4 Form, 1 Module, dan 1 Data Environment
Buat Database dengan cara :
1. Klik add-ins
2. Visual Data Manager
3. File
4. New
5. Microsoft Acces Version 7.0 MDB
6. tulis Filename pada direktori penyimpanan projek ini
7. pada properties klik kanan
8. New Table
9. Table Name = login
10. pada pilihan Field List pilih add Field
Pada propertiesnya ubah nama Data environment menjadi DT
Buat dua Connection yakni Connection1. dan pass
Caraya :
1. Klik Add Connection
2. Klik Kanan pada Connection
3. Properties
4. pada Provider Pilih : Microsoft Jet 4.0 OLE DB Provider
5. Next
6. Pada Pilihan Database Name pilih Data untuk Connection1. dan login Untuk Connection pass
7.OK

Buat pula Command 2 buah
Langkahnya :
Klik Kanan Connection kemudian add Command
Pengaturan pada Properties Command :
Pada Connection pilih Connection1 untuk Command 1 dan pass untuk untuk Command 2
Pada pilihan data object pilih Table
Pada object Name pilih Data untuk Command1 dan login Untuk Command 2
Pada tab Advance pilihan LockType pilih 3-Optimistic kemudian OK

Kemudian tampilan Data environment akan diperileh sebagai berikut :



Buatlah Masing-masing Form Sebagai Berikut :
Form 1


Form 1 Memiliki properties sebagai berikut :

Kemudian Tulis Code berikut :

Private Sub Cmdok_Click()
Set RS = New ADODB.Recordset
RS.CursorLocation = adUseClient

RS.Open "SELECT * FROM login WHERE user ='" + txtuser + "' and Pass = '" + txtpass + "'", CN, adOpenDynamic, adLockOptimistic

If (txtpass.Text = "") And (txtuser.Text = "") Then
MsgBox "Please Type Username and Password"
txtpass.Text = ""
txtuser.Text = ""
txtuser.SetFocus
ElseIf (txtuser.Text = "") Then
MsgBox "Please Type Username"
txtuser.Text = ""
txtuser.SetFocus
ElseIf (txtpass.Text = "") Then
MsgBox " Please Type Password"
txtpass.Text = ""
txtpass.SetFocus
Else
With RS
If RS.RecordCount = 1 Then
Unload Me
MsgBox "Acces Code Accepted!"
Form2.Show
Unload Me
Else
MsgBox "Password and Username Mismatch"
txtpass.Text = ""
txtuser.Text = ""
txtuser.SetFocus
End If

End With
End If
End Sub

Private Sub Command1_Click()
Form1.Hide
Form3.Show
End Sub

Private Sub Form_Load()
Me.Show
Set CN = New ADODB.Connection
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\login.mdb;Persist Security Info=False;Jet OLEDB:Database Password=MLEVDQ48L2"
End Sub

Untuk Form 2

Propertiesnya :



Codenya :
Private Sub Command1_Click()
End
End Sub
 

FORM 3






Propertiesnya :




Code nya :


Option Explicit
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox " Data Belum Lengkap"
ElseIf Text2.Text = "" Then
MsgBox " Data Belum Lengkap"
ElseIf Text3.Text = "" Then
MsgBox " Data Belum Lengkap"
ElseIf Text4.Text = "" Then
MsgBox " Data Belum Lengkap"
ElseIf Text5.Text = "" Then
MsgBox " Data Belum Lengkap"
ElseIf Text6.Text = "" Then
MsgBox " Data Belum Lengkap"
Else
DT.rsCommand1.AddNew
Form3.Hide
Form4.Show
End If
End Sub

Private Sub Command2_Click()
DT.rsCommand1.AddNew
Frame1.Visible = True
Command2.Visible = False
End Sub

FORM 4





Propertiesnya :


Codenya :


Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Data Belum Lengkap"
ElseIf Text2.Text = "" Then
MsgBox " Data Belum Lengkap"
Else
DT.rsCommand2.AddNew
MsgBox "Selamat, Registrasi anda Selesai"
Form1.Show
Form4.Hide
End If
End Sub

Private Sub Command2_Click()
DT.rsCommand2.AddNew
Frame1.Visible = True
Command2.Visible = False
End Sub



Untuk Penjelasan kode dan Propertienya dapat juga di downloadDISINI ( BADAWI )

 


Rabu, 16 Mei 2012

Tugas Looping

Code Pemrogramannya :

Private Sub Command1_Click()
List1.Clear
For a = 1 To Val(Text1.Text) - 1
kal = " "
For b = 1 To a
kal = kal & Str(b)
Next b
List1.AddItem kal
Next
For c = Text1.Text To 1 Step -1
kal = " "
For d = 1 To c
kal = kal & Str(d)
Next d
List1.AddItem kal
Next

End Sub

Penyelesaian Sistem Persamaan Linear

ni contoh penyelesaian soalpersamaan Liner dengan metode :
1. Eliminasi Gauss-Jordan
2.Metode Cramer
3.Metode iterasi Gauss-Seidel

Untuk melihat download disini(badawi)

SISTEM INISIASI PELEDAKAN (Blast Initiation System)

Inisiator merupakan suatu istilah yang diguanakan oleh perusahaan (industri) bahan peledakn untuk mendeskripsikan peralatan yang dapat dig...