結局作ってみましたw Ver1.2
*osiosiponpon
title "押押PonPonPon! Ver 1.2"
/* 変えた場合はVerをあげてください。
例 Ver 1.1 から Ver 1.2
title "押押PonPonPon! Ver 1.2" → title "押押PonPonPon! Ver 1.3"
これを消さないでください。 */
/* Ver 1.1を使ってください。*/
screen 0,900,900
font "メイリオ",50
mes "押す"
pos 50,50
mes "1"
pos 80,50
objmode 2
font "",50
objsize 200,50
button goto "sys1tem" , *o1
pos 50,110
mes "2"
pos 80,120
button goto "sys2tem" , *o2
pos 50,170
mes "3"
pos 80,180
button goto "sys3tem" , *o3
pos 50,230
mes "4"
pos 80,240
button goto "sys4tem" , *o4
pos 100,390
objsize 280,50
button goto "Program End" , *pe
button "Net につなぐ" , *netz
;
; デジタル時計サンプル その2
;
#include "hsp3util.as" ; gettimestr,getdatestrを使うため
screen 1,320,80 ; 画面サイズ指定
font msgothic,30,1 ; 文字サイズを指定
t1="":t2=""
*tmprt
gettimestr t1 ; 時刻を取得
getdatestr t2 ; 日付を取得
redraw 0
color 255,255,255:boxf ; 白い色で背景を塗りつぶす
color 0,0,0 ; 文字の色
pos 0,0:mes t1 ; 時刻を表示
pos 0,40:mes t2 ; 日付を表示
redraw 1
wait 10; 1秒ウエ
goto *tmprt ; 無限ループ
stop
*o1
screen 0,900,900
title " 1 プッシュ "
cls
mes "[1]が押されました"
wait 100
goto *osiosiponpon
stop
*o2
screen 0,900,900
title " 2 プッシュ "
cls
mes "[2]が押されました"
wait 100
goto *osiosiponpon
stop
*o3
screen 0,900,900
title " 3 プッシュ "
cls
mes "[3]が押されました"
wait 100
goto *osiosiponpon
stop
*o4
screen 0,900,900
title " 4 プッシュ "
cls
mes "[4]が押されました"
wait 100
goto *osiosiponpon
stop
*pe
end
stop
*netz
cls
screen 2,600,500
mes "Internet Network"
mes "Networkに接続しています・・・"
mes "Nets,接続中"
wait 100
cls
mes "接続のアクセス確認・・・"
wait 10
mes "URLを確認・・・"
wait 10
mes "接続 =IE6+= ,URL:http://yahoo.co.jp/ ."
wait 20
goto *net
stop
*net
;
; IEコンポーネントを使ったブラウザ
;
screen 2,1500,1000
#define DIID_DWebBrowserEvents2 "{34A715A0-6587-11D0-924A-0020AFC7AC4D}"
#define DISPID_NAVIGATECOMPLETE2 252
cls 1
sdim url,512
url="http://yahoo.co.jp/"
objsize 600,24
pos 0,2:mes "URL先:"
pos 0,26:mes "Internet Explorer 6+ 2015"
pos 40,0:input url
objsize 120,24
pos 520,24:button "移動",*wow
pos 400,24:button "進む",*go_f
pos 280,24:button "戻る",*go_b
pos 700,0 :button "終了",*ba_ck
pos 700,24:button "HSPTVに移動",*hi
pos 0,48
axobj ie, "Shell.Explorer.2",1500,1000-48
num=stat
comevent ie_event, ie, "{34A715A0-6587-11D0-924A-0020AFC7AC4D}",*event ; DIID_DWebBrowserEvents2
ie->"Navigate" url
*main
stop
*event
; COMイベント処理
dispid = comevdisp(ie_event)
if dispid = DISPID_NAVIGATECOMPLETE2 : gosub *OnNavigateComplete2
return
*OnNavigateComplete2
name = ie("LocationURL")
objprm 0,name
pDoc = ie("Document")
name = pDoc("Title")
title name
delcom pDoc
return
*wow
ie->"Navigate" url
goto *main
*go_f
ie->"GoForward"
goto *main
*go_b
ie->"GoBack"
goto *main
stop
*ba_ck
end
stop
*hi
cls 1
sdim url,512
url="http://hsp.tv"
objsize 600,24
pos 0,2:mes "URL先:"
pos 0,26:mes "Internet Explorer 6+ 2015"
pos 40,0:input url
objsize 120,24
pos 520,24:button "移動",*wow
pos 400,24:button "進む",*go_f
pos 280,24:button "戻る",*go_b
pos 700,0 :button "終了",*ba_ck
pos 700,24:button "HSPTVに移動",*hi
pos 0,48
pos 0,48
axobj ie, "Shell.Explorer.2",1500,1000-48
num=stat
comevent ie_event, ie, "{34A715A0-6587-11D0-924A-0020AFC7AC4D}",*event ; DIID_DWebBrowserEvents2
ie->"Navigate" url
stop
こういうの作ったwwwwwwwww
Button命令で buttonの文字のフォントは変えられますか？
