[已解决]計算Edit1 Edit2 Edit3..內的數字 該如何做ㄚ?
本帖最后由 tcpuuu 于 2010-9-6 14:19 编辑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 = ["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 afan超級版主 你在那兒ㄚ?快來幫忙一下 我是看不懂你的意思... afan超級版主 你好!
手動 輸入數字, 然後可以按下3Button做計算
計算的結果 自動填入Edit7 內
按4Button 可以 條件式執行程式
-------------------------------------------
如果 Edit7內的數字 大於0然後
MsgBox(0, 0,計算的結果大於0, 1)
Else
MsgBox(0, 0,計算的結果小於或等於0, 1)
EndIf 本帖最后由 afan 于 2010-9-4 21:59 编辑
剔除了无关的代码， 问题应该精简；另外，贴代码最好用代码的标签，方便浏览和使用。
GUICreate(" Win ", 110, 302, 800, 2)
;................
;--------------------------------------
Dim $Input = , $Val
$Input = GUICtrlCreateInput("", 68, 8, 30, 20)
$Input = GUICtrlCreateInput("", 68, 46, 30, 20)
$Input = GUICtrlCreateInput("", 68, 84, 30, 20)
$Input = GUICtrlCreateInput("", 68, 122, 30, 20)
$Input = GUICtrlCreateInput("", 68, 160, 30, 20)
$Input = GUICtrlCreateInput("", 68, 198, 30, 20)
;$3Button = GUICtrlCreateButton("計算", 68, 220, 30, 20)
$Input = 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, $Val)
If $Val > 0 Then Return MsgBox(64, 0, '計算的結果大於0', 1)
MsgBox(48, 0, '計算的結果小於或等於0', 1)
EndFunc ;==>_c 感謝afan超級版主:
您真是很厲害的高手.......
我正在 將 兩邊合在一起, 這樣我開1個就好
我都只用 記事本 編代码, 不好意思添加了您的不便
我會找 編輯器來用的
再次感謝! 回复 6# tcpuuu
不是我厉害，是问题如果说清楚了就很简单~ _ _||
p.s 我指的是在发帖时在全部代码的前后加上代码标签(看看发帖的高级模式)，这样就会使帖子有代码的效果，和使用什么编辑代码无关的~ 本帖最后由 landays 于 2010-9-5 14:29 编辑
Msgbox (0,0,"请教一下版主，怎么使代码高亮？")
噢，搞懂了 本帖最后由 zps26 于 2010-9-12 00:20 编辑
来AU3好几个月了，今日才注意afan版主发的代码可以超链接查询函数，继续学习，可就是弄不出来“高亮切换”；根据afan版主所说，重新试验成功，谢谢afan! Msgbox ( 0, 0, "请教一下版主，怎么使代码高亮？") 回复 9# zps26
代码外面加和[ /au3]就行了
页:
[1]