[已解决]計算Edit1 Edit2 Edit3..內的數字 該如何做ㄚ?

tcpuuu

GUICreate(" Win ", 110, 302, 800, 2)

$L1 = GUICtrlCreateLabel("1", 2, 2, 62, 36, 0x00800000) ;$WS_BORDER = 0x00800000
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetFont(-1, 24)

$L2 = GUICtrlCreateLabel("2", 2, 40, 62, 36, 0x00800000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 24)

$L3 = GUICtrlCreateLabel("3", 2, 78, 62, 36, 0x00800000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 24)

$L4 = GUICtrlCreateLabel("4", 2, 116, 62, 36, 0x00800000) ;$WS_BORDER = 0x00800000
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 24)

$L5 = GUICtrlCreateLabel("5", 2, 154, 62, 36, 0x00800000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 24)

$L6 = GUICtrlCreateLabel("6", 2, 192, 62, 36, 0x00800000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 24)
$1Button = GUICtrlCreateButton("往下進1格", 1, 232, 60, 30)
$2Button = GUICtrlCreateButton("停在原地", 1, 266, 60, 30)
;--------------------------------------
GUICtrlCreateInput ( "", 68,  8, 30, 20)
GUICtrlCreateInput ( "", 68, 46, 30, 20)
GUICtrlCreateInput ( "", 68, 84, 30, 20)
GUICtrlCreateInput ( "", 68,122, 30, 20)
GUICtrlCreateInput ( "", 68,160, 30, 20)
GUICtrlCreateInput ( "", 68,198, 30, 20)
$3Button = GUICtrlCreateButton("計算", 68, 220, 30, 20)
GUICtrlCreateInput ( "", 68,242, 30, 20)
$4Button = GUICtrlCreateButton("執行", 63, 266, 40, 30)

GUISetState()
Dim $bj = $L1
Dim $exe[6] = ["1.exe", "2.exe", "3.exe", "4.exe", "5.exe", "6.exe"]

While 1

        $msg = GUIGetMsg()

        Switch $msg

                Case -3

                        Exit

                Case $1Button

                        Go($msg)
                Case $2Button
                         MsgBox(0, 0, $exe[$bj - 3], 1)
                        ;RUN($exe[$bj - 3])

        EndSwitch

WEnd

Func Go($msg)

        If ($msg = $1Button And $bj = $L6)  Then Return

        GUICtrlSetBkColor($bj, 0xFFFFFF)

        $bj += 1     
        
        GUICtrlSetBkColor($bj, 0xFF0000)
        MsgBox(0, 0, $exe[$bj - 3], 1)
        ;RUN($exe[$bj - 3])

EndFunc   ;==>Go

tcpuuu

afan超級版主 你在那兒ㄚ?  快來幫忙一下

afan

我是看不懂你的意思...

tcpuuu

afan超級版主 你好!
手動 輸入數字, 然後可以按下3Button  做計算
計算的結果 自動填入Edit7 內

按4Button 可以 條件式執行程式
-------------------------------------------
如果 Edit7內的數字 大於0  然後
MsgBox(0, 0,計算的結果大於0, 1)
Else
MsgBox(0, 0,計算的結果小於或等於0, 1)
EndIf

afan

剔除了无关的代码， 问题应该精简；另外，贴代码最好用代码的标签，方便浏览和使用。

GUICreate(" Win ", 110, 302, 800, 2)
;................
;--------------------------------------
Dim $Input[8] = [7], $Val
$Input[1] = GUICtrlCreateInput("", 68, 8, 30, 20)
$Input[2] = GUICtrlCreateInput("", 68, 46, 30, 20)
$Input[3] = GUICtrlCreateInput("", 68, 84, 30, 20)
$Input[4] = GUICtrlCreateInput("", 68, 122, 30, 20)
$Input[5] = GUICtrlCreateInput("", 68, 160, 30, 20)
$Input[6] = GUICtrlCreateInput("", 68, 198, 30, 20)
;$3Button = GUICtrlCreateButton("計算", 68, 220, 30, 20)
$Input[7] = GUICtrlCreateInput("", 68, 242, 30, 20)
$4Button = GUICtrlCreateButton("執行", 63, 266, 40, 30)

GUISetState()
;..........

While 1
        $msg = GUIGetMsg()
        Switch $msg
                Case -3
                        Exit
                Case $4Button
                        $Val = 0
                        _c()

        EndSwitch

WEnd

Func _c()
        For $i = 1 To 6
                $Val += Number(GUICtrlRead($Input[$i]))
        Next
        GUICtrlSetData($Input[7], $Val)
        If $Val > 0 Then Return MsgBox(64, 0, '計算的結果大於0', 1)
        MsgBox(48, 0, '計算的結果小於或等於0', 1)
EndFunc   ;==>_c

tcpuuu

感謝afan超級版主:
您真是很厲害的高手.......
我正在 將 兩邊合在一起, 這樣我開1個就好
我都只用 記事本 編代码, 不好意思  添加了您的不便

我會找 編輯器來用的
再次感謝!

afan

回复 6# tcpuuu


    不是我厉害，是问题如果说清楚了就很简单~ _ _||

p.s 我指的是在发帖时在全部代码的前后加上代码标签(看看发帖的高级模式)，这样就会使帖子有代码的效果，和使用什么编辑代码无关的~

landays

Msgbox (0,0,"请教一下版主，怎么使代码高亮？")

噢，搞懂了

zps26

来AU3好几个月了，今日才注意afan版主发的代码可以超链接查询函数，继续学习，可就是弄不出来“高亮切换”；根据afan版主所说，重新试验成功，谢谢afan!

 Msgbox ( 0, 0, "请教一下版主，怎么使代码高亮？")

afan

回复 9# zps26


    代码外面加[au3]和[ /au3]就行了