HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2015
1024
MitukiFaster2000を作ってみた。5解決


Mituki

リンク

2015/10/24(Sat) 21:12:41|NO.72476

なんか、ソフトを作ってみました。こちらです↓もう少しで、ZIP型になります。
(ZIPいれるときは画像、音楽を入れるとき)
詳細
Faster2000
Ver 0.8 Beta 256k

randomize *ont gsel 0,-1 wait 100 gsel 0,1 g=0.0 b=383 a=-15 buffer 2 color 0,0,0:boxf color 255,0,0 pos 0,0 mes "END" buffer 3 gsel 0,1 bgscr 0,,,0,ginfo(20)-400,ginfo(21)-383,390,330 color 39,39,39:boxf color 255,255,255 sysfont 13 pos 100,168 mes "Faster2000を起動中・・・" wait 100 repeat 150 redraw 0 width ,,ginfo(20)-b, color 39,39,39:boxf color 255,255,255 sysfont 13 pos 100,168 mes "Faster2000を起動中・・・" b-3 redraw 1 await 16 loop gsel 0,-1 *ondond onexit goto *enddl g=0.0 b=383 a=-15 bgscr 1,,,0,rnd(ginfo(20)-900),rnd(ginfo(21)-800),900,800 repeat 702 font "",100 color 0,g,0:pos a,-16 :mes "■" g-0.35 a+1 loop font "メイリオ",30 pos 10,25 mes "Faster2000" pos 350,25 objimage 2 objsize 26,18 button "",*enddl objimage -1 font "",25 pos 10,100 mes "いろいろきのう" objsize 130,30 objmode 2 button "時計の表示",*remaind button "画像の表示",*picld1 button "詳細…",*Sho_sa stop /*----------------------------ラベルゾーン--------------------------*/ *enddl snsx=900 snsy=800 width 900,800,rnd(ginfo(20)-900),rnd(ginfo(21)-800) repeat 180 clrobj width snsx,snsy snsx-5 snsy-5 await 32 loop end stop *remaind g=0.0 b=383 a=-15 cls repeat 702 font "",50 color 0,g,0:pos a,-16 :mes "■" g-0.35 a+1 loop pos 5,5 font "メイリオ",15 color 0,0,0 mes "時計の表示 1秒まつと開始" wait 100 cls konkon=22 stot=9.9 sasadf=20 repeat 100 title ""+sasadf+"" color 0,0,255 boxf 0,0,800,sasadf if konkon=0 :stot-0.78 :konkon=22 if sasadf<0 :stot=0 :sasadf=1 konkon-2 sasadf+stot wait 1 loop pos 0,0 button "Back",*ondond repeat redraw 0 color 0,0,255:boxf times= strf("%04d/",gettime(0)) + strf("%02d/",gettime(1)) + strf("%02d",gettime(2)) + strf("\n%02d:",gettime(4)) + strf("%02d:",gettime(5)) + strf("%02d.",gettime(6)) + strf("%03d",gettime(7)) color 255,255,255 font "",35 pos 50,50 mes times await 16 redraw 1 loop stop *picld1 g=0.0 b=383 a=-15 cls repeat 702 font "",50 color 0,g,0:pos a,-16 :mes "■" g-0.35 a+1 loop pos 5,5 font "メイリオ",15 color 0,0,0 mes "画像の表示画面" objsize 120,20 button "Open to Picture", *loadlll stop *loadlll dialog "bmp;*.gif;*.jpg", 16, "画像ファイル" if stat = 0 : stop pos 50, 50 picload refstr, 1 stop *Sho_sa bgscr 4,,,0,0,0,500,300 syscolor 15:boxf color 0,0,0 font "メイリオ",30 mes "Faster2000 - 機能がいっぱい!!" font "メイリオ",20 mes "Ver 0.8 Beta 256k" mes "顔を上げると、未来が沢山・・・\nいつでもどこでも、\nあなたのことを、\nみています・・・" mes "閉めれません・・・ gsel 1,2




この記事に返信する


Mituki

リンク

2015/10/24(Sat) 21:34:25|NO.72479

早速、 Faster2000 Ver0.8 Beta 512k を作りました。
・英語版が完成
・音楽プレイヤーの完成

