Akses port paralel pada VB


1. Ketik pada modul
‘Buat module dengan nama mdlPortIO

‘ — Begin —
Option Explicit

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)

‘ — end of module —

2. Ketik pada code form

‘misal kita ingin mengakses pin 1 pada port paralel (DB25)
private sub commandPin1_click()

out 888, 1 ‘888 adalah port address & 1 adalah pin
end sub

‘Nilai port
pin 1 = 1
pin 2 = 2
pin 3 = 4
pin 4 = 8
pin 5 = 16
pin 6 = 32
pin 7 = 64
pin 8 = 128

jika ingin menggabungkan antara port, gunakan perintah sbb:
out 888, 1 + 8

artinya kita akan menjalankan port 1 & 4 secara bersamaan

NOTE:
Fungsi IO_port membutuhkan inpOut32.dll (download dari internet ADA)
letakkan file tersebut pada folder tempat dari program

About

Flexter member

Posted in VB 6.0
8 comments on “Akses port paralel pada VB
  1. yoshi says:

    herr……gmana dah smbuh bloemm??? smangat yaaa sma VB 06

    oia itu bner ga sih data km tuh ntar aku bkin altna twwwwwwww ga jdi
    kan mahal belikomponennnya heeee

  2. Emill56 says:

    Silahkan bagi para Netters yang suka cari duit diinternet sambil chating, browsing, download2 klik disini.

  3. Kohimaru says:

    Bisa dicoba..silahkan.. itu adalah potongan script waktu dipakai buat bikin robo SPY Cam, pake CCTV

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: