Moin,

@helimike0705
ja, dein Programm funzt bei mir auch super, vielen dank für deine Mühen. (nur das "Print A" verstehe ich nicht wofür ist das gut?) Ich denke ich werde es später auch so in meiner "lötstation" verwenden. Aber ich würde trotzdem gerne noch mein eigenes Programm zur Funktion bringen (zum lernen, nur so für mich) denn bei meinen nächsten Projekten will ich euch nicht immer wieder mit meinen Anfängerfragen nerven. Mich würde interessieren ob und welche Lehrmaterialen du verwendest um das Programmieren zu erlernen(bücher ect.)


@linux_80
ja, stimmt jetzt geht es auch aus, aber leider nicht wieder an, wenn ich die taste drücke. Irgentwo muss noch ein Fehler versteckt sein, ich kann ihn aber nicht finden



Code:
'--------------------------------------------------------------
$regfile = "attiny2313.dat"                                 '
$crystal = 1000000                                          'Quarz: 1,0 MHz


'******** Deklarationen ********
Dim A As Word
'******** Initialisierung ********
   Config Int0 = Falling                                    '
   Enable Int0
   Enable Interrupts
   On Int0 Taste0int

   Ddrb = &B11111111                                        ' port B als Ausgang
   Ddrd = &B0100000                                         ' pin D2 asl eingang
   Portd.2 = 1                                              ' interne pullup widerstände aktivieren

'******** Hauptprogramm ********

 Do
     If Pind.2 = 0 Then Portb = &B10000000
             Wait 1
             A = A + 1
                If A > 1800 Then
               Portb = &B00000000
               Else
               Portb = &B10000000
                If A > 1770 Then
                 Portb = &B11000000
             End If
             End If

Loop


'******** Unterprogramme ********
Taste0int:
      A = 1

End