avr.device = atmega328p
avr.clock = 16000000
avr.stack = 32
uart.Baud = 9600
uart.send.enable
#define LED1 as portB.5 'LED1 is defined as label for portB.5
LED1.mode = output,low 'the port is configured as output and set to low
dim count as byte
do
LED1 = 1 'LED1 on
waitms 500 'wait for 500ms
LED1 = 0 'LED1 off
waitms 500 'wait for 500ms
print "Count="; str( count )
count++
loop
avr.device = atmega328p
avr.clock = 16000000
avr.stack = 32
uart.Baud = 9600
uart.send.enable
#define LED1 as portB.5 'LED1 is defined as label for portB.5
LED1.mode = output,low 'the port is configured as output and set to low
dim count as byte
' main routin
do
led_on()
waitms 500 'wait for 500ms
led_off()
waitms 500 'wait for 500ms
print "Count="; str( count )
count++loop
' 関数、サブルーチン群は必ずメインルーチンの下に書く。
procedure led_on()
LED1 = 1 'LED1 on
endprocprocedure led_off()
LED1 = 0 'LED1 off
endproc
' Manchester codec for LunaAvr
' Made by audin 2014/12
' Refered to
' http://www.sfcompiler.co.uk/wiki/pmwiki.php?n=SwordfishUser.Comparison
' http://www.sfcompiler.co.uk/wiki/pmwiki.php?n=SwordfishUser.ManchesterCode
'
' For ATMega328p
avr.device = atmega328p
avr.clock = 16000000
avr.stack = 32
#define LED1 as portB.5 'LED1 is defined as label for portB.0
LED1.mode = output,low 'the port is configured as output and set to low
' Global defs
Dim Index As Byte
Dim bOrgval As Byte
Dim wEncval As Word
Dim bDecval As Byte
Dim bRes As Byte
' main routine
Do
For bOrgval = 0 To 255
wEncval = Encode( bOrgval )
bRes = Decode( wEncval , bDecval )
If bOrgval <> bDecval Then
Call Led_blink(1)
End If
Next
Call Led_blink(0)
Loop
' 関数、サブルーチン群は必ずメインルーチンの下に書く。
procedure Led_blink( byval state As Byte )
Do
If state = 1 Then
LED1 = 1
Waitms 500
LED1 = 0
Waitms 500
Else
LED1 = 1
End If
Loop
Endproc
'Encode...
Function Encode( byval bValue As Byte) As Word
dim Encode as word
Encode = 0
For Index = 0 To 7
If bValue.0 = 0 Then
Encode.14 = 1
Else
Encode.15 = 1
End If
If Index < 7 Then
Encode >>= 2
End If
bValue >>= 1
Next
return Encode
Endfunc
' Decode...
Function Decode( byval bEncodedValue As Word , byref pbDecodedValue As Byte) As Byte
dim Decode as byte
Decode = 1
For Index = 0 To 7
If bEncodedValue.1 = 0 And bEncodedValue.0 = 1 Then
pbDecodedValue.7 = 0
Elseif bEncodedValue.1 = 1 And bEncodedValue.0 = 0 Then
pbDecodedValue.7 = 1
Else
Decode = 0
break
End If
bEncodedValue >>= 2
If Index < 7 Then
pbDecodedValue >>= 1
End If
Next
return Decode
Endfunc
' Manchester codec for LunaAvr with Encodings module
' Made by audin 2014/12
' Danke forum guys.
' Refered to
' http://forum.myluna.de/viewtopic.php?f=8&t=808
'
' Refered to
' http://www.sfcompiler.co.uk/wiki/pmwiki.php?n=SwordfishUser.Comparison
' http://www.sfcompiler.co.uk/wiki/pmwiki.php?n=SwordfishUser.ManchesterCode
'
' For ATMega328p
avr.device = atmega328p
avr.clock = 16000000
avr.stack = 32
#library "Library/Encodings.module"
#define LED1 as portB.5 'LED1 is defined as label for portB.0
LED1.mode = output,low 'the port is configured as output and set to low
Dim bOrgval As Byte
Dim wEncval As Word
Dim bDecval As Byte
Dim bRes As Byte
' main routine
Do
For bOrgval = 0 To 255
wEncval = ManchesterEncode( bOrgval )
bRes = ManchesterDecode( wEncval , bDecval )
If bOrgval <> bDecval Then
Call Led_blink(1)
End If
Next
Call Led_blink(0)
Loop
' 関数、サブルーチン群は必ずメインルーチンの下に書く。
procedure Led_blink( byval state As Byte )
Do
If state = 1 Then
LED1 = 1
Waitms 500
LED1 = 0
Waitms 500
Else
LED1 = 1
End If
Loop
Endproc
で、誰かWindows7/8.1上でコンパイル出来た人いる? と、聞いてみる。:D * Windowsで使えるバージョン 2014/12 上ではだめだったけど、2014/12/11 に新しいベータ版が出て、 それだとWindows上でコンパイルできました。 (^^)/ WindowsでOKなバージョン Version 2015.r1 build 7379 (beta) Version 2015.r1 build 7536 (beta) ダウンロード時の表示は、 LunaAVR 2015.r1 (beta) from 2014/12/11
mikroBasicやBASCOM-AVRを意識した大変結構な作りになっています。:D avrdudeとavrdude-guiっぽいものも搭載されていて、 Arduninoを持っていれば、そのまま書き込むことができます。 (自動でリセットもかかります。) Terminalアプリもついてます。 LCD用のフォントエディタなんかもあります。 きりがありません。xD * 言語仕様 概略: http://avr.myluna.de/doku.php?id=en:features 詳細はIDEのHelp-Language ReferenceでPDF参照できます。 LEDチカチカ: 以下は実際に、Arduino DuemilanoveコンパチブルボードでLEDチカチカさせつつ、 UARTに文字列を出力したコードです。 Arduino Duemilanove http://arduino.cc/en/uploads/Main/arduino-duemilanove-schematic.pdf
avr.device = atmega328p avr.clock = 16000000 avr.stack = 32 uart.Baud = 9600 uart.send.enable #define LED1 as portB.5 'LED1 is defined as label for portB.5 LED1.mode = output,low 'the port is configured as output and set to low dim count as byte do LED1 = 1 'LED1 on waitms 500 'wait for 500ms LED1 = 0 'LED1 off waitms 500 'wait for 500ms print "Count="; str( count ) count++ loop普通っぽく書ける。 でも、 オブジェクト指向の構造化BASIC言語です。 この手の物としてはかなり強力な言語仕様だと思います。 やりたいことは、多分全部できるくらいの仕様を持っています。(^^)/ (1) C言語っぽい記述も一部使えます。 foo++ とか bar /= 3 とか 数値のシフトやローテートもできます。 (2) 各種基本内蔵ライブラリも揃ってます。 Timer,UART,PWM...... 以下は内蔵ライブラリ以外の追加ライブラリです。 http://avr.myluna.de/doku.php?id=en:libraries (3) 構造体もバリバリ使えます。ネストも可能。 (4) ローカル変数も使えます。 (5) 簡易的なマルチタスクは3種類サポートされています。 プリエンプティブ型 (TaskKernel) ノンプリエンプティブ型 (TaskMgr) Timerベース型 (TaskTimer) (6) ポインタ/関数ポインタも使えます。 (7) インライン・アセンブラも可能。 (8) 単精度の浮動小数も使えます。 (9) C言語と同様なマクロ定義もできます。 #define foo(bar,coo) as ( (bar) + 2 * (coo) ) の様な。 (10) #if #endif 等のプリプロセッサ・マクロも使えます。 きりがありません。xD ここにも書きましたが、BASCOM-AVR(試用版)は2変数演算までしかできないとか、 GCBASICはif文でビットチェックとそうでない評価式の連結ができない という制限がありましたが、 LunaAVRにはそういう制限はありません。 * IDEの起動 解凍したら、「LunaAVR.exe」をダブルクリックします。 * Linux上でAVRに書き込む時のメモ Arduino DuemilanoveはFTDIベースのUARTなので、 デバイス名は「/dev/ttyUSB0」となる。(dmesgで確認) そのままだとPermissionエラーがでるので、ルート権限で、# chgrp 自分のログイン名 /dev/ttyUSB0とした。(udev変えた方がいいのかもしれないが) Settings - Uploader/Programmer - Uploaderタブ Windowsの場合、「/dev/ttyUSB0」を「Com3」等に変えれば良い。* コンパイル後にアセンブラリストをはき出す設定 Options - Compiler - Compilerタブで、 Optionsのところを 「-v -ohbrayzs -w1 "%file%" 」 とする。 ソースコードと同じ場所にリストファイルや中間ファイルが出る。 * コンパイル後のサイズ情報を見る方法 Project - Show Report Summary を選択する。 * Terminal設定 Tools - Open terminal で設定する。 * 問題点 :D (2) UART出力を内蔵ターミナルで表示する場合のボーレートは 「9600bps」以外は正しく表示できませんでした。 orz コンパイラの問題かターミナルの問題かは不明。 * 基本データ型の一覧 数値のカンマとピリオドが逆に表記されている。
以下の項目については保留とします。下記参照。 * お勧めなバージョンとそうでない。。。 (ry ハマリました。orz 現在の安定版は「2014r2.4」だけどこれはダメだ。orz コンパイラがどこかバグってる。 orz orz 同じテストコードはベータ版の「2015r1.build6835」のほうなら問題なく動く。 orz 気付くのに時間がかかった。orz ここまでの、結果、 少なくとも、 安定版「2014r2.4」はお勧めではない。 * 重要な記述順序 フォーラムの方からまた教えていただきました。 上記で不安定としていた状況はどうも書き方が悪かった可能性が高そうです。 今となっては思い出せないので、正しい書き方を記載しておきます。 メインルーチンは、必ず関数やサブルーチンより前に書くこと。 これを守らないと挙動不審になるそうです。 以下に簡単な正しい例を示します。
