Membuat Program Tes Aplikasi Buta Warna dengan VB 6.0

Membuat Program Tes Aplikasi Buta Warna dengan VB 6.0

Diposkan oleh tonie

wahhhhh....kamu sangat beruntung hari ini !! saya akan bagikan source code, bagaimana membuat aplikasi tes buta warna dengan menggunakan bahasa pemrogram Visual Basic 6.0
Jarang-jarang loh ada yang mau bagi-bagikan aplikasi yang lengkap dengan source code nya...dan kamu juga bisa merubah-ubah tampilan dan bentuk ekspresi logikanya sesuai dengan kebutuhan kamu.
Tetapi sebelumnya kamu harus menginstal  VBSKINER sebagai pengganti skin default bawaan visual basic 6.0, kamu bisa download disini
Aplikasi ini terdiri dari 8 form dan 1 module dan untuk administrator username="ADMIN" dan password "ADMIN", nih berikut tampilan dan source codenya :
Pertama-tama aktifkan componen di visual basic 6.0, yaitu :

1. VB skinner
2. Microsoft ADO Data Control 6.0
3. Microsoft Common Dialog 6.0
4. Microsoft Datagrid 6.0
5. Microsoft Windows Common Control-2 6.0

Module

Public db As New ADODB.Connection
Public rs As New ADODB.Recordset

Sub koneksi()
    Set db = New ADODB.Connection
    Set rs = New ADODB.Recordset
    db.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & App.Path & "\database\ishihara.Mdb"
End Sub

Form Menu Utama (download source code)
Tombol register	= cmdreg
Tombol tes	= cmdtes
Tombol Login	= cmdhasil
Tombol About me	= cmdabout
Tombol Keluar	= cmdexit
Box Username	= nama
Box password	= pass

Form Register (download source code)
Label tanggal	= tgl
Label register	= nomor
Tombol Tambah	= cmdtambah
Tombol Simpan	= cmdsimpan
DTpicker lahir	= lahir
Text nama	= nama
Text alamat	= alamat
Text pekerjaan	= kerja
Tombol Keluar	= cmdkeluar

Form Administrator (download source code)
Text Kode Petugas	= kode
Text nama	= nama
Text jabatan	= jabatan
Tombol tambah	= cmdtambah
Tombol Simpan	= cmdsimpan
Tombol keluar	= cmdkeluar

Form Mode (download source code)
Combo Petugas	= cmbpetugas
Text nomor	= norepasien
Tombol Proses	= cmdproses
Tombol Batal	= cmdkeluar

Form Tanya (download source code)
Text Nomor	= noreg
Tombol Ok	= cmdok
Tombol Batal	= cmdkeluar

Form Tes Buta Warna (download source code)
Text tanggal	= tgl
Text no register	= noreg
Text petugas	= petugas
text pasien	= pasien
Image gambar	= gambar
Label pertanyaan	= tanya
Tombol ya	= cmdya
Tombol tidak	= cmdtdk
text jawab	= jawab
Tombol cek	= cmdcek

Form Hasil Tes (download source code)
Semua label	= urutkan semua
Tombol cetak	= cmdcetak
Tombol keluar	= cmdkeluar
Tombol Batal	= cmdkeluar

Kalau kesusahan membentuknya kamu bisa download aplikasi lengkapnya disini.
Selamat Mencoba yah !!

Sumber : http://tonie-di.blogspot.com/2011/11/membuat-program-tes-aplikasi-buta-warna.html

• Mempercepat koneksi internet dengan gpedit. Secara default, Windows menyisakan 20% dari total bandwith yang tersedia untuk update sistem operasi dan QoS. Ini membuat kita "hanya" memakai 80% dari total bandwith yang tersedia. Walau Microsoft menjelaskan bahwa Limit Reservable Bandwidth itu tidak mengganggu bandwith real, namun setiap kita menyalakan komputer, maka bandwith kita akan mengakses update microsoft untuk mencari patch atau update terbaru, yang jelas menyedot bandwith kita. Untuk menghilangkan Limit Reservable Bandwidth, maka kita bisa merubahnya lewat :

Start -> Run -> ketik gpedit.msc -> Local Computer Policy -> Computer Configuration -> Administrative Templates -> Network -> QOS Packet Scheduler -> Limit Reservable Bandwidth -> Pilih Disable.

