Otopark Devresi

[yiitsyl]

 
Merhaba arkadaşlar ben 6 araçlık bir otopark devresi yapmak istiyorum. LCD ekranın üstünde "Hoşgeldiniz" altında ise içerideki araç sayısının yazmasını, araç sayısı 6 ya ulaşınca "Hoşgeldiniz" yazısı yerine "Otopark" dolu yazısı yazmasını istiyorum. Birde otopark boşken "BOŞ" yazan led, dolunca da "DOLU" yazan led yansın istiyorum. Sensör yerine isis devresinde buton var. Benim kaldığım nokta da burası butona basınca araç sayını arttıramıyorum başka kaynaklardan bakarak birşeyler yaptım ama olmadı. Yazdığım program şöyledir.

Device 16F877A
Xtal 4

TRISB=%00000011
TRISD=%00000000
TRISE=%00000000
PORTD=%11110011

Dim buton As PORTB.0
Dim say As Byte
say=0


ADCON1=%00000010

Declare LCD_DTPin PORTD.4
Declare LCD_ENPin PORTE.1
Declare LCD_RSPin PORTE.0
Declare LCD_RWPin PORTB.2
Declare LCD_Interface 4
Declare LCD_Lines 2



Print At 1,1,"  HOSGELDINIZ"
PORTD.2=1

BASLA:

If buton=0 Then
BUTONTEST:
If buton=0 Then GoTo BUTONTEST
say=say+1

EndIf

Select say

Case 1
 Print At 2,1,"ARAC SAYISI= 1"
Case 2
 Print At 2,1,"ARAC SAYISI= 2"
Case 3
 Print At 2,1,"ARAC SAYISI= 3"
Case 4
 Print At 2,1,"ARAC SAYISI= 4"
Case 5
 Print At 2,1,"ARAC SAYISI= 5"
Case 6
 Print At 2,1,"ARAC SAYISI= 6"
 Print At 1,1," OTOPARK DOLU"
 PORTD.2=0
 PORTD.3=1
 
EndSelect

GoTo BASLA

End

  Yardımcı olursanız çok memnun olurum. şimdiden Sağolun.

[Maxim]

isis dosyasını falan vermeniz lazımki test edelim
butonda bekleme olması lazım, zaten tuhaflık var
config satırı yok

[ferit06]

Ayrıca, programınız sadece girenlere bakıyor çıkanlar ile ilgilenmiyor.