DuinoMite-Mega is een Pic 32 computer board ontwikkeld door Olimex naar het voorbeeld van de Maximite computer board
Je kan de board programmeren met mmbasic. De board bevat een SD kaartje waar de mmbasic programma's op staan
Het autorun.bas bestand, op de sd kaart, wordt bij het opstarten van de DuinoMite uitgevoerd.
Zie ook het Users Manual
Hier de code van het "AUTORUN.BAS" bestand.
10 CLS
20 PRINT " Je kan de volgende programma' s kiezen"
30 PRINT " Met Ctrl+c kom je in DMBasic"
40 PRINT
50 PRINT Tab(10) "GAME'S (Werken alleen met de VGA monitor)"
60 PRINT
70 PRINT " 1) Checker"
77 PRINT " 2) Pacman"
78 PRINT
79 PRINT Tab(10) "GAME'S"
80 PRINT
82 PRINT " 3) Awari"
90 PRINT " 4) Lucifers"
100 PRINT " 5) Flipflop"
110 PRINT
120 PRINT Tab(10) "PROJECTEN"
130 PRINT
140 PRINT " 6) Knipperled"
150 PRINT " 7) Sound"
160 PRINT " 8) toetsencode's"
161 PRINT " 9) Datum en tijd instellen"
162 PRINT " 10) Temperatuur en lichtsterkte meten"
163 PRINT " 11) Temperatuur en lichtsterkte printen"
170 PRINT
180 INPUT " Maak een keuze [Enter] "; A
190 ON A GOTO 300, 310, 350, 400, 450, 500, 550, 600, 650, 700, 750
200 PRINT " Dit is niet goed, probeer het opnieuw" : GOTO 180
300 chdir "games" : Run "checker.bas"
310 chdir "games\PMan" : Run "pacman.bas"
350 chdir "games" : Run "awari.bas"
400 chdir "games" : Run "Lucifers.bas"
450 chdir "games" : Run "flipflop.bas"
500 chdir "proj" : RUN "KNIP.BAS"
550 chdir "proj" : Run "Sound.bas"
600 chdir "proj" : Run "Ascii.BAS"
650 chdir "proj" : Run "DATTIME.BAS"
700 chdir "proj" : Run "TEMP.BAS"
750 chdir "proj" : Run "PRINT.BAS"
De code "KNIP.BAS" van knipperled
Met setpin a, 8 , worden pinnen 11 en 12 digital outputpinnen( DO). (zie users manual blz 18 en 19)
2 CLS
6 PRINT Tab(10) "Anode's van de led's met D0 (pin 11) en D1 (pin 12) "
7 PRINT Tab(10) "Kathodes via 220 Ohm met gnd"
8 Print Tab(10) "Toets 0 in om het programma af te sluiten."
10 For a = 11 To 12
15 setpin a, 8
16 Next a
20 pin(11) = 1
30 pause 400
40 Pin(11) = 0
50 Pause 400
60 pin(12) = 1
70 pause 400
80 Pin(12) = 0
90 Pause 400
95 a$ = INKEY$
100 IF a$ = "0" THEN
115 CHDIR "\"
120 RUN "AUTORUN.BAS"
130 ELSE
140 GOTO 20
De code "DATTIME.BAS" om de datum en tijd in te stelllen
10 CLS
22 PRINT
24 PRINT " De ingestelde datum: " DATE$, " ,tijd : " TIME$
27 PRINT
28 PRINT " 1) Instellen van de datum"
29 PRINT " 2) Instellen van de tijd"
30 PRINT " 3) Instellen van datum en tijd"
31 PRINT " 4) Terug naar het hoofdmenu"
32 PRINT
33 INPUT " Kies 1, 2, 3 of 4 [Enter] " ; A
34 PRINT
35 ON A GOTO 36,80,36,130
36 INPUT " Voer de dag in "; DU$
40 INPUT " Voer de maand in "; MM$
50 INPUT " Voer het jaar in "; JS$
60 DATE$ = DU$ + "-" + MM$ + "-" + JS$
65 PRINT
70 PRINT " De ingevoerde datum = " DATE$
75 PRINT
76 IF A = 1 THEN GOTO 125
80 INPUT " Voer het uur in "; DU$
90 INPUT " Voer de minuten in "; MM$
100 INPUT " Voer de seconden in "; JS$
110 TIME$ = DU$ + ":" + MM$ + ":" + JS$
115 PRINT
120 PRINT " De ingevoerde tijd = " TIME$
122 PRINT
125 INPUT " Druk op enter om naar het hoofdmenu terug te keren " ; A$
130 CHDIR "\" : RUN "AUTORUN.BAS"
140 END