[BASCOM] ATMEGA162 Wariujące przyciski...

[Wojtas111]

Witam, mam problem, mianowicie procesor jest w gotowym układzie AVT-3505 i mam podejrzenia ze może być uszkodzony(?). Przy tym programie, który powinien zmienną L zwiększać o jeden po każdym naciśnięciu przycisku, dochodzi do dziwnego zjawiska bo tuż po włączeniu układu na LCD widać że zwiększa się zmienna L choć przycisk nie jest wciśnięty. Dzieje się tak w każdym programie z użyciem przycisków więc chyba jest to
wina procka ?

PS Jestem nowy w te klocki więc proszę mi wybaczyć jeśli jest to jakaś banalna sprawa...

Kod: Zaznacz cały

 
$regfile = "m162def.dat"
  $crystal = 6000000

Config Portd = Output
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Pinb.2 = Input
Config Pinb.3 = Input
Config Pinb.4 = Output
Config Pinb.5 = Output
Config Pinb.6 = Output
Config Pinb.7 = Output
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portd.4 , Rs = Portd.2       
Cursor Off Noblink
Cls
Lcd "RESET"
Wait 1
Cls

Dim L As Byte
L = 0
Do
If Pinb.0 = 1 Then
Incr L
Cls
Lcd L
Wait 1
End If
Loop

[tom5555]

Prawdopodobnie przycisk masz włączony między masę a pin procka. Wtedy warunek powinien wyglądać tak:

Kod: Zaznacz cały

IF PinB.0 = 0 then

Przydało by się też włączyć wewnętrzny pull-up dla tego wejścia.

[Wojtas111]

Zmieniłem trochę program tak aby korzystał z wbudowanych w układ przycisków i ten warunek. Lecz teraz przycisk tak jakby działa tzn. kiedy go wcisnę to L jest zmieniana o jeden i przez chwile po puszczeniu przycisku jest ok lecz po kilku sekundach nalicza sie kilka razy i znów przestaje i tak w kółko... Czy pull-up'a da się wstawić programowo? w tej chwili nie mam dostępu do części...

Kod: Zaznacz cały

$regfile = "m162def.dat"
  $crystal = 6000000

Config Portd = Output
Config Porte.0 = Input
Config Pinb.4 = Output
Config Pinb.5 = Output
Config Pinb.6 = Output
Config Pinb.7 = Output
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portd.4 , Rs = Portd.2
Cursor Off Noblink
Cls
Lcd "RESET"
Wait 1
Cls

Dim L As Byte
L = 0
Do
If Pine.0 = 0 Then
Waitms 25
If Pine.0 = 0 Then
Incr L
Cls
Lcd L
Wait 1
End If
End If
Loop

[kaliska5]

Rezystory pull-up to wewnętrzne rezystory aktywujesz je przez wpisanie do rejestru PORTx logicznego 1.

[snow]

Możesz też wykorzystać wejście INTx które ustawiasz na wybrane zbocze i wtedy tylko to zbocze wyzwala przerwanie.

[Wojtas111]

OK, jakoś udało mi się to rozkminić dzięki waszej pomocy