Tolong pilih kategori sesuai, jenis posting (diskusi atau bukan) dan sertakan tag/topik yang sesuai seperti komputer, java, php, mysql, dll. Promosi atau posting tidak pada tempatnya akan kami hapus!
- Bagi Anda yang ingin mendaftar, baca link berikut:
http://diskusiweb.com/discussion/50491/how-to-registrasi-diskusiweb-com-baca-ini-terlebih-dahulu
- Cara menyisipkan kode program supaya tampil rapi dan terformat dengan baik di diskusiweb.com: http://www.diskusiweb.com/discussion/50415/cara-menyisipkan-kode-program-di-diskusiweb-com
- Cara posting gambar/image di post Anda: http://www.diskusiweb.com/discussion/47345/cara-menyisipkan-menyertakan-image-pada-posting/p1

gmn Cara mengakses port paralel d vb dgn OS Xp??

OM2 yg ebat... sy bertanya, :cool:
gmn cara mengakses port paralel (378h) sebagai output menggunakan portio32.dll atau inpout32.dll ??
script deklarasi dan commandny gmn ??
sy sudah pernah menggunakan portio.dll hanya bisa jalan d windows98.... klo saya inginny d winXP gmn ya??
soalny win98 jadul bgt... :D hehehehheee

Comments

  • Originally posted by haraoks
    OM2 yg ebat... sy bertanya, :cool:
    gmn cara mengakses port paralel (378h) sebagai output menggunakan portio32.dll atau inpout32.dll ??
    script deklarasi dan commandny gmn ??
    sy sudah pernah menggunakan portio.dll hanya bisa jalan d windows98.... klo saya inginny d winXP gmn ya??
    soalny win98 jadul bgt... :D hehehehheee

    kok ga ada yg bantuw...... :(
  • Soryy yang terakhir itu

    port1 = Val(lbPortAdd)
    Out port1, 255 'seluruh Pin Out = ON
  • Ini bukan dari orang hebat, cuma kemarin aku pernah pake :
    caranya : IO.dll atau InpOut32.dll dicopykan ke folder system32.

    di Module ketikkan :

    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)


    di form :

    Dim DataIN As Byte
    Dim PortAdd As Integer


    port1 = Val(lbPortAdd)
    Out port1, 0 'Output = 0 atau Off


    port1 = Val(lbPortAdd)
    Out port1, 1 'Pin Out 2 = On


    port1 = Val(lbPortAdd)
    Out port1, 45 'Seluruh Pin Out = ON



    .....kira-kira begitulah, mas....silakan dicoba
  • @erta1976

    thanks berat ya akhirnya ada yg menjawab,...:D
    belum d tcoba si, tapi "i will" klo suskes dan bisa akan saya konfirmasikan dan tulis d sini, soalnya saya lagi buat rangkaiannya dulu.. ;)

    thanks bgt :)
  • Sy lanjutkan, ternyata untuk mengakses port paralel pada OS Xp harus melalui program tambahan yang bernama userport
    file ini dapat d download di sini http://www.brothersoft.com/userport-download-122645.html

    userport ini berfungsi untuk memberikan hak akses langsung k port yg anda masukan pada windows xp, seperti layaknya anda mengakses port pada win98,...

    selamat mencoba,... :P
Sign In or Register to comment.