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!