• Mempercepat koneksi internet dengan DNS cache. DNS Cache adalah menyimpan histori atau cache dari situs yang pernah kita kunjungi, sehingga saat kita membukanya kembali tidak lagi mendownload dari internet, tapi dari internal komputer kita yang tentunya akan lebih mempercepat browsing. Untuk mengaktifkan DNS Cache, maka salinlah kode berikut di notepad dan simpan file tersebut dengan nama bebas seperti dnscache.reg kemudian jalankan :

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Dnscache\Parameters]
"CacheHashTableBucketSize"=dword:00000001
"CacheHashTableSize"=dword:00000180
"MaxCacheEntryTtlLimit"=dword:0000fa00
"MaxSOACacheEntryTtlLimit"=dword:0000012d

• Menggunakan DNS yang cepat. DNS yang baik serta tidak down mampu menentukan kecepatan koneksi internet anda. Anda bisa mencoba beberapa DNS yang bisa dipakai. Pilihlah DNS yang paling dekat dari lokasi anda adalah salah satu trik untuk mempercepat koneksi. Berikut ini beberapa daftar DNS yang bisa anda pakai.

FREE Public DNS Server
Google DNS Server
8.8.8.8
8.8.4.4

ScrubIt Public dns server
67.138.54.100
207.225.209.66

Dnsadvantage dns server:156.154.70.1
156.154.71.1

OpenDNS free dns server:208.67.222.222
208.67.220.220

Speedy Telkom DNS Server :
202.134.0.155
203.130.196.5
202.134.1.10
203.130.208.18
203.130.206.250
202.134.1.5
203.130.206.250
203.130.193.74
202.134.0.155
222.124.204.34
202.134.1.10
203.130.209.242
61.94.192.12

Itulah beberapa tips dan trik mempercepat koneksi Internet yang bisa anda coba. Sebenarnya masih banyak Cara Mempercepat Koneksi Internet, seperti memakai plugins atau addons untuk browser, menggunakan ip proxy dan sebagainya. Semoga bermanfaat.

Sumber : Cara Mempercepat Koneksi Internet http://www.poztmo.com/2011/11/mempercepat-koneksi-internet.html#ixzz1gkt89LuE

  
 

Form notifikasi / pemberitahuan adalah form yang digunakan untuk memberitahukan informasi tertentu. Form ini akan muncul secara slide di bagian kanan bawah layar.
Contoh aplikasi yang menggunakannya adalah aplikasi antivirus SMADAV, yang akan memunculkan form notifikasi ketika mendeteksi sebuah flash drive baru.
Download contoh source code-nya disini.

  

Kontrol ListView sering digunakan sebagai alternatif selain kontrol DataGrid, bilamana suatu data ingin ditampilkan secara readonly serta terlihat lebih simpel dan rapi.
Download source code-nya disini.

Sembari menanti melanjutkan kuliah, lagi gak ada kerjaan dan udah lama mengkoding. Saya kali mau share cara membuat penghitung lama komputer, yang jelas menggunakan Visual Basic. Nah ini caranya :

• Pada Form Masukkan Timer

• Tambahkan enam Label susun seperti gambar berikut:

• Klik dua kali Timer, Masukkan Kode Berikut Pada Timer

view source

print?

01	If Val(detik) <= 9 Then

02	detik = Val(detik) + 1

03	detik = "0" & detik

04

Else

05	detik = Val(detik) + 1

06

End If

07

08	If Val(detik) > 59 Then

09	detik = "00"

10	menit = Val(menit) + 1

11

12	If Val(menit) <= 9 Then

13	menit = "0" & menit

14

Else

15

End If

16

17

End If

18

19	If Val(menit) > 59 Then

20	menit = "00"

21	jam = Val(jam) + 1

22	If Val(jam) < 9 Then

23	jam = "0" & jam

24

Else

25

End If

26

End If

Udah Begitu Saja!!!...
Jalankan exe pada startup.
Klo gak mau ribet silahkan download disini.

Gimana Bisa???...

Kali ini saya akan memberikan tips membuat quick access toolbar yaitu icon kecil dekat tombol ribbon, seperti dibawah ini.

Icon disamping itulah yang nantinya kita buat. disini kita akan membuat tiga icon New, Copy, dan Print caranya sebagai berikut.

1. Pertama buat konstanta

view source

print?

1	Public Const ID_FILE_NEW = 4001

2	Public Const ID_EDIT_COPY = 4002

3	Public Const ID_FILE_PRINT = 4003

2. Masukkan Script Quick Access Toolbar berikut.

