Wappen oder Zahl                

von  Holger Fritzsch                                     
      
Elektronik-Labor  Projekte  AVR  Sparrow  Contest          



Der µSparrow, mit der R3-Hardware programmiert 

Das Programm heißt "Wappen oder Zahl bzw. Ja oder Nein ". Geht es um eine Entscheidung "ja / nein" tut man sich manchmal schwer. Nun kann man es an den Hemdenknöpfen abzählen oder seinen Sparrow entsprechend programmieren. Darum Taste S1 betätigen und wieder loslassen. Der Zähler rennt immer von 0 bis 255 und es geschieht immer eine Abfrage auf "1 oder 2", mit der dazu entsprechende Ausgabe. Diese Funktion erscheint besser als die vom  RND- Befehl erzeugten Zufalls-zahlen. Diese sind ja in ihrer Abfolge immer gleich, da sie vom  Programm generiert werden.
                                                  
Led1 / grün --> Wappen oder Ja                                                
Led2 / rot  -->  Zahl  oder Nein       
                                      
Es ist die moderne Form des Münze- Werfens.Die Chance liegt genau bei 50%, Manipulation ausgeschlossen. Für die Folgen der Entscheidung wird keine Garatie übernommen.                                                                                                       


Download:  Wappen_Zahl.zip
Direkt laden: http://tiny.systems/categorie/cheepit/WappenoderZahl.html

'******************************************************************************'
'*                                                                            *'
'*                 Wappen oder Zahl bzw. Ja oder Nein                         *'
'*                                                                            *'
'******************************************************************************'
'* Geht es um eine Entscheidung ja / nein  tut man sich manchmal schwer       *'
'* Darum Taste S1 betätigen :                                                 *'
'* Led1 / grün Wappen oder Ja                                                 *'
'* Led2 / rot  Zahl   oder Nein                                               *'
'*                                                                            *'
'* Es ist die moderne Form des Münze- Werfen                                  *'
'*                                                                            *'
'******************************************************************************'

$regfile = "attiny13.dat"
$crystal = 1200000
$hwstack = 16
$swstack = 8
$framesize = 8

Config Portb = &B00001010
Taste Alias Pinb.0
Portb.0 = 1                                                 'Pullup
Dim X As Byte

Init:
X = 0                                                       'Ausgangsbedingung
Portb.1 = 0
Portb.3 = 0

Do
  If Taste = 0 Then
  Incr X

  If X = 3 Then X = 1
  End If
  Waitms 1


Select Case X
Case 1 : Gosub Eins                                         'ja
Case 2 : Gosub Zwei                                         'nein
End Select

Loop


Eins:
Portb = &B00000010                                          'Portb.1 = 1
                                                            'Portb.3 = 0
Return

Zwei:
Portb = &B00001000                                          'Portb.3 = 1
                                                            'Portb.1 = 0
Return


End                                                         'Programmende


Elektronik-Labor  Projekte  AVR  Sparrow Contest