Genero “HelloWorld"

  今天听说公司上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都编译下，看看有没有错误再执行，最后点执行看看效果