今天聽說公司要我上ERP TOP GP(原名TipTop)的計畫,真的很汗(儘管最近天氣很涼)!這樣一想oh my god!我這台機器人要閒置好幾個月了。沒辦法,我是個愛學習的好孩子,只好拿學習來充實下自己,提前瞭解下Genero。下面這句話我真的不想敲出來:
來來...................................每種語言的第一個程式”Hello World"
Step1: 從官網http://www.4js.com/ 下載Genero Studio (首頁那個美女好漂亮,捨不得離開)
這裡要說明一下,這個Genero Studio開發平臺通過註冊官網會員才允許你下載,因為是收費平臺,所以好不容易填了一大堆資料下載下來的只是30天的試用版,
你的註冊郵箱會收到詳細的說明,包含了Licensing. 平臺的安裝我就不多做說明了,很簡單step by step吧(有安裝說明文檔)
step2::好的程式師不愛囉嗦(我不是那款好的機器),開工Form!
打開Genero Studio平臺,專案-><unsaved>->新建群組->新建應用程式->建立新檔(原始程式碼.4gl和表單.4fd) 一級級的從上往下建,記得保存重命名。 最後是這樣子的
OK開工了:先畫螢幕,說明下咱不寫那麼簡單的display “HelloWorld", 搞點稍微複雜的,InputWords(lable+edit) 輸入你的字元,ShowWords(lable+edit)顯示你輸入的字元(多次輸入字串拼接)
Step3:開工4gl SourceCode 直接粘代碼說明
#定義全域變數
GLOBALS
DEFINE a, c STRING
END GLOBALS
#main函數,入口函數
MAIN
#定於主函數變數
DEFINE b char(1)
#首先關閉視窗,以防上次意外未關閉
CLOSE WINDOW SCREEN
#在視窗打開我們的FORM,指定位置1,1
OPEN WINDOW w1 AT 1,1 WITH FORM "HelloScreen"
#開窗準備輸入字元
CALL InputWords()
#這裡抓取MENU區域的Action,執行相應的動作
MENU ""
ON ACTION ADD
CALL InputWords() #再次輸入
ON ACTION QUIT
EXIT MENU
ON ACTION CLOSE #彈出確認關閉窗口
PROMPT "Close the window?(Y/N)" FOR b
IF b = 'Y' OR b = 'y' THEN
EXIT PROGRAM
ELSE
CONTINUE MENU
END IF
END MENU
#關閉FORM和窗口
CLOSE FORM HelloScreen
CLOSE WINDOW W1
END MAIN
FUNCTION InputWords()
INPUT a FROM edit1 #從螢幕的輸入值傳遞給變數a
AFTER INPUT #輸入完成OK後,執行顯示功能
CALL SayHello()
END INPUT
END FUNCTION
FUNCTION SayHello()
CLEAR edit1
LET c = c,a #將上次的c和本次a字元拼接
DISPLAY c TO edit2 #顯示到螢幕
END FUNCTION
Step4 :記住最好把每個應用程式下的4gl, 4fd都編譯下,看看有沒有錯誤再執行,最後點執行看看效果
————————————————
版權聲明:本文為CSDN博主「居士愛吃泡面」的原創文章,遵循CC 4.0 BY-SA版權協議,轉載請附上原文出處連結及本聲明。
原文連結:https://blog.csdn.net/ERP_TOP_DD/article/details/50033351
