PEMROGRAMAN VISUAL BASIC

pemrograman visual basic 

 BAB 1 

1.1 Modul Program Sistem Informasi Penjualan

Sebelum kita membuat program kita terlebih dahulu membuat sebuah modul pada program. Kegunaan modul ini yaitu untuk mempersingkat program yang kita ketikkan nantinya.

Anda tambahkan sebuah modul dengan cara :

Click Project | Add Module, kemudian click Open. Akan muncul sebuah Module1 yang masih kosong.  Dan disini akan kita buat modul-modul program yang dapat di panggil melalui Form Penjualan Barang. Cara mengetikkan program pada modul harus diketik secara lengkap.

Anda ketikkan Program Berikut ini.

Function DBFind(Rs As Recordset, cIndex As String, cText As String) As Boolean

DBFind = False Rs.Index = cIndex Rs.Seek "=", cText

If Not Rs.NoMatch Then DBFind = True

End Function

Function DBFind2(Rs As Recordset, cIndex As String, cText As String, cText2 As

String) As Boolean DBFind2 = False Rs.Index = cIndex

Rs.Seek "=", cText, cText2

If Not Rs.NoMatch Then DBFind2 = True

End Function

Sub Add2List(Rs As Recordset, cField As Field, cbo As ComboBox)

cbo.Clear

If Rs.RecordCount = 0 Then Exit Sub

Rs.MoveFirst

Do While Not Rs.EOF cbo.AddItem cField Rs.MoveNext

Loop

cbo.Text = cbo.List(0)

End Sub

Sub AddSatuan(cbo As Object) cbo.AddItem "Unit" cbo.AddItem "Kg"

cbo.AddItem "Mtr" cbo.AddItem "Ons" cbo.AddItem "Pc" cbo.AddItem "Set" cbo.AddItem "Sak"

cbo.AddItem "Lembar" 

cbo.AddItem "Kaleng"

End Sub

Sub CenterFORM(f As Form)

f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4

End Sub

Function CheckENTER(ckey As Integer, cTXT As String) As Boolean

CheckENTER = False

If ckey = 13 Then

If cTXT = "" Then Exit Function

CheckENTER = True

End If

End Function

Sub PINDAH(ckey As Integer, cObj As Object)

If ckey = 13 Then cObj.SetFocus

End Sub

Sub MoveTO(KeyAscii As Integer)

If KeyAscii = 13 Then

KeyAscii = 0

SendKeys "{Tab}" End If

End Sub

Terakhir anda click Icon Disket. Pada File Name tertulis myModul anda click Save. 

untul lebih jelasnya silahkan download di bawah ini :