{"id":5026,"date":"2025-08-24T10:01:45","date_gmt":"2025-08-24T08:01:45","guid":{"rendered":"https:\/\/www.rommelkist.nl\/elec\/?p=5026"},"modified":"2025-10-12T12:40:17","modified_gmt":"2025-10-12T10:40:17","slug":"annex32-basic-programmeren","status":"publish","type":"post","link":"https:\/\/www.rommelkist.nl\/elec\/elektronica\/annex32-basic-programmeren\/","title":{"rendered":"Annex32 BASIC – Programmeren"},"content":{"rendered":"\n

H\u00e9\u00e9l lang geleden heb ik best veel gedaan met BASIC. Het zal 1985 – 1986 is geweest dat ik voor het eerst zelf een heuse computer had! Eerst de Atari 600XL en later de iets grotere 800XL met meer geheugen. Er was een Atari BASIC<\/em><\/strong> beschikbaar, blijkbaar een afgeleide van Microsoft BASIC<\/em><\/strong>.<\/p>\n\n\n\n

\n
\"\"<\/a>
Atari 600XL<\/figcaption><\/figure>\n\n\n\n
\"\"<\/a>
Atari 800X
<\/figcaption><\/figure>\n<\/div>\n\n\n\n

Er was iets mis met die 600XL. Er kwamen allerlei foutmeldingen en zelfs de weinige zaken die in de summiere handleiding stond kreeg ik niet voor elkaar. Ik heb hem vrij snel kunnen omwisselen (met bijbetaling natuurlijk!) voor de 800XL. Ze kwamen als set inclusief een taperecorder op programma’s op te kunnen slaan en weer te kunnen laden (met cassettebandjes). <\/p>\n\n\n\n

\"\"<\/a>
Atari 1050 taperecorder<\/figcaption><\/figure>\n\n\n\n

Via die Atari ben ik ook voor het eerst met elektronica in aanraking gekomen. In een of ander tijdschrift stond destijds een hele artikelenreeks over elektronicaprojectjes met de Atari. Het eerste artikel ging over het aansluiten van LDR (light dependent resistor<\/em>) op een van de joystickporten. Door er meer of minder licht op te laten vallen veranderde een door de Atari geproduceerd geluid van toonhoogte. Geweldig vond ik het. \ud83d\ude42 Ik denk dat het uit het “Atari User” magazine kwam. Heel veel opties zijn er niet, want er was toen maar weinig documentatie over Atari voorhanden. Ik ben nog wel eens voor wat boekjes vanuit Delft naar Haarlem (geloof ik) gereden, omdat ze daar een boek hadden dat ik bij mij in de omgeving niet kon krijgen! Het kan ook zijn dat ik het in het blad “ELEX<\/a>” heb zien staan, maar ik kan de artikelenreeks daar niet terugvinden.
In ieder geval was dat mijn eerste aanraking met computers en met programmeren in BASIC<\/em><\/strong>. Veel anders kon je er ook niet me doen. Je kon er spelletjes mee spelen (er was een uitsparing om spelletjes-modules in te doen) maar daar had ik geen interesse in.<\/p>\n\n\n\n

Na de 800XL overgestapt op de Atari 1040ST, met een prachtig scherp monochroom beeld op de SC1224 monitor en met GFA BASIC<\/em><\/strong><\/em><\/strong>. Ook op de opvolgen, de Atari Mega 2 en later 4, met GFA BASIC<\/em><\/strong> gewerkt.<\/p>\n\n\n\n

\"\"<\/a>
De Atari 1040ST – the poor man’s Mac.<\/figcaption><\/figure>\n\n\n\n

Daarna nog een tijdje een echte Mac gehad: zo’n grijze, dus niet echt een Mac! Maar wel met een BASIC-verie (mogelijk was dat MacBasic<\/em><\/strong>). Op enig moment overgestapt op Windows computers en ook overgestapt van BASIC naar een Pascal<\/em><\/strong>-variant: Delphi<\/em><\/strong>. Veel later nog wel eens, onder Windows (XP vermoed ik) wat gedaan met Visual BASIC<\/em><\/strong>.<\/p>\n\n\n\n

En nu dan BASIC<\/em><\/strong> op een microcontroller. Het programma om een OLED schermpje aan te sturen zit echt verbluffend eenvoudig in elkaar. Zowel I2C als het OLED-schermpje (SSD1306) zijn gewoon als standaardelement opgenomen in de taal. Dat maakt het allemaal zeer bondig.<\/p>\n\n\n

\nI2C.SETUP 8, 9  ' set I2C port on pins 21 and 22\n\nOLED.INIT 1 ' init the OLED upside-down\nOLED.CLS ' clear the screen\nOLED.FONT 2\nOLED.COLOR 1\n\nOLED.PRINT 10,10, "HELLO WORLD"\n<\/pre><\/div>\n\n\n
In de Editor <\/em><\/strong>op de kleurrijke webpagina van de ESP ziet dat er zo uit.<\/p>\n\n\n\n
\"\"<\/a><\/figure>\n\n\n\n
Na het invoeren van de programmaregels moet je het opslaan in de microcontroller met Save<\/em><\/strong>. Met Run<\/em><\/strong> wordt het programma uitgevoerd. Hieronder het resultaat.<\/p>\n\n\n\n
\"\"<\/a>
De zondagochtend zon verlicht mijn “werk”<\/figcaption><\/figure>\n\n\n\n
Voor het testen van van deze programmaatjes heb ik een opstelling gemaakt van een ESP32-C3, een OLED-schermpje, een aantal drukknopjes en een rijtje LEDs.<\/p>\n\n\n\n
<\/p>\n\n\n\n
\"\"<\/a>
ESP32-C3 met aanhangsels<\/figcaption><\/figure>\n\n\n\n
\n
\"\"<\/a>
Schematisch<\/figcaption><\/figure>\n\n\n\n
\"\"<\/a><\/figure>\n<\/div>\n\n\n\n
Onderstaand programmaatje laat LED 1 (op GPIO2) 20<\/s> 21 (want 0 t\/m 20) maal aan en uit knipperen.<\/p>\n\n\n
\nPIN.MODE 2, OUTPUT\n\nDO  \n  PIN(2) = 1\n  pause 1000\n  PIN(2) = 0\n  pause 1000 \n   \n  i = i + 1\n  \nLOOP UNTIL i >20\n<\/pre><\/div>\n\n\n
Het volgende programmaatje zet de LED’s een voor een aan en zet ze daarna weer uit, gebruikmakend van een DO – LOOP en een FOR – NEXT lus.<\/p>\n\n\n
\nPIN.MODE 2, OUTPUT  'LED 1 \nPIN.MODE 3, OUTPUT  'LED 2\nPIN.MODE 4, OUTPUT  'LED 3\n\ni = 2\n\nDO                    'Zet de LEDs 1 t\/m 3 een voor een aan\n  pin(i) = 1\n  pause 1000\n  i = i + 1\nLOOP UNTIL i >4\n\nFOR i = 1 TO 4         'Zet de LEDs 1 t\/m 3 een voor een uit\n  pin(i) = 0\nNEXT i\n<\/pre><\/div>\n\n\n
Het maakt niet uit of je kleine of hoofdletters gebruikt A is hetzelfde als a in Annex32<\/em><\/strong>. En je kunt het ook zo maar door elkaar gebruiken. PIN en\/of pin, PAUSE of Pause het maakt allemaal niks uit.<\/p>\n\n\n
\nPIN.MODE 0, INPUT, PULLUP\nPIN.MODE 1, INPUT, PULLUP\n\nPIN.MODE 2, OUTPUT\nPIN.MODE 3, OUTPUT\nPIN.MODE 4, OUTPUT\n\nI2C.SETUP 8, 9  ' I2C op pin 8 (SDA) en 9 (SCL)\nOLED.INIT 0     ' OLED scherm normaal (niet ondersteboven)\nOLED.CLS        ' wis het scherm\nOLED.FONT 2\nOLED.COLOR 1\n\ndo\n\nA = pin(0)\nB = pin(1)\n\nif A = 0 THEN\n  OLED.CLS\n  OLED.PRINT 10,10, "LED 1 aan"\n  pin(2) = 1\n  PAUSE 1000\n  OLED.CLS\nEND IF\n\nif B = 0 THEN\n  OLED.CLS\n  OLED.PRINT 10,10, "LED 1 uit"\n  pin(2) = 0\n  PAUSE 1000\n  OLED.CLS\nEND IF\n\nloop\n<\/pre><\/div>\n\n\n
Hierboven: wanneer je op knop 1 drukt, gaat LED 1 aan en dat toont ie ook op het OLED-schermpje. Druk je daarna op knop 2 dan gaat LED 1 uit en ook dat wordt op het OLED-scherm getoond. Om inbranden van het schermpje te voorkomen wordt de tekst telkens na 1 seconde gewist met OLED.CLS.<\/p>\n\n\n\n
ADC<\/strong>
Op zo’n ESP32-C3 zitten ook nog eens zes analoge ingangen. Hieronder heb ik GPIO5 gebruikt. Ik heb even moeten zoeken, maar de opdracht OLED.PRINT verwacht een string als variabele. Uit de ADC komt een getal (tussen 0 en 4095) dat door STR$() omgevormd moet worden naar een string. Opgelost.<\/p>\n\n\n
\n' ADC_OLED_test.bas\n\nI2C.SETUP 8, 9  ' I2C op pin 8 (SDA) en 9 (SCL)\nOLED.INIT 0     ' OLED scherm normaal (niet ondersteboven)\nOLED.CLS        ' wis het scherm\nOLED.FONT 1\nOLED.COLOR 1\n\nDO\n  A=ADC(5) \n  OLED.PRINT 10,10,STR$(A)\nLOOP\n<\/pre><\/div>\n\n\n
Het leukste is nog dat het allemaal goed gaat. \ud83d\ude42<\/p>\n\n\n\n
Een volgende keer verder kijken naar de meer geavanceerde mogelijkheden. Bijvoorbeeld een webpagina die je over WiFi, of Bluetooth kunt benaderen en waarmee je e.e.a. kunt aansturen.<\/p>\n","protected":false},"excerpt":{"rendered":"
H\u00e9\u00e9l lang geleden heb ik best veel gedaan met BASIC. Het zal 1985 – 1986 is geweest dat ik voor het eerst zelf een heuse computer had! Eerst de Atari 600XL en later de iets grotere 800XL met meer geheugen. Er was een Atari BASIC beschikbaar, blijkbaar een afgeleide van Microsoft BASIC. Er was iets mis met die 600XL. Er kwamen allerlei foutmeldingen en zelfs de weinige zaken die in de summiere handleiding stond kreeg ik niet voor elkaar. Ik heb hem vrij snel kunnen omwisselen (met bijbetaling natuurlijk!) voor de 800XL. Ze kwamen als set inclusief een taperecorder op programma’sRead More →<\/a><\/span><\/p>\n","protected":false},"author":1,"featured_media":5037,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_crdt_document":"","footnotes":""},"categories":[3,206],"tags":[208,207],"class_list":["entry","author-admin","post-5026","post","type-post","status-publish","format-standard","has-post-thumbnail","category-elektronica","category-programmeren","tag-atari","tag-basic"],"_links":{"self":[{"href":"https:\/\/www.rommelkist.nl\/elec\/wp-json\/wp\/v2\/posts\/5026","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.rommelkist.nl\/elec\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.rommelkist.nl\/elec\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.rommelkist.nl\/elec\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.rommelkist.nl\/elec\/wp-json\/wp\/v2\/comments?post=5026"}],"version-history":[{"count":29,"href":"https:\/\/www.rommelkist.nl\/elec\/wp-json\/wp\/v2\/posts\/5026\/revisions"}],"predecessor-version":[{"id":5546,"href":"https:\/\/www.rommelkist.nl\/elec\/wp-json\/wp\/v2\/posts\/5026\/revisions\/5546"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.rommelkist.nl\/elec\/wp-json\/wp\/v2\/media\/5037"}],"wp:attachment":[{"href":"https:\/\/www.rommelkist.nl\/elec\/wp-json\/wp\/v2\/media?parent=5026"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.rommelkist.nl\/elec\/wp-json\/wp\/v2\/categories?post=5026"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.rommelkist.nl\/elec\/wp-json\/wp\/v2\/tags?post=5026"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}