编程练习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

可以输入符号的啊

魔导

回复 2# 1007236046


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

1007236046

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

whitehead

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

魔导

回复 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

还请前辈多多指点