ANVÄNDNING A BASIC STAMP att köra en RGB tegel (5 / 6 steg)

Steg 5: programvara

Parallax tillverkare av Stamp mikro-styrenheterna ger en mycket bra och gratis redigeraren för windows. Bara ladda redaktör ner och med följande text skära och inklistrade in i den. Du kommer med en enkel RS232 eller USB till 4-pin kabel (bygga den själv eller köpa från Parallax webbplats) kommunicerar med utomjordingar snart.

En textfil av denna grundläggande program (S.BS2) ingår också.

-----------------------------------------------------------------------------------------------------------------------------------

'
"Flaggan-flimmer & hjärta BULTA & EYE-öppna-vänster-höger-Stäng M-J-T
'
"Skannar från vänster till höger
'
' 1 2 3 4 5 6 7
' .---------------.
' 1 | o o o o o o o |
' 2 | o o o o o o o |
' 3 | o o o o o o o |
"4 | o o o o o o o |
"5 | o o o o o o o |
' `---------------@

JAG VAR NIB
RÖD VAR NIB
BLU VAR NIB
PTR VAR NIB
LOP VAR NIB
DAT VAR NIB(15)
TABELL1 DATA (1)
FETT VAR BYTE
TID VAR ORDET

DIRS =-1 ' alla utgångar
LOP = 3 "GÖR ALLA FYRA

LÄS 0, JAG: FILIAL I, [FLAGGA, HJÄRTA, ÖGON, MJT, FINI]

'========================= FLAG ==============================
FLAGGA
SKRIV 0,1 "EEPROM = 0 NÄSTA = 1
TID = 9000
"12345 12345 Visa LED
"BBBBBgggggRRRRR under

FÖR FETT = 0 TILL 80 ' RÖD/WHT/BLU
OUTS = % 1111111111011111: PAUS 4
OUTS = % 1011110111111111: PAUS 4
OUTS = % 1011111111111111: PAUS 4
OUTS = % 1101111111111111: PAUS 4
NÄSTA
GÅ TILL LOOP_F

LOOP_F
FÖR I = 1 TILL 4
"12345 12345 KÖRA 15 LYSDIODER
"BBBBBgggggRRRRR maskopi av maskopi
OUTS = % 0001111111111111
OUTS = % 0011111111111110: GOSUB P
OUTS = % 1001111111111110: GOSUB P
OUTS = % 0101111111111110: GOSUB P
OUTS = % 1110111101111110: GOSUB P
OUTS = % 1110111111111100: GOSUB P
NÄSTA

FÖR I = 1 TILL 3
"12345 12345 KÖRA 15 LYSDIODER
"BBBBBgggggRRRRR maskopi av maskopi
OUTS = % 1010111111111101
OUTS = % 1010111111111110: GOSUB P
OUTS = % 1111110101111110: GOSUB P
OUTS = % 1111111111010100: GOSUB P
NÄSTA

TID = tid-1:IF tid > 1 då LOOP_F
LOP = LOP-1:IF LOP = 0 DÅ FINI

'========================= HEART ==============================
HJÄRTA
SKRIV 0,2 "EEPROM = 1 NÄSTA = 2
TID = 9000
'~~~~~~~~~~~~~~~~~~~~Clock
' :
"12345 12345: Visa LED
"BBBBBgggggRRRRR: under
OUTS = % 1001111111100111' vänta
Pausa 900 "återställa Scanner till maskopi 1
OUTS = % 1111111111111110

DAT(0) = 0 ' BLÅ THROB SEKVENS
DAT(1) = 0
DAT(2) = 1
DAT(3) = 1
DAT(4) = 2
DAT(5) = 3
DAT(6) = 4
DAT(7) = 5
DAT(8) = 5
DAT(9) = 5
DAT (10) = 4
DAT (11) = 3
DAT (11) = 2
DAT (12) = 1
DAT (13) = 1
DAT (14) = 0
DAT (15) = 0

LOOP_H

PTR = PTR + 1:BLU = DAT (PTR): RÖD = 5-BLU

