Problem mit simplen Anfängerprogramm

Gast #1090885
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
Gast #1090928
$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 schreiben

Eine eigene Frage? Dieser Thread ist über 17 Jahre alt. Stell sie in einem eigenen Thread – dort lesen mehr Leute mit, und sie wird öfter und schneller beantwortet.

Neuen Thread starten

Eine Lösung, Ergänzung oder Rückmeldung zu diesem Thread? Dann antworte hier.

Formatierung
  • [c]C-Code[/c]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] – Link zu einem Artikel
  • Verweis auf einen anderen Beitrag: Rechtsklick auf dessen Beitrags-ID (#8078628), „Adresse kopieren“, in den Text einfügen

Mehr zur Formatierung

Längeren Sourcecode als Anhang, nicht in den Text. JPG nur für Fotos und Scans; Zeichnungen und Screenshots als PNG oder GIF. Siehe Bildformate.

Schon registriert? Anmelden

Wird nicht angezeigt. Wir schicken dir einen Link; sobald du damit bestätigst, erscheint dein Beitrag.

Mit dem Abschicken legst du einen kostenlosen Account an und erkennst die Nutzungsbedingungen und die Datenschutzerklärung an.