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

投稿プログラム : プチコン版Wind●ws8

パンくずリスト

2013年10月24日投稿 / 投稿者 : sou51 / タグ : 投稿プログラム ネタ ツール QRコード ランチャ mkII専用

概要

Windows8.1が発売されましたが、プチコンにもなんか出たようです。

使い方

Windows8のスタート画面風のジョークソフトです。
プログラム末尾のDATA文を編集することで、パネルを変更できます。

DATA文の内容は、サイズ、色、ラベル、動作定義 となっています。
サイズは1,2,4が指定可能で、2を指定すると2x1(横2倍)サイズ、4を指定すると2x2サイズになります。
DATA文は8個ごとに1セットとなっており、2や4を指定したパネルがあるとその分末尾のDATAは非表示となります。
動作定義の箇所に文字列を入れておくと、EXEC命令が実行されます。
また動作定義を"@"で始まる文字列にすると、そのラベルへGOTOでジャンプします。
最大で8x3=24個のパネルを配置できます。

ジョークソフトとして早急に作ったので、"@"の動作などかなり荒い作りになっていますがご了承ください。

ペイントを選択するとCHREDが起動します。
ミュージックを選択するとプログラム内でBGMPLAYテスト用のソフトが起動されます。
それ以外のパネルは全てダミーです。

パネル部分はBG1枚分で作っています。
これをループするようにすればもっと登録できてランチャとしても実用的になるのかもしれません。

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

QR コード

プチコンmkII向けのインストール用画像データです。3枚組となっています。

S51WIN8.PNG

