PropellerでTV出力 [Propeller]
PropellerのマニュアルにTutorialがあって、その中にTV文字出力がありました。
これで画面の1/4くらいかな。ハードは抵抗3本だけです。お手軽。
キャラクタ液晶と比べて、情報量が格段に増えます。
表示装置には、パチンコ液晶や、カーナビのモニタが利用できますね。
ライブラリを使用していますので、表示文字を記述しているのは、一画面に収まってしまう程度のものです。
{{ Display.spin }}
CON
_clkmode = xtal1 + pll16x
_xinfreq = 5_000_000
OBJ
Num : "Numbers"
TV : "TV_Terminal"
PUB Main | Temp
Num.Init 'Initialize Numbers
TV.Start(12) 'Start TV Terminal
Temp := 900 * 45 + 401 'Evaluate expression
TV.Str(string("900 * 45 + 401 = ")) 'then display it and
TV.Str(Num.ToStr(Temp, Num#DDEC)) 'its result in decimal
TV.Out(13)
TV.Str(string("In hexadecimal it's = ")) 'and in hexadecimal
TV.Str(Num.ToStr(Temp, Num#IHEX))
TV.Out(13)
TV.Out(13)
TV.Str(string("Counting by fives:")) 'Now count by fives
TV.Out(13)
repeat Temp from 5 to 30 step 5
TV.Str(Num.ToStr(Temp, Num#DEC))
if Temp < 30
TV.Out(",")
TV.Out(13)
TV.Out(13)
TV.Str(string("Doggie's blog")) 'Now count by fives
TV.Out(13)
TV.Out(13)
見るとなんとなくわかっちゃう簡潔さ。
TV.Out(13)
の13は、ASCIIコードのキャリッジ・リターン(0x0D)
スーパーインポーズができるとなおいいんですが、外部からVD(垂直同期)を入れてリセットすればできる?かな?
うおーやりてー
明日は試験公開の日
いろいろ追い込んでます
間に合わないところは恰好だけw
本オープンは1週間後
それまでPSoCもPropellerもおあずけ
くやしい...
by ectoyfan (2008-03-07 22:32)
ectoyfanさまこんばんは
ご苦労様です。3/18日ニューリアルオープンがらみですか。漆器?。
Propeller、PSoC以来の祭りの予感です(当社比)。
デバイスさえ手に入ってしまえば、後はCやRやコネクタや程度でいろいろできそうです。ビデオ出力が大きいですね。秋月さーん、扱ってくださーい!。
ectoyfanさまが本腰入れられると、話題かっさらわれてしまうの必至なので、それまでにいろいろ試さなきゃ。
by doggie (2008-03-09 02:32)
いまプレオープンのプログラムがおわったところです.
まだデータが全部できていなくて...
ウルシは今回関係なしですが,
28台の端末,90弱の番組,のべ1700場面のコンテンツを
展開するのでどうしてもミスが...
その中には例のリレーボックスも入ってます.けなげに
動いているのが救いです.
これが終わってもいっぱい貯めてある宿題があるので
かなりブルーなのですが,でも遊びたいですねえ.
ソフトはいいけどハードはプルークボーゲンぐらい
のレベルなので,ぼちぼちやりたいです.
propellerのキットって,まさしく ectoy だと思う今日この頃.
つまりうまくアレンジして子供向けのキットにしちゃえばいいんだ!
by ectoyfan (2008-03-09 16:14)
お仕事ご苦労様です。一度拝見しないといけないですねー。
あのリレーもこの為だったんですね。展示物の準備って大変なんですね...。
Propellerって、とりあえず作ってみました感がありますが、ビジュアルに強いって言うのは、まず楽しくないといけないectoyに向いていそうですね。外付け回路も少ないですし。
LEDチカチカよりも、やはりテレビに結果が出る、色がつく、動く方が楽しいですもんね。
マウスも使えますし、タートルグラフィックス?。
by doggie (2008-03-09 22:49)