Problem mit simplen Anfängerprogramm

Hewlett Gast #1090885
Lesenswert?
• ▲
▼ 
Ich schäme mich fast das hier zu posten, aber ich komm nicht weiter...

Ich habe einen Attiny13 und versuche mit dem Programm "BASCOM-AVR" eine 
einfache Schaltung zu Programmieren:

Spannung an Pin4 anlegen --> Ausgang an Pin3 wird freigegeben (LED 
leuchtet)

$regfile = "attiny13.dat"
$crystal = 1200000
Config Portb.3 = Output
Config Portb.4 = Input

Dim X As Byte

Do

X = Portb.4
If X = 1 Then
  Portb.3 = 1
Else
  Portb.3 = 0
End If

Loop

Irgend einen Bock hab ich drin. Kann mir jemand weiterhelfen?

End
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden
Hübi Gast #1090928
Lesenswert?
• ▲
▼ 
$regfile = "attiny13.dat"
$crystal = 1200000
Config Portb.3 = Output
Config Portb.4 = Input

x alias pind.4  'beim lesen immer PIN anstelle PORT verwenden

Do

If X = 1 Then
  Portb.3 = 1
Else
  Portb.3 = 0
End If
Loop
end
Antwort Zitieren Bearbeiten Löschen Beitrag melden
Thread beobachten

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

Bestehender Account

oder

Mit Google-Account einloggen

Noch kein Account?

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren