gambas
安装最新版 gambas3:
代码: 全选
sudo add-apt-repository ppa:nemh/gambas3
sudo apt-get update
sudo apt-get install gambas3
正在编写的教程:
http://gambasdoc.org/help/tutor_zh?zh
代码: 全选
1、运行状态下右边的属性和工具箱面板不可见
2、点“工程-生成可执行文件"
3、事件可以在控件的右键上找,方法要输入名称后按个点.
4、单击事件是 MouseDown,可以用自动补全来快速输入
5、右键最下面有个“保存”,可以在窗体和代码窗口间切换
6、Format$(Now, "mm/dd/yyyy hh:nn:ssu") 得到 04/15/2002 09:05:36.26
7、对应于VB的END命令的功能,可以使用QUIT语句或者最好关闭所有打开的窗口和结束所有的子进程。
8、使用public 来定义全局变量,此时不能使用dim
9、message. 来替代MessageBox
10、gambas3的文件夹内容是隐藏的,可执行文件是可见
11、g3打不出汉字时,关闭重新进入即可
12、g3的属性面板隐藏后,在右侧上边缘找一个箭头按钮展开
13、属性面板里的属性说明,下边的工具箱,都有一个横向水平的折叠按钮,在两边上可以看到折叠按钮箭头
PureBasic/basic4gl
[thinbasic]
' Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
DIM y, m, d, w, t AS String
'Label1.Caption = Format$(Now, "yyyy年mm月dd日 hh nn") & "/" & Val(Format$(WeekDay(Date)))
'13-09-23
y = Mid$(Str$(Date), 1, 2)
m = Mid$(Str$(Date), 4, 2)
d = Mid$(Str$(Date), 7, 2)
'TextBox1.Text = y & m & d
SELECT CASE WeekDay(Date)
CASE 1
w = "一"
CASE 2
w = "二"
CASE 3
w = "三"
CASE 4
w = "四"
CASE 5
w = "五"
CASE 6
w = "六"
CASE 0
w = "日"
END SELECT
TextBox1.Text = "20" & y & "年" & m & "月" & d & "日 " & "星期" & W & " " & Format$(Now, "hh") & ":" & Format$(Now, "nn")
END
[/thinbasic]
Messagebox 的用法,使用message.X(""[,"...","...","..."] ,X可以选择,返回整型数1、2、3
[thinbasic]
PUBLIC SUB Form_MouseDown()
FMain.Text = Message.Question("hello,world!", "确定", "忽略", "取消") & Mouse.X
END
[/thinbasic]
定义全局变量,在代码窗口空行顶格写
[thinbasic]PUBLIC i AS Integer[/thinbasic]
点击标签后,它会躲开
[thinbasic]
PUBLIC SUB _new()
END
PUBLIC i AS Integer'定义一个全局变量,计数器
PUBLIC SUB Form_MouseMove()'按下鼠标后,在窗口标题栏显示鼠标位置
FMain.Title = Mouse.X & " " & Mouse.Y
END
PUBLIC SUB Label1_MouseDown()
i = i + 1
Label1.X = Label1.X + 5
Label1.Y = Label1.Y + 50
Label1.text = "你点了" & i & "下"
END
[/thinbasic]