找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 求算相加和相减的算法
12下一页
返回列表 发新帖
查看: 9460|回复: 23

[AU3基础] 求算相加和相减的算法

 火.. [复制链接]
coocare01
发表于 2010-12-7 18:33:48 | 显示全部楼层 |阅读模式
本帖最后由 coocare01 于 2010-12-7 18:35 编辑

选中复选框，然后把数据显示到下面，取消也应的减去数据，请高手帮忙



#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 316, 216, 192, 114)
Local $a1,$b,$C
$a1 = "150 MB"
$b = "300 MB"
$C = "500 MB"
$Checkbox1 = GUICtrlCreateCheckbox($a1, 72, 24, 105, 25)
$Checkbox2 = GUICtrlCreateCheckbox($b, 72, 64, 105, 25)
$Checkbox3 = GUICtrlCreateCheckbox($C, 72, 104, 105, 25)
$Label1 = GUICtrlCreateLabel("0 MB", 216, 160, 52, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd
算法, 相加

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
tryhi
发表于 2010-12-7 18:59:44 | 显示全部楼层
本帖最后由 tryhi 于 2010-12-7 19:06 编辑

回复 1# coocare01

如果有帮到你的话，楼主能不能帮我加4点贡献，我加你50个金钱
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 316, 216, 192, 114)
Local $a1,$b,$C
$a1 = "150 MB"
$b = "300 MB"
$C = "500 MB"
$Checkbox1 = GUICtrlCreateCheckbox($a1, 72, 24, 105, 25)
$Checkbox2 = GUICtrlCreateCheckbox($b, 72, 64, 105, 25)
$Checkbox3 = GUICtrlCreateCheckbox($C, 72, 104, 105, 25)
$Label1 = GUICtrlCreateLabel("0 MB", 216, 160, 52, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$m = 0
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                                Case $Checkbox1
                                        $che = GUICtrlRead($Checkbox1)
                                        If $che = 1 Then 
                                                $m = $m + 150
                                        Else
                                                $m = $m - 150
                                        EndIf
                                        GUICtrlSetData($Label1,$m&"MB")
                                Case $Checkbox2
                                        $che = GUICtrlRead($Checkbox2)
                                        If $che = 1 Then 
                                                $m = $m + 300
                                        Else
                                                $m = $m - 300
                                        EndIf
                                        GUICtrlSetData($Label1,$m&"MB")
                                Case $Checkbox3
                                        $che = GUICtrlRead($Checkbox3)
                                        If $che = 1 Then 
                                                $m = $m + 500
                                        Else
                                                $m = $m - 500
                                        EndIf
                                        GUICtrlSetData($Label1,$m&"MB")
        EndSwitch
WEnd

评分

参与人数 1贡献 +3 收起 理由
nbmpe + 3 不错，学习了。

查看全部评分

回复

举报

nbmpe
发表于 2010-12-7 19:20:44 | 显示全部楼层
回复 1# coocare01
看看是否达到你的要求。楼下的是否有更好的办法？
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 316, 216, 192, 114)
Local $a1,$b,$C
$a = "150"
$b = "300"
$C = "500"

Dim $X = 1, $Y = 1 , $Z = 1

