计算器？ - VFP论坛

楼主

已结贴√ 问题点数：20 回复次数：19

计算器？

用一个纯代码写了一个很简单的计算器各位大牛帮看看
我是边做边看书要用什么控件就去了解他所以没怎么有全局观
看看我做这个能否改进下我总觉得ComboBox那个地方可以改进但又不知道咋弄更好
程序代码

程序代码：

CLEAR ALL
CLOSE DATABASES all
frmMain = CREATEOBJECT("C_Form")
frmMain.show
READ events
CLEAR
RETURN

DEFINE CLASS C_Form as Form
    caption = "简单计算器"
    width = 600
    height = 400
    autocenter = .T.
   

    ADD OBJECT Label1 as label WITH caption = "第一个数", Width = 60, height = 25
    ADD OBJECT Label2 as label WITH caption = "第二个数", Width = 60, height = 25
    ADD OBJECT Label3 as label WITH caption = "最终结果", Width = 60, height = 25
    ADD OBJECT Text1 as TextBox WITH value = "", Width = 100, height = 25
    ADD OBJECT Text2 as TextBox WITH value = "", Width = 100, height = 25
    ADD OBJECT Text3 as TextBox WITH value = "", Width = 100, height = 25
    ADD OBJECT Button1 as CommandButton WITH caption = "计算", height = 25
    ADD OBJECT ComboBox1 as ComboBox WITH caption = "计算方式", Height = 20, Width = 50
                        

    PROCEDURE Arrange
        WITH ThisForm.Label1
           .Top = 100
           .Left = 50
        ENDWITH
        WITH ThisForm.Text1
           .Top = ThisForm.Label1.Top
           .Left = ThisForm.Label1.Left + ThisForm.Label1.Width + 5
        ENDWITH
        WITH ThisForm.Label2
           .Top = ThisForm.Label1.Top
           .Left = ThisForm.Width / 2
        ENDWITH
         WITH ThisForm.Text2
           .Top = ThisForm.Label1.Top
           .Left = ThisForm.Label2.Left + ThisForm.Label2.Width + 5
        ENDWITH
        WITH ThisForm.Label3
           .Top = ThisForm.Label1.Top + ThisForm.Label1.Height + 50
           .Left = ThisForm.Width / 2 - .Width
        ENDWITH
        WITH ThisForm.Text3
           .Top = ThisForm.Label3.Top
           .Left = ThisForm.Label3.Left + ThisForm.Label3.Width + 5
        ENDWITH
        WITH ThisForm.Button1
           .Top = ThisForm.Label3.Top + ThisForm.Label3.Height + 30
           .Left = ThisForm.Width / 2 - .Width / 2
        ENDWITH
         WITH Top = ThisForm.Label3.Top

           .Left = ThisForm.Label3.Left - .Width - 5
           .style = 0
           .inputmask = .displayvalue
           .list(1) = '+'
           .list(2) = '-'
           .list(3) = '*'
           .list(4) = '/'
           .ColumnCount = 1
           .ColumnLines = .F.
        ENDWITH
    ENDPROC
   

    PROCEDURE Activate
    ThisForm.Arrange
    ENDPROC
   

    PROCEDURE Resize
    ThisForm.Arrange
    ENDPROC
   

    PROCEDURE destroy
        CLEAR EVENTS
    ENDPROC
   

     PROCEDURE ComboBox1.Click
        LOCAL  i as Integer
        WITH FOR  i = 1 TO 4
                IF .selected(i)
                   .DisplayValue = .list(i)
                ENDIF
        NEXT
        ENDWITH       

    ENDPROC
   

    PROCEDURE Button1.CLick
    LOCAL v as Double
    WITH ThisForm
    DO CASE

       CASE  = '+'
          v = VAL(.Text1.Value) + VAL(.Text2.Value)
       CASE  = '-'
          v = VAL(.Text1.Value) - VAL(.Text2.Value)
       CASE  = '*'
          v = VAL(.Text1.Value) * VAL(.Text2.Value)
       CASE  = '/'
          IF VAL(.Text2.Value) != 0
             v = VAL(.Text1.Value) / VAL(.Text2.Value)
          ELSE
              MESSAGEBOX("零做除数是非法的", 0)
              return
          ENDIF
       OTHERWISE 

              MESSAGEBOX("错误的计算方法", 0)
              return
    ENDCASE
    ENDWITH

        WITH ThisForm
            .Text3.Value = STR(v,10, 2)
        ENDWITH
    ENDPROC
   

