今天聽說公司要我上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

文章標籤
全站熱搜
創作者介紹
創作者 M先生 的頭像
M先生

雨果

M先生 發表在 痞客邦 留言(0) 人氣(264)