| 网站首页 | 业界新闻 | 群组 | 人才 | 技术文章 | 下载频道 | 博客 | 代码贴 | 编程论坛
绝地游戏外挂辅助教学千里之行 始于足下
共有 867 人关注过本帖
标题:类声明一样的时候,怎么简写?
只看楼主 收藏
不懂才问
Rank: 14Rank: 14Rank: 14Rank: 14
来 自:大草原
等 级:贵宾
威 望:27
帖 子:1253
专家分:5982
注 册:2010-7-5
结帖率:92.13%
  已结贴   问题点数:20  回复次数:5   
类声明一样的时候,怎么简写?
程序代码:
&&求一元二次方程.prg
of = CREATEOBJECT("fm1")
of.Show
READ EVENTS

DEFINE CLASS fm1 as Form
    WindowType = 1
    ShowWindow = 2
    Desktop = .T.
    AutoCenter = .T.
    Caption="求一元二次方程"
    left=77
    top=29
    height=282
    width=852
   

    ADD OBJECT label1 as myLbl1 WITH top=39,left=203
    ADD OBJECT label2 as myLbl2 WITH top=46,left=239
    ADD OBJECT label3 as myLbl3 WITH top=39,left=346
    ADD OBJECT label4 as myLbl4 WITH top=39,left=346
    ADD OBJECT label5 as myLbl5 WITH top=42,left=252
    ADD OBJECT label6 as myLbl6 WITH top=46,left=483
    ADD OBJECT label7 as myLbl7 WITH top=40,left=551
    ADD OBJECT label8 as myLbl8 WITH top=196,left=48
    ADD OBJECT label9 as myLbl9 WITH top=24,left=24
    ADD OBJECT text1 as myTxt1 WITH top=52,left=143
    ADD OBJECT text2 as myTxt2 WITH top=52,left=287
    ADD OBJECT text3 as myTxt3 WITH top=52,left=419
    ADD OBJECT cmdCalc as myCmd1 WITH top=148,left=167
    ADD OBJECT cmdExit as myCmd2 WITH top=148,left=491
    ADD OBJECT cmdRetry as myCmd3 WITH top=244,left=683

    PROCEDURE UnLoad
        CLEAR EVENTS
    ENDPROC
ENDDEFINE

DEFINE CLASS myLbl1 as Label
    Visible = .T.
    caption = "x"
    BackStyle=0
    AutoSize=.T.
    FontSize=50
   
ENDDEFINE

DEFINE CLASS myLbl2 as Label
    Visible = .T.
    caption = "2"
    BackStyle=0
    AutoSize=.T.
    FontSize=20
   
ENDDEFINE

DEFINE CLASS myLbl3 as Label
    Visible = .T.
    caption = "x"
    BackStyle=0
    AutoSize=.T.
    FontSize=50
   
ENDDEFINE

DEFINE CLASS myLbl4 as Label
    Visible = .T.
    caption = "x"
    BackStyle=0
    AutoSize=.T.
    FontSize=50
   
ENDDEFINE

DEFINE CLASS myLbl5 as Label
    Visible = .T.
    caption = "+"
    BackStyle=0
    AutoSize=.T.
    FontSize=50
   
ENDDEFINE

DEFINE CLASS myLbl6 as Label
    Visible = .T.
    caption = "="
    BackStyle=0
    AutoSize=.T.
    FontSize=50
   
ENDDEFINE

DEFINE CLASS myLbl7 as Label
    Visible = .T.
    caption = "0"
    BackStyle=0
    AutoSize=.T.
    FontSize=50
   
ENDDEFINE

DEFINE CLASS myLbl8 as Label
    Visible = .T.
    caption = ""
    BackStyle=0
    AutoSize=.T.
    FontSize=20
   
ENDDEFINE

DEFINE CLASS myLbl9 as Label
    Visible = .T.
    caption = '说明:先输入方程的系数,然后按“求解”按钮,即可求出方程的根。'
    BackStyle=0
    AutoSize=.T.
    FontSize=12
   
ENDDEFINE

DEFINE CLASS myTxt1 as TextBox
    Visible = .T.
    caption = ""
    BackStyle=0
    BorderStyle=1
    AutoSize=.T.
    FontSize=40
    Height=49
    Width=61
   
ENDDEFINE

DEFINE CLASS myTxt2 as TextBox
    Visible = .T.
    caption = ""
    BackStyle=0
    BorderStyle=1
    AutoSize=.T.
    FontSize=40
    Height=49
    Width=61
   
ENDDEFINE

DEFINE CLASS myTxt3 as TextBox
    Visible = .T.
    caption = ""
    BackStyle=0
    BorderStyle=1
    AutoSize=.T.
    FontSize=40
    Height=49
    Width=61
   
ENDDEFINE