1	RibbonBar.QuickAccessControls.Add xtpControlButton, ID_FILE_NEW, "&New"

2	RibbonBar.QuickAccessControls.Add xtpControlButton, ID_EDIT_COPY, "&Copy"

3	RibbonBar.QuickAccessControls.Add xtpControlButton, ID_FILE_PRINT, "&Print"

Gampang bukan!...Silahkan Mencoba!

Sumber : http://djuliar.blogspot.com/2011/10/quick-acces-toolbar-codejock.html#more

Mungkin ini masalah yang banyak di alami oleh beberapa programmer yaitu sulitnya membuat laporan atau report terhadap sebuah data. Pada kesempatan kali ini saya akan memberikan cara membuat laporan dengan mudah dan dengan interface yang menarik, selain itu, kita dapat memilih orientation dari kertas yaitu bisa Portrait dan Landscape dengan beberapa coding pemanggil database untuk menampilkan datanya, mari kita mulai, tapi sebelum itu berikut tampilan hasil dari Print Preview laporan dengan Report Control Codejock :

Komponen Yang Dibutuhkan :

1. Xtreme CommandBar ActiveX Control
2. Xtreme Report ActiveX Control

Siapkan satu database dan tabel misalkan seperti berikut :



Selanjutnya buat form baru dan koneksikan dengan database anda misalkan menggunakan database access. koneksi tidak akan dibahas disini, untuk lebih jelasnya masalah koneksi database bisa searching di google dan tambahkan komponen CommandBars dan Report Control pada Component Visual Basic :

sehingga meghasilkan component berikut di toolbox :



Selanjutnya masukkan satu CommandBars, satu Report Control, satu PrintPreview, susun komponen berikut pada form seperti gambar dibawah ini :

Selanjutnya mari kita berkoding,
Pertama, memanggil datanya terlebih dahulu, disini saya menggunakan ADODB, scirpt SQL bebas diubah sesuai kebutuhan, kita pakai script berikut :

01	Option Explicit

02	Dim Rs As ADODB.Recordset

03

04	Private Sub TampilData()

05	Set Rs = New ADODB.Recordset

06	Rs.CursorType = adOpenStatic

07	Rs.CursorLocation = adUseClient

08	Rs.Open "SELECT kodeBuku, judul, ISBN, pengarang, penerbit, " _

09	& "kategori, rak, jmlHalaman, tahun, tglMasuk, harga, qty " _

10	& "FROM Buku ORDER BY kodeBuku", Conn, adOpenDynamic, adLockOptimistic

11	Set ReportControl.DataManager.DataSource = Rs

12

13	ReportControl.DataManager.DataBind

14	ReportControl.PaintManager.HeaderRowsDividerStyle = xtpReportFixedRowsDividerThin

15	ReportControl.HeaderRecords.DeleteAll

16	ReportControl.PopulateHeaderRows

17

18	With Me.ReportControl

19	.PaintManager.DrawGridForEmptySpace = True

20	.PaintManager.HorizontalGridStyle = xtpGridSolid

21	.PaintManager.VerticalGridStyle = xtpGridSolid

22

.Populate

23

End With

24

End Sub

Kedua, kita buat report control kita rapi dan memberi header laporan dengan nama instansi kita, berikut scriptnya :

01	Private Sub FormatGrid()

02	ReportControl.Columns(0).Width = 150

03	ReportControl.Columns(0).Caption = "Kode Buku"

04	ReportControl.Columns(1).Width = 400

05	ReportControl.Columns(1).Caption = "Judul"

06	ReportControl.Columns(2).Width = 225

07	ReportControl.Columns(2).Caption = "ISBN"

08	ReportControl.Columns(3).Width = 200

09	ReportControl.Columns(3).Caption = "Pengarang"

10	ReportControl.Columns(4).Width = 150

11	ReportControl.Columns(4).Caption = "Penerbit"

12	ReportControl.Columns(5).Width = 150

13	ReportControl.Columns(5).Caption = "Kategori"

14	ReportControl.Columns(6).Width = 150

15	ReportControl.Columns(6).Caption = "Rak"

16	ReportControl.Columns(7).Width = 200

17	ReportControl.Columns(7).Caption = "Jumlah Halaman"

18	ReportControl.Columns(8).Width = 150

19	ReportControl.Columns(8).Caption = "Tahun"

20	ReportControl.Columns(9).Width = 175

21	ReportControl.Columns(9).Caption = "Tanggal Masuk"

22	ReportControl.Columns(10).Width = 100

