' module yazılacaklar
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)
'Forma yazılacaklar :
'bunları yazmadan once formda iki buton ve iki tane de textbox
'oluşturmalısınız.
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
'text1 adres
'text2 gonderilecek değerleri yazmak icindir.
'command1 butonu ile girilen adresden bilgi okunur
'command2 butonu ile girlen adrese bilgi gonderilir
'paralel portunuzun adresi buyuk ihtimal 0378 dir. text1 e de bu şekilde
'yazınız.
İşinize Yaradıysa +REP
__________________
Paralel Port Kontrolu
Programlama0 Mesaj
●23 Görüntüleme
- ReadBull.net
- Programlama ve Yazılım
- Programlama
- Paralel Port Kontrolu