contoh pembuatan program menggunakan Visual Basic

2.4. Program Yang akan Dibuat

Memulai dengan membuka software visual basic < Start – Program – Visual Basic 6.0>

Pilih standar EXE dan klik tombol open.

Cari pada toolbar icon MENU EDITOR, maka akan tampil:

Lalu desain pada form 1  seperti gambar berikut:

Sebelum dirun(F5)                                          Sesudah dirun(F5)

Lalu buat listing Program pada Form 1 sebagai berikut :

Private Sub mnuBARANG_Click()

FRMBARANG.Show

End Sub

Private Sub mnuEXIT_Click()

‘Menampilkan kotak pesan dengan komentar INGIN KELUAR

‘?Yang jawabannya disimpan pada variable JAWAB.

JAWAB = MsgBox(“INGIN KELUAR”, vbOKCancel + vbQuestion, “PSN”)

If JAWAB = vbOK Then

Unload Me

Else

MsgBox “KELUAR DIBATALKAN”, vbOKOnly, “KELUAR”

End If

End Sub

Private Sub mnuPELANGGAN_Click()

FRMPELANGGAN.Show

End Sub

Private Sub mnuPENJUALAN_Click()

Frmpenjualan.Show

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) – 1) + Left(Label1.Caption, 1)

Label2.Caption = Right(Label2.Caption, Len(Label2.Caption) – 1) + Left(Label2.Caption, 1)

Label3.Caption = Right(Label3.Caption, Len(Label3.Caption) – 1) + Left(Label3.Caption, 1)

End Sub

Lalu desain pada form 2  seperti gambar berikut:

Sebelum dirun(F5)                                          Sesudah dirun(F5)

– Klik sekali pada adodc-nya, cari pada jendela properties:

1. a. Klik connectionstring,maka akan keluar :

b. Pilih Build – Pilih Microsoft Jet 4.0 OLE Provider – Klik next – Cari

datadabe D:\DERI’S\PENJUALN.mdb – OK – Apply – OK

2. Klik Recordsource maka akan muncul pelanggan.

– Klik sekali pada DataGrid-nya, cari pada jendela properties:

DataSource Pilih adodc1

– Klik pada textbox1 ganti data source dengan adodc1 – data fieldnya kodepelanggan.

Klik pada textbox2 ganti data source dengan adodc1 – data fieldnya nama.

Klik pada textbox3 ganti data source dengan adodc1 – data fieldnya alamat.

Lalu buat listing Program pada Form 2 sebagai berikut :

Private Sub CmdBaru_Click()

If CmdBaru.Caption = “&BARU” Then

CmdBaru.Caption = “&SIMPAN”

Else

If ketemu Then

MsgBox “Data Sudah Ada”, vbInformation, “Entry”

Exit Sub

End If

With Adodc1.Recordset

.AddNew

!KodePelanggan = Text1

!Nama = Text2

!Alamat = Text3

.Update

End With

MsgBox “Data Sudah Disimpan”, vbInformation, “Entry”

End If

End Sub

Private Sub CmdBatal_Click()

Text1.Text = DataGrid1.Columns(0).Text

Text2.Text = DataGrid1.Columns(1).Text

Text3.Text = DataGrid1.Columns(2).Text

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

CmdBaru.Enabled = True

CmdBatal.Enabled = False

CmdHapus.Enabled = True

CmdTambah.Enabled = True

CmdRubah.Enabled = True

End Sub

Private Sub CmdHapus_Click()

On Error Resume Next

Adodc1.Recordset.Delete

End Sub

Private Sub CmdKembali_Click()

Unload Me

Form1.Show

End Sub

Private Sub CmdRubah_Click()

SwAdd = False

Text2.Enabled = True

Text3.Enabled = True

CmdBaru.Enabled = True

CmdBatal.Enabled = True

CmdHapus.Enabled = False

CmdTambah.Enabled = False

Text2.SetFocus

End Sub

Private Sub CmdTambah_Click()

SwAdd = True

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text1.SetFocus

CmdTambah.Enabled = False

CmdBaru.Enabled = True

CmdHapus.Enabled = False

CmdBatal.Enabled = True

End Sub

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

If Adodc1.Recordset.EOF = True Then

MsgBox “Data sudah tidak ada”

Exit Sub

End If

Text1.Text = DataGrid1.Columns(0).Text

Text2.Text = DataGrid1.Columns(1).Text

Text3.Text = DataGrid1.Columns(2).Text

End Sub

Private Sub Form_Load()

Adodc1.ConnectionString = App.Path & “\PENJUALN.mdb”

Adodc1.RecordSource = “pelanggan”

DataGrid1.Columns(0).Width = 2200

DataGrid1.Columns(1).Width = 3500

DataGrid1.Columns(2).Width = 2500

DataGrid1.Columns(0).Alignment = dbgCenter

If Adodc1.Recordset.EOF = True Then

SwAdd = True

MsgBox “Data masih kosong”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

CmdBaru.Enabled = True

CmdBatal.Enabled = False

CmdHapus.Enabled = False

CmdRubah.Enabled = True

CmdTambah.Enabled = True

Else

Text1.Text = DataGrid1.Columns(0).Text

Text2.Text = DataGrid1.Columns(1).Text

Text3.Text = DataGrid1.Columns(2).Text

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

CmdRubah.Enabled = True

CmdBatal.Enabled = False

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text1.SetFocus