$Checkbox1 = GUICtrlCreateCheckbox($a&"mb", 72, 24, 105, 25)
$Checkbox2 = GUICtrlCreateCheckbox($b&"mb", 72, 64, 105, 25)
$Checkbox3 = GUICtrlCreateCheckbox($C&"mb", 72, 104, 105, 25)
$Label1 = GUICtrlCreateLabel("0MB", 216, 160, 52, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

AdlibRegister("_abc", "1000")
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

Func _abc()
        
        If GUICtrlRead($Checkbox1) = 1 And $X = 1 Then
                GUICtrlSetData($Label1,$a + StringTrimRight (GUICtrlRead($Label1),2) & "MB")
                $X += 1
        ElseIf GUICtrlRead($Checkbox1) = 4 And $X = 2 Then
                GUICtrlSetData($Label1,StringTrimRight (GUICtrlRead($Label1),2) - $a & "MB")
                $X -= 1
        EndIf        
        
        If GUICtrlRead($Checkbox2) = 1 And $Y = 1 Then
                GUICtrlSetData($Label1,$B + StringTrimRight (GUICtrlRead($Label1),2) & "MB")
                $Y += 1
        ElseIf GUICtrlRead($Checkbox2) = 4 And $Y = 2 Then
                GUICtrlSetData($Label1,StringTrimRight (GUICtrlRead($Label1),2) - $B & "MB")
                $Y -= 1
        EndIf        

        If GUICtrlRead($Checkbox3) = 1 And $Z = 1 Then
                GUICtrlSetData($Label1,$C + StringTrimRight (GUICtrlRead($Label1),2) & "MB")
                $Z += 1
        ElseIf GUICtrlRead($Checkbox3) = 4 And $Z = 2 Then
                GUICtrlSetData($Label1,StringTrimRight (GUICtrlRead($Label1),2) - $C & "MB")
                $Z -= 1
        EndIf        
        
EndFunc        
       

评分

参与人数 1金钱 +50 收起 理由
tryhi + 50 你也不错

查看全部评分

回复

举报

nbmpe
发表于 2010-12-7 19:24:57 | 显示全部楼层
还是没抢到沙发。
回复

举报

nbmpe
发表于 2010-12-7 19:30:50 | 显示全部楼层
2楼的方法不错，学习了。
回复

举报

mo_shaojie
发表于 2010-12-7 19:39:11 | 显示全部楼层
2楼的简单明了.一般都用2楼的.
回复

举报

tryhi
发表于 2010-12-7 19:42:58 | 显示全部楼层
本帖最后由 tryhi 于 2010-12-7 20:01 编辑

谁先加我3点贡献，我加他50个金钱
------------------------------
nbmpe 已经加我了，我升高级了

评分

参与人数 1贡献 +1 收起 理由
haodd + 1

查看全部评分

回复

举报

水木子
发表于 2010-12-7 20:35:05 | 显示全部楼层
本帖最后由 水木子 于 2010-12-7 20:40 编辑

代码仅仅能满足眼前的需求是远远不够的，要尽可能的考虑远一些。
如：有成千上万个复选框，那该怎么办？难道要写上万行的代码吗？

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Local $avArray[3] = ['150', '300', '500']
Local $nNumber

GUICreate("Form1", 300, 200)
$Checkbox1 = GUICtrlCreateCheckbox($avArray[0] & 'MB', 80, 30, 100, 17)
$Checkbox2 = GUICtrlCreateCheckbox($avArray[1] & 'MB', 80, 80, 100, 17)
$Checkbox3 = GUICtrlCreateCheckbox($avArray[2] & 'MB', 80, 130, 100, 17)
$Label1 = GUICtrlCreateLabel('0 MB', 200, 160, 100, 33)
GUISetState()

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case - 3
                        Exit
                Case $Checkbox1 To $Checkbox3
                        For $i = $Checkbox1 To $Checkbox3
                                If BitAND(GUICtrlRead($i), $GUI_CHECKED) Then $nNumber += $avArray[$i - 3] 
                        Next
                        GUICtrlSetData($Label1, $nNumber & ' MB')
                        $nNumber = 0
        EndSwitch
WEnd

评分

参与人数 1威望 +2 收起 理由
afan + 2 :)

查看全部评分

回复

举报

afan
发表于 2010-12-7 20:38:34 | 显示全部楼层
本帖最后由 afan 于 2010-12-7 20:41 编辑

晕，木子先改了…… 
GUICreate('Form1', 316, 216)
Local $v1 = 150, $v2 = 300, $v3 = 500, $Vz = 0
Local $Checkbox1 = GUICtrlCreateCheckbox($v1 & ' MB', 72, 24, 105, 25)
Local $Checkbox2 = GUICtrlCreateCheckbox($v2 & ' MB', 72, 64, 105, 25)
Local $Checkbox3 = GUICtrlCreateCheckbox($v3 & ' MB', 72, 104, 105, 25)
Local $Label1 = GUICtrlCreateLabel('0 MB', 216, 160, 52, 15, 0x0002)
Local $Val[$Checkbox3 + 1]
$Val[$Checkbox1] = $v1
$Val[$Checkbox2] = $v2
$Val[$Checkbox3] = $v3
GUISetState()

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case -3
                        Exit
                Case $Checkbox1 To $Checkbox3
                        If GUICtrlRead($nMsg) = 1 Then
                                $Vz += $Val[$nMsg]
                        Else
                                $Vz -= $Val[$nMsg]
                        EndIf
                        GUICtrlSetData($Label1, $Vz & ' MB')
        EndSwitch
