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