Cara Mengecek Keberadaan Printer dan Sound Card dengan VB6

Program ini dapat digunakan untuk memastikan apakah Printer Anda dan Sound Card Anda sudah terinstal atau belum. Untuk mengetahui hal tersebut kita bisa membuat Aplikasinya dengan menggunakan VB6 hanya dengan menambah satu tombol commandbutton untuk mengeceknya. misalnya tombol "Cek Printer".

Di pertemuan kali saya hanya membahas tentang Cara Mengecek Keberadaan Printer dan Sound Card dengan VB6

A. Cek Printer

Berikut adalah proses pembuatan untuk mengecek keberadaan printer kita :

1. Buka Form VB6 Standar dan tambahkan 1 CommandButton
2. Kemudian Anda Double klik CommandButton1 dan tulis kode dibawah ini :

Private Sub Command1_Click()

If VB.Printers.Count <= 0 Then

MsgBox "Printer Belum terpasang!!"

Else

MsgBox "Printer Sudah Terpasang!!"

End If

End Sub

Cek Printer

B. Cek Sound Card

Seperti halnya cek Printer, untuk membuat cek Sound Card sama dengan cek Printer hanya dengan mengganti kode berikut pada Commannbutton1 :

Private Declare Function auxGetNumDevs% Lib "WINMM.DLL" ()

Private Sub Command2_Click()

Dim x As Integer

x = auxGetNumDevs()

If x > 0 Then

MsgBox "Sound Card Sudah Ada!!!"

Else

MsgBox "Sound Card Tidak Ada!!!"

End If

End Sub

Cek SoundCard

Demikian tips singkat dari Saya mudah-mudahan dengan adanya artikel ini bisa menambah wawasan kita terutama di dunia pemograman VB khususnya Vb6.

Semoga bermanfaat.

Related Post: Windows