'mogol herkese kolaylıklar diler..
' modüle 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 önce 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 gönderilecek değerleri yazmak içindir.
'command1 butonu ile girilen adresden bilgi okunur
'command2 butonu ile girlen adrese bilgi gönderilir
'paralel portunuzun adresi büyük ihtimal 0378 dir. text1 e de bu şekilde
'yazınız.