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

投稿プログラム:上皿てんびん

パンくずリスト

2012年11月4日投稿 / 投稿者:天郷思音(わぁぃ@) / タグ : 投稿プログラム 勉強 QRコード mkII専用

概要

上皿てんびんで遊ぶだけのプログラムです。 基本的な分銅だけではつまらないのでいくつかおもりを追加しています。

分銅の説明

基本的な分銅

1235
100mg200mg300mg500mg
1g2g3g5g
10g20g30g50g
100g200g300g500g
質量の求め方
書いてある数字*0.1g
書いてある数字g
書いてある数字*10g
書いてある数字*100g

追加した分銅

まじめに定義したものが2つしかないです。すみません。

文字名前質量
ADSi214g
B54gの銅が酸化したもの67.5g
C???ランダム
D???ランダム
E---0g(空きデータ)

あったほうがいいもの

公式サイトのプレゼント素材のフォント”SBFT_J01”

スクリーンショット

PRG_TENBIN_SS0.pngPRG_TENBIN_SS1.png

プログラムリスト

  1. ′ウワサ゛ラテンヒ゛ン v1.1Л
  2. ′by ShionЛ
  3. Л
  4. ACLSЛ
  5. VISIBLE 1,1,0,0,1,1Л
  6. PNLTYPE ”OFF”Л
  7. SPPAGE 1Л
  8. BGPAGE 1Л
  9. LOAD ”BGF0:SBFT_J01”,0Л
  10. GPAGE 1Л
  11. Л
  12. CLEARЛ
  13. DIM N$(25),W(25),F(25)Л
  14. Q=1Л
  15. Л
  16. FOR I=0 TO 3Л
  17. FOR J=0 TO 4Л
  18. N=I*5+J+5Л
  19. READ W(N),C,PЛ
  20. IF W(N)<1 THEN N$(N)=STR$(FLOOR(W(N)*1000+0.5))+”mgノオモリ” ELSE N$(N)=STR$(W(N))+”gノオモリ”Л
  21. SPSET N,C,P,0,0,1Л
  22. SPHOME N,8,8Л
  23. SPOFS N,J*16+16,128+I*16Л
  24. NEXTЛ
  25. NEXTЛ
  26. Л
  27. GOSUB @T1Л
  28. Л
  29. FOR I=0 TO 4Л
  30. READ N$(I),W(I)Л
  31. IF N$(I)==”???” THEN W(I)=RND(1024)/2+1Л
  32. SPSET I,16+I,0,0,0,1Л
  33. SPHOME I,8,8Л
  34. SPOFS I,128+I*16,128Л
  35. NEXTЛ
  36. Л
  37. LY=100:RY=100Л
  38. Л
  39. @MAINLOOPЛ
  40. GCLS 254Л
  41. GFILL 0,112,255,191,255Л
  42. TT=TCHTIME:TX=TCHX:TY=TCHYЛ
  43. IF TT THEN GOSUB @ITEMMOVE ELSE S=−1Л
  44. GOSUB @TENBINЛ
  45. GOSUB @ITEMDOWNЛ
  46. VSYNC 1Л
  47. GOTO @MAINLOOPЛ
  48. Л
  49. @ITEMMOVEЛ
  50. IF TT>1 THEN @SELECTSKIPЛ
  51. S=−1Л
  52. FOR I=0 TO 24Л
  53. SPREAD(I),X,YЛ
  54. IF ABS(TX−X)<8 AND ABS(TY−Y)<8 THEN S=I:I=24Л
  55. NEXTЛ
  56. @SELECTSKIPЛ
  57. IF S<0 THEN RETURNЛ
  58. SPOFS S,TX,TYЛ
  59. PNLSTR 1,23,N$(S)+CHR$(0)*16Л
  60. RETURNЛ
  61. Л
  62. @ITEMDOWNЛ
  63. FOR I=0 TO 24Л
  64. IF I−S THEN SPREAD(I),X,Y:IF Y<112 AND !F(I) THEN Y=Y+1:SPOFS I,X,YЛ
  65. NEXTЛ
  66. RETURNЛ
  67. Л
  68. @TENBINЛ
  69. LW=0:RW=0Л
  70. FOR I=0 TO 24Л
  71. F(I)=0Л
  72. SPREAD(I),X,YЛ
  73. IF ABS(40−X)<24 AND ABS(Y−LY)<2 THEN F(I)=1:LW=LW+W(I)Л
  74. IF ABS(216−X)<24 AND ABS(Y−RY)<2 THEN F(I)=2:RW=RW+W(I)Л
  75. NEXTЛ
  76. Л
  77. @T1Л
  78. GCOLOR 14Л
  79. A=FLOOR((LW−RW)*Q)Л
  80. IF ABS(A)>12 THEN A=12*SGN(A)Л
  81. IF LY<100+A THEN LY=LY+1Л
  82. IF LY>100+A THEN LY=LY−1:J=1:GOSUB @THЛ
  83. IF RY<100−A THEN RY=RY+1Л
  84. IF RY>100−A THEN RY=RY−1:J=2:GOSUB @THЛ
  85. GLINE 32,LY,224,RYЛ
  86. GLINE 32,LY+4,224,RY+4Л
  87. GFILL 16,LY−4,64,LY+4,11Л
  88. GFILL 192,RY−4,240,RY+4,11Л
  89. GPAINT 128,102Л
  90. GPSET 128,100,0Л
  91. GPSET 128,104,0Л
  92. GLINE 120,96,136,96Л
  93. GLINE 136,96,144,128Л
  94. GLINE 144,128,112,128Л
  95. GLINE 112,128,120,96Л
  96. GPAINT 128,97Л
  97. GPAINT 128,112Л
  98. GPAINT 128,111Л
  99. RETURNЛ
  100. Л
  101. @THЛ
  102. FOR I=0 TO 24Л
  103. IF F(I)==J THEN SPREAD(I),X,Y:SPOFS I,X,Y−2Л
  104. NEXTЛ
  105. RETURNЛ
  106. Л
  107. ′オモリノ テ゛−タЛ
  108. DATA 0.1,49,0Л
  109. DATA 0.1,49,0Л
  110. DATA 0.2,50,0Л
  111. DATA 0.3,51,0Л
  112. DATA 0.5,53,0Л
  113. DATA 1,49,3Л
  114. DATA 1,49,3Л
  115. DATA 2,50,3Л
  116. DATA 3,51,3Л
  117. DATA 5,53,3Л
  118. DATA 10,49,7Л
  119. DATA 10,49,7Л
  120. DATA 20,50,7Л
  121. DATA 30,51,7Л
  122. DATA 50,53,7Л
  123. DATA 100,49,13Л
  124. DATA 100,49,13Л
  125. DATA 200,50,13Л
  126. DATA 300,51,13Л
  127. DATA 500,53,13Л
  128. Л
  129. DATA ”DSi”,214Л
  130. DATA ”54gノト゛ウカ゛サンカシタモノ”,67.5Л
  131. DATA ”???”,0Л
  132. DATA ”???”,0Л
  133. DATA ”−−−”,0Л
  134. Л