WEnd

评分

参与人数 1威望 +2 收起 理由
水木子 + 2 嘿嘿！

查看全部评分

回复

举报

绿色风
发表于 2010-12-7 20:40:31 | 显示全部楼层 
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

dim $n[4],$Checkbox[4]
$c=0
$n[1] = 150
$n[2] = 300
$n[3] = 500

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 316, 216, 192, 114)
$Checkbox[1] = GUICtrlCreateCheckbox("150 MB", 72, 24, 105, 25)
$Checkbox[2] = GUICtrlCreateCheckbox("300 MB", 72, 64, 105, 25)
$Checkbox[3]= GUICtrlCreateCheckbox("500 MB", 72, 104, 105, 25)
$Label1 = GUICtrlCreateLabel("0 MB", 216, 160, 52, 33)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                        
                Case $Checkbox[1]
                        _ck()
                Case $Checkbox[2]
                        _ck()
                Case $Checkbox[3]
                        _ck()
                        EndSwitch
                                
WEnd
                                
Func _ck()
         for $i=1 to 3  Step 1
        if GUICtrlRead($Checkbox[$i]) = 1 Then $c=$c+$n[$i]        
         Next
                GUICtrlSetData($Label1,$c&" MB")
                $c=0
EndFunc
此贴为我第一次正规化写代码回贴。[color=SeaGreen]记名留恋

靠，这多人帮他解决问题，没人解决我的困境！{:face (239):}
回复

举报

绿色风
发表于 2010-12-7 20:43:31 | 显示全部楼层
晕，木子先改了……
afan 发表于 2010-12-7 20:38
Case $Checkbox1 To $Checkbox3   


晕，竟然能这样写。我还搞的拆开的。日梦中...
回复

举报

水木子
发表于 2010-12-7 20:45:41 | 显示全部楼层
回复 11# 绿色风
是啊！就是一道简单是加减题，也能探讨出很多技巧性的东西。
回复

举报

pusofalse
发表于 2010-12-7 20:46:23 | 显示全部楼层 
$hGUI = GUICreate("", 400, 300)

$iLabel = GUICtrlCreateLabel("0 MB", 100, 200, 100, 20)
$iCheckBox = GUICtrlCreateCheckBox("150", 40, 40, 90, 20)
GUICtrlCreateCheckBox("300", 40, 80, 90, 20)
GUICtrlCreateCheckBox("500", 40, 120, 90, 20)

$iSize = 0
GUISetState()
While 1
        $iMsg = GUIGetMsg()
        Switch $iMsg
        Case -3
                ExitLoop
        Case $iCheckBox To $iCheckBox + 2
                If BitAND(GUICtrlRead($iMsg), 1) Then 
                        $iSize += ($iMsg - $iCheckBox + 2) * 25 * ($iMsg - $iCheckBox + 3)
                Else
                        $iSize -= ($iMsg - $iCheckBox + 2) * 25 * ($iMsg - $iCheckBox + 3)
                EndIf
                GUICtrlSetData($iLabel, $iSize & " MB")
        EndSwitch
WEnd

评分

参与人数 1威望 +2 收起 理由
水木子 + 2 很精练，学习啦！

查看全部评分

回复

举报

afan
发表于 2010-12-7 20:48:32 | 显示全部楼层
pusofalse 发表于 2010-12-7 20:46



    就怕LZ在创建Checkbox之前创建点别的
回复

举报

绿色风
发表于 2010-12-7 21:00:41 | 显示全部楼层
回复 14# afan

你意思是说  $Checkbox = 后面不是这个复选框，那用你们的就备备了，我的嘛，已手动确定好的。
回复

举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-23 03:39 , Processed in 0.118835 second(s), 33 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表