云外归鸟工作室网站

标题: [代码]类的演示 Class [打印本页]

作者: kjgmj 时间: 2010-10-24 10:27
标题: [代码]类的演示 Class
Class.bas：

#引用 "windows.bi"
常量为整数型 TEST1 = 1 , TEST2 = 2
变量为整数型 xx , yy
定义 v = "abc"
'//////////////////////////////////////////////////////////////////////
命名空间 MyClass
  类型 a
   声明构造 (传值 z 为整数型)
声明析构 ()
声明子程序 s (传值 z 为整数型)
声明属性 p ()为整数型
声明属性 p (传值 z 为整数型)
声明操作符 * = (传值 z 为整数型)
  私有 :
x 为整数型
  结束类型
  构造 a (传值 z 为整数型)
MessageBox (0 , 到文本 (z), "构造a(传值z为整数型)" , MB_OK)
this.x = z
  结束构造
  析构 a ()
MessageBox (0 , 到文本 (x), "析构a()" , MB_OK)
  结束析构
  子程序 a.s (传值 z 为整数型)
   x = z * 2
   this.x = z * 2
   MessageBox (0 , 到文本 (x), "子程序a.s(传值z为整数型)" , MB_OK)
  结束子程序
  属性 a.p ()为整数型
MessageBox (0 , 到文本 (x), "读入数据:属性a.p()为整数型" , MB_OK)
返回 x
  结束属性
  属性 a.p (传值 z 为整数型)
x = z
MessageBox (0 , 到文本 (x), "Set:属性a.p(传值z为整数型)" , MB_OK)
  结束属性
  操作符 a.* = (传值 z 为整数型)
x = x * z
this.x = this.x * z
MessageBox (0 , 到文本 (x), "操作符a.*=(传值z为整数型)" , MB_OK)
  结束操作符
结束命名空间
'//////////////////////////////////////////////////////////////////////
命名空间 MyNamespace

  子程序 s (传值 z 为整数型)
MessageBox (0 , 到文本 (z), "子程序s(传值z为整数型)" , MB_OK)
  结束子程序
结束命名空间
'//////////////////////////////////////////////////////////////////////
子程序 mysub
  ' 构造called
  变量 c 为 MyClass.a = 123
  变量 rect (3)为 RECT
  '子程序called
  c.s (1)
  ' 属性读入数据/Setcalled
  c.p = c.p + 1
  ' 操作符 called
  c * = 2
  成员赋值 c
'子程序called
.s (1)
' 属性读入数据/Setcalled
.p = c.p + 1
' 操作符 called
c * = 2
  结束成员赋值
  成员赋值 rect (0)
.right =.right + 1
.left =.left + 1
  结束成员赋值
  rect (0).left = 2

  MyNamespace.s (3)
使用 MyNamespace
  s (2)
结束子程序
'//////////////////////////////////////////////////////////////////////
mysub
MyNamespace.s(5)

作者: 数码幽灵 时间: 2010-10-24 15:56
支持下辛苦了

欢迎光临云外归鸟工作室网站 (http://www.ywgn.net/)