Kendali Pararel Port pada Win XP / NT

Maret 2, 2011 at 11:16 am Tinggalkan komentar

file ini “copy-of-inpout32-dll.doc” didownload trs direname menjadi “inpout32.dll” soalnya dari wordpress ga boleh upload file .dll so aku rename dulu, demikianjuga kalau sudah download dikembalikan lagi.
sory buru2 besok dilanjut
Copy of inpout32.dll

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)

Private Sub Command1_Click()
Text2.Text = Str(Inp(Val(“&H” + Text1.Text)))
End Sub

Private Sub Command2_Click()
Out Val(“&H” + Text1.Text), Val(Text2.Text)
End Sub

Entry filed under: Automation, Scada. Tags: , , , , , , , .

Contoh Format PPT Seminar KP Tugas Kuliah Komdat Jarkom 16 Mei 2011

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Trackback this post  |  Subscribe to the comments via RSS Feed


Blog Stats

  • 12,733 hits

Kategori

Pos-pos Terbaru


%d blogger menyukai ini: