VB 6.0_Paralel port IO işlemleri

[NBATMAN]

Merhaba,

Paralel port konusu ile ilgili bilgiler webte oldukça fazla miktarda bulunmaktadır. Fakat bu iş PC (Vbasic) yazılımı ile birlikte mutlaka elektronik veya elektrik bilgisine de sahip olmak gerekir. Aksi takdirde bilgisayarın donanımına zarar verilmesi, hatta çöpe bile atılmasına neden olunabilir.

Ben yine giriş okuma ve çıkışa bilgi gönderme bilgilerini vereyim. Gerisi biraz araştırmaya ve dikkatli vede bilgili bir şekilde uygulamaya kalıyor.

Vb 6.0 için

projeye bir module ekleyin.Aşağıdaki kodları bu module içine yazın.

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)


Form1 kod bölümüne ise aşağıdaki kodları yazın. Aşağıdaki kodlar ile sırası ile D0,D1,D2 (2,3,4.pin) uçlarını aktif (1) yapabilirsiniz. Form load olayı ile istersiniz form aktif olurken çıkışları pasif edebilirsiniz. Yada bu işlemi bir pasif etme (sıfırlama) butonu oluşturarakta yapabilirsiniz...

Çıkışa bilgi gönderme;

Private Sub Command1_Click()
Dim çıkış As String
çıkış1 = 1
Out Val("&H" + "0378"), çıkış1 ' 2 nolu pin D0 ucu aktif 1 olur.
End Sub
Private Sub Command2_Click()
Dim çıkış As String
çıkış2 = 2
Out Val("&H" + "0378"), çıkış2 ' 3 nolu pin D1 ucu aktif 1 olur.
End Sub
Private Sub Command3_Click()
Dim çıkış As String
çıkış3 = 4
Out Val("&H" + "0378"), çıkış3 ' 4 nolu pin D2 ucu aktif 1 olur.
End Sub
Private Sub Form_Load()
Dim çıkışsıfırla As String
çıkışsıfırla = 0
Out Val("&H" + "0378"), çıkışsıfırla ' tüm çıkışlar pasif 0 olur.
End Sub

Girişten bilgi okuma;


Private Sub Command1_Click()
Dim girisler As Integer
girisler = Inp(&H379)
Text1.Text = girisler
End Sub

Girişten okuma için kurulacak devre ile butonlar yani girişler her aktif olduğunda yukarıdaki kodlardaki Text1.text değeri değişir. Bu değişim ile birlikte, giriş veya girişlerin aktif-pasif olması ile birlikte ne yapılmak isteniyorsa(yöntem olarak IF-Then-Else şart komutları yada case-select case kod mantığı kullanılarak) bir çıkış aktif edilebilir veya başka bir komut satırı işletecekse işletme işlemi sağlanabilir.

---