プログラムリスト

  1. @START
  2. ACLS:CLEAR
  3. GPAGE 1:BGPAGE 1
  4. PNLTYPE”OFF”
  5. DIM PNLS(3,8),PNLC(3,8)
  6. DIM PNLN$(3,8),PNLF$(3,8)
  7. DIM BGP$(67,24)
  8. PNLSTR 1,1,”スタ−ト”,0
  9. PNLSTR 24,1,”sou51 Ж”
  10. GPAINT 0,0,6
  11. X=0
  12. PX1=0:PX2=66
  13. PY1=0:PY2=23
  14. PN$=””:GOSUB@SETAR
  15. GOSUB@LDDATA
  16. FOR I=0 TO 2
  17.  PX=0:PY=0
  18.  FOR J=0 TO 7
  19.   N=PNLS(I,J)
  20.   PX1=3+I*21+PX*10
  21.   PY1=4+PY*5
  22.   PX2=PX1+8+(N%2==0)*10
  23.   PY2=PY1+3+(N>2)*5
  24.   PN$=PNLF$(I,J)
  25.   GOSUB@SETAR
  26.   BGFILL 1,PX1,PY1,PX2,PY2,6,PNLC(I,J),0,0
  27.   N2=LEN(PNLN$(I,J))
  28.   IF N2>8 THEN N2=8
  29.   FOR K=0 TO N2−1
  30.    BGPUT 0,PX1+K,PY1+3,256+ASC(MID$(PNLN$(I,J),K,1)),0,0,0
  31.   NEXT
  32.   PX=(PX+(N%2))%2
  33.   PY=PY+(PX==0)+(N>2)
  34.   IF PY>3 THEN J=99
  35.  NEXT
  36. NEXT
  37. TF=TCHST:TF0=TF
  38. TOX=TCHX:TOY=TCHY
  39. BX=0:T0=MAINCNTL
  40. @LP
  41.  TCH=TF0 XOR TF
  42.  IF TCH AND TF THEN TOX=TCHX:TX0=TCHX:T0=MAINCNTL:SWP=0
  43.  IF !TF THEN @LP0
  44.  IF ABS(TCHX−TX0)<4 THEN @ELP
  45.   TX=TCHX−TOX
  46.   BX=BX−TX
  47.   TOX=TCHX
  48.   IF BX<0 THEN BX=0
  49.   IF BX>279 THEN BX=279
  50.   BGOFS 0,BX,0
  51.   BGOFS 1,BX,0
  52.   SWP=SWP OR(ABS(TOX−TX0)>8)
  53.   GOTO @ELP
  54.  @LP0
  55.   IF !TCH THEN @ELP
  56.   IF SWP THEN @ELP
  57.    TBX=FLOOR((BX+TCHX)/8)
  58.    TBY=FLOOR(TCHY/8)
  59.    F$=BGP$(TBX,TBY)
  60.    ?TBX”,”TBY”,”CHR$(34);F$;CHR$(34)
  61.    IF F$==”” THEN @ELP
  62.    IF LEFT$(F$,1)!=”@” THEN ACLS:EXEC F$
  63.    GOTO F$
  64. @ELP
  65. TF0=TF
  66. TF=TCHST
  67. GOTO@LP
  68. END
  69. @SETAR
  70. FOR AX=PX1 TO PX2
  71.  FOR AY=PY1 TO PY2
  72.   BGP$(AX,AY)=PN$
  73.  NEXT
  74. NEXT
  75. RETURN
  76. @MUSIC
  77.  ACLS:GPAGE 1:BGPAGE 1
  78.  GPAINT 0,0,6
  79.  GFILL 8,32,71,96,13
  80.  GBOX 12,36,15,92,15
  81.  GLINE 16,64,41,36,15:GLINE 16,65,41,92,15:GLINE 41,36,41,92,15
  82.  GLINE 42,64,67,36,15:GLINE 42,65,67,92,15:GLINE 67,36,67,92,15
  83.  GFILL 184,32,247,96,13
  84.  GBOX 240,36,243,92,15
  85.  GLINE 239,64,213,36,15:GLINE 239,65,213,92,15:GLINE 213,36,213,92,15
  86.  GLINE 213,64,187,36,15:GLINE 213,65,187,92,15:GLINE 187,36,187,92,15
  87.  GFILL 76,32,180,96,13
  88.  GLINE 78,36,78,92,15
  89.  GLINE 78,36,118,64,15
  90.  GLINE 78,92,118,65,15
  91.  GBOX 128,36,176,92,15
  92.  GFILL 4,4,20,20,13
  93.  GLINE 6,12,10,6,15
  94.  GLINE 6,12,10,18,15
  95.  GLINE 6,12,18,12,15
  96.  MN=0:MP=0
  97. @MUSICLP
  98. T0=TCHST
  99. VSYNC 1
  100. IF !(TCHST XOR T0)OR !TCHST THEN GOTO@MUSICLP
  101.  TX=TCHX:TY=TCHY:T0=TCHST
  102.  IF TX>7 AND TX<72 AND TY>31 AND TY<97 THEN MN=(MN+28)%29:GOTO@MUSICLP
  103.  IF TX>183 AND TX<248 AND TY>31 AND TY<97 THEN MN=(MN+1)%29:GOTO@MUSICLP
  104.  IF TX>75 AND TX<181 AND TY>31 AND TY<97 AND !MP THEN BGMPLAY MN:MP=1:GOTO@MUSICLP
  105.  IF TX>75 AND TX<181 AND TY>31 AND TY<97 AND MP THEN BGMSTOP:MP=0:GOTO@MUSICLP
  106.  IF TX>3 AND TX<21 AND TY>3 AND TY<21 THEN @MUSICEND
  107. GOTO@MUSICLP
  108. @MUSICEND
  109. BGMSTOP
  110. GOTO@START
  111. @LDDATA
  112. RESTORE@LDDATA
  113. FOR I=0 TO 2
  114.  FOR J=0 TO 7
  115.   READ PNLS(I,J),PNLC(I,J),PNLN$(I,J),PNLF$(I,J)
  116.  NEXT
  117. NEXT
  118. FOR I=0 TO 255
  119.  CHRREAD(”BGF”,I),S$
  120.  CHRSET ”BGU1”,I,S$
  121. NEXT
  122. RETURN
  123. DATA 2,1,”テ゛スクトッフ゜”,””
  124. DATA 1,2,”メ−ル”,””
  125. DATA 1,3,”フォト”,””
  126. DATA 2,4,”People”,””
  127. DATA 1,5,”メッセ−シ゛”,””
  128. DATA 1,6,”テンキ”,””
  129. DATA 1,0,””,””
  130. DATA 1,0,””,””
  131. DATA 1,8,”ケ゛−ム”,””
  132. DATA 1,9,”IE”,””
  133. DATA 1,11,”ストア”,””
  134. DATA 1,12,”Map”,””
  135. DATA 1,13,”SkyDrive”,””
  136. DATA 1,14,”ニュ−ス”,””
  137. DATA 1,15,”ミュ−シ゛ック”,”@MUSIC”
  138. DATA 1,0,””,””
  139. DATA 1,6,”iCloud”,””
  140. DATA 1,1,”Dropbox”,””
  141. DATA 1,2,”Word”,””
  142. DATA 1,3,”Excel”,””
  143. DATA 1,4,”ヘ゜イント”,”CHRED”
  144. DATA 1,5,”OneNote”,””
  145. DATA 1,6,”カレンタ゛−”,””
  146. DATA 1,8,”Address”,””

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

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

  • しゃしゃつー : すげえ、それっぽいw (2013/10/26 (土) 17:30:38)
  • かずえもん : このソフトといろいろなプログラムを組み合わせて、OSを作って公開してもいいですか? (2013/10/28 (月) 15:03:33)
  • 道産子(dosankosoft) : ランチャーが作れそうだな・・・ (2013/10/28 (月) 22:05:23)
  • sou51 : ネタで作っただけなので好きに使ってくれでいいですよ (2013/11/03 (日) 20:37:08)
  • : 予想してたものと違った、あれかと思った (2013/11/04 (月) 19:21:15)
  • nao20010128nao : 超そっくり!8の本物を持っている私は、大爆笑しちゃいました! (2014/03/25 (火) 14:12:34)
  • 名無しさん : おぉぉぉ (2014/03/25 (火) 15:42:36)
  • しょうま : すごいいいいいいい!!!!! (2014/09/22 (月) 18:05:02)
  • Shun8 : タブレット見たいなOSを作ります。 (2017/10/23 (月) 21:38:57)

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