5: BASIC Stamp Command Reference – RANDOM
BASIC Stamp Programming Manual 2.0c
•
www.parallaxinc.com
•
Page 253
Demo Program (RANDOM.bas)
' Connect a button to I/O pin 7 as shown in the figure in the RANDOM command description
' (in the manual) and run this program. This program uses RANDOM to simulate a coin toss.
' After 100 trials, it reports the total number of heads and tails thrown.
'{$STAMP BS1} 'STAMP directive (specifies a BS1)
SYMBOL Flip = W0 ' The random number.
SYMBOL Coin = BIT0 ' A single bit of the random number.
SYMBOL Trials = B2 ' Number of flips.
SYMBOL Heads = B3 ' Number of throws that came up heads.
SYMBOL Tails = B4 ' Number of throws that came up tails.
SYMBOL Btn = B5 ' Workspace for Button instruction.
Start:
DEBUG CLS, "Press button to start"
FOR Trials = 1 TO 100 ' 100 tosses of the coin.
Hold:
RANDOM Flip ' While waiting for button, randomize.
BUTTON 7, 0, 250, 100, Btn, 0, Hold ' Wait for button.
BRANCH Coin,(Head,Tail) ' If 0 then head; if 1 then tail.
Head:
DEBUG CR, "HEADS" ' Show heads.
Heads = Heads + 1 ' Increment heads counter.
GOTO TheNext ' Next flip.
Tail:
DEBUG CR, "TAILS" ' Show tails.
Tails = Tails + 1 ' Increment tails counter.
TheNext: ' Next flip.
NEXT
' When done, show the total number of heads and tails.
DEBUG CR, CR, "Heads: ", # Heads, " Tails: ", #Tails
1
PB Switch
10 k
Ω
P7
Vdd
Vss
Figure 5.28: RANDOM Button
Circuit.
Содержание BASIC Stamp 2e
Страница 1: ...BASIC Stamp Programming Manual Version 2 0c...
Страница 30: ...Introduction to the BASIC Stamps Page 28 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Страница 34: ...Quick Start Guide Page 32 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Страница 90: ...BUTTON BASIC Stamp Command Reference Page 88 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Страница 118: ...END BASIC Stamp Command Reference Page 116 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Страница 128: ...FREQOUT BASIC Stamp Command Reference Page 126 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Страница 196: ...NAP BASIC Stamp Command Reference Page 194 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Страница 206: ...OWIN BASIC Stamp Command Reference Page 204 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Страница 214: ...OWOUT BASIC Stamp Command Reference Page 212 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Страница 216: ...PAUSE BASIC Stamp Command Reference Page 214 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Страница 226: ...POLLMODE BASIC Stamp Command Reference Page 224 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Страница 232: ...POLLOUT BASIC Stamp Command Reference Page 230 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Страница 236: ...POLLRUN BASIC Stamp Command Reference Page 234 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Страница 240: ...POLLWAIT BASIC Stamp Command Reference Page 238 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Страница 262: ...RCTIME BASIC Stamp Command Reference Page 260 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Страница 274: ...RUN BASIC Stamp Command Reference Page 272 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Страница 310: ...SEROUT BASIC Stamp Command Reference Page 308 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Страница 324: ...STOP BASIC Stamp Command Reference Page 322 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Страница 340: ...ASCII Chart Page 338 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Страница 342: ...Reserved Words Page 340 BASIC Stamp Programming Manual 2 0b www parallaxinc com...
Страница 346: ...Conversion Formatters Page 344 BASIC Stamp Programming Manual 2 0b www parallaxinc com...