FÖR I = 0 TILL RÖD "12345 12345
' BBBBBgggggRRRRR BBBBBgggggRRRRR
OUTS = % 1111111111100110: OUTS = OUTS: OUTS = % 1111111111100111
OUTS = % 1111111111000010: OUTS = OUTS: OUTS = % 1111111111000011
OUTS = % 1111111111000000: OUTS = OUTS: OUTS = % 1111111111100001
OUTS = % 1111111111100000: OUTS = OUTS: OUTS = % 1111111111100001
OUTS = % 1111111111000000: OUTS = OUTS: OUTS = % 1111111111000011
OUTS = % 1111111111000010: OUTS = OUTS: OUTS = % 1111111111100111
OUTS = % 1111111111100110: OUTS = OUTS: OUTS = % 1111111111111111
NÄSTA

TID = TID-1

FÖR I = 0 TILL BLU "12345 12345
' BBBBBgggggRRRRR BBBBBgggggRRRRR
OUTS = % 1001111111111110: OUTS = OUTS: OUTS = % 1001111111111111
OUTS = % 0000111111111110: OUTS = OUTS: OUTS = % 0000111111111111
OUTS = % 0000011111111110: OUTS = OUTS: OUTS = % 1000011111111111
OUTS = % 1000011111111110: OUTS = OUTS: OUTS = % 1000011111111111
OUTS = % 0000011111111110: OUTS = OUTS: OUTS = % 0000111111111111
OUTS = % 0000111111111110: OUTS = OUTS: OUTS = % 1001111111111111
OUTS = % 1001111111111110: OUTS = OUTS: OUTS = % 1111111111111111
NÄSTA

OM tid > 1 då LOOP_H
LOP = LOP-1:IF LOP = 0 DÅ FINI

'========================= EYE ==============================
ÖGAT
SKRIV 0,3 "EEPROM = 2 NÄSTA = 3
TID = 9000

"Öga ser vänster och höger
'
'~~~~~~~~~~~~~~~~~~~~Clock
' :
"12345 12345: Visa LED
"BBBBBgggggRRRRR: under
OUTS = % 1111111011110111' vänta

Pausa 900 "återställa Scanner till maskopi 1

PTR = 0 ' SPCLCRCPS 0123456789
FETT = 200

LOOP_E

FETT = fett-1:IF fett > 0 då E_BALL
FETT = 35:PTR = PTR + 1:IF PTR < 9 då E_BALL
PTR = 0

E_BALL

TID = tid-1:IF tid < 2 sedan EYE_TEST

GREN PTR [SHUT, PEEK, CENTER, VÄNSTER, CENTER, HÖGER, CENTER, PEEK, AVSTÄNGNING]

CENTER "12345 12345 12345
' BBBBBgggggRRRRR BBBBBgggggRRRRR
GOSUB DSPL "ledare
GOSUB DSPM ' mellersta
GOSUB DSPE "Ender
' BBBBBgggggRRRRR BBBBBgggggRRRRR
OUTS = % 1111111111111111: OUTS = % 1111111111111110
HÖG 0:LOW 0
GOSUB ELEV
OUTS = % 1111111111111111: OUTS = % 1111111111111110
HÖG 0:LOW 0:GOTO LOOP_E

RÄTT "BBBBgggggRRRRR BBBBBgggggRRRRR
GOSUB DSPL "ledare
GOSUB DSPM ' mellersta
OUTS = % 1111101110011101: PAUS 1:LOW 0
OUTS = % 1111110001100011: PAUS 1:LOW 0
' BBBBBgggggRRRRR BBBBBgggggRRRRR
GOSUB DARK3
GOSUB ELEV
OUTS = % 1111111111111111: OUTS = % 1111111111111110
GÅ TILL LOOP_E

VÄNSTER "BBBBBgggggRRRRR BBBBBgggggRRRRR
OUTS = % 1111110001100011: PAUS 1:LOW 0
OUTS = % 1111101110011101: PAUS 1:LOW 0
GOSUB DSPM ' mellersta
GOSUB DSPE "Ender

"OUTS = % 1111111111111110
' BBBBBgggggRRRRR BBBBBgggggRRRRR
OUTS = % 1111111111111111: OUTS = % 1111111111111110
GOSUB ELEV
GOSUB DARK3
GÅ TILL LOOP_E

DSPL
OUTS = % 1111111011110111: PAUS 1:LOW 0
OUTS = % 1111110101101011: PAUS 1:LOW 0
RETURNERA

