>☀SUNSHINEさん
NO.48642を実行してみたけど……ごめん、ボロクソ言うぜ?
・なんで画像の位置がいきなりズレるんだよ!
(mes命令を実行するとかれんとポジションが下にズレるって知らないの?)
・そもそもposとpicloadの位置逆だろJK……
・「毎回picloadすると処理が重くなる」って、HSPの入門書に書いてなかった?
・font命令も、mesで表示するのが数字だけ(フォント設定が1種類のみ)なら一回呼べば十分
・GENKIさんもなんでこのコードでpicload "",1推すんだよバカか!
(結局ID0の画面が元サイズの640x480のママじゃねーか)
・結論:ある程度は自分で考える癖を付けよう
以上を踏まえた上で全面的に書きなおすとこんな感じ。
;準備
;バッファに画像を一旦読み込む
buffer 1 :picload "test.bmp"
;ウィンドウを準備
screen 0,500,350
;フォント設定
font msgothic,30,1
color 255,0,255
;メインループ
*main1
redraw 0 ;画面更新を待機
pos 0,0 :gcopy 1,0,0,500,350 ;バッファ画像を転送
;日時を取得(変数名を分かりやすくした)
year=gettime(0) :month=gettime(1) :day=gettime(3)
hour=gettime(4) :minute=gettime(5) :second=gettime(6)
;日時を表示
mes ""+year+"年"+month+"月"+day+"日"
mes ""+hour+":"+minute+":"+second
redraw 1 ;画面更新
wait 100
goto *main1
ちなみにこれは、画像サイズが500x350前提のコードだからね?
画像サイズごとに自動リサイズしたい場合は、
>screen 0,500,350
を
>winx=ginfo(12) :winy=ginfo(13) :screen 0,winx,winy
に、
>pos 0,0 :gcopy 1,0,0,500,350
を
>pos 0,0 :gcopy 1,0,0,winx,winy
に書き換えること。なんでかって?
ginfo命令とgcopy命令についてのヘルプを見たら分かると思うよ!