一组数字，找出最接近指定数字的数字，负数不要……（已解决）

afan

1. Local $vCZ = 55
   
2. Local $aNum[6] = [23, 34, 66, 80, 88, 95]
   
3. Local $i, $vC, $iMix, $vNeed
   
4. For $i = 0 To UBound($aNum) - 1
   
5.         $vC = $aNum[$i] - $vCZ
   
6.         If $vC > 0 And (Not $iMix Or $vC < $iMix) Then Dim $vNeed = $aNum[$i], $iMix = $vC
   
7. Next
   
8. MsgBox(0, '最接近' & $vCZ, $vNeed)

复制代码

dearmb

afan 发表于 2014-3-10 14:53

A版能否解释一下这句话
If $vC > 0 And (Not $iMix Or $vC < $iMix) Then Dim $vNeed = $aNum[$i], $iMix = $vC


    $iMix = $vC      
Not $iMix Or $vC < $iMix
这句没看明白
看好几遍也没看明白……
因为还有下面的这样的情况
Local $vCZ = 55
Local $aNum[6] = [23, 34, 35,36,37,38]
我看不明白你的代码，所以不知道全部小于想搜索数的情况怎么判断
如果没空给我解释……我只能If $vNeed="" Then ……
555555，看不懂代码啊，5555555

afan

回复 18# dearmb


    你这不是已经看懂了吗？其实很简单的逻辑，解释又费劲…
If Not $vNeed Then ... 比较恰当点

dearmb

回复 19# afan


    根本没看懂……
我是特意都改成55以下的数，试了一下输出的“”，所以才If $vNeed="" Then ……的
实际上语句根本没看懂为啥能得到我想要的结果

主要是我改你的代码放到我的程序里，有错误，不知道怎么修改

dearmb

1. #AutoIt3Wrapper_UseX64=n
   
2. #Include <ScreenCapture.au3>
   
3. #include <array.au3>
   
4. #Include <File.au3>
   
5. #Include <Date.au3>
   
6. 
   
7. ;Opt("MouseCoordMode", 0)
   
8. Global $x1,$x2,$y1,$y2,$flag=0,$flag1=0,$flag2=0,$flag3=0,$k,$a=1,$arrhenggang[0],$aaa,$i, $vC, $iMix, $vNeed
   
9. 
   
10. $dm = ObjCreate("dm.dmsoft")
    
11. 
    
12. WinActivate  ("BlueStacks")
    
13. Sleep(1000)
    
14. $size = WinGetPos("BlueStacks")
    
15. $x1=$size[0]
    
16. $y1=$size[1]
    
17. $x2=$size[0]+$size[2]
    
18. $y2=$size[1]+$size[3]
    
19. 
    
20. 
    
21. 
    
22. $liangdian = $dm.FindPicEx($x1,$y1,$x2,$y2,@ScriptDir & '\Image\liangdian.bmp',"000000",0.9,2)
    
23.                         $ssliangdian=StringSplit($liangdian,"|")
    
24.                         $countliangdian=$ssliangdian[0];两点的个数
    
25.                 For $i = $countliangdian to 1 Step -1;
    
26.         ReDim $arrhenggang[0]
    
27.                         $henggang = $dm.FindPicEx($x1,$y1,$x2,$y2,@ScriptDir & '\Image\henggang.bmp',"000000",0.9,2)
    
28.                         $sshenggang=StringSplit($henggang,"|")
    
29.                         $counthenggang=$sshenggang[0]
    
30.                 For $k=1 To $counthenggang
    
31.                         $ssshenggang=StringSplit($sshenggang[$k],",")
    
32.                         _ArrayAdd($arrhenggang, $ssshenggang[3])
    
33.                 Next
    
34.                         $liangdian = $dm.FindPicEx($x1,$y1,$x2,$y2,@ScriptDir & '\Image\liangdian.bmp',"000000",0.9,2)
    
35.                         $ssliangdian=StringSplit($liangdian,"|")
    
36.                         $sssliangdian=StringSplit($ssliangdian[$i],",")
    
37.                         $vCZ=$sssliangdian[3]
    
38.                 _ArrayDisplay($arrhenggang, "原数组")
    
39.                 ;MsgBox(0,0,$vCZ)
    
40.                 For $j = 0 To UBound($arrhenggang) - 1
    
41.                         ; MsgBox(0,0, $arrhenggang[$j])
    
42.                         $vC = $arrhenggang[$j] - $vCZ
    
43.                         ;        MsgBox(0,0,$vC)
    
44.                         If $vC > 0 And (Not $iMix Or $vC < $iMix) Then
    
45.                         Dim $vNeed = $arrhenggang[$j], $iMix = $vC
    
46.                         EndIf
    
47.                 Next
    
48.                 MsgBox(0, '最接近' & $vCZ, $vNeed)
    
49.                 If $vNeed="" Then MsgBox(0,0,0)
    
50. Next
    

复制代码

下一楼是图片
用四个数分别做对比，744,581,427,178（就是点赞那两个点的Y坐标）
对比的数组是三个数，201,450,637就是找到了条横杠的Y坐标
最后的178，找到最近的数应该是201，但是返回的是450
不知道为什么

dearmb

------------------------------------------

afan

写成函数直接调用

1. Local $vCZ = 55
   
2. Local $aNum[6] = [23, 34, 66, 80, 88, 95]
   
3. Local $rt = _GetApproachesNum($vCZ, $aNum)
   
4. MsgBox(0, @error, $rt)
   
5. 
   
6. Func _GetApproachesNum($vCZ, $aNum)
   
7.         If Not IsArray($aNum) Or UBound($aNum, 0) > 1 Then Return SetError(1, 0, 0)
   
8.         Local $i, $vC, $iMix, $vNeed
   
9.         For $i = 0 To UBound($aNum) - 1
   
10.                 $vC = $aNum[$i] - $vCZ
    
11.                 If $vC > 0 And (Not $iMix Or $vC < $iMix) Then Dim $vNeed = $aNum[$i], $iMix = $vC
    
12.         Next
    
13.         If Not $vNeed Then Return SetError(2, 0, 0)
    
14.         Return $vNeed
    
15. EndFunc   ;==>_GetApproachesNum

复制代码

skyfree

回复 17# afan


    注意，他的要求里$aNum是不定数量的。

dearmb

回复  afan


    注意，他的要求里$aNum是不定数量的。
skyfree 发表于 2014-3-10 22:03

    是不定数量的，我自己建数组往里填写了，我还是会改一改的