Pada bagian ini, akan dijelaskan langkah-langkah yang dilakukan agar scanner dapat terhubungkan dengan sistem. Langkah pertama dalam inisialisasi ini adalah mendeklarasikan variabel untuk dapat disesuaikan dengan library yang sudah disediakan, seperti pada Segment Program 4.3.
Segment Program 4.3. Deklarasi Variabel Untuk Hardware
Dim WithEvents myDevices As FPDevices
Dim WithEvents dev1 As FPDevice
Dim sample As FPSample
Dim smpPro As FPRawSamplePro
Dim smp As FPRawSample
Dim x As AIErrors
Dim dc As Boolean
Setelah melakukan deklarasi variabel, langkah selanjutnya dapat dilihat
pada Segment Program 4.4.
Segment Program 4.4. Private Sub Form_Load
'Making of FPDevices object
Set myDevices = New FPDevices
'Device existence check
If myDevices.count = 0 Then
dc = False
MsgBox "No Device Detected"
Segment Program 4.4. Private Sub Form_Load (sambungan)
MsgBox "Please plug the Device"
Else
If myDevices.count = "1" Then
Set dev1 = myDevices.Item(1)
'Connect dev1 to myDevices
x = dev1.Subscribe(Dp_StdPriority, frmstrg.hWnd)
Conn = True
End If
End If
Pada Segment program 4.4, dapat terlihat bahwa proses inisialisasi scanner dimulai dengan pembuatan obyek baru dari komponen FPDevices.
Selanjutnya dilakukan pengecekan apabila scanner sudah terkoneksi pada sistem atau belum. Apabila scanner sudah terhubung dengan sistem, maka variabel dev1 akan diisi dengan scanner yang sudah terpasang tersebut. Setelah itu, dev1 haruslah di-subcribe-kan terhadap form yang bersangkutan. Hal ini dilakukan agar output dari scanner yang diterima oleh sistem sebagai input-an akan mempengaruhi form yang bersangkutan.
Artikel keren lainnya:
Belum ada tanggapan untuk "Inisialisasi Hardware"
Posting Komentar