Aşağıdaki kodlar tamamen Bana(Emrah Şimşek) aittir. & 90 çalışır. Bide bi kaç kez irinde havamolsun be :) hehehee
İlk önce 8 led diyotu paralel porta bağlıyoruz nasıl olcak derseniz :-)
paralel portların birer bacağı sırasıyla 2-3-4-5-6-7-8-9 nolu pinlere bağlanır. diğer bacakları ise 18 ile 25 arasınraki pinlerden birine yada teker teker bağlanır.
Daha sonra aşağıdaki kodu modüle yazıyoruz:
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)
Bundan sonraki koduda forma yapıştırıyoruz. Ama önce
adı led olan 8 buton oluşturulur.
kopyaladıktan sonra evete basarsak daha kolay olur. Yada 8 tane ayrı ayrı çizip adlarını led yapınız.
ve aşağıdaki kodu yapıştırın gitsin. :)
Private Sub led_Click(Index As Integer)
For i = 0 To 7
led(i).Caption = "Kapalı"
Next
On Local Error Resume Next
Select Case Index
Case 0: Out(888) = 1
Case 1: Out(888) = 2
Case 2: Out(888) = 4
Case 3: Out(888) = 6
Case 4: Out(888) = 16
Case 5: Out(888) = 32
Case 6: Out(888) = 64
Case 7: Out(888) = 128
End Select
led(Index).Caption = "Açık"
End Sub
Tıkladığınız butona ait olan led diyot yanacaktır.
Eğer hepsini kapatmak istersek bi buton koyup click olayına
out(888)=0
hepsini açmak için ise
out(888)=255
yazarız. Çalışması lazım ama çalışmazsa emrahsimsek_17@hotmail.com adresine e-mail atın oradn yardımcı olayım
NOT: Bazı bilgisayarlarda portlar kapanmıyor. Yani bütün ledler açık kalıyo nedeni pc deki anormallik. :)
Siz bunun mantığını anlarsanız hoplayan zıplayan kayan , yürüyen ışıklar bile yapabilirsiniz. şimdilik herkese Byes!