Wappen oder Zahl
von Holger Fritzsch
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
