AVR （1chipマイクロコンピュータ）をBASICで …

1 1 AVR 1chip BASIC A 1chip IC ( B C 1 2 3 4 JA1 VCW2 DDS PLL AD DA mW dBm AD,DA ( Statement IO A/D.))

2 D/A UART I/O 3 99% 1 1 A B 1 C BASIC FORTH A xx B yy ATMEL AVR BASCOM AVR BASCOM BASIC AVR AVR C BASIC MICROCHIP PIC 4 BASCOM BASCOM

3 BASCOM AVR HP [ External Programmer ] HP HP ( BASCOM BASCOM d File => New noname1 Copy&Paste OK File => save save Save Edit => Open Program => Compile AVR ASCII 12 ROMIMAGE.)

4 Hex AVR 5 ATMEL AVR IO IO IO PINn LED SW OUT SW on IN SW off PINn Logic 0 Logic 1 OUT SW off IN SW on PINn SW on off IO 0V 0V OUT IN SW on/off PINn IO 3 IO IC PIN n OUTINLED SWIO 6 AVR ATmega328P 32kbyte BASCOM 4kbyte IO 23 28 DIP 40 DIP QFP 250- 10,000 => 100 10.

5 000 PBn PCn PBn IO IO IO *RESET SCK MISO MOSHI XTAL1 XTAL2 IO IO ATmega328P 7 AVR 1k- 2k- LCD < 1k- 3k- < 1k- BASCOM AVR AVR 4kbyte 10k- 15k- ?

6 ? AVR Core2 CPU 6600 Memory 4G Win7 Ce eron Memory 1G WinXP AVR Windows (OS XP Win7)BASCOM AVR ISPUSB IC AVR 12V => 5V LCD (USB 81234 ABCDE1234 ABCDEAVR Test JA1 VCWVCC1 GND2VO3RS4R/W5E6DB07DB18DB29DB310DB411DB 512DB613DB714BR+BRSC1602U10kVR+5 VPD02PD13PD24PD35PD46 VCC7 GND8PB69PB710PD511PD612PD713PB014PB115PB 216 AVCC20 GND22 AREF21PC023PC124PC225PC326PC427PC528PB4/ MISO18PB3/MOSI17PB5/SCK19PC6/*RES1 ATMEGA368PU+5V123456CN-6 PCNGND123456CN-6 PCNSCKMOSIMISO*RSTGND+5 VMOSIMISOSCK+5 VDB5DB6DB7DB4DB6DB5DB7*RSTDB4*RSTPJJINGN DOUT7805U10u/25V +5V (+8V +12V LEDD1kLEDDSW470 LED LCD ok KBD SDATA OK KBD LCD AVR BASIC))

7 LED1 SW 1 LED IO PD7 PD7 IO D bit7 SW PD0 PD0 IO D bit0 IO D C B Bit IO BASCOM 16 2 LCD LCD LCD IO I O PortBitI/OCPUpin D7O1 3 LLED o u tLED " 1 " D0I2 SWinSW o n " 0 "B5O1 9 D B 7 LCD B ASCO M B4O1 8 D B 6B3O1 7 D B 5B2O1 6 D B 4B1O1 5 En blLCD B ASCO M B0O1 4 RSLCD B ASCO M 9 BASCOM Editor Powerpoint BASCOM AVRBASCOM AVRBASCOM AVRBASCOM AVR HPHPHPHP BASCOM AVR LED LED LED 100ms Rem LEDtest Rem $regfile = ATmega328P $crystal = 1000000 1 MHz Config = Output LED IO PD7

8 PD7 Do Do Loop Set PD7 Logic 1 Logic1 5V Waitms 100 100ms Reset PD7 Logic 0 Logic0 0V Waitms 100 100ms LoopEnd 8 MHz 1/8 1 MHz Do Loop Waitms ms 1 MHz 2 MHz 200ms BASCOM LED 100ms 10 LED 2 LED Rem LEDtest Rem $regfile = " $crystal = 1000000 Config = OutputDim Tm As byte Tm byte Do Tm = nd(255) 0 254 Tm gosub Light LoopLight: Set Waitms Tm Tm Reset Waitms TmReturnEnd Double 8byte Byte 1byte ?

9 ( 0 -1 LED Tm Tm Tm LED 11 SW IO SW LED Rem SW read$regfile = " "$crystal = 1000000 Config = Output PD7 Config = input PD0 Dim Tm As Byte Reset LED off Portd = &H01 Start: Tm = PD0 Tm If Tm = 1 Then Tm 1 PD7 H Set Else PD7 L Reset End If Goto Start Start End SW SW GND SW GND on LED SW Tm Tm SW off PD7 Tm 1 SW on PD7 Start Goto Start SW LED VCCSWPULLUP 12 LCDdisplay LCDdisplay LCDdispley SW on LED on 1 SW off LED off 0 Rem LCDdisp$regfile = " "$crystal = 1000000 Config = OutputConfig = InputConfig Lcdmode = Port 6 16 2 LCD Config Lcdbus = 4)

10 4bit Config Lcdpin = Pin , Db4 = , Db5 = 4bit IO Config Lcdpin = Pin , Db6 = , Db7 = 4bit IO Config Lcdpin = Pin , E = , Rs = IO Config Lcd = 16 * 2 LCD 16 2 Dim Tm As ByteReset = &H01 Cls LCD Start:Tm = Tm = 1 Then then else Set Lcd LED on ; Tm LED on Tm =1 Lowerline Lcd 16 ElseReset Lcd