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


HSPTV!掲示板


未解決 解決 停止 削除要請

2014
0121
初心者ainputでこう打ったら、別タグへ飛ぶはずなのに飛ばない4解決


初心者a

リンク

2014/1/21(Tue) 23:09:57|NO.59448

HSP初心者です。
今、inputで例えば「1111」と入力された時だけ、次の画面に行けるという
パスワード認証的なものを作っています。
しかし、なんどやっても全然ダメです。
これがソースです。

title "パスワード認証"
screen 0,500,400
pas="パスワード"
*hazime
gradf 0,0,500,400,1,100,250
pos 140,30
color 20,250,250
font "",50
mes "パスワード認証"
objsize 100
pos 190,270
input pas
objsize 30
pos 290,270
button "→",*go
stop
*go
pas="1111",*o
goto *no
*no
dialog "パスワードが合っていません。"
goto *hazime
*o
dialog "OK",*hazime



この記事に返信する


FunnyMaker

リンク

2014/1/21(Tue) 23:19:53|NO.59449

こんな感じですか?


title "パスワード認証" screen 0,500,400 pas="パスワード" *hazime gradf 0,0,500,400,1,100,250 pos 140,30 color 20,250,250 font "",50 mes "パスワード認証" objsize 100 pos 190,270 input pas objsize 30 pos 290,270 button "→",*go stop *go if pas="1111" { goto *o } else { goto *no } *no dialog "パスワードが合っていません。" goto *hazime *o dialog "OK" : goto *hazime



kernel

リンク

2014/1/21(Tue) 23:21:52|NO.59450

if条件を使って、入力された数字が正しいかどうか判断させるといいです


title "パスワード認証" screen 0,500,400 pas="パスワード" *hazime gradf 0,0,500,400,1,100,250 pos 140,30 color 20,250,250 font "",50 mes "パスワード認証" objsize 100 pos 190,270 input pas objsize 30 pos 290,270 button "→",*go stop *go if pas="1111":goto,*o goto *no *no dialog "パスワードが合っていません。" goto *hazime *o dialog "OK";,*hazime


全ての命令にジャンプ機能がついているわけではありませんので

pas="1111",*o や dialog "OK",*hazime
これらの記述では別のラベルに飛ぶことはできません



初心者a

リンク

2014/1/21(Tue) 23:22:45|NO.59451

そうです!!
ありがとうございます!!



fortunehill

リンク

2014/1/21(Tue) 23:30:04|NO.59453

/*ご参考(出遅れ)*/

title "パスワード認証" screen 0,500,400 gradf 0,0,500,400,1,100,250 ;移動(オブジェが無限増殖) pos 140,30 color 20,250,250 font "",50 mes "パスワード認証" pas = "パスワード" objsize 100 pos 190,270 input pas objsize 30 pos 290,270 button "→",*go *hazime pas = "パスワード" ;追加(再トライ時用) objsel 0 ;追加(〃) stop *go if pas == "1111" :goto *o ;変更(文法) goto *no *no dialog "パスワードが合っていません。" goto *hazime *o dialog "OK" ;変更(文法) goto *nextjob ;追加(通過時飛び先) *nextjob ;追加 cls ;追加



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