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

投稿プログラム : インチキ手書き入力

2012年01月23日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム 非実用ツール QRコード

概要

手書き入力ですがインチキです。

下画面の枠の中に数字を書くと上画面に認識された文字が表示されます。

Bボタンでクリア、Xボタンで終了。

枠外へのはみ出し、認識失敗時の処理は入れておりません。

履歴

2012/01/23

初版

2012/02/12

最大パターン数を変数(PMAX)に

パターンと一致しない場合1秒後に下画面をクリア、上画面に「?」を表示、BEEPを追加

認識パターン数を10追加

変更箇所

(2012/03/02追記:変更箇所を赤文字にしました)

6、31、32、82行目:変数PMAX追加による変更

46〜55行目:認識パターンの追加

74、75、77行目:認識失敗処理追加による変更

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

まだありません。

QR コード

ファイル名(TEGAKIN)
s_qr0.png

プログラムリスト

  1. CLS:GCLS:CLEAR
  2. PNLTYPE ”OFF”
  3. BGPAGE 1
  4. GPAGE 1
  5. CLS:GCLS
  6. C=10:PMAX=20
  7. FOR I=12 TO 19
  8. BGPUT 1,I,5,768+35,C,0,0
  9. BGPUT 1,I,18,768+99,C,0,0
  10. NEXT
  11. FOR J=6 TO 17
  12. BGPUT 1,11,J,768+66,C,0,0
  13. BGPUT 1,20,J,768+68,C,0,0
  14. NEXT
  15. BGPUT 1,11,5,768+34,C,0,0
  16. BGPUT 1,20,5,768+36,C,0,0
  17. BGPUT 1,11,18,768+98,C,0,0
  18. BGPUT 1,20,18,768+100,C,0,0
  19. FOR I=1 TO 6
  20. READ CX(I),CY(I)
  21. NEXT
  22. DATA 96,48
  23. DATA 128,48
  24. DATA 96,80
  25. DATA 128,80
  26. DATA 96,112
  27. DATA 128,112
  28. DIM PTN(PMAX),PTN$(PMAX)
  29. FOR I=0 TO PMAX−1
  30. READ PTN(I),PTN$(I)
  31. NEXT
  32. DATA 0,21356420
  33. DATA 1,2460
  34. DATA 2,1243560
  35. DATA 3,12434650
  36. DATA 4,13402460
  37. DATA 5,134650120
  38. DATA 6,21356430
  39. DATA 7,13012460
  40. DATA 8,2134653420
  41. DATA 9,21342460
  42. DATA 0,13564210
  43. DATA 1,1350
  44. DATA 2,1246560
  45. DATA 1,24350
  46. DATA 4,134024350
  47. DATA 4,135602460
  48. DATA 6,1356430
  49. DATA 7,124350
  50. DATA 7,1312460
  51. DATA 9,212460
  52. @LOOP
  53. IF BUTTON()==64 THEN END
  54. IF BUTTON()==32 THEN GCLS:CLS:WK$=””
  55. GOSUB @DRAW
  56. VSYNC 1
  57. GOTO @LOOP
  58. @DRAW
  59. OTM=TM
  60. OTS=TS
  61. TS=TCHST
  62. ONT=TS AND(OTS==0)
  63. OFT=OTS AND(TS==0)
  64. OTX=TX:OTY=TY
  65. TX=TCHX:TY=TCHY
  66. IF 60<OFC AND WK$!=”” THEN BEEP 4:WK$=””:GCLS:?”?”;
  67. IF ONT THEN OTX=TX:OTY=TY:OFC=0
  68. IF TS THEN GLINE OTX,OTY,TX,TY,15
  69. IF TS==0 THEN TM=0:OFC=OFC+1
  70. FOR I=1 TO 6
  71. IF TS AND(CX(I)<=TX)AND(TX<CX(I)+32)AND(CY(I)<=TY)AND(TY<CY(I)+32)THEN TM=I
  72. NEXT
  73. IF OTM!=TM THEN WK$=WK$+STR$(TM)
  74. FOR I=0 TO PMAX−1
  75. IF PTN$(I)==WK$ THEN ?PTN(I);:BEEP 9:GCLS:WK$=””
  76. NEXT
  77. RETURN

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

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

  • 初心者 : うまく動きません。61行目のOFTって何処で使われているの? (2012/01/26 (木) 16:11:26)
  • 投稿者 : どのように動かないのでしょうか?認識されなかった筆跡が残っている場合はBボタンでクリア、1が認識されない時は右半分に一本線、他の数字もやや大げさ目に書いて下さい。 (2012/01/26 (木) 16:31:37)
  • 投稿者 : あとOFTは今回は使用していませんが、タッチパネルからペンが離れた瞬間の取得用です。ONT(タッチされた瞬間)との対ですね。 (2012/01/26 (木) 16:34:46)
  • 初心者 : 丁寧にありがとうございました。書き方に問題があったみたいですね... (2012/01/30 (月) 14:04:29)
  • まあまあ- : QRコードはありますか? (2012/03/30 (金) 16:38:23)
  • 名無しさん : 投稿者さんへ。mkIIでも動いたので、QRコード貼っていいですか? (2012/04/03 (火) 12:57:33)
  • 名無しさん : ↑投稿者さんへ。一応貼っておきました。別に消してもいいですよ。あと、間違っていたらすみません (2012/04/03 (火) 13:34:01)
  • わぁぃ@ : ↑拡大しておきました。 (2012/04/15 (日) 18:10:36)
  • 名無しさん : ↑ありがとうございます。 (2012/04/15 (日) 19:22:51)
  • 名無しさん : 9と4が識別しにくい (2012/04/16 (月) 19:01:44)
  • 名無しさん : 9が認識されない (2012/04/16 (月) 19:04:20)
  • hata0401 : 認識され寝〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 (2012/07/21 (土) 21:53:24)
  • 名無しさん : インチキと書いてあるんだから認識されなくても文句言わないw (2012/07/21 (土) 21:55:20)
  • 名無しさん : ↑だったら結局このプログラムって何なんだよwwww (2012/07/21 (土) 22:19:22)
  • 名無しさん : やるじゃない (アイン風)北斗の拳 (2012/09/05 (水) 17:47:41)
  • ルイージ : マリオのコードとかないですかね (2012/09/09 (日) 17:39:00)
  • ななしさん : どうやって認識してるの? (2012/12/16 (日) 17:12:20)
  • 名無しさん : ↑DATA文から予想すると、左上からタッチパネルを1,2, 3,4, 5,6のエリアに分割して、0はタッチペンを一旦放す、というかたちだと思います。例えば、"1"は縦に1直線なので1→3→5→0 または 2→4→6→0なのだと思います。 (2012/12/16 (日) 18:33:48)
  • a3 : 7があまり認識されませんでした。8回くらい記入してやっと認識しました (2014/08/25 (月) 10:37:37)

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