找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › [已解決]挑選 4 5 6裡的最大值寫入 15 16 17(求助該如 ...
返回列表 发新帖
查看: 3820|回复: 4

[GUI管理] [已解決]挑選 4 5 6裡的最大值寫入 15 16 17(求助該如何改ㄚ?)

 火 [复制链接]
tcpuuu
发表于 2010-10-1 21:05:14 | 显示全部楼层 |阅读模式
本帖最后由 tcpuuu 于 2010-10-3 22:12 编辑
  1. GUICreate('COM', 138, 200, 880, 2)

  3. $L1 = GUICtrlCreateInput('', 1, 20, 32, 22, 0x008000)
  4. GUICtrlSetBkColor(-1, 0xFFFFFF)
  5. GUICtrlSetFont(-1, 12)
  6. $L2 = GUICtrlCreateInput('', 34, 20, 32, 22, 0x008000)
  7. GUICtrlSetBkColor(-1, 0xFFFFFF)
  8. GUICtrlSetFont(-1, 12)
  9. $L3 = GUICtrlCreateInput('', 67, 20, 32, 22, 0x008000)
  10. GUICtrlSetBkColor(-1, 0xFFFFFF)
  11. GUICtrlSetFont(-1, 12)
  12. $L4 = GUICtrlCreateInput('', 1, 46, 32, 22, 0x008000)
  13. GUICtrlSetBkColor(-1, 0xFFFFff)
  14. GUICtrlSetFont(-1, 12)
  15. $L5 = GUICtrlCreateInput('', 34, 46, 32, 22, 0x008000)
  16. GUICtrlSetBkColor(-1, 0xFFFFFF)
  17. GUICtrlSetFont(-1, 12)
  18. $L6 = GUICtrlCreateInput('', 67, 46, 32, 22, 0x008000)
  19. GUICtrlSetBkColor(-1, 0xFFFFFF)
  20. GUICtrlSetFont(-1, 12)


  23. $L7 = GUICtrlCreateInput('', 1, 46, 32, 22, 0x008000)
  24. GUICtrlSetBkColor(-1, 0xFFFFff)
  25. GUICtrlSetFont(-1, 12)
  26. $L8 = GUICtrlCreateInput('', 34, 46, 32, 22, 0x008000)
  27. GUICtrlSetBkColor(-1, 0xFFFFFF)
  28. GUICtrlSetFont(-1, 12)
  29. $L9 = GUICtrlCreateInput('', 67, 46, 32, 22, 0x008000)
  30. GUICtrlSetBkColor(-1, 0xFFFFFF)
  31. GUICtrlSetFont(-1, 12)
  32. $L10 = GUICtrlCreateInput('', 1, 46, 32, 22, 0x008000)
  33. GUICtrlSetBkColor(-1, 0xFFFFff)
  34. GUICtrlSetFont(-1, 12)
  35. $L11 = GUICtrlCreateInput('', 34, 46, 32, 22, 0x008000)
  36. GUICtrlSetBkColor(-1, 0xFFFFFF)
  37. GUICtrlSetFont(-1, 12)
  38. $L12 = GUICtrlCreateInput('', 67, 46, 32, 22, 0x008000)
  39. GUICtrlSetBkColor(-1, 0xFFFFFF)
  40. GUICtrlSetFont(-1, 12)
  41. $L13 = GUICtrlCreateInput('', 1, 46, 32, 22, 0x008000)
  42. GUICtrlSetBkColor(-1, 0xFFFFff)
  43. GUICtrlSetFont(-1, 12)
  44. $L14 = GUICtrlCreateInput('', 34, 46, 32, 22, 0x008000)
  45. GUICtrlSetBkColor(-1, 0xFFFFFF)
  46. GUICtrlSetFont(-1, 12)




  51. $L15 = GUICtrlCreateInput('', 1, 72, 32, 22, 0x008000)
  52. GUICtrlSetBkColor(-1, 0xFFFFff)
  53. GUICtrlSetFont(-1, 12)
  54. $L16 = GUICtrlCreateInput('', 34, 72, 32, 22, 0x008000)
  55. GUICtrlSetBkColor(-1, 0xFFFFFF)
  56. GUICtrlSetFont(-1, 12)
  57. $L17 = GUICtrlCreateInput('', 67, 72, 32, 22, 0x008000)
  58. GUICtrlSetBkColor(-1, 0xFFFFFF)
  59. GUICtrlSetFont(-1, 12)



  63. $Button1 = GUICtrlCreateButton('挑選最大值', 2, 150, 120, 25)

  65. GUISetState()

  67. While 1
  68.         $msg = GUIGetMsg()
  69.         Switch $msg
  70.                 Case -3
  71.                         Exit
  72.                 Case $Button1
  73.                         _Max()

  75.         EndSwitch
  76. WEnd

  78. Func _Max()

  80.         Local $v1 = Number(GUICtrlRead($L4))

  82.         Local $v2 = Number(GUICtrlRead($L5))

  84.         Local $v3 = Number(GUICtrlRead($L6))

  86.         Local $max = $v1, $x = 1, $i

  88.         For $i = 5 To 6

  90.                 If Eval('v' & $i) >= $max Then

  92.                         $max = Eval('v' & $i)

  94.                         $x = $i

  96.                 EndIf

  98.         Next

  100.         For $i = 15 To 17

  102.                 GUICtrlSetData(Eval('L' & $i), '')

  104.         Next

  106.         GUICtrlSetData(Eval('L' & $x + 11), 1)

  108. EndFunc   ;==>_max
复制代码
----------------------------------------------------------------------
挑選 4  5  6裡的最大值  寫入 15 16 17
afan, 版主

本帖子中包含更多资源

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

×

相关帖子
回复

举报

netegg
发表于 2010-10-1 23:49:48 | 显示全部楼层
没明白什么意思，另外把代码里的空行整理下，留那么多行存银子呀？
回复

举报

afan
发表于 2010-10-2 00:13:07 | 显示全部楼层
http://www.autoitx.com/forum.php ... amp;fromuid=7644923
回复

举报

tcpuuu
 楼主| 发表于 2010-10-2 02:32:42 | 显示全部楼层
http://www.autoitx.com/redirect. ... amp;fromuid=7644923
------------------------------------------------------------------------------
我已改過  但是有錯誤
有錯誤!
回复

举报

liufenglg
发表于 2010-10-2 09:43:09 | 显示全部楼层
GUICreate('COM', 500, 500, 180, 500)

$L1 = GUICtrlCreateInput('', 1, 20, 32, 22, 0x008000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 12)
$L2 = GUICtrlCreateInput('', 34, 20, 32, 22, 0x008000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 12)
$L3 = GUICtrlCreateInput('', 67, 20, 32, 22, 0x008000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 12)
$L4 = GUICtrlCreateInput('', 1, 46, 32, 22, 0x008000)
GUICtrlSetBkColor(-1, 0xFFFFff)
GUICtrlSetFont(-1, 12)
$L5 = GUICtrlCreateInput('', 34, 46, 32, 22, 0x008000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 12)
$L6 = GUICtrlCreateInput('', 67, 46, 32, 22, 0x008000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 12)
$L7 = GUICtrlCreateInput('', 1, 66, 32, 22, 0x008000)
GUICtrlSetBkColor(-1, 0xFFFFff)
GUICtrlSetFont(-1, 12)
$L8 = GUICtrlCreateInput('', 34,66, 32, 22, 0x008000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 12)
$L9 = GUICtrlCreateInput('', 67, 66, 32, 22, 0x008000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 12)
$L10 = GUICtrlCreateInput('', 1, 86, 32, 22, 0x008000)
GUICtrlSetBkColor(-1, 0xFFFFff)
GUICtrlSetFont(-1, 12)
$L11 = GUICtrlCreateInput('', 34, 86, 32, 22, 0x008000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 12)
$L12 = GUICtrlCreateInput('', 67, 86, 32, 22, 0x008000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 12)
$L13 = GUICtrlCreateInput('', 1, 106, 32, 22, 0x008000)
GUICtrlSetBkColor(-1, 0xFFFFff)
GUICtrlSetFont(-1, 12)
$L14 = GUICtrlCreateInput('', 34, 106, 32, 22, 0x008000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 12)
$L15 = GUICtrlCreateInput('', 67 ,106, 32, 22, 0x008000)
GUICtrlSetBkColor(-1, 0xFFFFff)
GUICtrlSetFont(-1, 12)
$L16 = GUICtrlCreateInput('', 1, 126, 32, 22, 0x008000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 12)
$L17 = GUICtrlCreateInput('', 34, 126, 32, 22, 0x008000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 12)
$Button1 = GUICtrlCreateButton('挑選最大值', 2, 150, 120, 25)
GUISetState()
While 1
        $msg = GUIGetMsg()
        Switch $msg
                Case -3
                        Exit
                Case $Button1
                        _Max()
        EndSwitch
WEnd
Func _Max()
        Local $v1 = Number(GUICtrlRead($L4))
        Local $v2 = Number(GUICtrlRead($L5))
        Local $v3 = Number(GUICtrlRead($L6))
        Local $max = $v1, $x = 4, $i
        For $i = 1 To 3
                If Eval("v" & $i) >= $max Then
                        $max = Eval("v" & $i)
                        $x = $i
                EndIf
        Next
        For $i = 15 To 17
                GUICtrlSetData(Eval("L" & $i), '')
                        Next
                        $aa=$x+14
        GUICtrlSetData(Eval("L" & $aa), $max)
EndFunc   ;==>_max
回复

举报

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

本版积分规则

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

GMT+8, 2026-9-25 08:58 , Processed in 0.068747 second(s), 25 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2026 Discuz! Team.

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