Yaslaw.Info

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
<const>
    version=1.1.0
    vdate=11.01.2016
    fname=lib_increment.bas
    ns=%NAMESPACE%
    fpath=/vba/functions
</const>

====== [VBA] Increment/Decrement (i++ etc) ======
//Simuliert ein %%i++ oder ++i%% für VBA.//

==Version %%version%% - %%vdate%%==
{{%%fname%%|Download %%fname%% (V-%%version%%)}}

In vielen Sprachen kennt man %%PostIncrement%% und %%PreIncrement%%. Also ''%%++%%i'' und ''i%%++%%''.
Leider kennt VBA das nicht. Somit muss bei einer Manuellen Schleife dies immer von Hand mittels ''i = i+1'' durchgeführt werden.
\\ Mit den folgenden Funktionen kann amn das umgehen.


===== Beispiele =====
> Für die Ausgabe der Resultate verwendete ich die Funktion [[:vba:functions:print_r:]].

Ich nehme 2 mal dieselbe Funktion. Es wird i jeweils um 1 hochgezählt. Das Quadrat davon muss < als 30 sein.
Somit wissen wir am Anfang noch nicht wieviele Einträge da kommen - ergo muss laufend hochgezählt werden und der Ausgabearray vergrössert werden.

==== PreIncrement ++i ====

Ohne Incement-Funktion sieht meine Lösung so aus
<code vb>
Public Sub withoutPreIncrement()
    Dim i       As Integer
    Dim arr()   As Integer
    
    i = -1
    Do While (i + 1) ^ 2 < 30
        i = i + 1
        ReDim Preserve arr(i)
        arr(i) = i ^ 2
    Loop

    print_r arr
End Sub
</code>

Mit inc() oder preInc() vereinfacht sich das ganze
<code vb>
Public Sub withPreIncrement()
    Dim i       As Integer
    Dim arr()   As Integer
    
    i = -1
    Do While inc(i) ^ 2 < 30
        ReDim Preserve arr(i)
        arr(i) = i ^ 2
    Loop

    print_r arr
End Sub
</code>

==== PostIncrement i++ ====
Umsetzung ohne meine Funktion
<code vb>
Public Sub withoutPostIncrement()
    Dim i       As Integer
    Dim arr()   As Integer
    
    Do While (i) ^ 2 < 30
        ReDim Preserve arr(i)
        arr(i) = i ^ 2
        i = i + 1
    Loop

    print_r arr
End Sub
</code>

umsetzung mit postInc() oder inc(#,itPostIncrement)
<code vb>
Public Sub withPostIncrement()
    Dim i       As Integer
    Dim arr()   As Integer
    
    Do While i ^ 2 < 30
        ReDim Preserve arr(i)
        'Die Formel wird zuerst ausgeführt. Dann erst kommt der Teil vor dem =
        'Darum ist postInc() vor dem =
        arr(postInc(i)) = i ^ 2
    Loop

    print_r arr
End Sub
</code>

==== Resultat ====
Achja, alle Test haben natürlich dieselbe Ausgabe:
<code><Integer()>  (
    [0] => <Integer> 0
    [1] => <Integer> 1
    [2] => <Integer> 4
    [3] => <Integer> 9
    [4] => <Integer> 16
    [5] => <Integer> 25
)</code>
===== Code =====
<source '%%fpath%%/%%fname%%' vb>
Yaslaw.Info

User Tools

Site Tools

Page Tools
