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都编译下,看看有没有错误再执行,最后点执行看看效果


  



  • 2
    点赞
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值