というわけで、さらにFreeBASICを少しいじる。
SerialPort関係の通信が、ほんとに簡単にできちゃう
のかとか、グラフィック表示はどんななのか。
まぁ、WindowsみたいなUIのGUIは無理だろうけど、
ちょっと簡単なグラフィック表示するだけなら
何とでもできるだろうと。
(実は、WindowsのUIはともかく、イベントドリブン
な、いわゆるWindows的なコーディングスタイルは
可能らしい。へぇ)
まず、serial関係をやってみる。生きてるポートを
探して、その後で固定ポート名でなにやら文字を
出力するという感じで。
(ブログの仕様上、インデント消えちゃうけどご容赦)
dim i as integer
dim ret as integer
' *** for windows,dos ***
for i=1 to 15
ret = open com ("com" + str(i) + ":9600" as 1)
if ret = 0 then
print "o " + str(i) + " port is alive."
close 1
else
print "x " + str(i) + " port is closed."
end if
next i
' *** for linux (usb serial port) ***
for i=0 to 10
ret = open com ("/dev/ttyUSB" + str(i) + ":9600" as 1)
if ret = 0 then
print "o ttyUSB" + str(i) + " is alive."
close 1
else
print "x ttyUSB" + str(i) + " is closed."
end if
next i
' *** for windows,dos ***
open com "com1:9600,n,8,1" as 1
print #1, "string output via serial port." + chr(13, 10)
print #1, "9600bps bit-length=8 parity=non stop-bit=1" + chr(13,10)
close #1
' *** for linux (usb serial port) ***
open com "/dev/ttyUSB0:9600,n,8,1,cs0,ds0,cd0" as 1
print #1, "string output via serial port." + chr(13, 10)
print #1, "9600bps bit-length=8 parity=non stop-bit=1" + chr(13,10)
close #1
DOS/Windowsみたいな「com1」とかっていう番号で探す
のと、Linuxみたいに「/dev/ttyナントカ」って探すの
両方やってみて、結果はretって変数で読み出す。
んで、Ubuntu使ってたんで、/dev/usbTTY0に文字列
出力してみて、なんか出てきたことを確認。
(自動的にcomナントカには割り振られないんだなぁ)
次、グラフィック関係。適当にLine文で色の線を
描いたり、その上でprint文で文字書いたらどう
なるか、みたいな実験。
dim as integer x1, y1, x2, y2, c ,i
dim s as string
screenres 640, 480, 8
randomize
cls
for i=0 to 1000
x1 = (rnd * 640)
y1 = (rnd * 480)
x2 = (rnd * 640)
y2 = (rnd * 480)
c = (rnd * 16)
line (x1, y1) - (x2, y2), c
next i
color 15
locate 10, 10
input "input any word : ", s
print "input text is .. " + s
print "push any key!!!"
sleep
結果から言うと、
![](https://blogimg.goo.ne.jp/user_image/5a/16/185e48176d608d1310aab12e2e39d90a.png)
こんな風に表示できた。描画も結構速い。
文字は、グラフィック表示のルーチンを使うと、自動で
コンパイラが出力先を標準出力からグラフィック画面に
切り替えるみたい。
(グラフィックと標準出力を合わせたい場合は、
標準出力用の命令使わないといけないみたい)
場所はlocateで指定できるし、改行も勝手にするし、
input文もこのとおり使える。ただ、文字の裏にあった
グラフィックが消える。イメージ的にはFM-7みたいだな。
妙に懐かしい。
ちなみに、グラフィック関係の処理を動かそうとすると、
ncursesだけだとエラーになっちゃうので、以下のライブラリ
もインストールする必要があるみたい。日本語マニュアルの
サイトにも書いてある。
http://www.excite-webtl.jp/world/english/web/?wb_url=http%3A%2F%2Fwww.freebasic.net%2Fwiki%2Fwikka.php%3Fwakka%3DCompilerInstalling%26wb_dis%3D3&wb_lp=ENJA&reload=1
・libxrandr-dev
・libx11-dev
・libxext-dev
・libxpm-dev
・libxrandr-dev
・libxrender-dev
あと、もしかしたら
・libffi-dev
・libgl1
もかな?オイラは今のところまだ入れてない。
それにしても、やっぱBASICはなじむな。頭に
思いついたコードをバシバシ書いて、コンパイル
してみると、大体通る。わかんないところとか
方言だけ調べれば、後はどうとでも。
ちょっとしたツールにはもってこいなんだけど、
やっぱ、gui関係の画面作るのメンドイよな、って
思ってたら、
FreeBasicでglade/Gtkを使うっていう変換ソフト
とかそろってるみたい。
www.siebke.com/freebasic/howto_glade_freebasic.pdf
glade使って画面をVSみたいにサクサク描いて、
出力した画面定義のxmlを、「galde2bas」って
ソフトを使ってFreeBASICのコードに変換して
くれるらしい。
こいつをコンパイルのときに読み込ませてやればいい
みたい。
うーーーーん。なんか、一気に環境がそろっちゃった感
があるなぁ。
まともに動くなら、あれこれFreeBASICで動かしてみたい
気もする。
でもまぁ、でっかい開発とかはあまり推奨してない
みたいだし、OSとかを自分で作っちゃうのも推奨
してないみたいだもんな。ツール用だな。
http://www.highriskrevolution.com/gamelife/index.php?e=393
Ysの開発の歴史の一幕。へぇ。
でも、オイラ的には1と2はちゃんとつながってたと
思うし、それより、Originの設定とかストーリーとか、
すごくよかったよな。アドルの時代までの話の設定
にちゃんとつながってて。
https://twitter.com/HayakawaYukio/status/587136828605534209
お。こう見ると、西ノ島がどのくらいの大きさなのか
がよくわかるなぁ。米塚と同じくらいのスコリア丘
なのか。その昔、米塚の噴火もあんな感じだったん
だろうか。
http://akizukidenshi.com/catalog/g/gP-09190/
秋月で、表面実装用のDIP8ピンソケットっていう、
なんだかよくわからないものが。
これがあれば、表面実装基板のアンプ回路で、
オペアンプをとっかえひっかえできちゃうって
魂胆なのかな?
![](/images/clear.gif)
![](/images/clear.gif)
![](/images/clear.gif)
|
![](/images/clear.gif) |
|
|
|
|