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

投稿プログラム : ログイン画面

パンくずリスト

2013年01月02日投稿 / 投稿者 : BASIC-Ishida / タグ : 投稿プログラム 実用ツール QRコード mkII専用

概要(Ver2)

パソコンのログイン画面を再現しました。
起動すると設定かログインか選ぶ画面が表示されます。
MEMを暗号化するのにAmakoSoftさんの暗号くん(Ver2.2)の一部をサブルーチンとして使わせていただきました。

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

動作しているところを撮影した写真や動画があれば貼り付けてください。

QR コード

PRG:LOGIN2
qr0.png

プログラムリスト

  1. ’LOGIN Ver2
  2. @LOGIN
  3. ACLS
  4. CLEAR
  5. GOSUB @START
  6. MEM$=””
  7. CHRINIT ”BGF”
  8. ’Simple:SUB$=”@OPENING”
  9. A$=”PetitComputer”:AZ=2:AX=25:AY=70:AC=0
  10. B$=”SmileBASIC”   :BZ=1:BX=145:BY=90:BC=0
  11. ’Windows8:SUB$=”LOGO”
  12. GX=115:GY=60:GC=6 +9:BC=0 +6:GP=0.3
  13. FX=100:FY=110:FV=1:FC=9 −9:TEXT$=”Windows8”
  14. SUB$=”@OPENING”
  15. @LOOP
  16. @BGFSET
  17. GOSUB SUB$
  18. @PRINT
  19. WAIT 1
  20. IF 0!=RND(2) AND X<233 THEN X=X+1
  21. GFILL 11+X,171,244,189,0
  22. FOR HH=0 TO 4
  23. GFILL 11,171+HH*4,11+X,174+HH*4,HH+242
  24. NEXT
  25. FOR M=0 TO 3
  26. M$=MID$((”0”*(3−LEN(STR$(FLOOR(X/2.33)))))+STR$(FLOOR(X/2.33))+”%”,M,1)
  27. GPUTCHR 115+M*8,177,”BGF”,ASC(M$),0,1
  28. NEXT
  29. GBOX 10,170,245,190,15
  30. IF X<233 THEN @PRINT
  31. WAIT 60*RND(10)
  32. GCLS
  33. @SET
  34. LOCATE 0,0
  35. ?”S:SETUP”
  36. ?”I:INPUT”
  37. ?”E:END”
  38. ?”−−−−−−−”
  39. INPUT A$
  40. IF A$==”S” GOTO @SETUP
  41. IF A$==”I” GOTO @INPUT
  42. IF A$==”E” GOTO @END
  43. GOTO @SET
  44. @SETUP
  45. CLS
  46. LOCATE 0,0:?”ユ−サ゛−セッテイヲシマス。”
  47. @S_PRG
  48. ’INPUT ”フ゜ロク゛ラムメイハ”;G$
  49. ’IF G$==”” THEN ?”エラ−:ニュウリョクミス”:GOTO @S_PRG
  50. IF INKEY$()!=CHR$(13) THEN INL=15:INX=0:INY=1:Z$=”PRG:”:K=1:GOSUB @INP:G$=A$(1)
  51. IF G$==”” THEN ?”エラ−:フ゜ロク゛ラムメイ ニュウリョクミス”:GOTO @S_PRG
  52. @S_USER
  53. ’INPUT ”ユ−サ゛−メイハ”;U$
  54. ’IF U$==”” THEN ?”エラ−:ニュウリョクミス”:GOTO @S_USER
  55. IF INKEY$()!=CHR$(13) THEN INL=15:INX=0:INY=2:Z$=”USER:”:K=1:GOSUB @INP:U$=A$(1)
  56. IF U$==”” THEN ?”エラ−:ユ−サ゛−メイ ニュウリョクミス”:GOTO @S_USER
  57. @S_PASS
  58. ’INPUT ”ハ゜スワ−ト゛ハ”;P$
  59. ’IF P$==”” THEN ?”エラ−:ニュウリョクミス”:GOTO @S_PASS
  60. IF INKEY$()!=CHR$(13) THEN INL=15:INX=0:INY=3:Z$=”PASS:”:K=0:GOSUB @INP:P$=A$(1)
  61. IF P$==”” THEN ?”エラ−:ハ゜スワ−ト゛ ニュウリョクミス”:GOTO @S_PASS
  62. @SAVE
  63. S$=G$:PASS$=P$:GOSUB @ANGOU:PRG$=F$
  64. MEM$=PRG$
  65. SAVE”MEM:”+U$
  66. CLS
  67. FOR I=10 TO 0 STEP −1
  68. LOCATE 0,0:?”サイキト゛ウシマス...”
  69. LOCATE 0,2:?”サイキト゛ウマテ゛ アト”I” ”
  70. WAIT 60
  71. NEXT
  72. GCLS
  73. WAIT 125+RND(10)
  74. GOTO @LOGIN
  75. @INPUT
  76. CLS
  77. LOCATE 0,0:?”ユ−サ゛−ロク゛インシマス。”
  78. @I_USER
  79. ’INPUT ”ユ−サ゛−メイハ”;U$
  80. IF INKEY$()!=CHR$(13) THEN INL=15:INX=0:INY=1:Z$=”USER:”:K=1:GOSUB @INP:U$=A$(1):UN=1
  81. IF UN==1 THEN LOAD ”MEM:”+U$
  82. IF RESULT==FALSE THEN ?”エラ−:ユ−サ゛−メイ ニュウリョクミス”:?”フ゜ロク゛ラム「”U$”」ハ ソンサ゛イシテイマセン。”:GOTO @I_USER
  83. @I_PASS
  84. ’INPUT ”ハ゜スワ−ト゛ハ”;P$
  85. IF INKEY$()!=CHR$(13) THEN INL=15:INX=0:INY=2:Z$=”PASS:”:K=0:GOSUB @INP:P$=A$(1):PN=1
  86. IF PN==1 THEN S$=MEM$:PASS$=P$:GOSUB @FUKUGOU:PRG$=K$:GOTO @LOAD_PRG
  87. GOTO @I_PASS
  88. @LOAD_PRG
  89. EXEC PRG$
  90. IF RESULT==FALSE THEN ?”エラ−:”:?”フ゜ロク゛ラム「”PRG$”」ハ ソンサ゛イシテイマセン。”
  91. @LOGO
  92. GPAINT         0,        0,                    BC
  93. GLINE    0*GP+GX, 20*GP+GY,100*GP+GX,  0*GP+GY,GC
  94. GLINE    0*GP+GX, 20*GP+GY,  0*GP+GX,100*GP+GY,GC
  95. GLINE    0*GP+GX,100*GP+GY,100*GP+GX,150*GP+GY,GC
  96. GLINE  100*GP+GX,  0*GP+GY,100*GP+GX,150*GP+GY,GC
  97. GPAINT   5*GP+GX, 25*GP+GY,                    GC
  98. GFILL   44*GP+GX,  0*GP+GY, 46*GP+GX,150*GP+GY,BC
  99. GLINE    0*GP+GX, 59*GP+GY,100*GP+GX, 79*GP+GY,BC
  100. GLINE    0*GP+GX, 60*GP+GY,100*GP+GX, 80*GP+GY,BC
  101. GLINE    0*GP+GX, 61*GP+GY,100*GP+GX, 81*GP+GY,BC
  102. FOR F=0 TO LEN(TEXT$)−1
  103.  GPUTCHR 8*F*FV+FX,FY,”BGF”,ASC(MID$(TEXT$,F,1)),FC,FV
  104. NEXT
  105. RETURN
  106. @OPENING
  107. FOR A=0 TO LEN(A$)−1
  108.  GPUTCHR AX+(A*8*AZ),AY,”BGF”,ASC(MID$(A$,A,A+1)),AC,AZ
  109. NEXT
  110. FOR B=0 TO LEN(B$)−1
  111.  GPUTCHR BX+(B*8*BZ),BY,”BGF”,ASC(MID$(B$,B,B+1)),BC,BZ
  112. NEXT
  113. RETURN
  114. @INP
  115. SYSBEEP=0
  116. A$(0)=””
  117. A$(1)=””
  118. @LIN
  119. WAIT 1
  120. B=BUTTON(1)
  121. T=T+0.05
  122. KB=KEYBOARD
  123. IF INSTR(”13579”,RIGHT$(STR$(FLOOR(T)),1))!=−1 THEN F$=” ” ELSE F$=”_”
  124. IF KB==15 OR B==128 THEN GOSUB @BS
  125. IF KB==60 OR B==16 THEN BEEP 9:SYSBEEP=1:LOCATE INX,INY:?Z$+A$(K)+” ”:RETURN
  126. IF KB!=0 AND KB!=15 AND KB!=60 AND LEN(A$(k))<INL THEN BEEP 9:A$(1)=A$(1)+INKEY$()
  127. IF KB!=0 AND KB!=15 AND KB!=60 AND LEN(A$(k))==INL THEN BEEP 2
  128. A$(0)=”*”*LEN(A$(1))
  129. LOCATE INX,INY:?Z$+A$(K)+F$+” ”*(31−LEN(M$+A$(K)+F$))
  130. GOTO @LIN
  131. @BS
  132. IF LEN(A$(1))!=0 THEN A$(1)=LEFT$(A$(1),LEN(A$(1))−1):BEEP 9
  133. IF LEN(A$(1))==0 THEN BEEP 2
  134. RETURN
  135. @START
  136. DIM D$(8)
  137. DIM PAW(32)
  138. FOR I=0 TO 8−1
  139. D$(I)=””
  140. NEXT
  141. RETURN
  142. ’S$:モシ゛レツ(ヘンカンマエ)
  143. ’F$:モシ゛レツ(ヘンカンコ゛)
  144. ’PASS$:ハ゜スワ−ト゛
  145. @ANGOU
  146. F$=””
  147. FOR I=0 TO LEN(PASS$)−1
  148. PAW(I)=ASC(MID$(PASS$,I,1))
  149. NEXT
  150. FOR I=0 TO LEN(S$)−1
  151. D=ASC(MID$(S$,I,1))
  152. IF D==0 THEN D=ASC(”・”)
  153. I$=HEX$(D,2)
  154. L$=LEFT$(I$,1):R$=RIGHT$(I$,1)
  155. SWAP L$,R$
  156. D=VAL(”&H”+L$+R$)+1
  157. FOR G=0 TO PAW((I+1)%LEN(PASS$))−1
  158. D=D+1
  159. IF D>255 THEN D=0
  160. NEXT
  161. F$=F$+CHR$(D)
  162. D=0
  163. NEXT
  164. RETURN
  165. ’S$:モシ゛レツ(ヘンカンマエ)
  166. ’K$:モシ゛レツ(ヘンカンコ゛)
  167. ’PASS$:ハ゜スワ−ト゛
  168. @FUKUGOU
  169. FOR I=0 TO LEN(PASS$)−1
  170. PAW(I)=ASC(MID$(PASS$,I,1))+1
  171. NEXT
  172. K$=””
  173. FOR I=0 TO LEN(S$)−1
  174. D=ASC(MID$(S$,I,1))
  175. FOR G=0 TO PAW((I+1)%LEN(PASS$))−1
  176. D=D−1
  177. IF D<0 THEN D=255
  178. NEXT
  179. I$=HEX$(D,2)
  180. L$=LEFT$(I$,1):R$=RIGHT$(I$,1)
  181. SWAP L$,R$
  182. D=VAL(”&H”+L$+R$)
  183. IF D==ASC(”・”) THEN D=0
  184. K$=K$+CHR$(D)
  185. NEXT
  186. RETURN
  187. @END
  188. ACLS
  189. ?”アリカ゛トウコ゛サ゛イマシタ。”
  190. END

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

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

  • 名無しさん : いらねー (2013/01/04 (金) 09:37:31)
  • 名無しさん : *1 そこまで言わなくても (2013/01/04 (金) 09:39:20)
  • 名無しさん : サイキドウシマデとは? (2013/01/20 (日) 00:35:44)
  • ロックマンワールド : コレヤルトバグル (2013/05/30 (木) 16:40:04)
  • プーチナルコンピューター? : プチコンPCみたいな (2013/07/13 (土) 17:52:44)
  • 名無しさん : どうやって使うの? (2013/09/07 (土) 14:07:50)
  • TCC : 現在開発中のTCCOSのログイン画面に使ってもいいですか? (2013/09/07 (土) 20:57:27)
  • 名無しさん : 全然できませんでした。 (2013/10/25 (金) 21:14:41)

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