DEFINE CLASS myCmd1 as CommandButton
    Visible = .T.
    caption = "求解"
    height = 25
    width = 85
   
    PROCEDURE Click
        thisform.label8.caption=""  &&用label8输出方程的结果,先修改其caption属性为“”(空)。
        a=VAL(thisform.text1.value)  &&以下三行读取方程的系数
        b=VAL(thisform.text2.value)
        c=VAL(thisform.text3.value)
        IF a!=0
            d=b*b-4*a*c  &&求delta的值
            DO CASE
                CASE d=0
                    x=-b/(2*a)
                    thisform.label8.caption="方程有一个实根:"+ALLT(STR(x,8,2))+"。"  &&把数值转换为字符时,要注意str()的用法,否则只有整数
                CASE d>0
                    x1=(-b+SQRT(d))/(2*a)
                    x2=(-b-SQRT(d))/(2*a)
                    thisform.label8.caption="方程有两个实根,分别是:"+ALLT(STR(x1,8,2))+"和"+ALLT(STR(x2,8,2))+"。"
                CASE d<0
                    sb=-b(2*a)
                    xb=SQRT(-d)/(2*a)
                    thisform.label8.caption="方程有两个复数根,分别是:"+ALLTRIM(STR(sb,8,2))+"+"+"allt(STR(xb,8,2))+"i"+"和"+ALLTRIM(STR(sb,8,2))+"-"+ALLTRIM(STR(xb,8,2))+"i"+"。""
            ENDCASE
        ELSE
            IF b!=0
                thisform.label8.caption="方程是一次方程,其根为:"+ALLTRIM(STR(-c/b,8,2))+"。"
            ELSE
                thisform.label8.caption="由于二次项和一次项的系统均为0,不能构成一个方程。"
            ENDIF
        ENDIF                     
    ENDPROC
ENDDEFINE

DEFINE CLASS myCmd2 as CommandButton
    Visible = .T.
    caption = "退出"
    height = 25
    width = 85
   
    PROCEDURE Click
        thisform.Release
    ENDPROC
ENDDEFINE

DEFINE CLASS myCmd3 as CommandButton
    Visible = .T.
    caption = "再来一题"
    height = 25
    width = 85
   
    PROCEDURE Click
        thisform.text1.value=""
        thisform.text2.value=""
        thisform.text3.value=""
        thisform.text1.setfocus
        thisform.refresh
    ENDPROC
ENDDEFINE


三个TextBox的DEFINE部门都一样,怎么简写?
搜索更多相关主题的帖子: Desktop  color  
2015-11-19 08:15
吹水佬
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:117
帖 子:4832
专家分:19785
注 册:2014-5-20
  得分:20 
    ADD OBJECT text1 as myTxt1 WITH top=52,left=143
    ADD OBJECT text2 as myTxt1 WITH top=52,left=287
    ADD OBJECT text3 as myTxt1 WITH top=52,left=419

就写一个myTxt1就可以
类可以继承,要扩展也可以:
DEFINE CLASS myTxt2 as myTxt1
    Visible = .T.
    ......
ENDDEFINE

[此贴子已经被作者于2015-11-19 09:40编辑过]

2015-11-19 09:38
不懂才问
Rank: 14Rank: 14Rank: 14Rank: 14
来 自:大草原
等 级:贵宾
威 望:27
帖 子:1253
专家分:5982
注 册:2010-7-5
  得分:0 
明白了

报告老师,我低头不是因为我在装低调,是你问的问题,我真的不会答,,,
2015-11-19 10:19
mywisdom88
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:65
帖 子:2123
专家分:5175
注 册:2015-3-25
  得分:0 
TO:吹水佬
你们的表单都是生成的?还是部分的是.SCX,部分是PRG生成的?
有什么规则?
PRG生成的最大优点是?缺点是?
2015-11-19 10:37
吹水佬
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:117
帖 子:4832
专家分:19785
注 册:2014-5-20
  得分:0 
以下是引用mywisdom88在2015-11-19 10:37:09的发言:

TO:吹水佬
你们的表单都是生成的?还是部分的是.SCX,部分是PRG生成的?
有什么规则?
PRG生成的最大优点是?缺点是?

个人觉得只是语言表达方式不同,从最终编码来看无实质性差别。
从阅读方面来说,PRG比较直观(TXT),SCX就与表相关(DBF)。
相对来说应该不存在什么优缺点,SCX是可视化编程的需要,以可读性换取“傻瓜”。PRG、SCX都可取,纯属个人取向。

[此贴子已经被作者于2015-11-19 11:00编辑过]

2015-11-19 10:58
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25793
专家分:48814
注 册:2011-6-22
  得分:0 
以下是引用mywisdom88在2015-11-19 10:37:09的发言:

TO:吹水佬
你们的表单都是生成的?还是部分的是.SCX,部分是PRG生成的?
有什么规则?
PRG生成的最大优点是?缺点是?

舉個例子,不知道可以Ctrl+C/Ctrl+V的時候,都會覺得用鼠標右鍵操作很自然。結論其實是,你習慣了而已。

授人以渔,不授人以鱼。
2015-11-19 19:14







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.287509 second(s), 7 queries.
Copyright©2004-2017, BCCN.NET, All Rights Reserved