23	ReportControl.Columns(10).Caption = "Harga"

24	ReportControl.Columns(11).Width = 100

25	ReportControl.Columns(11).Caption = "Banyak"

26

27	With Me.ReportControl.PrintOptions

28	.Landscape = True

29	.Header.FormatString = "Nama" & vbCr & "Alamat" & vbCr & "Telepon"

30	.Header.Font.Bold = True

31	.Header.Font.Size = 10

32	.Footer.FormatString = "Tanggal Cetak : &D" & vbCr & "Halaman &p/&P"

33

End With

34

End Sub

Ketiga, Pada Form_Load Tambahkan Script berikut agar kita bisa menggunakan ShortCut Ctrl+P untuk preview laporannya, untuk sementara Print Preview di visible = False, berikut script di Form_Load :

1	Private Sub Form_Load()

2	Me.PrintPreview.Visible = False

3	Me.CommandBars.KeyBindings.Add 8, vbKeyP, 100

4	Me.Caption = "Preview Data Buku (Press Ctrl+P for Print Preview)"

5

6	AmbilKoneksi

7	TampilData

8	FormatGrid

9

End Sub

Keempat, Tambahkan script berikut agar data di Report Control masuk ke Print Preview :

1	Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)

2	Select Case Control.Id

3

Case 100

4	Set Me.PrintPreview.PrintView = Me.ReportControl.CreatePrintView

5

6	Me.ReportControl.Visible = False

7	Me.PrintPreview.Visible = True

8	End Select

9

End Sub

Kelima, Agar besar ukuran laporan bisa berubah sesuai besar kecilnya form beri script berikut :

1	Private Sub Form_Resize()

2	With Me.PrintPreview

3	.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight

4

End With

5

6	With Me.ReportControl

7	.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight

8

End With

9

End Sub

Keenam, dan yang terakhir kita beri Action pada tombol Print dan tombol close yang berada pada Print Preview :

1	Private Sub PrintPreview_CloseClick()

2	Me.ReportControl.Visible = True

3	Me.PrintPreview.Visible = False

4

End Sub

5

6	Private Sub PrintPreview_PrintClick()

7	PrintPreview.ShowPrintDialog

8	PrintPreview_CloseClick

9

End Sub

Mudah Bukan!....Selamat Mencoba!!!
Semoga cara ini memberi kemudahan bagi yang lagi pusing membuat laporan.
Yang membutuhkan file project download-nya silahkan. saya belajar dari file ini.

Mungkin ini masalah yang banyak di alami oleh beberapa programmer yaitu sulitnya membuat laporan atau report terhadap sebuah data. Pada kesempatan kali ini saya akan memberikan cara membuat laporan dengan mudah dan dengan interface yang menarik, selain itu, kita dapat memilih orientation dari kertas yaitu bisa Portrait dan Landscape dengan beberapa coding pemanggil database untuk menampilkan datanya, mari kita mulai, tapi sebelum itu berikut tampilan hasil dari Print Preview laporan dengan Report Control Codejock :

Komponen Yang Dibutuhkan :

1. Xtreme CommandBar ActiveX Control
2. Xtreme Report ActiveX Control

Siapkan satu database dan tabel misalkan seperti berikut :



Selanjutnya buat form baru dan koneksikan dengan database anda misalkan menggunakan database access. koneksi tidak akan dibahas disini, untuk lebih jelasnya masalah koneksi database bisa searching di google dan tambahkan komponen CommandBars dan Report Control pada Component Visual Basic :

sehingga meghasilkan component berikut di toolbox :



Selanjutnya masukkan satu CommandBars, satu Report Control, satu PrintPreview, susun komponen berikut pada form seperti gambar dibawah ini :

Selanjutnya mari kita berkoding,
Pertama, memanggil datanya terlebih dahulu, disini saya menggunakan ADODB, scirpt SQL bebas diubah sesuai kebutuhan, kita pakai script berikut :

01	Option Explicit

02	Dim Rs As ADODB.Recordset

03

04	Private Sub TampilData()

05	Set Rs = New ADODB.Recordset

06	Rs.CursorType = adOpenStatic

07	Rs.CursorLocation = adUseClient

08	Rs.Open "SELECT kodeBuku, judul, ISBN, pengarang, penerbit, " _

09	& "kategori, rak, jmlHalaman, tahun, tglMasuk, harga, qty " _

10	& "FROM Buku ORDER BY kodeBuku", Conn, adOpenDynamic, adLockOptimistic

