Trial-coding: Baiklah
saya akan membuat program Entri Mahasiswa menggunakan aplikasi bahasa pemograman visual basic
dan mysql (wamp5 server). Disini saya membuat program ini kebetulan untuk melengkapi tugas kuliah.Dan Kebetulan karna lagi hobi ngeblog maka saya posting aja mudah-mudahan ada yang ge mencari dan sedang membutuhkannya.
Langsung
saja saya akan memulai membuat program menggunakan database mysql. Langkah
pertama saya mengaktifkan wamp5 server dan setelah aktif saya membuka
phpMyadmin .setelah dibuka phpMyadmin di situlah saya memulai kerja membuat
program visual basic dengan database.
Nama database yang saya
kerjakan sekarang ini adalah dbmahasiswa seperti contoh gambar di bawah ini : 
Langkah selanjutnya mebuat nama tabel seperti gambar di bawah ini :
Setelah selasai
membuat database dbmahasiswa dengan nama tabelnya seperti diatas langsung
saja langkah yang selanjutnya saya membuka control panel dan mengaktifkan Data sorce ODBC.
Langkah selanjutnya
saya membuka aplikasi visual basic 6.0
Pertama sekali yang
saya buat adalah coding pada modules:
Option Explicit
Global conn As
ADODB.Connection
Public Sub koneksi()
Set conn = New
ADODB.Connection
conn.ConnectionString
= "Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Data
Source=dbmahasiswa;Initial Catalog=dbmahasiswa"
conn.Open
End Sub
Sub kosongkan(frm As
Form)
Dim a As Control
For Each a In frm
If TypeOf a Is TextBox Then
a.Text = ""
ElseIf TypeOf a Is DTPicker Then
a.Value = Date
ElseIf TypeOf a Is ComboBox Then
a.Text = ""
Else
End If
Next
End Sub
Sub tidakaktif(frm
As Form)
Dim a As Control
For Each a In frm
If TypeOf a Is
TextBox Then
a.Enabled = False
ElseIf TypeOf a Is
DTPicker Then
a.Enabled = False
ElseIf TypeOf a Is
ComboBox Then
a.Enabled = False
Else
End If
Next
End Sub
Sub aktif(frm As
Form)
Dim a As Control
For Each a In frm
If TypeOf a Is
TextBox Then
a.Enabled = True
ElseIf TypeOf a Is
DTPicker Then
a.Enabled = True
ElseIf TypeOf a Is
ComboBox Then
a.Enabled = True
Else
End If
Next
End Sub
Coding pada modules
sudah siap, langsung deh masuk ke form.
Pertama yang saya
kerjakan adalah mendsaign form
menggunakan progressBar
agar programnya pas di running yang muncul pertama adalah form progressBar
Contoh form progressBar
sebagai berikut:
Code programnya seperti dibawah ini:
Option Explicit
Dim i As Integer
Private Sub Form_Load()
i = 100
End Sub
Private Sub
Timer1_Timer()
If i = 100 Then
bar.Value =
bar.Value + 1
Else
bar.Value =
bar.Value + 1
End If
'Label1.Caption =
bar.Value
If bar.Value = 100
Then
Timer1.Enabled =
False
End If
If bar.Value = 80
Then
i = 100
Label1.Caption =
"Please wait........"
End If
If bar.Value = 100
Then
Form
progressBar sudah selasai ,saya ambil add form untuk membuat menu utama pada
program.
Tampilan menu utama yang saya buat adalah sebagai berikut:
Dan ketikan code programnya :
Private Sub
mnuDataMahasiswa_Click()
Form1.Show
End Sub
Private Sub
mnuDataMatakuliah_Click()
Form3.Show
End Sub
Private Sub
mnuExit_Click()
Unload Me
End Sub
Private Sub
mnuHelp_Click()
Form5.Show
End Sub
Private Sub
mnuKeluar_Click()
Unload Me
End Sub
Private Sub
mnuNilaiAkhir_Click()
Form4.Show
End Sub
Private Sub
mnuNotpad_Click()
On Error Resume Next
Shell
("notepad"), vbNormalFocus
Exit Sub
End Sub
Nah
sudah selesai membuat menu utama masuk ke tabel mahasiswa dengan formnya seperti
ini:
ok nie contoh hasil dari tabel mahasiswa yang sudah ada coding programnya,akan tetapi coding programnya jika saya posting juga nampaknya terlalu panjang ,langsung aja gan download coding lengkapnya di sini :
.ico)
Download
Ok ,,untuk membuat program mahasiswa saya rasa sudah selesai ,dan itu hanya trialnya saja ,anda bisa memodifikasinya kreatif masing-masing,mudah-mudahan bermanfaat artikel cara membuat program mahasiswa dengan visual basic 6.0 .
0 comments:
Post a Comment