「2012年8月」のアーカイブ

// OKBtn ボタンが押されたら各入力値を取得する
ifb CREATEFORM("GETFORMDATA_SCRIPT.html", "GETFORMDATA_SCRIPT", False,, 300, 300, 600, 400) = "OKBtn"
	FRUITS	= GETFORMDATA("Text1")
	ANIMAL	= GETFORMDATA("Radio1")
	SPORTS	= GETFORMDATA("Radio2")
	AGE		= GETFORMDATA("Select1")
else
	print "キャンセル"
endif

IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("http://canal22.org/sample11/")
BusyWait(IE)
IESetData(IE,FRUITS,"fruits")
IESetData(IE,ANIMAL,"animal")
IESetData(IE,SPORTS,"sports")
IESetData(IE,AGE,"age")

print "入力が完了しました"

//------
Procedure BusyWait(ie)
 repeat
	Sleep(0.2)
 until (! ie.busy) and (ie.readyState=4)
Fend

PRINT TRUE //True、1も同義
PRINT FALSE //False、0も同義
PRINT NULL //ヌルポインタ
PRINT EMPTY //値の無い状態を示す
PRINT NOTHING //オブジェクトの無い状態を示す

A _
= _
1 _
+ _
1
PRINT A

//コメントなので実行されない
PRINT "Hello"
//PRINT "コメントなので実行されない"
A = 14 // + 20  としてもコメント以降は実行されない
PRINT A

// OKBtn ボタンが押されたら各入力値を表示する
PATH	= "C:\TESTHTML.html"
TITLE	= "タイトル"
KB	= "構文："

MSGBOX("フォームのOKボタンを押して進んでください")

//①HELPにあるもののPATHとタイトルを変数化
obj = CREATEFORM(PATH,TITLE,FALSE,0, 500, 320)

//②オプションを指定して、幅、高さ、X、Yを指定
obj = CREATEFORM(PATH,TITLE,FALSE,FOM_MAXIMIZE,0,0, 500, 320)

//③二番目の幅を600に
obj = CREATEFORM(PATH,TITLE,FALSE,FOM_MAXIMIZE,600,0, 500, 320)

//④二番目の高さを600に
obj = CREATEFORM(PATH,TITLE,FALSE,FOM_MAXIMIZE,0,600, 500, 320)

//⑤二番目の幅200、高さ600
obj = CREATEFORM(PATH,TITLE,FALSE,FOM_MAXIMIZE,200,600, 500, 320)

//⑥五番目のXを0、Yを0
obj = CREATEFORM(PATH,TITLE,FALSE,FOM_MAXIMIZE,200,600, 0, 0)

//⑦五番目のXを600、Yを600
obj = CREATEFORM(PATH,TITLE,FALSE,FOM_MAXIMIZE,200,600, 600, 600)

//⑧三番目のオプションを複数指定(最大化ボタンと最小化ボタン)
obj = CREATEFORM(PATH,TITLE,FALSE,FOM_MAXIMIZE OR FOM_MINIMIZE,600,0, 500, 320)

//ORはどちらかがTRUEならばTRUEを返す、ANDは両方TRUEならばTRUEを返す
//ANDが先に計算されるのでFALSE(=0)が返る
PRINT FALSE AND TRUE OR FALSE

//XORは片方がTRUE、片方がFALSEの時にTRUEを返す、両方TRUEや両方FALSEはFALSEを返す
//ANDが先に計算されるのでTRUE(=1)が返る
PRINT FALSE XOR TRUE AND TRUE

//>、<は大なり小なり、=は等価、>=、<=は以上、以下、<>は不等価
//>が最初に計算されるのでFALSEが返る
PRINT 0.1 > 1 = TRUE

//+は加算、-は減算、*は乗算、/は割り算、MODは剰余算
//*が+や-より優先されるため答えは51
PRINT 1 + 10 * 5

//!は否定、TRUEはFALSEに、FALSEはTRUEになる
//()は最優先
//よって下記はFalseとなる
PRINT !(4 MOD 3 = 1)

//文字列の結合
MOJ1 = "ぐろーばるわーるど"
MOJ2 = " is a word very difficult."
PRINT MOJ1 + MOJ2
//文字列の比較(OPTION指定無し)

MOJ3 = "THIS IS MY CUP"
MOJ4 = "this is my cup"
IFB MOJ3 = MOJ4
 PRINT "↓↓同じ文字です↓↓"
 PRINT MOJ3 + ":" + MOJ4
ENDIF

NUM = INPUT("何個作成しますか？")

FOR A = 1 TO NUM

	ID = ""
	PW = ""
	
    //文字数は8文字
    FOR B = 1 TO 8
       ID = ID + RETURNCHAR()
       PW = PW + RETURNCHAR()
    NEXT

    IDPW = ID + "<#TAB>" + PW
	PRINT IDPW
NEXT

FUNCTION RETURNCHAR()
    LETTER = CHR(97 + RANDOM(26))
    //アルファベットの小文字、数字を出す
    SELECT RANDOM(2)
       CASE 0
           //アルファベットはそのまま
           RESULT = LETTER
       CASE 1
           //数字の場合は0～9をランダムに出す
           RESULT = RANDOM(10)
       DEFAULT
           RESULT = LETTER
    SELEND
FEND

//グローバル変数
PUBLIC YGLB ="YES"
//ただの変数
DIM NGLB = "NO"

 PRINT "関数実行前:" + YGLB + ":" + NGLB
 PRINT "(↑宣言時の値)"
 DO()
 PRINT "関数実行後:" + YGLB + ":" + NGLB 
 PRINT "(↑変化が影響しているのはPUBLIC宣言の変数)"

//自作関数
PROCEDURE DO()
 YGLB = "はい"
 NGLB = "いいえ"
 PRINT "自作関数の中:" + YGLB + ":" + NGLB 
 PRINT "(↑関数内の値)"
FEND