randomize *ont gsel 0,-1 wait 100 gsel 0,1 g=0.0 b=383 a=-15 buffer 2 color 0,0,0:boxf color 255,0,0 pos 0,0 mes "END" buffer 3 gsel 0,1 bgscr 0,,,0,ginfo(20)-400,ginfo(21)-383,390,330 color 39,39,39:boxf color 255,255,255 sysfont 13 pos 100,168 mes "Faster2000を起動中・・・" wait 100 repeat 150 redraw 0 width ,,ginfo(20)-b, color 39,39,39:boxf color 255,255,255 sysfont 13 pos 100,168 mes "Faster2000を起動中・・・" b-3 redraw 1 await 16 loop gsel 0,-1 *ondond onexit goto *enddl g=0.0 b=383 a=-15 bgscr 1,,,0,rnd(ginfo(20)-900),rnd(ginfo(21)-800),900,800 repeat 702 font "",100 color 0,g,0:pos a,-16 :mes "■" g-0.35 a+1 loop font "メイリオ",30 pos 10,25 mes "Faster2000" pos 350,25 objimage 2 objsize 26,18 button "",*enddl objimage -1 font "",25 pos 10,100 mes "いろいろきのう" objsize 130,30 objmode 2 button "時計の表示",*remaind button "画像の表示",*picld1 button "音楽Player",*mmpla1 button "詳細…",*Sho_sa onexit goto *enddla g=0.0 b=383 a=-15 bgscr 12,,,0,rnd(ginfo(20)-900),rnd(ginfo(21)-800),900,800 repeat 702 font "",100 color 0,g,0:pos a,-16 :mes "■" g-0.35 a+1 loop font "メイリオ",30 pos 10,25 mes "Faster2000" pos 350,25 objimage 2 objsize 26,18 button "",*enddla objimage -1 font "",25 pos 10,100 mes "Various function" font "",12 objsize 130,30 objmode 2 button "Display of clock",*remainda button "Display of the image",*picld1a button "Music Player",*mmpla1a button "infomation…",*Sho_saa stop stop /*----------------------------ラベルゾーン--------------------------*/ *enddl snsx=900 snsy=800 width 900,800,rnd(ginfo(20)-900),rnd(ginfo(21)-800) repeat 180 clrobj width snsx,snsy snsx-5 snsy-5 await 32 loop end stop *remaind g=0.0 b=383 a=-15 cls repeat 702 font "",50 color 0,g,0:pos a,-16 :mes "■" g-0.35 a+1 loop pos 5,5 font "メイリオ",15 color 0,0,0 mes "時計の表示 1秒まつと開始" wait 100 cls konkon=22 stot=9.9 sasadf=20 repeat 100 title ""+sasadf+"" color 0,0,255 boxf 0,0,800,sasadf if konkon=0 :stot-0.78 :konkon=22 if sasadf<0 :stot=0 :sasadf=1 konkon-2 sasadf+stot wait 1 loop pos 0,0 button "Back",*ondond repeat redraw 0 color 0,0,255:boxf times= strf("%04d/",gettime(0)) + strf("%02d/",gettime(1)) + strf("%02d",gettime(2)) + strf("\n%02d:",gettime(4)) + strf("%02d:",gettime(5)) + strf("%02d.",gettime(6)) + strf("%03d",gettime(7)) color 255,255,255 font "",35 pos 50,50 mes times await 16 redraw 1 loop stop *picld1 g=0.0 b=383 a=-15 cls repeat 702 font "",50 color 0,g,0:pos a,-16 :mes "■" g-0.35 a+1 loop pos 5,5 font "メイリオ",15 color 0,0,0 mes "画像の表示画面" objsize 120,20 button "Open to Picture", *loadlll button "Back",*ondond stop *loadlll dialog "bmp;*.gif;*.jpg", 16, "画像ファイル" if stat = 0 : stop pos 50, 50 picload refstr, 1 stop *Sho_sa bgscr 4,,,0,0,0,500,300 syscolor 15:boxf color 0,0,0 font "メイリオ",30 mes "Faster2000 - 機能がいっぱい!!" font "メイリオ",20 mes "Ver 0.8 Beta 512k()" mes "顔を上げると、未来が沢山・・・\nいつでもどこでも、\nあなたのことを、\nみています・・・" mes "閉めれません・・・ gsel 1,1 stop *mmpla1 g=0.0 b=383 a=-15 cls repeat 702 font "",50 color 0,g,0:pos a,-16 :mes "■" g-0.35 a+1 loop pos 5,5 font "メイリオ",15 color 0,0,0 mes "音楽(音声)を出す画面" objsize 120,20 button "Open to Sounds", *loadlllll button "Back",*ondond stop *loadlllll dialog "mp3;*.midi;*.asf;*.wav", 16, "音楽(音声)ファイル" if stat = 0 : stop mmload refstr mmplay stop /*----------------------------ラベルゾーン--------------------------*/ *enddla snsx=900 snsy=800 width 900,800,rnd(ginfo(20)-900),rnd(ginfo(21)-800) repeat 180 clrobj width snsx,snsy snsx-5 snsy-5 await 32 loop end stop *remainda g=0.0 b=383 a=-15 cls repeat 702 font "",50 color 0,g,0:pos a,-16 :mes "■" g-0.35 a+1 loop pos 5,5 font "メイリオ",15 color 0,0,0 mes "Display of the watch and wait one second and start" wait 100 cls konkon=22 stot=9.9 sasadf=20 repeat 100 title ""+sasadf+"" color 0,0,255 boxf 0,0,800,sasadf if konkon=0 :stot-0.78 :konkon=22 if sasadf<0 :stot=0 :sasadf=1 konkon-2 sasadf+stot wait 1 loop pos 0,0 button "Back",*ondond repeat redraw 0 color 0,0,255:boxf times= strf("%04d/",gettime(0)) + strf("%02d/",gettime(1)) + strf("%02d",gettime(2)) + strf("\n%02d:",gettime(4)) + strf("%02d:",gettime(5)) + strf("%02d.",gettime(6)) + strf("%03d",gettime(7)) color 255,255,255 font "",35 pos 50,50 mes times await 16 redraw 1 loop stop *picld1a g=0.0 b=383 a=-15 cls repeat 702 font "",50 color 0,g,0:pos a,-16 :mes "■" g-0.35 a+1 loop pos 5,5 font "メイリオ",15 color 0,0,0 mes "The display screen of the image" objsize 120,20 button "Open to Picture", *loadlll button "Back",*ondond stop *loadllla dialog "bmp;*.gif;*.jpg", 16, "Image file" if stat = 0 : stop pos 50, 50 picload refstr, 1 stop *Sho_saa bgscr 4,,,0,0,0,500,300 syscolor 15:boxf color 0,0,0 font "メイリオ",30 mes "Faster2000 - Function is full!!" font "メイリオ",20 mes "Increasing the face, the future is a lot ··· \n anytime, anywhere, \n your thing, we have seen \n ···" mes "Close is not ... gsel 1,2 stop *mmpla1a g=0.0 b=383 a=-15 cls repeat 702 font "",50 color 0,g,0:pos a,-16 :mes "■" g-0.35 a+1 loop pos 5,5 font "メイリオ",15 color 0,0,0 mes "音楽(音声)を出す画面" objsize 120,20 button "Open to Sounds", *loadllllla button "Back",*ondond stop *loadllllla dialog "mp3;*.midi;*.asf;*.wav", 16, "Music (voice) file" if stat = 0 : stop mmload refstr mmplay stop </pre<



ヒラギノ

リンク

2015/10/24(Sat) 22:02:32|NO.72481

どちらかのバージョンを消そうとすると両方終了する
きのうは日本語版で選択しても、英語版で表示される
ウィンドウが動かせると良いと思う
Music Player が日本語で表示される
info「r」mation をクリックすると日本語版ウィンドウが最前面に来るようになる



くちくん

リンク

2015/10/25(Sun) 11:05:47|NO.72489

時計の日付が2015/10/00になる。



チャーくん

リンク

2015/10/25(Sun) 13:09:11|NO.72490

Display of 〜 よりも Display the 〜 のほうが適切な表現だと思います。



Marukome

リンク

2015/10/30(Fri) 14:34:47|NO.72631

直接貼るよりもリンクにした方が見やすいと思う。



ONION software Copyright 1997-2021(c) All rights reserved.