DSPM
OUTS = % 1111101110011101: PAUS 1:LOW 0
OUTS = % 1111101110011101: PAUS 1:LOW 0
OUTS = % 1111101110011101: PAUS 1:LOW 0
RETURNERA

DSPE
OUTS = % 1111110101101011: PAUS 1:LOW 0
OUTS = % 1111111011110111: PAUS 1:LOW 0
RETURNERA

ELEV
OUTS = % 1000111111111111: PAUS 0:OUTS = % 1101111111111110: PAUS 1
OUTS = % 1000111011111111: PAUS 0:OUTS = % 1000111111111110: PAUS 1
OUTS = % 1000111111111111: PAUS 0:OUTS = % 1101111111111110: PAUS 1
RETURNERA

DARK3
OUTS = % 1111111111111111: LÅG 0
HÖG 0:LOW 0
HÖG 0:LOW 0
RETURNERA

PEEK
OUTS = % 1111111011110111: PAUS 1:LOW 0
OUTS = % 1111111011110111: PAUS 1:LOW 0
OUTS = % 1111110101101011: PAUS 1:LOW 0
OUTS = % 1111110101101011: PAUS 1:LOW 0
OUTS = % 1111110101101011: PAUS 1:LOW 0
OUTS = % 1111111011110111: PAUS 1:LOW 0
OUTS = % 1111111011110111: PAUS 1:LOW 0

OUTS = % 1111111111111111: PAUS 1:LOW 0
OUTS = % 1111111111111111: PAUS 1:LOW 0
OUTS = % 1101111111111111: PAUS 0:OUTS = % 1101111111111110: PAUS 1
OUTS = % 1101111111111111: PAUS 0:OUTS = % 1101111011111110: PAUS 1
OUTS = % 1101111111111111: PAUS 0:OUTS = % 1101111111111110: PAUS 1
OUTS = % 1111111111111111: PAUS 1:LOW 0
OUTS = % 1111111111111111: PAUS 1:LOW 0
GÅ TILL LOOP_E

STÄNGA
OUTS = % 1111111011110111: PAUS 1:LOW 0
OUTS = % 1111111011110111: PAUS 1:LOW 0
OUTS = % 1111111011110111: PAUS 1:LOW 0
OUTS = % 1111111011110111: PAUS 1:LOW 0
OUTS = % 1111111011110111: PAUS 1:LOW 0
OUTS = % 1111111011110111: PAUS 1:LOW 0
OUTS = % 1111111011110111: PAUS 1:OUTS = % 1111111111111110
GÅ TILL LOOP_E

EYE_TEST
LOP = LOP-1:IF LOP = 0 DÅ FINI

' === Mäns smycken & leksak ===
MJT
SKRIV 0,4 "EEPROM = 3 NÄSTA = 4

FÖR FETT = 0-80
OUTS = % 1110111101111111: PAUS 4
OUTS = % 1110111111111111: PAUS 4
OUTS = % 1111111110111101: PAUS 4
OUTS = % 1111111111110111: PAUS 4
NÄSTA

TID = 2

LOOP_T

FÖR FETT = 1 TILL TID ÄR
' BBBBBgggggRRRRR BBBBBgggggRRRRR
OUTS = % 1111111111111111: OUTS = % 1111111111111110
OUTS = % 1111111111000111: pausa 1:OUTS = % 1111111111111000: pausa 1
OUTS = % 1111111111101111: pausa 1:OUTS = % 1111111111111110
OUTS = % 1111111111110111: pausa 1:OUTS = % 1111111111111110
OUTS = % 1111111111101111: pausa 1:OUTS = % 1111111111111110
OUTS = % 1111111111000111: pausa 1:OUTS = % 1111111111111000: pausa 1
OUTS = % 1111111111111111: OUTS = % 1111111111111110
Pausa 1:NEXT

