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

Toukou/GRPリソースを使った文字の記録 のバックアップの現在との差分(No.3)


  • 追加された行はこの色です。
  • 削除された行はこの色です。
#title(投稿プログラム:GRPリソースに文字を記録してみる。)
#title(投稿プログラム: GRPリソースに文字を記録)
#contents
/////////////////////////////////
// ←このように「//」で始まる行はコメントです。ページ本文には反映されません。
// ・投稿年月日は、このページを投稿しようとしている今日の日付を入力してください。
//   この日付は、投稿プログラムを自動的に年月日順に整理する際に使用されます。
// ・投稿者名は「名無しさん」のままにしておくと、匿名投稿として扱われます。
// ・また、適当にタグをつけることができます。半角のコンマ区切りで複数つけられます。
//   タグをつけると、同じタグが付いたページを検索することができます。

2012年2月27日投稿
2012年02月27日投稿
/ 投稿者 : orirakkusu
/ &tag(投稿プログラム,ツール);
/ &tag(投稿プログラム,ツール,QRコード,初代対応,mkII専用);

/////////////////////////////////
// ここに概要とか書きます。** や *** で始まる行は子見出しとなります。
// [#英数字] はページ内リンクに使用されるアンカーですが、
// 書かなかったり、消したりしてもかまいません。
// ない場合、自動でランダムな文字列が再付与されます。

