Das Wettringer Modellbauforum

Quellcode

'*************************************************
'
'
' Blinker (8-Kanal) mit Modusumschaltung und LCD
'
'
'*************************************************
' Verwendung des ULN2803A
' PortB.x -- ULN In --- ULN Out -- Kathode LED -- Anode LED --- 1k -- +12 oder +5 V.
' Taster an Pin 11 --- GND
'
' ***** Genutzter Microcontroller, Takt in Hz, Stacks & Framesize
$regfile = "attiny4313.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32

'***** Variable
Dim I As Byte                            	' Standard-Zählvariable
Dim Modus_nummer As Byte                 	' selbsterklärend
Dim Led_sequenz(8) As Word               	' 8 LED-Sequenzen à 16 Schaltzustände
Dim Impuls As Byte                       	' legt die Impulsdauer fest
Dim Sequenz As Byte                      	' Länge der Sequenz Werte 0 - 15 entsprechen 1 - 16 Sequenzbits
Dim Modustext As String * 16             	' LCD-Text
'*******************************
'*
'* Spielwiese 1
'*
'*******************************
Impuls = 150                             	' Impulsdauer in Millisekunden
Sequenz = 15                             	' s. o.
'*******************************
'*
'* Ende Spielwiese 1
'*
'*******************************
'
'***** Configs & Interrupts
' Portpin-Configs & Alias
Config Portb = Output
Led1 Alias Portb.0
Led2 Alias Portb.1
Led3 Alias Portb.2
Led4 Alias Portb.3
Led5 Alias Portb.4
Led6 Alias Portb.5
Led7 Alias Portb.6
Led8 Alias Portb.7

Config Portd.6 = Input                   	' Eingabeportpin bestimmen
Modus_plus Alias Pind.6                  	' Aufpassen:Nicht PORTD.6 sondern PIND.6 - wir fragen ja einen INput ab
Portd.6 = 1                              	' Pullupwiderstand einschalten

'**** LCD
Config Lcdpin = Pin , Db4 = Porta.1 , Db5 = Porta.0 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4
Config Lcd = 16x2

Deflcdchar 0 , 32 , 17 , 4 , 4 , 32 , 17 , 14 , 32   	' replace [x] with number (0-7)

Cls
Cursor Off Noblink
Lcd "Blinker by M&M " ; Chr(0)
Locate 2 , 1
Lcd "inaktiv"
Waitms 200

Do
   For I = 0 To Sequenz
  	Led1 = Led_sequenz(1).i
  	Led2 = Led_sequenz(2).i
  	Led3 = Led_sequenz(3).i
  	Led4 = Led_sequenz(4).i
  	Led5 = Led_sequenz(5).i
  	Led6 = Led_sequenz(6).i
  	Led7 = Led_sequenz(7).i
  	Led8 = Led_sequenz(8).i
  	Waitms Impuls
  	If Modus_plus = 0 Then
     	Incr Modus_nummer               	' addiert 1 auf Modus_nummer. Wir könnten auch schreiben: Modus_nummer = Modus_nummer + 1
     	Gosub Modusumschaltung
  	End If
   Next I
Loop
End


'*******************************
'*
'* Unterprogramm & Spielwiese 2
'*
'*******************************

Modusumschaltung:                        	' Name des Unterprogramms. Doppelpunkt nicht vergessen!

   Waitms 20                             	' Tastenprellung abwarten
   Bitwait Modus_plus , Set              	' Taster nicht mehr gedrückt?

   If Modus_nummer > 3 Then Modus_nummer = 0 ' Wir haben nur drei Modi
   I = 0                                 	' Sequenzbitzähler zurücksetzen

   Select Case Modus_nummer

  	Case 0:
     	Modustext = "inaktiv"
     	Led_sequenz(1) = &B0000000000000000 ' Alle Sequenzen aus; Led_sequenz(x) = 0 geht auch.
     	Led_sequenz(2) = &B0000000000000000
     	Led_sequenz(3) = &B0000000000000000
     	Led_sequenz(4) = &B0000000000000000
     	Led_sequenz(5) = &B0000000000000000
     	Led_sequenz(6) = &B0000000000000000
     	Led_sequenz(7) = &B0000000000000000
     	Led_sequenz(8) = &B0000000000000000

  	Case 1:
     	Modustext = "Modus 1"
     	Led_sequenz(1) = &B0000000000000000 ' Sequenzen für Led7 und 8
     	Led_sequenz(2) = &B0000000000000000
     	Led_sequenz(3) = &B0000000000000000
     	Led_sequenz(4) = &B0000000000000000
     	Led_sequenz(5) = &B0000000000000000
     	Led_sequenz(6) = &B0000000000000000
     	Led_sequenz(7) = &B1100110011001100
     	Led_sequenz(8) = &B0011001100110011

  	Case 2:
     	Modustext = "Modus 2"
     	Led_sequenz(1) = &B0000000000000000 ' Sequenzen für Led4 - 6
     	Led_sequenz(2) = &B0000000000000000
     	Led_sequenz(3) = &B0000000000000000
     	Led_sequenz(4) = &B1111000011110000
     	Led_sequenz(5) = &B0101000001010000
     	Led_sequenz(6) = &B0001010100010101
     	Led_sequenz(7) = &B0000000000000000
     	Led_sequenz(8) = &B0000000000000000

  	Case 3:
     	Modustext = "Modus 3"
     	Led_sequenz(1) = &B0000010100000101 ' Alle Sequenzen an
     	Led_sequenz(2) = &B0001010000101000
     	Led_sequenz(3) = &B0000111100001111
     	Led_sequenz(4) = &B1111000011110000
     	Led_sequenz(5) = &B0101000001010000
     	Led_sequenz(6) = &B0001010100010101
     	Led_sequenz(7) = &B1100110011001100
     	Led_sequenz(8) = &B0011001100110011

   End Select

   Locate 2 , 1
   Lcd Modustext
   Waitms 200

Return