FÖR FETT = 1 TILL TID ' J
' BBBBBgggggRRRRR BBBBBgggggRRRRR
OUTS = % 1111111111111111: OUTS = % 1111111111111110
OUTS = % 1100111001111111: pausa 1:OUTS = % 1100111111111110: pausa 1
OUTS = % 0111001110111111: pausa 1:OUTS = % 0111011111111110: pausa 1
OUTS = % 0111001110111111: pausa 1:OUTS = % 0111011111111110: pausa 1
OUTS = % 0111101111111111: pausa 1:OUTS = % 1011110111111110: pausa 1
OUTS = % 1101111011111110: pausa 1:OUTS = % 1110111101111110: pausa 1
OUTS = % 0011111111111110: pausa 1:OUTS = % 1100111111111110: pausa 1
OUTS = % 0111101111111111: pausa 1:OUTS = % 0111111111111110: pausa 1
OUTS = % 1111111111111111: OUTS = % 1111111111111110
Pausa 1:NEXT
"gå till JJ

FÖR FETT = 1 TILL TID "T
' BBBBBgggggRRRRR BBBBBgggggRRRRR
OUTS = % 1111111111111111: OUTS = % 1111111111111110
OUTS = % 1111101111111111: pausa 1:OUTS = % 1111111111011110: pausa 1
OUTS = % 1111101111111111: pausa 1:OUTS = % 1111111111011110: pausa 1
OUTS = % 1111101111111111: pausa 1:OUTS = % 1111111111011110: pausa 1
OUTS = % 1111110011111110: pausa 1:OUTS = % 1111111111100110: pausa 1
OUTS = % 1111111100111110: pausa 1:OUTS = % 1111111111111000: pausa 1
OUTS = % 1111101111111111: pausa 1:OUTS = % 1111111111011110: pausa 1
OUTS = % 1111101111111111: pausa 1:OUTS = % 1111111111011110: pausa 1
OUTS = % 1111111111111111: OUTS = % 1111111111111110
NÄSTA

FÖR FETT = 1 TILL TID
PAUSA 14:NEXT

TID = tid + 2:IF tid < 80 då LOOP_T
LOP = LOP-1:IF LOP = 0 DÅ FINI
GÅ TILL FLAGGA

P:RETURN

'==================== FINISHED ==============
FINI
OUTS = % 1111111111111111
SKRIV 0,0 "EEPROM = 3 NÄSTA = 1
SLUTET

Se Steg

Relaterade Ämnen

Media hörnet (användning gips för att dölja kablar)

idé var att dölja kablar som jag fann mycket irriterande, och att göra några extra funktioner som gör att vardagsrummet trevligare ställe.Så konstruerade jag gips som skulle tjäna detta syfte.Jag inte genomfört verksamheten själv, eftersom jag var ko...

Markera en linjal på kroppen laptop för enkel användning

Jag är säker många av er på denna webbplats kommer att förstå den svåra situationen för inte kunna få till ett litet måttband eller linjal snabb nog att göra enkla fysiska eller psykiska mätningar, oavsett om det är som en referens för inköp av immat...

Med Parallax Basic Stamp II för att ringa en dörrklocka distans

problemet? En hund som får sätt alltför upphetsad när dörrklockan ringer.Lösningen? Ringa på dörrklockan på måfå tider när ingen är där, och svarar ingen det, för att motverka skick hunden - att bryta anslutningen att en ringande dörrklockan är lika...

Hur man korrekt skära, borra och böja Plexiglas att göra en multi-användning gopro tripod.

Detta instructable är i tävlingen "Upp!" och jag skulle älska det om du kunde ta sig tid att rösta om du tycker att jag förtjänar att rösta, tack! Njut!Jag hade fått göra en del arbete med plexiglas nyligen och hittade några bra sätt att göra må...

Etsning på någon yta billigt och utan att den användning av kemikalier

detta är en annan av mina egna processer att, fram till nu, jag har ganska mycket kvar till mig själv. Jag har använt Paasche air radergummit under många år, och med de flesta kemikalier, har jag vände den i lite av ett litet företag. Jag lägger lite...

Hur rippa ljud från datorn för att skapa en ringsignal för användning på iPhone använder en Mac.

Behöver du följande program. Om du inte har dem hämta dem och följ instruktionerna för publicister.iTunes-detta bör vara förinstallerad på din Mac.Audacity- audacity.sourceforge.net/Soundflower – soundflower.en.softonic.com/macSteg 1: Konfigurera dat...

Användning DesignSpark mekaniska att duplicera och 3D skriva ut en Dekorativ ändknopp

