Rabu, 05 Desember 2012

ICON UNTUK DESAIN PROGRAM

ARTIKEL - ICON UNTUK DESAIN PROGRAM



Ini adalah contoh beberapa icon untuk mendesain program supaya program yang kita buat tampilannya tambah cantik dan menarik. Jika tertarik silahkan download


            Pada tutorial sebelumnya telah diterangkan apa itu stored procedure. Pada tutorial kali ini saya akan sedikit menjelaskan penerapan stored procedure pada MySQL di Visual Basic 6. Dengan syarat MySQL nya versi 5 ke atas, karena untuk versi 5 ke bawah belum mendukung Stored Procedure. Sebelumnya buat database baru dengan nama dbmhs setelah itu buat tabel dengan nama tblmahasiswa dengan struktur sebagai berikut ini :
NIM Char (4) Primary Key
Nama Varchar (40)
Alamat Varchar (50)
Jurusan Varchar (30)
Jika sudah buat stored procedure untuk input ke tabel mahasiswa dengan nama stored procedure InputMhs dengan mengetikan perintah seperti berikut ini:
Kemudian buat stored procedure untuk ubah data mahasiswa dengan nama stored procedure UbahMhs dengan mengetikan perintah seperti berikut ini:

Kemudian buat stored procedure untuk menghapus data mahasiswa dengan nama stored procedure HapusMhs dengan mengetikan perintah berikut ini :

Jika sudah bukalah visual basic 6 kemudian desainlah satu form seperti yang tampak pada gambar  berikut ini :

Jika sudah kemudian buatlah koding untuk input data, ubah data dan hapus data. Di sini kita akan memanggil stored procedure yang telah kita buat tadi. Kodingnya tampak seperti di bawah ini.

Sebelumnya aktifkan dulu Microsoft ActiveX Data Object Library 2.8. Untuk koding lengkapnya silahkan download source code dan tutorialnya.
Selamat Mencoba. Semoga tutorial ini bermanfaat…..!

Bagaimanakah caranya mengkoneksikan database MySQL dengan Visual Basic 6 dan menampilkan datanya? Dalam pembuatan tutorial ini saya menggunakan driver untuk MySQL versi 5.1 dan tentunya sudah terinstall MySQL nya dunk hehehehe. Disini Saya memakai full koding untuk koneksinya tanpa menggunakan kontrol ADODC. Dengan asumsi kita sudah buat database dalam MySQL dengan nama DbMhs dan tabel TblMahasiswa. Semoga tutorial ini bermanfaat.
-Buka Visual Basic 6
-kemudian klik menu project-references-kemudian beri tanda centang Microsoft ActiveX Data Object Library 2.8. Kalau tidak ada 2.8 silahkan 2.7 atau 2.6 juga tidak apa2. kemudian klik OK.


-Kalau sudah tambahkan sebuah modul yang nantinya di gunakan untuk koneksi ke MySQL. Dengan cara klik menu Project-Add Modul kemudian klik open. Dan berinama ModCon. Kemudian tuliskan koding berikut ke dalam modul
01Public Conn As New ADODB.Connection
02Public Sub Buka()
03     Set Conn = New ADODB.Connection
04     Conn.ConnectionString = "Provider=MSDASQL.1;" _
05                           & "Persist Security Info=False;" _
06                           & "DRIVER={MySQL ODBC 5.1 Driver};" _
07                           & "DATABASE=dbMhs;" _
08                           & "OPTION=0;" _
09                           & "PORT=3306;" _
10                           & "SERVER=localhost;" _
11                           & "UID=root;" _
12                           & "PWD=1234;"
13     Conn.Open
14     Conn.CursorLocation = adUseClient
15 End Sub
Ket: PWD adalah password MySQL. Passwordnya di sesuaikan dengan yang ada di komputer masing2 tentunya.
-Kemudian desainlah sebuah form untuk menampilkan datanya dari tabel mahasiswa. Dan tambahkan control msflexgrid. Kalau belum ada controlnya tambahkan lewat  klik menu project pilih component maka akan muncul jendela seperti di bawah ini. Pilih microsoft Flexgrid Control 6.0 kemudian klik OK.

