我是新手,想知道一个计算器的大概编程思路,还有计算器设计中小数点和退格的处理方法,谢谢大家了
储存 2个相加减乘除的值,
当按数字键 文本框显示按键 :变量1=按键1的值,
接着按键2时:变量1=变量1& 按键2的值,同时test1.text=变量1,(计算器显示框显示)
以此类推...
当按 加减乘除 4个键任意一个
test1.test=""
保存变量2=当前按键值 ,同时test1.text=变量2,(计算器显示框显示)
接着按其它键时,变量2=变量2& 按键的值,同时test1.text=变量1,(计算器显示框显示)
等于 test1.text=变量1+变量2
退格 :
计算器显示框显示 字符长度减一位 取左边字符,长度为 当前字符长度-1
test1.text=left(test1.text,len(test1.text)-1)
小数点 加 . 字符串相加追问
我在调用Left的时候,它提示说“Public property Left() As Integer”没有任何参数,并且无法对它的返回类型进行索引
另外小数点最多只能有一个,我怎样才能控制它只出现一次?
还有全局变量的声明方法是什么,应该放在什么地方声明?
得到字符串左部指定个数的字符。
语法:LEFT( string, n )
参数:string 指定要提取子串的字符串。n 指定子串长度返回值String。
说明:函数执行成功时返回string字符串左边n个字符,发生错误时返回空字符串("")。如果任何参数的值为NULL,Left()函数返回NULL。如果n的值大于string字符串的长度,那么Left()函数返回整个string字符串,但并不增加其它字符。
AnyString = "Hello World" '定义字符串.
MyStr = Left(AnyString, 1) '返回 "H"。
MyStr = Left(AnyString, 7) '返回 "Hello W"。
left() 函数不用定义。
变量的定义:如:Public intnum, intnum1, intnum2 As Integer 放在整个代码最上面。
用 instr()
如果 点了一次小数点,则再点不执行语句
if instr(显示框的值,".")>0 then '检测 是否包含 小数点
else
end if
我用的是VB2005,好像语法有些不一样,好吧,小数点的检测如果遇到了Text=“0..”的状况怎么办,比如我现在显示框里已经有了“0.”,这个的值大于0么? 可以检测出来么?
还有就是,检测完之后怎么让它再点不再执行语句?
用 instr() 能检测 是否有 "."
用个判断,如果有 "." 变量就不加 ". " 就可以了,不会出现 0.. 情况,如果有 replace() 过滤下。
我还是不知道怎么让它停止 if instr(显示框的值,".")>0 then 这个后面应该写什么才能让小数点这个按钮点起来没用。。我只会写成
If InStr(Me.Text1.Text, ".") > 0 Then
Me.Text1.Text = "0"
Else
Me.Text1.Text = Me.Text1.Text + "."
Me.Command10.Enabled = False
End If
我只会这样防止那个按钮被点。。。但是这样的话退格的时候又要考虑会不会把小数点退掉,挺麻烦的
If InStr(Me.Text1.Text, ".") =0 Then ' 如果没有小数点。则加,有小数点,这个就不运行。
Me.Text1.Text = Me.Text1.Text + "."
End If
正常情况下,退格 是 从右至左减少字符,点下减一个,包括小数点。