ENDDEFINE

附上连编的app

(1.91 KB)

附图：

图片附件: 游客没有浏览图片的权限，请登录或注册

搜索更多相关主题的帖子: 计算器　

第 2 楼

得分:0

回复 2楼 sdta

clear 和 return 重复了吗？

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

第 3 楼

得分:0

好像clear是清屏 clear all是释放内存回第一工作区吧
不太清楚VFP中的return

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

第 4 楼

得分:0

回复 6楼 sdta

咦去试了下还真是的
难道ComboBox能自动执行Click 命令？

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

第 5 楼

得分:0

以下是引用sdta在2012-9-14 23:46:18的发言：

[计算]按钮可以不要
PROCEDURE Button1.CLick
可改为：
PROCEDURE combobox1.interactivechange
前面相应部分可以不要

这样貌似出不了结果。。。。

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

第 6 楼

得分:0

回复 12楼 sdta

吼吼改了下确实是这样的程序简洁多了

程序代码：

CLEAR ALL
frmMain = CREATEOBJECT("C_Form")
frmMain.show
READ events
RETURN

DEFINE CLASS C_Form as Form
    caption = "简单计算器"
    width = 600
    height = 400
    autocenter = .T.
   

    ADD OBJECT Label1 as label WITH caption = "第一个数", Width = 60, height = 25
    ADD OBJECT Label2 as label WITH caption = "第二个数", Width = 60, height = 25
    ADD OBJECT Label3 as label WITH caption = "最终结果", Width = 60, height = 25
    ADD OBJECT Text1 as TextBox WITH value = "", Width = 100, height = 25
    ADD OBJECT Text2 as TextBox WITH value = "", Width = 100, height = 25
    ADD OBJECT Text3 as TextBox WITH value = "", Width = 100, height = 25
    ADD OBJECT ComboBox1 as ComboBox WITH caption = "计算方式", Height = 20, Width = 50
                        

    PROCEDURE Arrange
        WITH ThisForm.Label1
           .Top = 100
           .Left = 50
        ENDWITH
        WITH ThisForm.Text1
           .Top = ThisForm.Label1.Top
           .Left = ThisForm.Label1.Left + ThisForm.Label1.Width + 5
        ENDWITH
        WITH ThisForm.Label2
           .Top = ThisForm.Label1.Top
           .Left = ThisForm.Width / 2
        ENDWITH
         WITH ThisForm.Text2
           .Top = ThisForm.Label1.Top
           .Left = ThisForm.Label2.Left + ThisForm.Label2.Width + 5
        ENDWITH
        WITH ThisForm.Label3
           .Top = ThisForm.Label1.Top + ThisForm.Label1.Height + 50
           .Left = ThisForm.Width / 2 - .Width
        ENDWITH
        WITH ThisForm.Text3
           .Top = ThisForm.Label3.Top
           .Left = ThisForm.Label3.Left + ThisForm.Label3.Width + 5
        ENDWITH
         WITH Top = ThisForm.Label3.Top

           .Left = ThisForm.Label3.Left - .Width - 5
           .style = 0
           .inputmask = .displayvalue
           .rowsource = [+,-,*,/]
           .rowsourcetype = 1
           .ColumnCount = 1
           .ColumnLines = .F.
        ENDWITH
    ENDPROC
   

    PROCEDURE Activate
    ThisForm.Arrange
    ENDPROC
   

    PROCEDURE Resize
    ThisForm.Arrange
    ENDPROC
   

    PROCEDURE destroy
        CLEAR EVENTS
    ENDPROC

    PROCEDURE ComboBox1.InterActiveChange
    LOCAL v as Double
    WITH ThisForm
    DO CASE

       CASE  = '+'
          v = VAL(.Text1.Value) + VAL(.Text2.Value)
       CASE  = '-'
          v = VAL(.Text1.Value) - VAL(.Text2.Value)
       CASE  = '*'
          v = VAL(.Text1.Value) * VAL(.Text2.Value)
       CASE  = '/'
          IF VAL(.Text2.Value) != 0
             v = VAL(.Text1.Value) / VAL(.Text2.Value)
          ELSE
              MESSAGEBOX("零做除数是非法的", 0)
              return
          ENDIF
       OTHERWISE 

              MESSAGEBOX("错误的计算方法", 0)
              return
    ENDCASE
            .Text3.Value = STR(v,10, 2)
        ENDWITH
    ENDPROC
     

