1 / 10

Pengaksesan Port Parallel Dengan VB

Pengaksesan Port Parallel Dengan VB.

jacob-byers
Télécharger la présentation

Pengaksesan Port Parallel Dengan VB

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Pengaksesan Port Parallel Dengan VB

  2. Sebelum melangkah lebih jauh, kita harus melihat dulu beberapa keterbatasan dalam VB. Karena VB tidak bisa mengakses hardware secara langsung dalam system operasi windows, maka semua permintaan pengaksesan hardware harus melalui windows.Oleh karena itu harus menggunakan program eksternal untuk melakukan pengaksesan hardware secara langsung pada program. Program tersebut berupa file DLL (Dynamic Link Library).

  3. File DLL ini harus diletakkan (di copy-kan) ke direktori / folder “ //windows/system “ atau diikutkan dalam satu folder program yang kita buat. • File DLL yang akan digunakan nanti adalah "inpout32.dll“ Sebelum kita menggunakan fungsi – fungsi yang ada dalam file DLL ini terlebih dahulu harus di deklarasikan di VB kedalam module. 

  4. Cara mendeklarasikannya adalah :  • Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer • Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal   Value As Integer) 

  5. Jika file DLL tersebut  telah dideklarasikan seperti diatas, maka fungsi Out (untuk mengeluarkan data) dan Inp (untuk membaca data) siap digunakan pada VB. Untuk mengirim data pada port parallel, digunakan fungsi Out.

  6. Sintak penulisannya adalah sebagai berikut :  • Out [Alamat Port], [Nilai] • Perintah diatas membutuhkan dua parameter, yaitu alamat port dan nilai data yang dikirimkan pada port tersebut.Karena tiap port hanya 8 jalur data, maka hanya bisa mengirim nilai maksimum = 255 (FFh/11111111b) ke port yang diinginkan.

  7. Contoh berikut mengilustrasikan cara men-set bit ke port parallel  • Out &H378, 1 • Men-set bit 0 pada port parallel (alamat 378h) ‘1 = 0000 0001b • Out &H378, 2 • Men-set bit 1 pada port parallel (alamat 378h)                                  ‘2 = 0000 0010b • Out &H378, 4 • Men-set bit 2 pada port parallel (alamat 378h)                                ‘4 = 0000 0100b • Out &H378, 8 • Men-set bit 4 pada port parallel (alamat 378h)                                 ‘8 = 0000 1000b

  8. Untuk men-set bit lebih dari satu bit • Out &H378, 7 à Men-set bit 0,1,2 pada port parallel (alamat                                             378h)      ‘7 = 0000 0111b

  9. Setiap kita menset bit dengan cara diatas maka keadaan bit yang lainnya akan terhapus, untuk mengatasi hal ini akan diselesaikan dengan bantuan perintah Inp

  10. Cara membaca data dari port parallel, sintak penulisannya adalah sebagai berikut : • Text1.Text = Inp(&H378) [Variabel Simpan] = Inp [Alamat Port]

More Related