PollinDuino-Mini (Arduino-Clone)
Unter der Bestellnummer 810366 findet sich bei Pollin ein Atmel
Mega168, das ist noch nichts besonderes. Das Board ist Arduino Mini
kompatibel und hat schon den Arduino-Bootlader drin. In der Übersicht
sieht man, dass beim Mini der FTDI vergessen wurde. Viele Anwendungen
sind Standalone und benötigen nach dem Flashen keine PC-Verbindung
mehr. Am Pin RAW kann eine Versorgung von +4V-6V (max.+7V laut
Datenblatt XC6206) angeschlossen werden. Vcc wird dann auf +3V3
stabilisiert.
Zum Programmieren gibt es mindestens vier Möglichkeiten:
1.
Sparrow-Cloud-Programming via Ceepit (Mosi+Sck) oder mittels
FTDI/PL2303-Breakoutboard (BOB) in cyan, ausführlich am 28.11.14 (Sparrow über RS232 programmieren) und am 10.12.14 (ISP-Adapter mit Sparrow_RS232) beschrieben,
2. via ISP mit diversen ISP-Programmern (Mosi+Miso+Sck), wird hier nicht näher drauf eingegangen,
3.
via D2+D6+D7 mittels USB-Adapter und TinyUsb-Bootlader
(default168_enus_lfxf7_hfxd4_efxf8_v0x97x1.hex), preiswert in grün, das
Terminal kann nicht benutzt werden, ausführlich am 7.5.14 (Das TinyUsbBoard mit ATmega8 )beschrieben,
4. via Rx+Tx mittels FTDI/PL2303-Breakoutboard (BOB) und Arduino-Bootlader in lachsrot, das Terminal kann benutzt werden.
Der
CTS-Pin wird am Board nach Gnd gebrückt, kann jedoch in vielen Fällen
entfallen. Nachdem das FTDI-BOB angeschlossen ist, kann
die Arduino-IDE gestartet werden. Nach der Boardwahl kann ein
Beispiel hochgeladen werden.
Bascom-Freunde stellen als Programmer 'Arduino' und '19200 Baud' ein und können loslegen.
Download: PollinDuino-bas-hex.zip
' PollinDuino Mini, Fade Led13, PWM zu Fuss
'
' DTR RxD TxD Vcc CTS GND =FTDI
'
' DTR TxD RxD Vcc Gnd Gnd
' TxD/D1 <-/ | RAW +4V-6V
' RxD/D0 <-----/ Gnd
' Res Res
' Gnd Led3V3 Vcc +3V3
' D2 A5 A3
' D3 A4 A2
' D4 A1
' D5 A0
' D6 D13/Sck
' D7 D12/Miso
' D8 D11/Mosi
' D9 Led13 Gnd A6 A7 D10/SS
'-----------------------------------------------------------
$regfile = "m168def.dat" 'PollinDuino Mini
$crystal = 16000000 'Quarz
$hwstack = 40
$swstack = 16
$framesize = 32
$programmer = 22 'STK500v1, 19200 Baud
'$baud = 19200
Led13 Alias Portb.5
Const Warte = 25 'in us
Ddrb = &B100000 'Led13
Declare Sub Ausgabe
Dim I As Byte 'Wartezeit
Dim J As Byte 'Zeiger
Do
For J = 0 To 255 : Ausgabe : Next
For J = 255 To 0 Step -1 : Ausgabe : Next
Loop
Sub Ausgabe
Led13 = 0 : For I = 0 To J : Waitus Warte : Next
Led13 = 1 : For I = J To 255 : Waitus Warte : Next
End Sub
'end