Nyligen frågade en vän om jag kunde skanna och kopiera en Dekorativ ändknopp från en antik tabell han försökte återställa. Tabellen var tänkt för att ha tre identiska ändknoppar men två av dem var saknade. Han avbröt den återstående finial och skicka...

5 x 4 LED display matrix med hjälp av en Basic Stamp 2 (bs2) och Charlieplexing

har en Basic Stamp 2 och några extra lysdioder sitta? Varför inte leka med begreppet charlieplexing och skapa en utgång med bara 5 stift.För detta instructable jag kommer att använda BS2e men någon medlem av familjen BS2 bör fungera.Steg 1: Charliepl...

Använda SEO för att öka en Instructable utsikt

vill öka trafiken till din Instructables från sökmotorer som Google, Bing eller Yahoo?Detta Instructable innehåller tips och råd om hur du optimerar din Instructables för att stärka dem upp sökresultatsidor. Göra det är mycket värt med tanke på att m...

Tredje Hand ++: en multi-användning hjälpande hand för elektronik och andra känsliga arbete.

Tidigare jag har använt den tredje händer/hjälpande händer finns på kedjan elektronik butiker och har varit frustrerad över deras användbarhet. Jag kunde aldrig få klipp exakt där jag ville ha dem eller det tog mer tid än det egentligen borde för att...

BASIC Stamp LED Cube

Jag försöker lära mig om grundläggande elektronik. Det känns som när jag kan få ett fast grepp på alla grundläggande element (kondensatorer, motstånd, transistorer, etc), jag kommer att bättre kunna förstå mer avancerade komponenter (motstånd nätverk...

Apple-banana Smoothie! (En stor användning för bruna bananer)

Lätt, Billigt, välsmakande och hälsosamma! Och en stor användning för bruna bananer!Jag älskar verkligen smoothie, och jag gör det hela tiden! Det är friskt och smakar fantastiskt! Så är här mitt favorit recept!Detta är också ett liv hacka recept för...

Montering av Dragon Rider 500 för användning med AVR Dragon

inte länge sedan företaget Atmel kom ut med ett bra verktyg för användning med AVR microcontrollers kallas AVR Dragon. Denna lilla USB-enhet ger proffs och amatörer både förmågan att använda: I System programmering (ISP), JTAG, felsöka tråd och hög s...

Analysera ditt hem användning

Du vill minska din vattenförbrukning för home´s men du don´t vet vilka åtgärder skulle få mest effekt? Ska du köpa en effektiv kläder bricka, ersätta din dusch huvudet eller plantera din trädgård med torka resistenta växter? Du kan fastställa kostnad...

Skörda naturliga podophyllotoxin i den lokala skogen för användning vid behandling av genitala vårtor

[Foto: Cassi Saari]"Med dina vårtor botade? Stor. Ta en promenad i skogen? Fantastiska. Att ha dina vårtor botade genom att ta en promenad i skogen? Ovärderliga." -PeftyNågonsin hört den statistik som "25% av våra läkemedel kommer direkt fr...

3D modell controller för Basic stamp Utbildningsstyrelsen

steg 1 var att modellen basic stamp Utbildningsstyrelsen, jag bygger sedan en grundläggande controller i halvor, i Solidworks. Jag tryckt dessa halvor och spray målade registeransvarige. Jag har tagit en video av den färdiga produkten i aktion....

En bra användning för en gammal telefonladdare

Inomhus/utomhus termometrar är händig, men utomhus sändaren kan konsumera alltför många batterier, beroende på enheten. Jag bestämde mig att driva utomhus sändaren med en gammal telefonladdare. Spänningen i telefonladdare måste tas bort omkring två v...

CellC användning widget för Android

Jag har skapat detta instructable speciellt för CellC (mobiltelefon nätverk) användare i Sydafrika. Även om du inte på CellC eller ens i Sydafrika, du kan fortfarande dra nytta av detta om du får ett SMS med din summor/tillgänglig tid/etc.Anledningen...

En kreativ användning av Magnet. Samla fallna eller spridda mynt med magneten. ett Experiment med Magnet.

Hej alla, här jag (Mr Suhasa, Ph.D. student i bioteknologi, Bengaluru, Karnataka, Indien) har visat hur man samlar in fallna eller spridda mynt https://www.youtube.com/watch?v=DAIyZ4y0CgM också i en annan video av min visas hur man kan återanvända ga...