Ламерский вопрос про скорость сравнения

[Yurich]

Что будет проходить быстрее?
Sub ....
Dim a as Single, b as Single, c as Single, d as Single
' вариант1
If a<>b Then Exit Sub
IF c<>d Then Exit Sub
' вариант2
If a<>b Or c<>d then Exit Sub
end Sub
Для 4-х переменных разница в скорости, конечно, будет мизерная (или=0), а если подобных сранений десяток и более?
Я не стал проводить замеры, полагаясь на ваш великий опыт.

[ANDLL]

второй вроде бы. Потому что вместо jmp как в первом там будет or...

[Amed]

form.autoredraw=true

Код: Выделить всё

Option Explicit
Private t1 As Long, t2 As Long
Private i As Long
Private Const n As Long = 100000000

Private Sub Form_Load()
Me.Print chkA
Me.Print chkB
End Sub

Function chkA() As Long
t1 = Timer()
Dim a As Single, b As Single, c As Single, d As Single

For i = 1 To n
    If a <> b Then
        If c <> d Then a = 1
    End If
Next i

t2 = Timer()

chkA = t2 - t1
End Function

Function chkB() As Long
t1 = Timer()
Dim a As Single, b As Single, c As Single, d As Single

For i = 1 To n
    If a <> b Or c <> d Then a = 1
Next i

t2 = Timer()

chkB = t2 - t1
End Function

У меня, соответственно, 9 и 14.

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?p=164324#164324

[Yurich]

Я так понял, что скорость будет определяться количеством JMP-ов. Каждый "Or" увеличит их число на 1. Верно?

[GSerg]

Скорость будет определяться... короче, short circuit в VB нет и разложение условия на разные If'ы даёт прирост скорости, да.

[Amed]

Причем реальный прирост, как видим, в полтора раза, вот.

[Yurich]

Ребята, СЕНКС!

[tyomitch]

form.autoredraw=true

Код: Выделить всё

Option Explicit
Private t1 As Long, t2 As Long
Private i As Long
Private Const n As Long = 100000000

Private Sub Form_Load()
Me.Print chkA
Me.Print chkB
End Sub

Function chkA() As Long
t1 = Timer()
Dim a As Single, b As Single, c As Single, d As Single

For i = 1 To n
    If a <> b Then
        If c <> d Then a = 1
    End If
Next i

t2 = Timer()

chkA = t2 - t1
End Function

Function chkB() As Long
t1 = Timer()
Dim a As Single, b As Single, c As Single, d As Single

For i = 1 To n
    If a <> b Or c <> d Then a = 1
Next i

t2 = Timer()

chkB = t2 - t1
End Function

У меня, соответственно, 9 и 14.

Судью на мыло

Никто даже не заметил, что это

Код: Выделить всё

    If a <> b Then
        If c <> d Then a = 1
    End If


-- это совсем даже не

Код: Выделить всё

    If a <> b Or c <> d Then a = 1


, а на самом деле:

Код: Выделить всё

    If a <> b And c <> d Then a = 1


[tyomitch]

Теперь, внимание: настоящие результаты

Код: Выделить всё

34:       If a <> b Then
00401B33 D9 45 E8             fld         dword ptr [a]
00401B36 D8 5D E4             fcomp       dword ptr [b]
00401B39 DF E0                fnstsw      ax
00401B3B F6 C4 40             test        ah,40h
00401B3E 75 10                jne         Form1::chkA+80h (00401b50)
35:           If c <> d Then a = 1
00401B40 D9 45 E0             fld         dword ptr [c]
00401B43 D8 5D D8             fcomp       dword ptr [d]
00401B46 DF E0                fnstsw      ax
00401B48 F6 C4 40             test        ah,40h
00401B4B 75 03                jne         Form1::chkA+80h (00401b50)
00401B4D 89 4D E8             mov         dword ptr [a],ecx
34:       If a <> b Then
00401B50 8B 46 3C             mov         eax,dword ptr [esi+3Ch]
00401B53 83 C0 01             add         eax,1
00401B56 70 46                jo          $L43+27h (00401b9e)
00401B58 3D 00 75 2B 7D       cmp         eax,7D2B7500h
00401B5D 89 46 3C             mov         dword ptr [esi+3Ch],eax
00401B60 7E D1                jle         Form1::chkA+63h (00401b33)
36:       End If


Код: Выделить всё

49:       If a <> b And c <> d Then a = 1
00401C13 D9 45 E8             fld         dword ptr [a]
00401C16 D8 5D E4             fcomp       dword ptr [b]
00401C19 DF E0                fnstsw      ax
00401C1B F6 C4 40             test        ah,40h
00401C1E 75 10                jne         Form1::chkB+80h (00401c30)
00401C20 D9 45 E0             fld         dword ptr [c]
00401C23 D8 5D DC             fcomp       dword ptr [d]
00401C26 DF E0                fnstsw      ax
00401C28 F6 C4 40             test        ah,40h
00401C2B 75 03                jne         Form1::chkB+80h (00401c30)
00401C2D 89 4D E8             mov         dword ptr [a],ecx
00401C30 8B 46 3C             mov         eax,dword ptr [esi+3Ch]
00401C33 83 C0 01             add         eax,1
00401C36 70 46                jo          $L66+27h (00401c7e)
00401C38 3D 00 75 2B 7D       cmp         eax,7D2B7500h
00401C3D 89 46 3C             mov         dword ptr [esi+3Ch],eax
00401C40 7E D1                jle         Form1::chkB+63h (00401c13)


Убедитесь, что код совпадает байт-в-байт.

Short circuit в VB есть начиная с VB5.

Прироста от разворачивания кода нет ни на йоту.

[GSerg]

Код: Выделить всё

If MsgBox("Click OK", vbOK) = vbOK Or MsgBox("Click OK", vbOK) = vbOK Then MsgBox "Сколько было боксов?"

[Ennor]

Код: Выделить всё

If Not (Conn Is Nothing) And ((Conn.State And adStateOpen) > 0) Then