QRコード

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

PRG:TENBIN
1/22/2
PRG_TENBIN_V1.1_QR0.pngPRG_TENBIN_V1.1_QR1.png
  • 補正がかかって読み込めない場合は、画像をクリックすると等倍サイズのQRコードがご覧になれますのでぜひご利用ください。

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

この作品に対するコメントがあれば一言どうぞ。(その他の雑談は掲示板OFコーナーをご利用ください。)

  • hatena : 数字で色をまとめた方がいいかも。スクリーンショットは相変わらず良いですね。 (2012/11/04 (日) 20:16:53)
  • 天郷思音 : 位ごとに色はまとまってますが・・・SSは定番の直転送です。 (2012/11/04 (日) 20:26:41)
  • hatena : ああ、そっちでまとめてあったのか。俺の目は悪いのかな…… (2012/11/04 (日) 20:35:16)
  • ウイング : SSって作るのに何分ぐらいかかるんですか? (2012/11/04 (日) 20:36:09)
  • 天郷思音 : これは15分くらいかかりました。(SDに保存し忘れで手間どった)ちなみにこのプログラムは下画面を使っている関係で、上画面に表示するように書き換える必要があるので(特にコンソールは)少し時間がかかります。 (2012/11/04 (日) 20:52:22)
  • ウイング : へぇー もっとかかるのかと思いました ありがとうございます (2012/11/06 (火) 17:10:28)
  • 天郷思音 : バージョンアップ完了! (2012/11/06 (火) 19:28:59)
  • 科学者モドキ : わしの研究所に一台おこう!! (2014/04/02 (水) 14:36:09)
  • 天郷思音 : 世界のRIKEN(違 (2014/04/02 (水) 20:26:37)

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