プチコンまとめWiki (初代/mkII)

投稿プログラム : TENORI-MV

パンくずリスト

2012年01月06日投稿

/ 投稿者:バイカウントメルビル / タグ : 投稿プログラム 音楽 電子楽器 初代対応 QRコード / 検索用→【メルビル】

はじめに

このプログラムは、shiroさんのプログラム『TENORI-COM』を改造したものとなっています。 TENORI-COMの元ネタはヤマハです。

概要

shiroさんのプログラムに、保存や、読み込み機能を付けたプログラムです。

スクリーンショット・動画

今のところ特にありません。

QR コード

プチコンmkII 向けの QR コードです。

1/22/2
qr0.pngqr1.png

プログラムリスト

  1. ’─── ショキカショリ ───
  2. VISIBLE 1,1,0,0,0,1
  3. PNLTYPE ”OFF”GPAGE 1COLOR 0
  4. ’───  リセット   ───
  5. @ST
  6. CLEAR:GCLS 0:CLS
  7. DIM L(32,24),C$(2)
  8. C$(0)=”○”:C$(1)=”●”
  9. GOSUB@SC
  10. ?”А・・・ショキカ”
  11. ?”Ф・・・ホソ゛ン Х・・・ヨミコミ”
  12. ’─── メインルーフ゜ ───
  13. @LP
  14. FOR X=0 TO 31
  15.  GFILL X*8,0,X*8+6,191,6
  16.  FOR Y=0 TO 23
  17.   IF L(X,Y) THEN BEEP 0,(20−Y)*4096/12
  18.   B=BUTTON()
  19.   IF B AND 16 THEN Y=23:NEXT Y:X=31:NEXT X:GOTO@ST
  20.   IF B AND 32 THEN GOSUB@SV
  21.   IF B AND 128 THEN GOSUB@LD
  22.   GOSUB@TI
  23.  NEXT Y
  24.  GOSUB@SC:GOSUB@TI:GOSUB@SC
  25.  GFILL X*8,0,X*8+6,191,0
  26. NEXT X
  27. GOTO @LP
  28. ’─── タッチハンテイ ───
  29. @TI
  30. IF TCHST==FALSE THEN T0=FALSE:RETURN
  31. IF T0 THEN RETURN
  32. TX=FLOOR(TCHX/8)
  33. TY=FLOOR(TCHY/8)
  34. L(TX,TY)=1−L(TX,TY)
  35. T0=TRUE
  36. RETURN
  37. ’───シタカ゛メンニカク───
  38. @SC
  39. FOR J=0 TO 23
  40.  FOR I=0 TO 31
  41.   PNLSTR I,J,C$(L(I,J)) 
  42.  NEXT I
  43. NEXT J
  44. RETURN
  45. ’───   セーフ゛  ───
  46. @SV
  47. INPUT”ホソ゛ンスルナマエハ”;SV$
  48. MEM$=””
  49. FOR SY=0 TO 23
  50.  FOR SX=0 TO 31 STEP 8
  51.   S=0
  52.   IF L(SX+0,SY)==TRUE THEN S=S+1
  53.   IF L(SX+1,SY)==TRUE THEN S=S+2
  54.   IF L(SX+2,SY)==TRUE THEN S=S+4
  55.   IF L(SX+3,SY)==TRUE THEN S=S+8
  56.   IF L(SX+4,SY)==TRUE THEN S=S+16
  57.   IF L(SX+5,SY)==TRUE THEN S=S+32
  58.   IF L(SX+6,SY)==TRUE THEN S=S+64
  59.   IF L(SX+7,SY)==TRUE THEN S=S+128
  60.   MEM$=MEM$+CHR$(S)
  61.  NEXT SX
  62. NEXT SY
  63. SAVE”MEM:”+SV$
  64. RETURN
  65. ’───   ロート゛  ───
  66. @LD
  67. INPUT”ヨミコムナマエ”;LD$
  68. LOAD”MEM:”+LD$
  69. FOR I=0 TO 95
  70.  L=ASC(MID$(MEM$,I,1))
  71.  IF L AND 1 THEN L(I%4*8+0,FLOOR(I/4))=TRUE
  72.  IF L AND 2 THEN L(I%4*8+1,FLOOR(I/4))=TRUE
  73.  IF L AND 4 THEN L(I%4*8+2,FLOOR(I/4))=TRUE
  74.  IF L AND 8 THEN L(I%4*8+3,FLOOR(I/4))=TRUE
  75.  IF L AND 16 THEN L(I%4*8+4,FLOOR(I/4))=TRUE
  76.  IF L AND 32 THEN L(I%4*8+5,FLOOR(I/4))=TRUE
  77.  IF L AND 64 THEN L(I%4*8+6,FLOOR(I/4))=TRUE
  78.  IF L AND 128 THEN L(I%4*8+7,FLOOR(I/4))=TRUE
  79. NEXT
  80. RETURN

