Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2022/08/12 10:41:37

MixJuice GET URL : kidspod.club/mj/2133

モールス信号送信（CWトランシーバー接続用）

9/18北海道ハムフェア用に、CWトランシーバーに繋ぐプログラムを頼まれたので、動作確認用にトン・ツー音だけ試作してみました。
エラーチェックや機能追加した完成版は、会場でお披露目できるかな。

  • 1
  • 1

SOURCE CODE

1 LET[33],116,81,0,199,0,33,93,44,108,24,41,114,96,105,40,62,61,59,55,47,31,32,34,38,46,70,84,0,48,0,75,85,5,16,20,8,1,19,10,15,3,29,12,17,6,4,14,21,26,9,7,2,11,23,13,24,28,18
2 K=INKEY():IF!K||![K]CONTELSEX=[K]:?CHR$(K);
3 W=(!(X%2)*2+1)*3:BEEP9,W:WAITW:X=(X%2+X-2)/2:WAIT(!X*2+1)*3:IFXCONTELSEGOTO2

Saved 306byte

COMMENT

Kidspod運営チーム
Kidspod運営チーム2022/08/26 09:15:39

北海道ハムフェア、残念ながら中止になってしまいましたね……。また別の機会にこのプログラムがお披露目できますように祈ります。