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

Toukou/JPRDR の変更点

パンくずリスト


#title(投稿プログラム : JPRDR)
#contents
2013年2月2日投稿
/ 投稿者 : @hnakai0909
/ &tag(投稿プログラム,実用ツール,QRコード,mkII専用);
* 概要 [#Summary]
JPRDR は JaPanese ReaDeR の略です。
Shift-JIS形式の文章を表示することができます。

** 使用/参考にさせていただいたもの [#copyright]
-「漢字データ」( http://wiki.hosiken.jp/petc/?Toukou%2F%B4%C1%BB%FA%A5%C7%A1%BC%A5%BF )
--「美咲フォント」( http://www.geocities.jp/littlimi/misaki.htm )
-「区点コードと-Shift_JIS」( http://slashdot.jp/journal/476584/%E5%8C%BA%E7%82%B9%E3%82%B3%E3%83%BC%E3%83%89%E3%81%A8-Shift_JIS )

-「プチコン - Wikipedia」【文章データのサンプルとして】( http://ja.wikipedia.org/wiki/%E3%83%97%E3%83%81%E3%82%B3%E3%83%B3 )

*テキストデータの読み込みかた [#sebf3de6]
+Shift-JIS形式で保存されたテキストデータを適宜用意する(現在48KB以下のみ対応)
+DSPCBMP ( http://www.aogondo.net/PetitCom/DSPCBMP/index.php )のバイナリ→GRP変換機能を使用してGRPデータに変換する
+公式QR変換ツールなどでQRコードに変換する
+プチコンmkIIに取り込む
+適宜プログラムの16行目の

#basic(start=16){{
LOAD"GRP2:SJISTEXT",FALSE
}}

のファイル名を書き換える
+おしまい

*バグ等情報 [#oa30517a]
-「漢字データ」のURLが間違っている
**対応文字等 [#kceb252c]
-1バイト文字
--CR,LF
--タブ
--JIS X 0201(半角英字、半角数字、半角記号、半角カタカナ)
-2バイト文字
--1,2区(全角記号)
--3区(全角英字、数字)
--4区(ひらがな)
--5区(カタカナ) (※ヮヰヱヵヶ→ワイエカケに変換)
--8区(罫線) (※太線細線関係なく表示)
--13区(機種依存全角記号)
--16〜47区(第1水準漢字)
--48〜84区(第2水準漢字)
**未対応文字等 [#i468d786]
-2バイト文字
--6,7区(ギリシャ文字、ロシア(キリル)文字)すべて
--89〜92,115〜119区(特殊漢字)

* スクリーンショット・動画 [#ScreenShots]
#ref(JPRDRSS.PNG)
* QR コード [#QR]
プチコンmkII 向けの QR コードです。

// #ref(アップロードしたファイル名,,200%)

|>|~PRG:HNKSJIS(本体プログラム)|
|&ref(qr100.png,,100%);|&ref(qr101.png,,100%);|


#region(GRP:SJISTEXT)
|>|~GRP:SJISTEXT(Shift-JIS形式テキストデータのサンプル)|
|&ref(text_qr0.png,,100%);|&ref(text_qr1.png,,100%);|
|&ref(text_qr2.png,,100%);|&ref(text_qr3.png,,100%);|
|&ref(text_qr4.png,,100%);|&ref(text_qr5.png,,100%);|
|&ref(text_qr6.png,,100%);|&ref(text_qr7.png,,100%);|
|&ref(text_qr8.png,,100%);||
#endregion

* プログラムリスト [#List]
※注意!
「漢字データ」( http://wiki.hosiken.jp/petc/?Toukou%2F%B4%C1%BB%FA%A5%C7%A1%BC%A5%BF )
にあるGRP:MISAKIがプログラム内で必要になります。

#region(プログラムリスト)
#basic{{
'JPRDR003
'(JaPanese ReaDeR)
'"GRP:SJISTEXT" ノ
'SHIFT-JIS ケイシキ TEXT ヲ ヨミコンテ゛
'カンシ゛ カナ マシ゛リフ゛ン ヲ ヒョウシ゛スルヨ!
'「ミサキフォント」
'( http://www.geocities.jp/littlimi/misaki.htm )
'「カンシ゛テ゛-タ」
'( http://wiki.hosiken.jp/petc/?Toukou%2F%B4%C1%BB%FA%A5%C7%A1%BC%A5%BF )
' ヲ シヨウ サセテ イタタ゛キマシタ
'Author:@hnakai0909

ACLS
CLEAR
SYSBEEP=FALSE
LOAD"GRP2:SJISTEXT",FALSE
LOAD"GRP3:MISAKI",FALSE
SYSBEEP=TRUE
RETSU(0)=128:RETSU(1)=64:RETSU(2)=32:RETSU(3)=16:RETSU(4)=8:RETSU(5)=4:RETSU(6)=2:RETSU(7)=1
'モシ゛ヨミコミ
'K=@ク,B=@ハ゛ン-1
TEXTP=0
GOSUB @SJIS2ASC
FOR J=0 TO 48*1024
 S1=GSPOIT(2,TEXTP%256,FLOOR(TEXTP/256))
 IF S1==0 THEN GOSUB @NEXTPAGE:ACLS:BEEP 3:END
 TEXTP=TEXTP+1
 S2=GSPOIT(2,TEXTP%256,FLOOR(TEXTP/256))
 GOSUB @SJIS2KUTEN
 IF II>=(32*23) THEN GOSUB @NEXTPAGE
 Q=K-1
NEXT J

@SJIS2KUTEN
 GPAGE 0,0,0
 IF !((128<S1 AND S1<160)OR(223<S1 AND S1<253)) GOTO @ONEBYTE
 B=0
 IF 63<S2 AND S2<128 THEN D=1:B=S2-64
 IF 127<S2 AND S2<159 THEN D=1:B=S2-65
 IF 158<S2 AND S2<253 THEN D=0:B=S2-159
 IF 128<S1 AND S1<159 THEN K=((S1-112)*2-D-32)
 IF 239<S1 AND S1<253 THEN K=((S1-176)*2-D-32)
 TEXTP=TEXTP+1
 Q=K-1
 GOSUB @KANJI
 RETURN
@ONEBYTE
 IF S1==13 THEN II=FLOOR(II/32)*32+32:RETURN
 IF S1==10 THEN RETURN
 IF S1==9 THEN II=II+4:RETURN
 GPUTCHR (II%32)*8,FLOOR(II/32)*8,"BGF",S1,0,1
 II=II+1
RETURN

@KANJI
 IF !(K==3 OR K==5 OR K==8) GOTO @KANJI2
 B=B+1
 IF K==3 THEN GPUTCHR (II%32)*8,FLOOR(II/32)*8,"BGF",ASC(MID$(S2AT2$,B,1)),0,1:II=II+1
 IF K==8 THEN GPUTCHR (II%32)*8,FLOOR(II/32)*8,"BGF",ASC(MID$(S2AT3$,B,1)),0,1:II=II+1
 IF K==5 THEN GOSUB @S2A5KUL
RETURN

@KANJI2
 FOR I=0 TO 7:C(I)=0:NEXT
 M$="":N$="":E$=""
 IF 2<K THEN Q=Q-1
 IF 4<K THEN Q=Q-8
 IF 13<K THEN Q=Q-2
 B=(Q*94+B)*7
 FOR I=0 TO 6
  C(I)=GSPOIT(3,(I+B)%256,FLOOR((I+B)/256))
  FOR JJ=0 TO 7
   IF !!(C(I) AND RETSU(JJ)) THEN GPSET (II%32)*8+JJ,I+FLOOR(II/32)*8,15
  NEXT
 NEXT
 II=II+1
 GPAGE 1,3,3
RETURN

@NEXTPAGE
 @ANYKEY
  COLOR 1+RND(15):LOCATE 0,23:?"   ##Press any key or touch##";
  WAIT 5
 IF (BUTTON()+TCHST)==0 GOTO @ANYKEY
 BEEP 9
 II=0
 CLS
 GPAGE 0,0,0
 FOR Z=0 TO 21
  GCOPY 0,0,8,255,191,0,0,1
 VSYNC 2
 NEXT
 GCLS
 GPAGE 1,3,3
RETURN

@SJIS2ASC
DIM S2A5KU$(96)
FOR Z=0 TO 5
 READ S2AT1$
 S2AT2$=S2AT2$+S2AT1$
NEXT
FOR Z=0 TO 2
 READ S2AT1$
 S2AT3$=S2AT3$+S2AT1$
NEXT
FOR Z=0 TO 95
 READ S2AT1$
 S2A5KU$(Z)=S2AT1$
NEXT
RETURN

@S2A5KUL
FOR QZ=0 TO LEN(S2A5KU$(B))-1
GPUTCHR (II%32)*8,FLOOR(II/32)*8,"BGF",ASC(MID$(S2A5KU$(B),QZ,1)),0,1
II=II+1
NEXT
RETURN

'SJIS2ASC
'3KU 0~95
DATA"                "
DATA"0123456789      "
DATA" ABCDEFGHIJKLMNO"
DATA"PQRSTUVWXYZ     "
DATA" abcdefghijklmno"
DATA"pqrstuvwxyz     "
'8KU 0~47
DATA" ─│┌┐┘└├┬┤┴┼─│┌┐"
DATA"┘└├┬┤┴┼├┬┤┴┼├┬┤┴"
DATA"┼               "
'5KU 0~95
DATA " ","ァ","ア","ィ","イ","ゥ","ウ","ェ"
DATA "エ","ォ","オ","カ","カ゛","キ","キ゛","ク"
DATA "ク゛","ケ","ケ゛","コ","コ゛","サ","サ゛","シ"
DATA "シ゛","ス","ス゛","セ","セ゛","ソ","ソ゛","タ"
DATA "タ゛","チ","チ゛","ッ","ツ","ツ゛","テ","テ゛"
DATA "ト","ト゛","ナ","ニ","ヌ","ネ","ノ","ハ"
DATA "ハ゛","ハ゜","ヒ","ヒ゛","ヒ゜","フ","フ゛","フ゜"
DATA "ヘ","ヘ゛","ヘ゜","ホ","ホ゛","ホ゜","マ","ミ"
DATA "ム","メ","モ","ャ","ヤ","ュ","ユ","ョ"
DATA "ヨ","ラ","リ","ル","レ","ロ","ワ","ワ"
DATA "イ","エ","ヲ","ン","ウ゛","カ","ケ"," "
DATA " "," "," "," "," "," "," "," "
}}
#endregion

* CHECKER FLAG (ひとことコメント) [#Comments]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
- ''カービィ★KIRBY'' : すげー! プチコンでこんなことも出来るのかぁ!! (&new{2013/02/02 (土) 17:03:15};)
- ''11'' : おおー!!プチコンの技術は発展した!! (&new{2013/02/02 (土) 18:56:28};)
- ''.EXE'' : 漢字がとても上手!おれもやってみたけど、無理だった。 (&new{2013/02/02 (土) 19:23:44};)
- ''hnakai0909'' : 漢字データは美咲フォントですー (&new{2013/02/02 (土) 20:11:02};)
- ''天郷思音'' : 私も作ろうと思ってたんですが、SJIS→JISの変換で挫折しました。 (&new{2013/02/03 (日) 09:55:20};)
- ''Citrine'' : スマイルブームもびっくり! (&new{2013/02/03 (日) 14:50:16};)
- ''hnakai0909'' : なんだかプログラムの名前が落ち着かないですーw 結局HNKSJISになりそうです。 (&new{2013/02/03 (日) 22:03:49};)
- ''名無しさん'' : そこまで言う程画期的、ではないとは思う。 (&new{2013/02/03 (日) 23:10:03};)
- ''キービィ'' : 昨日QR読み込んだはいいんだけど、漢字データ入ってなかったせいで思いきりバグった…39枚読まなくちゃならないのか…気が滅入る… (&new{2013/02/06 (水) 07:14:52};)
- ''名無しさん'' : これでさらに入力できるといいんだけどIME作らないといけないから難しいよなぁ (&new{2013/02/06 (水) 14:56:49};)
- ''名無しさん'' : 入力したい (&new{2013/02/06 (水) 16:10:10};)
- ''yuy@'' : 英語の小文字の部分をカタカナの濁点/半濁点にすれば読みやすくなると思う。だけどプチコンは自分で簡単に改造できるので解析してお持ち帰りします。 (&new{2013/04/14 (日) 18:45:33};)
- ''yuy@'' : ↑逆かww (&new{2013/04/14 (日) 18:46:16};)
- ''yuy@'' : ただそのかわり英語だと大文字しか使えなくなる。 (&new{2013/04/14 (日) 18:53:15};)
- ''TNNJSOFT'' : おおお!webが見れる!あたりまえ!(殴 (&new{2013/08/18 (日) 21:09:17};)
- ''名無しさん'' : 表示できても需要は無さそうだな (&new{2013/09/04 (水) 19:50:24};)
- ''/・ω・\'' : 自分でテキストをつくるには、どうしたら良いですか?教えてください。 (&new{2013/11/19 (火) 19:17:16};)
- ''引用'' : 名無しさん : これでさらに入力できるといいんだけど&BASIC{IME};作らないといけないから難しいよなぁ (2013/02/06 (水) 14:56:49) (&new{2013/11/20 (水) 18:08:22};)
- ''名無しさん'' : ↑↑ここにあるhttp://wiki.hosiken.jp/petc/?Toukou%2FJPRDR#sebf3de6 (&new{2013/11/20 (水) 18:30:58};)
- ''Citringo'' : Unicode対応したら神やな (&new{2013/11/20 (水) 20:12:49};)
- ''Citringo'' : やれるなら 3号まとう ホトトギス (&new{2013/11/20 (水) 20:13:27};)
- ''hnakai'' : IMEは作りかけで放置してます..http://twitpic.com/c2tdrp (&new{2013/11/22 (金) 21:27:25};)
- ''天郷思音'' : ほう (&new{2014/02/21 (金) 17:04:29};)

#comment

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