Intymny Funkcja IncIP (ByVal ip Sznurek) Sznurek
Ciemnawy arr Sznurek ()
Ćmić a Jako Integer
Ćmić B Jako Integer
Ćmić c Jako Integer
Ćmić D Jako Integer
arr = ip. Rozłam (".")
a = Integer.Parse (arr ((0)))
B = Integer.Parse (arr (1))
c = Integer.Parse (arr (2))
D = Integer.Parse (arr (3)) + (1)
Jeżeli D = 256 Wtedy
D = (0)
c = c + (1)
Kończyć Jeżeli
Jeżeli c = 256 Wtedy
c = (0)
B = B + (1)
Kończyć Jeżeli
Jeżeli B = 256 Wtedy
B = (0)
a = a + (1)
Kończyć Jeżeli
Jeżeli a = 256 Wtedy
a = 127
Kończyć Jeżeli
IncIP = String.Format ("{(0)}. {(1)}. {2}. {3}", a, B, c, D)
Końcówka Funkcja
|