2008年02月07日

Emergence BASICのサンプル・プログラム

YourNameIs.eba
YourNameIs.exe

 昨夜Emergence BASICのサンプル・プログラムを完成させたぽこ。日本語は使えないので作成するソフトを選ぶけれどけっこう使いやすいぽこ。

 ダイアログのフォームに文字を記入してOKボタンを押すとメッセージボックスが開くという単純なプログラムだぽこ。

----------YourNameIs.eba----------
DEF UserName$ as STRING
DEF MSG$ as STRING

CONST STATIC_1 = 1
CONST EDIT_2 = 2 /* form for user name */
CONST BUTTON_3 = 3
DIALOG d1
CREATEDIALOG d1,0,30,330,120,0x80C80080,0,"Enter Your Name",&d1_handler
CONTROL d1,@STATIC,"Your Name",14,14,70,20,0x5000010B,STATIC_1
CONTROL d1,@EDIT,"",14,33,250,20,0x50800000,EDIT_2
CONTROL d1,@BUTTON,"OK",240,78,70,20,0x50000000,BUTTON_3

SUB d1_handler
SELECT @MESSAGE
CASE @IDINITDIALOG
CENTERWINDOW d1
/* Initialize any controls here */
CASE @IDCLOSEWINDOW
CLOSEDIALOG d1,@IDOK /* closing dialog */
CASE @IDCONTROL
SELECT @CONTROLID
CASE EDIT_2
/* respond to edit notifications here */
CASE BUTTON_3
IF @NOTIFYCODE = 0
ShowUserName() /*button clicked*/
ENDIF
ENDSELECT
ENDSELECT
RETURN
ENDSUB

/* Reading the text in the form and showing it in the messagebox */
SUB ShowUserName()
UserName$ = GETCONTROLTEXT(d1, EDIT_2)
MSG$ = "Your name is " + UserName$ + "."
MESSAGEBOX(d1,MSG$,"Your Name",@MB_OK)
RETURN
ENDSUB

/* show dialog */
SHOWDIALOG d1
WAITUNTIL d1 = 0
END

----------
(2008.2.7)
posted by 堀内悟 at 20:00| Comment(0) | TrackBack(0) | 日記 | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:


この記事へのトラックバック
×

この広告は180日以上新しい記事の投稿がないブログに表示されております。