セーブとロードの短縮

  1. ’───   セーフ゛  ───
  2. @SV
  3. FOR L=1 TO 1
  4. INPUT”ホソ゛ンスルナマエハ”;NM$
  5. GOSUB @CHKNAME
  6. NEXT
  7. MEM$=””
  8. FOR SY=0 TO 23
  9.  FOR SX=0 TO 31 STEP 8
  10.   D=1:S=0
  11.   FOR Z=0 TO 7
  12.    IF L(SX+Z,SY)==TRUE THEN S=S+D
  13.    D=D+D ’D=D*2
  14.   NEXT Z
  15.   MEM$=MEM$+CHR$(S)
  16.  NEXT SX
  17. NEXT SY
  18. SAVE”MEM:”+NM$
  19. RETURN
  20. ’───   ロート゛  ───
  21. @LD
  22. FOR L=1 TO 1
  23. INPUT”ヨミコムナマエ”;NM$
  24. GOSUB@CHKNAME
  25. NEXT
  26. LOAD”MEM:”+NM$
  27. IF RESULT!=1 OR LEN(MEM$)!=96 THEN RETURN
  28. FOR I=0 TO 95
  29.  L=ASC(MID$(MEM$,I,1)):D=1
  30.  FOR Z=0 TO 7
  31.   IF L AND D THEN L(I%4*8+Z,FLOOR(I/4))=TRUE
  32.   ’L(I%4*8+Z,I/4)=(L AND D)!=0
  33.   D=D+D ’D=D*2
  34.  NEXT
  35. NEXT
  36. RETURN
  37. ’────ネームチェック───
  38. @CHKNAME
  39. FOR I=0 TO LEN(NM$)−1
  40.  FOR J=0 TO 36
  41.   M$=CHR$(48+J+(J>9)*7+(J>35)*4)
  42.   IF MID$(NM$,I,1)==M$ THEN F=1
  43.  NEXT
  44.  L=L AND F:F=0
  45. NEXT
  46. L=L AND (LEN(NM$)<=8 AND LEN(NM$)>=1)
  47. RETURN

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • 名無しさん : これは楽譜の保存と読み出しが利くので嬉しいです。 (2012/01/16 (月) 22:59:15)
  • RND 128 : 29行目 GOTO忘れ。 (2012/01/17 (火) 01:56:10)
  • RND 128 : 56~63,76~83は改良次第で短縮可能。 (2012/01/17 (火) 02:01:20)
  • バイカウントメルビル : 指摘ありがとうございます(*^_^*) (2012/01/17 (火) 20:12:28)
  • RND 128 : セーブとロード部分の短縮をしてもいいですか? (2012/01/29 (日) 00:57:37)
  • バイカウントメルビル : ↑どうぞどうぞ (2012/01/29 (日) 10:21:12)
  • RND 128 : エラーを防ぐネームチェック機能も入れときました。 (2012/01/29 (日) 14:30:34)
  • バイカウントメルビル : ありがとうございますm(__)m (2012/02/11 (土) 21:24:05)
  • 名無しさん : QRじゃないときつい(汗) (2012/03/24 (土) 21:04:45)
  • ジオライド : QRコード載せました。名前はTENORIです。 (2012/03/25 (日) 02:22:17)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.054 秒 | このページの最終更新 : 2012/08/15 (水) 11:23:39 (2653d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30