-Kalau sudah tambahkan flexgrid ke dalam form. Seperti yang tampak pada gambar berikut ini

Kemudian kita mulai kodingnya. Pada bagian General Declaration ketikan koding berikut :
1Dim RsMhs As New ADODB.Recordset
Kemudian ketik koding berikut ini, ini adalah koding untuk mendesain tampilan msflexgrid.
01Private Sub AktifGrid()
02MSFlexGrid.Clear
03MSFlexGrid.Rows = 2
04MSFlexGrid.Cols = 5
05MSFlexGrid.RowHeightMin = 300
06'-----------------------------------------
07MSFlexGrid.Col = 0
08MSFlexGrid.Row = 0
09MSFlexGrid.Text = "NO"
10MSFlexGrid.CellFontBold = True
11MSFlexGrid.ColWidth(0) = 500
12MSFlexGrid.AllowUserResizing = flexResizeColumns
13MSFlexGrid.CellAlignment = flexAlignCenterCenter
14'------------------------------------------
15MSFlexGrid.Col = 1
16MSFlexGrid.Row = 0
17MSFlexGrid.Text = "NIM"
18MSFlexGrid.CellFontBold = True
19MSFlexGrid.ColWidth(1) = 800
20MSFlexGrid.AllowUserResizing = flexResizeColumns
21MSFlexGrid.CellAlignment = flexAlignCenterCenter
22'-----------------------------------------
23MSFlexGrid.Col = 2
24MSFlexGrid.Row = 0
25MSFlexGrid.Text = "NAMA MHS"
26MSFlexGrid.CellFontBold = True
27MSFlexGrid.ColWidth(2) = 3000
28MSFlexGrid.AllowUserResizing = flexResizeColumns
29MSFlexGrid.CellAlignment = flexAlignCenterCenter
30'------------------------------------------
31MSFlexGrid.Col = 3
32MSFlexGrid.Row = 0
33MSFlexGrid.Text = "ALAMAT"
34MSFlexGrid.CellFontBold = True
35MSFlexGrid.ColWidth(3) = 3000
36MSFlexGrid.AllowUserResizing = flexResizeColumns
37MSFlexGrid.CellAlignment = flexAlignCenterCenter
38'-----------------------------------------
39MSFlexGrid.Col = 4
40MSFlexGrid.Row = 0
41MSFlexGrid.Text = "JURUSAN"
42MSFlexGrid.CellFontBold = True
43MSFlexGrid.ColWidth(4) = 2500
44MSFlexGrid.AllowUserResizing = flexResizeColumns
45MSFlexGrid.CellAlignment = flexAlignCenterCenter
46End Sub
Kemudian ketik koding berikut. Koding ini berfungsi untuk menampilkan data dari MySQL untuk tabel mahasiswa ke msflexgrid
01Private Sub TampilGrid()
02  Dim Baris As String
03  MSFlexGrid.Clear
04  Call AktifGrid
05  '---------------------
06  MSFlexGrid.Rows = 1
07  Baris = 0
08  Set RsMhs = New ADODB.Recordset
09  RsMhs.Open "SELECT * FROM tblmahasiswa ORDER BY nim ASC", Conn, adOpenDynamic, adLockOptimistic
10  '---------------------
11  If RsMhs.BOF Then
12      Exit Sub
13  Else
14      RsMhs.MoveFirst
15      Do While Not RsMhs.EOF
16      On Error Resume Next
17      Baris = Baris + 1
18      MSFlexGrid.Rows = Baris + 1
19      MSFlexGrid.TextMatrix(Baris, 0) = Baris
20      MSFlexGrid.TextMatrix(Baris, 1) = RsMhs.Fields("nim")
21      MSFlexGrid.TextMatrix(Baris, 2) = RsMhs.Fields("nama")
22      MSFlexGrid.TextMatrix(Baris, 3) = RsMhs.Fields("alamat")
23      MSFlexGrid.TextMatrix(Baris, 4) = RsMhs.Fields("jurusan")
24      RsMhs.MoveNext
25      Loop
26  End If
27End Sub
Kemudian pada bagian form load ketikan koding berikut.
1Private Sub Form_Load()
2    Call Buka
3    TampilGrid
4End Sub
NB : call buka berfunggsi memanggil koneksi ke mysql nya yang telah di buat di dalam modul.
-Kalau sudah semua lalu jalankan…

