net aangemeld en kom ik dit tegen
ben al gewend met de duinomite mega in basic te programmeren
soms snap ik ook niet het gebruik van C want in basic is het vaak ook te doen zelfs makkelijker en sneller en waarom zou je moeilijk doen met C code als het ook makkelijker kan in basic code.
helaas zie ik niet hoe ik het programma kan downloaden zonder eerste even 200 euro neer te leggen..
geen basis versie te krijgen?
--edit
heb me de volgende code bij elkaar gescraapt maar de timer werkt niet
de led onboard doet niks
' Arduino configuratie
' digitale variabelen
'D0 Alias Portd.0 ' = RxD
'D1 Alias Portd.1 ' = TxD
'D2 Alias Portd.2
'D3 Alias Portd.3 ' = PWM
'D4 Alias Portd.4
' D5 Alias Portd.5 ' = PWM
'D6 Alias Portd.6 ' = PWM
' D7 Alias Portd.7
'D8 Alias Portb.0
' D9 Alias Portb.1 ' = PWM
'D10 Alias Portb.2 ' = PWM
' D11 Alias Portb.3 ' = PWM
'D12 Alias Portb.4
'D13 Alias Portb.5 ' onboard LEDje
' analoge variabelen
' A0 Alias 0 ' Portc.0
'A1 Alias 1 ' Portc.1
' A2 Alias 2 ' Portc.2
'A3 Alias 3 ' Portc.3
'A4 Alias 4 ' Portc.4
'A5 Alias 5 ' Portc.5
' aan en uit waarden
'Const Aan = 1 ' pin = hoog
'Const Uit = 0 ' pin = laag
'Ddrb.5 = 1 ' maak van poort D13 een uitgang
' Ddrb.5 = 0 ' maak van poort D13 een ingang
' on board LEDje op D13 knipperen
' bij deze vertaling wordt de poortnaam vooraf aangepast aan de naam die bij Arduino wordt gebruikt
' de Bascomnaam B5 krijgt een alias D13 (D13 Alias PORTB.5)
' als je dan toch aliassen gebruikt, benoem dan niet de poortnaam, maar geef het de naam van de toepassing
' bijvoorbeeld portb.5 = motor (motor Alias portb.5)
$regfile = "m328pdef.dat" ' Atmega-328p
$crystal = 16000000 ' 16 Mhz Kristal
$baud = 9600 'communicatiesnelheid terminal
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 'default use 10 for the SW stack
$framesize = 40 'default use 40 for the frame space
'Now define Alias (optional, but easier to read)
Onboardled Alias Portd.5 'LEDs
Cellogloop Alias Portd.1
Enablerelay1 Alias Portd.2
Enablerelay2 Alias Portd.3
Externled Alias Portd.4
Powercontrol Alias Portd.5
Alarmcontrol Alias Portd.6
Startup:
'Power Up Delay to stabilize the system (optional).
Waitms 2000
'Define Program Variables:
Dim Ttc As Word 'TickTock ISR Counter
'Set up Timer0, 8 Bit, with F = 8 MHz, PS = 64, 490.196 Intr / Sec
Config Timer0 = Timer ,
On Timer0 Ticktock 'Run ISR
'Enable, (Turn On), the interrupts:
Enable Interrupts
Enable Timer0
Main:
'Main Loop Flashes LED0 using a Delay routine
'Toggle the LED On and Off
'Which state is On depends on how it is wired...
'STK500 uses 0 to turn On the LED, Reverse Logic
'This LED has a 50% duty cycle
'Do
' Reset Portd.5
' Waitms 5000 '500 mSec delay
' Set Portd.5
' Waitms 5000
'Loop
Ticktock:
'Timer0, 8 Bit, ISR
'F = 8 MHz, PS = 64, 490 Intr / Sec
'Increment TickTockCounter on each interrupt, reset it to zero every second.
'On STK500 Reset, (low), pin turns ON the LED, (Reverse logic).
Ttc = Ttc + 1 'Increment TickTock Counter
If Ttc >= 490 Then
'One Second Rollover
Ttc = 0
End If
'Flash LED1 briefly each second.
'Duration of the flash is under software control.
If Ttc > 2000 Then
'Turn on LED1
Set Portd.5
Else
Reset Portd.5
End If
Return