opbouwen array (verkoopfactuur 5)

[oeldere]

in verkoopfactuur 5 staat deze code.

dit is voor het opbouwen van een array.

'Opbouw array
    big(1, 0) = 535: big(1, 1) = 7
    big(2, 0) = 1040: big(2, 1) = 4
    big(3, 0) = 1140: big(3, 1) = 4
    big(4, 0) = 384: big(4, 1) = 3
    big(5, 0) = 1013: big(5, 1) = 4

waar vind ik wat BIG betekent?

en hoe wordt deze array dan opgebouwd?

via F1 heb ik dit niet kunnen vinden.

wie kan en wil me hier mee helpen?

 

[WHER]

waar vind ik wat BIG betekent?

Helemaal bovenaan staat (onder andere)
Public AcceptGiro As Integer
Public Eur As Double
Dim big(10, 1) As Integer

en hoe wordt deze array dan opgebouwd?

zie bijlage

 

[oeldere]

Beste Wher (en andere forumleden)

1) hoe krijg ik de eigenschappen, die jij in je jpg laat zien?

2) ik heb geprobeerd de code te begrijpen, maar begrijp niet, waar de code naar verwijst

big(1, 0) = 535: big(1, 1) = 7

misschien is het wel te hoog voor mij gegrepen!

 

[WHER]

In de Visual Basic Editor, ga naar menu "View", klik op "locals", dan krijg je die extra window, zie jpg.
Wanneer je in bijgevoegd bestand met F8 de code (macro "tst()") doorloopt, zie je hoe in "locals" de variabelen evolueren.
In dit geval moet je uiteraard "big" uitklappen, zodat je big(0, 0) ziet, big(0, 1), big(1,1) etc..

 

[oeldere]

Bedankt Wher, dat is me nu gelukt (bedankt daarvoor)

maar wat betekent

big(1, 0) = 535: big(1, 1) = 7

zou je me dit ook willen uitleggen?

 

[HSV]

Het zijn afzonderlijke variabelen (een denkbeeldig range ga ik vanuit)
Je kan ze ook gewoon onder elkaar zetten (haal de dubbele punt er uit), maar dan wordt het zo lang.

big(1, 0) = 535 
big(1, 1) = 7
big(2, 0) = 1040
big(2, 1) = 4
big(3, 0) = 1140
big(3, 1) = 4
big(4, 0) = 384
big(4, 1) = 3
big(5, 0) = 1013
big(5, 1) = 4

Het wordt in dit stukje code gebruikt (rood).

[COLOR="seagreen"]'Controle versie[/COLOR]    
Sheets("Factuur").Select
    x = Application.UserName
    If x = "" Then x = Trim$(System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Network\Logon", "Username"))
    If x = "" Then x = Trim$(System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "Logon User Name"))
    For i = 1 To Len(x): i1 = i1 + Asc(Mid$(x, i, 1)): Next i
    [COLOR="red"]For i = 1 To 5
        If big(i, 1) > Len(x) Then big(i, 1) = 1
        If i1 = big(i, 0) And Asc(Mid$(x, big(i, 1), 1)) = 78[/COLOR] Then GoTo Vervolg1
    Next i

 

[WHER]

Dank u voor de duidelijke uitleg, Harry. Als niet-VBA-specialist moet ik opletten met uitleg geven, voor ik het weet zit ik uit m'n nek te kletsen
Dit had ik ook nog gevonden:

As far as readability goes, there are instances (like initializations)
that would make for cleaner reading, rather than introducing some many
lines:

VarA=0: VarB=0: VarC=0: VarD=0
VarE=1: VarF=3: VarG=5: VarH=7
VarK=2: VarL=4: VarM=6: VarN=8

VarA=0
VarB=0
VarC=0
VarD=0
VarE=1
VarF=3
VarG=5
VarH=7
VarK=2
VarL=4
VarM=6
VarN=8

 

[oeldere]

dank jullie wel voor jullie uitleg.

de getallen 535 en 1040 in deze code; is dit een harde invoer of verwijst dit naar een onderdeel in het bestand?

heb je vragen over deze vraagstelling, laat het gewoon even weten.

 

[Roncancio]

De waardes zijn harde invoer.

Ter info:
big is de naam van de array. Men had dus een willekeurige naam kunnen geven.
De array is gedefinieerd als Integer en dat betekent dat er getallen worden verwacht.

Een array kan je zien als een ladenkast met allemaal laadjes.
Elk laadje heeft een uniek nummer zodat het herkenbaar is.
Het kan dus zijn dat er maar 1 dimensie is, array(5), of meerdere dimensies, array(5,5).
In dat laatste geval een kast van 6 bij 6 laadjes (arrays beginnen bij 0).

Met vriendelijke groet,


Roncancio

 

[oeldere]

Beste Roncancio,

zeer bedankt voor je duidelijke toelichting.

ga ik aan de slag met het zoeken van de getallen 535 en 1040 in het bestandje.

ik ga dus zoeken of ik snap waarom het getal 535 moet worden gebruikt.

ik laat de bevindingen (of ik het gevonden heb) zeker weten.

 

[oeldere]

ben er niet meer aan toe gekomen om dit nog uit te zoeken.

dit verschuif ik naar een later tijdstip.

ik zet deze vraag nu op slot.

alle dit meegewerkt hebben, bedankt voor de moeite.