Portb defekt?

Gast #56386
Lesenswert?

Hi,

Lang lang ist's her... .

3x IS471 Kollisionserkennung gebaut und am Robby montiert.
Die Digitalen Outputs sind über 1kohm An den 1. 3 Pins vom AVR
Gepinnt.

Da ich Portd schon als "OUTPUT" Definiert habe(BASCOM),
Habe ich Portb als "INPUT" Definiert (Config Portx = xxxput)
Den Portb liest bber nicht aus.
Ich habe das Beispiel aus "Programmieren der AVR RISC
Microcontroller mit BASCOM-AVR"
Das sieht dan so aus:

 If Portb.0 = 1 Then

'...

 End If

Was läuft falsch? Welchen Anfängerfehler habe ich gemacht?


Danke,

Tobi
Gast #56390
Lesenswert?

'002.BAS:   Auf Tastendruck LED einschalten
'Hardware:  Taster an PD2, LED an PD3
'---------------------------------------------------
$Regfile = "2313def.dat"  'AT90S2313-Deklarationen
DDRD = &B0001000      'Pin PD3 Ausgang, Rest Eingang
'PORTD = &B0000100    'PullUp von Pin PD2 aktivieren

Do
  If PIND.2 = 0 Then  'Wenn Taster (Pin PD2) gedrückt
    PORTD.3 = 1       'Rote LED (Pin PD3) an
  Else                'Wenn Taster nicht gedrückt
    PORTD.3 = 0       'Rote LED aus
  End If
Loop
End


also so muss es glaub ich heißen ist ein beispielprog von der seite
2313 +bascom aber ka welche des no gleich ist!

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren