| English | Japanese |
|
|
昨日までのアクセス |
| はじめに | 【 リリー日記 】 ミンダナオでの生活日記 |
| 10/12/31 | テレビアンテナの製作 |
| 10/12/24 | 可愛いオペレーター |
| 10/12/23 | ビジネス・放送局から相談を受ける |
| 10/12/17 | ビジネス・アンテナ工事 |
| 10/12/15 | 街で見かけるアンテナ |
| 10/12/10 | 14MHzアンテナ修理完了 |
| 10/12/07 | 14MHzアンテナ破壊 |
| 10/12/04 | Fare8クラブのクリスマスパーティー |
| 10/12/04 | Gigi・クラスCの再受験 |
| 10/11/27 | マニラへ・PARAの総会 |
| 10/11/16 | 子豚が生まれました |
| 10/11/06 | ハムショップの状況 |
| 10/11/02 | インターネットが繋がらない |
| 10/10/27 | STANDARD C150修理 |
| 10/10/22 | ハムショップのページ |
| 10/10/22 | 停電 |
| 10/09/30 | 秋のコンデション |
| 10/09/17 | DU8UTPフランコさん |
| 10/09/12 | PSK31に挑戦 |
| 10/09/07 | 豚小屋の拡張工事 |
| 10/08/12 | 21MHzのアンテナ修理 |
| 10/08/07 | 21MHzのアンテナが壊れた |
| 10/08/06 | 裏庭とアンテナ |
| 10/08/03 | 夕焼け |
| 10/07/31 | ラジオのコマーシャル |
| 10/07/03 | シャックご紹介 |
| 10/06/21 | レピーターコントローラー |
| 10/06/07 | レピーターコントローラーCWルーチン |
| 10/05/20 | 快晴・アンテナ群 |
| 10/05/18 | アンテナ群 |
| 10/05/13 | 50MHzもオープン |
| 10/05/09 | 選挙・え！いいの？ |
| 10/05/06 | マネージャー経由のカードの書き方 |
| 10/05/04 | シャック |
| 10/04/20 | VHFレピーターを受注 |
| 10/04/12 | フィリピン軍御一行様 |
| 10/04/11 | ビジネス |
| 10/04/05 | 21MHzと50MHzのアンテナ |
| 10/04/04 | 50MHz設置失敗 |
| 10/04/04 | 無ければ作る・50MHzバラン |
| 10/04/02 | 無ければ作る・クロスマウント |
| 10/04/01 | 50MHz5EL再製作 |
| 10/03/23 | 16mの竹4本 |
| 10/03/22 | 21MHz3エレメント八木の製作 |
| 10/03/15 | 発電機を購入 |
| 10/03/05 | ワイヤーアンテナ |
| 10/02/03 | また壊れました |
| 10/01/20 | 方向が違うんだけど |
| 10/01/19 | 日本向け18MHz八木破損 |
| 10/01/04 | 7/8 2段 144MHｚ帯GP |
| JI1FGX/DU9 ミンダナオ日記 AVRマイコンのプログラミング（2010/06/07) |
||
|---|---|---|
| 以前日本の共立電子デジットで購入したAVR ATMEGA88を使ってレピーターコントローラーを作っていました 途中体調不良や暑くて逃避モードに入って中々進みませんでしたが、やっと全体像が見えてきました 開発環境はBASCOM-AVRベーシックのお試し版 ところが途中で４KBを超えてしまい、1万円を出して正式版を購入しました  ターゲットはMEGA-8-V1とそれに独自で作ったインターフェースです  |
||
| このソースコードはATMEGA88にあわせて作られています。 レピーターコントロール部分は完成していますが、このCWルーチンのマージが終わってから全体像を公開します。 それにしてもいまだにベーシックから抜け出せない悲しさ。コーア技研戦闘員からはCかアセンブラですよねと冷たく突き放されています |
||
| ' Copyright ©2008-2009 JI1FGX Kouichi Ueno ' $regfile = "m88def.dat" ' specify the used micro $crystal = 1280000 ' used crystal frequency $baud = 19200 ' use baud rate $hwstack = 32 ' default use 32 for the hardware stack $swstack = 10 ' default use 10 for the SW stack $framesize = 40 ' default use 40 for the frame space $default Eram Dim Eeprom_value(22) As Eram Byte At $01 $default Sram Dim Modechar(5) As String * 20 Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 Config Lcdpin = Pin , E = Portb.3 , Rs = Portb.2 Modechar(5) = "DE JI1FGX/DU9" Declare Sub Cw() Config Lcd = 20 * 4 'configure lcd screen Config Portd = Input Config Portd.7 = Output Config Portd.7 = Output Config Portc = &B110000 Set Portc.5 Set Portc.6 '&B110000 Call Cw End Sub Cw() Dim In_char As String * 1 Dim CW_data As String * 5 Dim M As String * 1 Dim Cwlen As Byte Dim Cwcodelen As Byte Cls For Cwlen = 1 To Len(modechar(5)) Locate 2 , Cwlen Lcd Mid(modechar(5) , Cwlen , 1) In_char = Mid(modechar(5) , Cwlen , 1) If In_char = " " Then CW_data = " " If In_char = "A" Then CW_data = ".-" If In_char = "B" Then CW_data = "-..." If In_char = "C" Then CW_data = "-.-." If In_char = "D" Then CW_data = "-.." If In_char = "E" Then CW_data = "." If In_char = "F" Then CW_data = "..-." If In_char = "G" Then CW_data = "--." If In_char = "H" Then CW_data = "...." If In_char = "I" Then CW_data = ".." If In_char = "J" Then CW_data = ".---" If In_char = "K" Then CW_data = "-.-" If In_char = "L" Then CW_data = ".-.." If In_char = "M" Then CW_data = "--" If In_char = "N" Then CW_data = "-." If In_char = "O" Then CW_data = "---" If In_char = "P" Then CW_data = ".--." If In_char = "Q" Then CW_data = "--.-" If In_char = "R" Then CW_data = ".-." If In_char = "S" Then CW_data = "..." If In_char = "T" Then CW_data = "-" If In_char = "U" Then CW_data = "..-" If In_char = "V" Then CW_data = "...-" If In_char = "W" Then CW_data = ".--" If In_char = "X" Then CW_data = "-..-" If In_char = "Y" Then CW_data = "-.--" If In_char = "Z" Then CW_data = "--.." If In_char = "0" Then CW_data = "-----" If In_char = "1" Then CW_data = ".----" If In_char = "2" Then CW_data = "..---" If In_char = "3" Then CW_data = "...--" If In_char = "4" Then CW_data = "....-" If In_char = "5" Then CW_data = "....." If In_char = "6" Then CW_data = "-...." If In_char = "7" Then CW_data = "--..." If In_char = "8" Then CW_data = "---.." If In_char = "9" Then CW_data = "----." If In_char = "/" Then CW_data = "-..-." For Cwcodelen = 1 To Len(CW_data) If Mid(CW_data , Cwcodelen , 1) = "." Then Sound Portc.4 , 100 , 100 If Mid(CW_data , Cwcodelen , 1) = "-" Then Sound Portc.4 , 300 , 100 If Mid(CW_data , Cwcodelen , 1) = " " Then Waitms 80 Waitms 30 Next Waitms 200 Next End Sub End |
||
| 2010年05月20日 2010年06月21日 | ||