11	Set ReportControl.DataManager.DataSource = Rs

12

13	ReportControl.DataManager.DataBind

14	ReportControl.PaintManager.HeaderRowsDividerStyle = xtpReportFixedRowsDividerThin

15	ReportControl.HeaderRecords.DeleteAll

16	ReportControl.PopulateHeaderRows

17

18	With Me.ReportControl

19	.PaintManager.DrawGridForEmptySpace = True

20	.PaintManager.HorizontalGridStyle = xtpGridSolid

21	.PaintManager.VerticalGridStyle = xtpGridSolid

22

.Populate

23

End With

24

End Sub

Kedua, kita buat report control kita rapi dan memberi header laporan dengan nama instansi kita, berikut scriptnya :

01	Private Sub FormatGrid()

02	ReportControl.Columns(0).Width = 150

03	ReportControl.Columns(0).Caption = "Kode Buku"

04	ReportControl.Columns(1).Width = 400

05	ReportControl.Columns(1).Caption = "Judul"

06	ReportControl.Columns(2).Width = 225

07	ReportControl.Columns(2).Caption = "ISBN"

08	ReportControl.Columns(3).Width = 200

09	ReportControl.Columns(3).Caption = "Pengarang"

10	ReportControl.Columns(4).Width = 150

11	ReportControl.Columns(4).Caption = "Penerbit"

12	ReportControl.Columns(5).Width = 150

13	ReportControl.Columns(5).Caption = "Kategori"

14	ReportControl.Columns(6).Width = 150

15	ReportControl.Columns(6).Caption = "Rak"

16	ReportControl.Columns(7).Width = 200

17	ReportControl.Columns(7).Caption = "Jumlah Halaman"

18	ReportControl.Columns(8).Width = 150

19	ReportControl.Columns(8).Caption = "Tahun"

20	ReportControl.Columns(9).Width = 175

21	ReportControl.Columns(9).Caption = "Tanggal Masuk"

22	ReportControl.Columns(10).Width = 100

23	ReportControl.Columns(10).Caption = "Harga"

24	ReportControl.Columns(11).Width = 100

25	ReportControl.Columns(11).Caption = "Banyak"

26

27	With Me.ReportControl.PrintOptions

28	.Landscape = True

29	.Header.FormatString = "Nama" & vbCr & "Alamat" & vbCr & "Telepon"

30	.Header.Font.Bold = True

31	.Header.Font.Size = 10

32	.Footer.FormatString = "Tanggal Cetak : &D" & vbCr & "Halaman &p/&P"

33

End With

34

End Sub

Ketiga, Pada Form_Load Tambahkan Script berikut agar kita bisa menggunakan ShortCut Ctrl+P untuk preview laporannya, untuk sementara Print Preview di visible = False, berikut script di Form_Load :

1	Private Sub Form_Load()

2	Me.PrintPreview.Visible = False

3	Me.CommandBars.KeyBindings.Add 8, vbKeyP, 100

4	Me.Caption = "Preview Data Buku (Press Ctrl+P for Print Preview)"

5

6	AmbilKoneksi

7	TampilData

8	FormatGrid

9

End Sub

Keempat, Tambahkan script berikut agar data di Report Control masuk ke Print Preview :

1	Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)

2	Select Case Control.Id

3

Case 100

4	Set Me.PrintPreview.PrintView = Me.ReportControl.CreatePrintView

5

6	Me.ReportControl.Visible = False

7	Me.PrintPreview.Visible = True

8	End Select

9

End Sub

Kelima, Agar besar ukuran laporan bisa berubah sesuai besar kecilnya form beri script berikut :

1	Private Sub Form_Resize()

2	With Me.PrintPreview

3	.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight

4

End With

5

6	With Me.ReportControl

7	.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight

8

End With

9

End Sub

Keenam, dan yang terakhir kita beri Action pada tombol Print dan tombol close yang berada pada Print Preview :

1	Private Sub PrintPreview_CloseClick()

2	Me.ReportControl.Visible = True

3	Me.PrintPreview.Visible = False

4

End Sub

5

6	Private Sub PrintPreview_PrintClick()

7	PrintPreview.ShowPrintDialog

8	PrintPreview_CloseClick

9

End Sub

Mudah Bukan!....Selamat Mencoba!!!
Semoga cara ini memberi kemudahan bagi yang lagi pusing membuat laporan.
Yang membutuhkan file project download-nya silahkan. saya belajar dari file ini.