* 説明 [#u3e28dca]
* 説明 [#setumei]

** 使い方 [#ja77f5e8]
** 使い方 [#tukaikata]
打ち込んだら、RUNしてください。そうすると、カーソルがちっかちっか点滅しているはずです。そこでなにか(例えばテースートーDAYOとか。)打ち込んで下さい。仕上げにenter押せば、もう保存できちゃいました。終わるときは空っぽにしてenter押せば終わります。
** 参考にしたもの [#s33b3094]
Toukou/電子ピアノ。
** 参考にしたもの [#sankou]
[[Toukou/電子ピアノ]]。~
***↑の作者から一言 [#sakusyacoment]
元祖は[[Toukou/プログラムのマージ]]らしいです。~
/////////////////////////////////

* スクリーンショット・動画 [#qb855f33]
動作しているところを撮影した写真や動画があれば貼り付けてください。

* スクリーンショット・動画 [#ss0video]
// 動作しているところを撮影した写真や動画があれば貼り付けてください。
近日公開予定。
// ページを作成すると、画像の添付ができるようになります。(作成する前はできません)
// 画像を添付したら、以下の書式でページ内に貼り付けられます。
// #ref(添付ファイル名)

// 以下の書式で、YouTube やニコニコ動画を貼り付けられます。
// #youtube(0HWX7kovgY8)
// #nicovideo(sm13684820)

/////////////////////////////////

* プログラムリスト [#g0af827b]
*mkll用QRコード [#f882e4b7]
// ...誰かつくって!私、パソコンないの!
**Ver 1.00 [#d8cc26cd]
|~PRG:GRPTYPE|
|&ref(qr0.png,,200%);|
* プログラムリスト [#proglam]
**プログラムリストの見方 [#proglaml]
灰色で囲んであるのは削除、青で囲んであるのは追加です。
***Ver 1.00 [#t4f33a22]
#basic{{
GCLS 0:CLEAR:DIM A$(1529)
GCLS 0:CLEAR<COLOR>(#cccccc){:DIM A$(1529)}
FOR I=0 TO 1528
LINPUT A$(I)
IF A$(I)=="" THEN END
FOR U=0 TO LEN(A$(I))
B$=MID$(A$(I),U,1)+A$
IF B$==A$ THEN U=LEN(A$(I):NEXT:NEXT
LINPUT A$<COLOR>(#cccccc){(I)}
IF A$<COLOR>(#cccccc){(I)}=="" THEN END
FOR U=0 TO LEN(A$<COLOR>(#cccccc){(I)})-1
B$=MID$(A$<COLOR>(#cccccc){(I)},U,1)+A$
<COLOR>(#cccccc){IF B$==A$ THEN U=LEN(A$(I)):NEXT:NEXT}
GPAGE 1
GPSET OLDX,OLDY,ASC(B$)
OLDX=OLDX+1
IF OLDX>255 THEN OLDX=0:?"PPP":OLDY=OLDY+1
IF OLDX>255 THEN OLDX=0:<COLOR>(#cccccc){?"PPP":}OLDY=OLDY+1
NEXT:NEXT
}}

***Ver 1.10(mkll専用です。) [#x84b521b]
近日公開予定。
// (リスト超未完成、QR作成中というすごい有り様)
// #basic{{
// CLS:CLEAR
// IF VERSION<&H2000 THEN END
// }
*読み込み用 [#load]
#basic{{
FOR Y=0 TO 191
FOR X=0 TO 255
PRINT CHR$(GSPOIT(X,Y));
IF LG==0 AND LG==G THEN END
LG=G
G=GSPOIT(X,Y)
NEXT:NEXT
}}
***このプログラムを実行する際の注意 [#i96eadf4]
Ver 1.2 または mkll Ver 2.0で実行してください。
エラーがでる恐れがあります。
/////////////////////////////////
// コメントを募集したくないなら、ここから下は削除してください

* CHECKER FLAG (ひとことコメント) [#ic9d67c9]
このプログラムに対するコメントがあれば一言どうぞ。
* CHECKER FLAG (ひとことコメント) [#comment]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
ちなみに二重投稿は投稿者が見つけ次第一つにします。
- ''ジオライド'' : うぽつ( ^_^)ノ (&new{2012/02/27 (月) 17:15:17};)
- ''名無しさん'' : どゆいみ? (&new{2012/02/27 (月) 21:02:16};)
- ''わぁぃ@'' : すみません。「参考にしたもの」あたりを更新してしまいました。 (&new{2012/02/27 (月) 21:10:32};)
- ''orirakkusu'' : いえいえ、作者さんなんですし、いいですよ〜♪ (&new{2012/02/27 (月) 21:36:33};)
- ''プログラムのマージの投稿者'' : GRPへのデータ保存は、2ちゃんねる プチコンスレ その1 >>327 (2011/03/03) で既に話が出ていますし、元祖っていうのはちょっと違うかなと。 (&new{2012/02/27 (月) 23:07:17};)
- ''ジオライド'' : ↑×5[[Toukou/簡易メトロノーム]]のコメントに書いてあります。うp乙(UPお疲れ)→upotsu→うぽつ です。 (&new{2012/02/28 (火) 00:27:32};)
- ''orirakkusu'' : ありがとうございます! (&new{2012/02/28 (火) 08:04:18};)
- ''バイカウントメルビル'' : うぽつです! (&new{2012/02/28 (火) 19:17:25};)
- ''orirakkusu'' : 本当に昨日は疲れました。3dsの画面とtvをいったり来たりでしたから。 (&new{2012/02/28 (火) 19:20:31};)
-''orirakkusu'':現在メンテ中。しばらくお待ち下さい。
- ''orirakkusu'' : 完了しました。 (&new{2012/03/02 (金) 14:15:35};)
- ''名無しさん'' : ああ&#183;&#183;&#183;そうゆうこと。 (&new{2012/03/02 (金) 20:06:12};)
- ''ys2000pro'' : そういえばうちの友達もGRPに文字保存するプログラム自作してたな.. (&new{2012/03/17 (土) 12:19:06};)
- ''名無しさん'' : 7行目を消して、5行めを&basic{FOR U=0 TO LEN(A$(I))−1};にしたほうがいいかもしれません。 (&new{2012/03/24 (土) 00:16:01};)
--''orirakkusu'':ご指摘ありがとうございます。(&new{2012/03/24 09:00:02};)
- ''ジオライド'' : QRコード載せました。名前はGRPTYPEです。 (&new{2012/03/24 (土) 01:18:21};)
--''orirakkusu'':ありがとうございます!(&new{2012/03/24 9:01:00};)
- ''名無しさん'' : ならタグ作ろ、タグ。 (&new{2012/03/24 (土) 02:24:29};)
- ''ジオライド'' : ↑ありがとうございます、忘れてました。 (&new{2012/03/24 (土) 06:32:37};)
- ''名無しさん'' : いえいえ、こちらこそ役にたてて嬉しいです。 (&new{2012/03/24 (土) 08:04:52};)
- ''ジオライド'' : 勝手ながらv1.00の3行目&basic{LINPUT A$(I)};を修正しました。 (&new{2012/05/14 (月) 00:43:42};)
- ''yuy@'' : これでRPGのメッセージ記録できると思うよ。 (&new{2012/11/11 (日) 11:24:21};)

#comment

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