Arkadaşlar Merhaba,
Access com port kontrolu yapmam gerekiyor
vb ile INPOUT32.DLL yapılmış örnek kodlar şu şekilde :
dll access nasıl kullanılacağıyla alakalı fazla deneyimim olmadığı için işin içinde çıkamadım
Access com port kontrolu yapmam gerekiyor
vb ile INPOUT32.DLL yapılmış örnek kodlar şu şekilde :
dll access nasıl kullanılacağıyla alakalı fazla deneyimim olmadığı için işin içinde çıkamadım
Kod:
Private Sub Command2_Click(Index As Integer)
If adres = 0 Then MsgBox "Lütfen PARALEL Port adresini girip ""Ayarla"" 'ya tıklayınız. Örnek:&h378", vbCritical + vbOKOnly, "Uyarı": Exit Sub
Select Case Command2(Index).Caption
Case "0"
led_yak (Index)
Command2(Index).Caption = "1"
Case "1"
led_sondur (Index)
Command2(Index).Caption = "0"
End Select
lbl_data = top_data
End Sub
Private Sub Command3_Click()
adres = Int(Val(txt_adres.Text))
End Sub
Private Sub Form_Load()
'adres = &H3BC
Out adres, 0
End Sub
Sub led_yak(pin_no As Integer)
led(pin_no).FillColor = &HFF&
top_data = 0
Select Case pin_no
Case 0
data(0) = 1
Case 1
data(1) = 2
Case 2
data(2) = 4
Case 3
data(3) = 8
Case 4
data(4) = 16
Case 5
data(5) = 32
Case 6
data(6) = 64
Case 7
data(7) = 128
End Select
For i = 0 To 7
top_data = top_data + data(i)
Next i
Out adres, top_data
End Sub
Sub led_sondur(pin_no As Integer)
led(pin_no).FillColor = &HC0C0C0
top_data = 0
data(pin_no) = 0
For i = 0 To 7
top_data = top_data + data(i)
Next i
Out adres, top_data
End Sub