Selesai. Semoga dapat membantu. Jika menginginkan source code dan tutorialnya silahkan download di link bawah ini.


Splash screen merupakan tampilan yang kita lihat pertama kali waktu kita menjalankan sebuah aplikasi. Splash screen ini biasanya ditampilkan untuk mengurangi kejenuhan user sewaktu program masih dalam tahap inisialisasi.

Untuk membuat splash scren tersebut caranya sebagai berikut :
  1. Buat dulu form utamanya.
  2. Tambahkan form yang akan digunakan sebagai splash screen. Beri nama form tersebut dengan Splash atau apa saja sesuka anda.
  3. Kemudian desain form seperi gambar di atas. tambahkan kontrol timer sebanyak 5 buah
  4. Dan tambahkan label sebanyak 2 buah terus kasih nama LblAnim dan LblStatus seperti yang tampak pada gambar di atas.
  5. Berikut pengaturan ppropertinya
Atur properti dari Form Splash:
BorderStyle  = None
StartUpPosition  = CenterScreen
ShowInTaskbar = False
Atur properti Masing2 Timer :
Enable=True
Interval=1000
Kemudian buat koding berikut:
01Private Sub AnimateText()
02On Error Resume Next
03If LblAnim.Caption = "[-]" Then
04LblAnim.Caption = "[\]"
05ElseIf LblAnim.Caption = "[\]" Then
06LblAnim.Caption = "[|]"
07ElseIf LblAnim.Caption = "[|]" Then
08LblAnim.Caption = "[/]"
09ElseIf LblAnim.Caption = "[/]" Then
10LblAnim.Caption = "[-]"
11End If
12End Sub
Kemudian Untuk Koding Pada Timer1 :
1Private Sub Timer1_Timer()
2LblStatus.Caption = "Tunggu... Pemeriksaan File.."
3Timer1.Enabled = False
4Timer2.Enabled = True
5End Sub
Kemudian Koding Timer2 :
1Private Sub Timer2_Timer()
2LblStatus.Caption = "Tunggu... Periksa Database..."
3Timer2.Enabled = False
4Timer3.Enabled = True
5End Sub
Kemudian Koding Untuk Timer3 :
01Private Sub Timer3_Timer()
02Me.MousePointer = 11
03On Error GoTo Koneksidatabase
04'Call Buka
05LblStatus.Caption = "Koneksi Database Sukses..."
06Timer3.Enabled = False
07Timer4.Enabled = True
08Exit Sub
09Koneksidatabase:
10LblStatus.Caption = "Koneksi Gagal; Periksa Setting Database..."
11MsgBox "Koneksi Ke Database Gagal..." & vbCrLf & "" _
12& "Coba Periksa Settingan Database...", vbCritical, "Connection Database Error..."
13Set Splash = Nothing
14End
15End Sub
Kemudian Koding Untuk Timer4:
1Private Sub Timer4_Timer()
2Timer4.Interval = 10
3Timer4.Enabled = True
4LblStatus.Caption = "Exit..."
5Unload Me
6FormMenu.Show
7End Sub
Kemudian Koding Timer5:
1Private Sub Timer5_Timer()
2AnimateText
3end sub
Kalau sudah silahkan di Run.  Semoga bermanfaat. ..Jika mau source codenya silahkan download link di bawah ini.

 http://visualbasicx.wordpress.com/category/visual-basic-6/

Tidak ada komentar:

Posting Komentar