Text2.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

Text3.SetFocus

End If

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) – 1) + Left(Label1.Caption, 1)

End Sub

Lalu desain pada form 3  seperti gambar berikut:

Sebelum dirun(F5)                                          Sesudah dirun(F5)

– Klik sekali pada adodc-nya, cari pada jendela properties:

1. a. Klik connectionstring,maka akan keluar :

b. Pilih Build – Pilih Microsoft Jet 4.0 OLE Provider – Klik next – Cari

datadabe D:\DERI’S\PENJUALN.mdb – OK – Apply – OK

2. Klik Recordsource maka akan muncul pelanggan.

– Klik sekali pada DataGrid-nya, cari pada jendela properties:

DataSource Pilih adodc1

– Klik pada textbox1 ganti data source dengan adodc1 – data fieldnya kodebarang.

Klik pada textbox2 ganti data source dengan adodc1 – data fieldnya namabarang.

Klik pada textbox3 ganti data source dengan adodc1 – data fieldnya harga.

Lalu buat listing Program pada Form 3 sebagai berikut :

Private Sub CmdBaru_Click()

If CmdBaru.Caption = “&BARU” Then

CmdBaru.Caption = “&SIMPAN”

Else

If ketemu Then

MsgBox “Data Sudah Ada”, vbInformation, “Entry”

Exit Sub

End If

With Adodc1.Recordset

.AddNew

!KodeBarang = Text1

!NamaBarang = Text2

!harga = Text3

.Update

End With

MsgBox “Data Sudah Disimpan”, vbInformation, “Entry”

End If

End Sub

Private Sub CmdBatal_Click()

Text1.Text = DataGrid1.Columns(0).Text

Text2.Text = DataGrid1.Columns(1).Text

Text3.Text = DataGrid1.Columns(2).Text

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

CmdBaru.Enabled = True

CmdBatal.Enabled = False

CmdHapus.Enabled = True

CmdTambah.Enabled = True

CmdRubah.Enabled = True

End Sub

Private Sub CmdHapus_Click()

On Error Resume Next

Adodc1.Recordset.Delete

End Sub

Private Sub CmdKembali_Click()

Unload Me

Form1.Show

End Sub

Private Sub CmdRubah_Click()

SwAdd = False

Text2.Enabled = True

Text3.Enabled = True

CmdBaru.Enabled = True

CmdBatal.Enabled = True

CmdHapus.Enabled = False

CmdTambah.Enabled = False

Text2.SetFocus

End Sub

Private Sub CmdTambah_Click()

SwAdd = True

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text1.SetFocus

CmdTambah.Enabled = False

CmdBaru.Enabled = True

CmdHapus.Enabled = False

CmdBatal.Enabled = True

End Sub

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

If Adodc1.Recordset.EOF = True Then

MsgBox “Data sudah tidak ada”

Exit Sub

End If

Text1.Text = DataGrid1.Columns(0).Text

Text2.Text = DataGrid1.Columns(1).Text

Text3.Text = DataGrid1.Columns(2).Text

End Sub

Private Sub Form_Load()

Adodc1.ConnectionString = App.Path & “\PENJUALN.mdb”

Adodc1.RecordSource = “barang”

DataGrid1.Columns(0).Width = 2200

DataGrid1.Columns(1).Width = 3500

DataGrid1.Columns(2).Width = 2500

DataGrid1.Columns(0).Alignment = dbgCenter

If Adodc1.Recordset.EOF = True Then

SwAdd = True

MsgBox “Data masih kosong”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

CmdBaru.Enabled = True

CmdBatal.Enabled = False

CmdHapus.Enabled = False

CmdRubah.Enabled = True

CmdTambah.Enabled = True

Else

Text1.Text = DataGrid1.Columns(0).Text

Text2.Text = DataGrid1.Columns(1).Text

Text3.Text = DataGrid1.Columns(2).Text

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

CmdRubah.Enabled = True

CmdBatal.Enabled = False

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text1.SetFocus

Text2.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

Text3.SetFocus

End If

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) – 1) + Left(Label1.Caption, 1)

End Sub

Lalu desain pada form 4  seperti gambar berikut:

Sebelum dirun(F5)                                          Sesudah dirun(F5)

– Klik data1 dan data 2 cari dijendela properties databasename

D:\DERI’S\PENJUALN.mdb dan  Recordsource pelanggan

– Klik Text1 cari datasource-nya dengan data1 dan datafield-nya kodepelanggan

Klik Text2 cari datasource-nya dengan data1 dan datafield-nya nama

Klik Text3 cari datasource-nya dengan data1 dan datafield-nya kodebarang

Klik Text4 cari datasource-nya dengan data1 dan datafield-nya namabarang

Klik Text54 cari datasource-nya dengan data1 dan datafield-nya harga

Lalu buat listing Program pada Form 4 sebagai berikut :

Private Sub Command1_Click()

Text7.Text = Val(Text5.Text) * Val(Text6.Text)

If Text7.Text > 5000000 Then

Text8.Text = Val(Text7.Text) * 20 / 100

Else

Text8.Text = 0 / Val(Text5.Text)

End If

Text9.Text = Val(Text7.Text) – Val(Text8.Text)

End Sub

Private Sub Command2_Click()

Unload Me

Form1.Show

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) – 1) + Left(Label1.Caption, 1)

Text6.SetFocus

End Sub

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: