魔导 发表于 2012-5-2 13:01:00

编程练习02

;~ 编写一个程序，他要求用户输入一个以浪为单位的距离，然后将它转换为码（一浪等于220码）
$Form1 = GUICreate("练习",200,150,-1,-1)
GUICtrlCreateLabel("浪",5,2)
$input = GUICtrlCreateInput("",50,2,80,15)
$button = GUICtrlCreateButton("确定",60,40,30,20)
GUISetState()
While 1
      $nMsg = GUIGetMsg()
      Switch $nMsg
                Case -3
                        Exit
                                Case $button
                                $ma = '码：'
                                $ma &= GUICtrlRead($input)*220
                                MsgBox(0,0,$ma)
                EndSwitch
wend

1007236046 发表于 2012-5-2 17:00:48

可以输入符号的啊

魔导 发表于 2012-5-2 17:16:41

回复 2# 1007236046


    前辈的意思是.........

1007236046 发表于 2012-5-2 18:04:36

前辈不敢当,我的意思可以加个isnumber判断输入

whitehead 发表于 2012-5-2 19:04:46

就是说加个判断确保输入是数

魔导 发表于 2012-5-3 06:28:21

本帖最后由 魔导 于 2012-5-3 06:30 编辑

回复 4# 1007236046

感谢前辈指点    前辈的意思是这样吗？
;~ 编写一个程序，他要求用户输入一个以浪为单位的距离，然后将它转换为码（一浪等于220码）
$Form1 = GUICreate("练习",200,150,-1,-1)
GUICtrlCreateLabel("浪",5,2)
$input = GUICtrlCreateInput("",50,2,80,15)
$button = GUICtrlCreateButton("确定",60,40,30,20)
GUISetState()
While 1
      $nMsg = GUIGetMsg()
      Switch $nMsg
                Case -3
                        Exit
                                        Case $button
                                                $ma = GUICtrlRead($input)*220
                                                If 1 = IsNumber ($ma) and not($ma <= 0)        then
                              MsgBox(0,0,'码：'&$ma)
                                                else
                                                                MsgBox(0,0,"请输入一个大于 0 的数值")
                                                endif
                EndSwitch
wend
还请前辈多多指点{:face (396):}
页: [1]
查看完整版本: 编程练习02