Privé Functie IncIP (ByVal ip als Koord) als Koord
Schemerige arr als Koord ()
Verduister a als Geheel
Verduister B als Geheel
Verduister c als Geheel
Verduister D als Geheel
arr = ip. Spleet („. “)
a = Integer.Parse (arr (0))
B = Integer.Parse (arr (1))
c = Integer.Parse (arr (2))
D = Integer.Parse (arr (3)) + 1
Als D = 256 toen
D = 0
c = c + 1
Eind als
Als c = 256 toen
c = 0
B = B + 1
Eind als
Als B = 256 toen
B = 0
a = a + 1
Eind als
Als a = 256 toen
a = 127
Eind als
IncIP = String.Format („{0}. {1}. {2}. {3}“, a, B, c, D)
De Functie van het eind
|