ENDDEFINE

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

第 7 楼

得分:0

回复 15楼 sdta

厉害
PROCEDURE init 默认包含 PROCEDURE Activate 和 PROCEDURE Resize吗？

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

第 8 楼

得分:0

以下是引用sdta在2012-9-15 00:08:46的发言：

INIT中的代码可以放在各自的ADD中设置

ADD是什么东西？

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

第 9 楼

得分:0

以下是引用有容就大在2012-9-15 00:15:58的发言：

ADD是什么东西？

这个问的太傻了哈哈

原来就是ADD OBJECT

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

第 10 楼

得分:0

S版照你指导的修改了最终结果这样

程序代码：

frmMain = CREATEOBJECT("C_Form")
frmMain.show
READ events
RETURN

DEFINE CLASS C_Form as Form
    caption = "简单计算器"
    width = 600
    height = 400
    autocenter = .T.
   

    ADD OBJECT Label1 as label WITH caption="第一个数", Width=60,height=25,Top=100,Left=50
    ADD OBJECT Label2 as label WITH caption="第二个数", Width=60,height=25,Top=ThisForm.Label1.Top,Left=ThisForm.Width/2
    ADD OBJECT Label3 as label WITH caption= "最终结果",Width=60,height=25
    ADD OBJECT Text1 as TextBox WITH value="",Width=100,height=25,Top=ThisForm.Label1.Top,Left=ThisForm.Label1.Left+ThisForm.Label1.Width+5
    ADD OBJECT Text2 as TextBox WITH value="",Width=100,height=25,Top=ThisForm.Label1.Top,Left =ThisForm.Label2.Left+ThisForm.Label2.Width+5
    ADD OBJECT Text3 as TextBox WITH value="",Width=100,height=25
    ADD OBJECT ComboBox1 as ComboBox WITH caption = "计算方式", Height = 20, Width = 50

    PROCEDURE init
        WITH ThisForm.Label3
           .Top = ThisForm.Label1.Top + ThisForm.Label1.Height + 50
           .Left = ThisForm.Width / 2 - .Width
        ENDWITH
        WITH ThisForm.Text3
           .Top = ThisForm.Label3.Top
           .Left = ThisForm.Label3.Left + ThisForm.Label3.Width + 5
        ENDWITH
         WITH Top = ThisForm.Label3.Top
           .Left = ThisForm.Label3.Left - .Width - 5
           .style = 0
           .inputmask = .displayvalue
           .rowsource=[+,-,*,/] &&
           .rowsourcetype=1 &&
           .ColumnCount = 1
           .ColumnLines = .F.
        ENDWITH
    ENDPROC

 

    PROCEDURE destroy
        CLEAR EVENTS
    ENDPROC

    PROCEDURE combobox1.interactivechange
    LOCAL v as Double
    WITH ThisForm
       DO CASE
          CASE  = '+'
               v = VAL(.Text1.Value) + VAL(.Text2.Value)
          CASE  = '-'
               v = VAL(.Text1.Value) - VAL(.Text2.Value)
          CASE  = '*'
               v = VAL(.Text1.Value) * VAL(.Text2.Value)
          CASE  = '/'
               IF VAL(.Text2.Value) != 0
                  v = VAL(.Text1.Value) / VAL(.Text2.Value)
               ELSE
                  MESSAGEBOX("零做除数是非法的", 0)
                  return
               ENDIF
          OTHERWISE
              MESSAGEBOX("错误的计算方法", 0)
              return
       ENDCASE
         .Text3.Value = str(v,10, 2)
    ENDWITH
    ENDPROC
   

ENDDEFINE

非常感谢你的指教

梅尚程荀
马谭杨奚

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　