|
 |
|
|
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
| |
|
|
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 〜 のほうが適切な表現だと思います。
|
|
|
2015/10/30(Fri) 14:34:47|NO.72631
直接貼るよりもリンクにした方が見やすいと思う。
|
|
Faster2000を作ってみた。
