Endlos-Blinken Befehl gesucht.

Prytek

Hallo alle zusammen.

Ich habe eine Frage:

Seit gestern Abend beschäftige ich mich mit Bascom, mithilfe des "schönen" Pollin Eval. Board.

Habe bisher auch alles soweit alleine geschafft und LEDs sowie Taster "zum laufen" gebracht.
Stecke also gerade voll im Lernprozess drinnen, aber ich finde etwas nicht im Netz, bzw es fehlen mir die Stichworte.

Ich möchte nach betätigen eines Tasters, einen Verbraucher, hier LED1, ein und aus schalten können.
Soweit hin bekommen.

Dann sollte mir anhand einer zweiten LED, hier LED2, angezeigt werden, das der Taster betätigt würde, anhand von dreimaliges aufblinken.
Funktioniert auch soweit.

Jetzt möchte ich die Funktion wie folgt ändern:

Wird der Taster betätigt um LED1 an zu schalten, blinkt die LED2 dreimal auf. (Ich denke das kann ich im Befehl so lassen, wie es grade ist.)
Dann, nach nochmaligem betätigen des Tasters, folgt das die LED1 aus geht, ABER LED2 soll nun dauerhaft blinken, Als Anzeige, anch dem Motto:

"Pass auf, dass ist jetzt aus!!"

Bis jetzt, blinkt die LED2 beim Ausschalten ebenfalls dreimal auf.

Frage:

Wie lautet der Befehl dazu, bzw, wie lauten die Google Stichworte??

Anbei der Code:

Code

$regfile = "2313def.dat"
$crystal = 4000000




Led1 Alias Portd.5
Config Led1 = Output


Led2 Alias Portd.6
Config Led2 = Output


Taster1 Alias Pind.2
Config Taster1 = Output




Dim Warten As Byte
Warten = 100
Dim Warten2 As Byte
Warten2 = 50






Do


   Debounce Taster1 , 0 , On_taster1 , Sub


Loop


End




On_taster1:


   If Led1 = 0 Then
  	Led1 = 1
  	Led2 = 1
  	Waitms Warten
  	Led2 = 0
  	Waitms Warten2
  	Led2 = 1
  	Waitms Warten
  	Led2 = 0
  	Waitms Warten2
  	Led2 = 1
  	Waitms Warten
  	Led2 = 0






  	Else
  	Led1 = 0
  	Led2 = 1
  	Waitms Warten
  	Led2 = 0
  	Waitms Warten2
  	Led2 = 1
  	Waitms Warten
  	Led2 = 0
  	Waitms Warten2
  	Led2 = 1
  	Waitms Warten
  	Led2 = 0








   End If
Return

Alles anzeigen

Danke schon mal für eure Hilfen!!

Gruß

Prying

Irrlicht

Hi Prying,

mach' das über 'nen Timer, statt per waitms.
Und das An/Aus mit dem Befehl "Toggle".

Sorry, gerade nicht mehr Zeit für längere Erklärungen.

Prytek

Reicht schon!! (hoffe ich^^)

Danke!

Edit 3:

Jetzt macht es was ich oben beschrieben habe!
Nur wie mache ich denn waitms "weg" und ersetze diese durch den Timer Befehl?

Code

$regfile = "2313def.dat"
$crystal = 4000000




Led1 Alias Portd.5
Config Led1 = Output


Led2 Alias Portd.6
Config Led2 = Output


Taster1 Alias Pind.2
Config Taster1 = Output


Dim Warten As Byte
Warten = 100
Dim Warten2 As Byte
Warten2 = 50




Config Timer1 = Timer , Prescale = 8




On Timer1 On_timer0_overflow
Enable Timer1


Enable Interrupts




Do


Debounce Taster1 , 0 , On_taster1 , Sub


Loop


End


On_taster1:


   If Led1 = 0 Then
   Led1 = 1
   Led2 = 1
   Waitms Warten
   Led2 = 0
   Waitms Warten2
   Led2 = 1
   Waitms Warten
   Led2 = 0
   Waitms Warten2
   Led2 = 1
   Waitms Warten
   Led2 = 0






   Else
   Led1 = 0




 End If


On_timer0_overflow:


   If Led1 = 0 Then
  	Toggle Led2
   Else
   	Led1 = 1


   	End If


	Return

Alles anzeigen

Irrlicht

Zitat von Prying

Nur wie mache ich denn waitms "weg" und ersetze diese durch den Timer Befehl?

Wenn Du 'nen regelmäßigen Timer-Interrupt hast, dann setzt Du statt Waitms einfach z.B. eine Byte-Variable.
Im Timer-Interrupt wird diese dekrementiert.
Wenn sie schließlich Null erreicht hat, dann den Portpin toggeln oder gezielt setzen/rücksetzen.

Prytek

Das muss ich erst mal kauen.

Alleine schon der Begriff dekrementieren, musste ich gerade googeln...

Hast du dafür ein Codebeispiel, wie das aussähe?

Also nur die auf den Befehl bezogenen Codes interessieren mich.

Weil so richtig, kann ich mir noch nicht vorstellen, wo ich das bzw. wie ich das bewerkstelligen soll!

Danke aber trotzdem für die Antwort!

Gruß

Prying