fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

ERASE

Uploader:	nemored
Datum/Zeit:	26.01.2012 19:37:50

type myUdt

  as integer x, y

  declare constructor(x as integer = 1, y as integer = 2)

end type

constructor myUdt(x as integer = 1, y as integer = 2)

  this.x = x

  this.y = y

end constructor



dim zahl(2) as integer = {0, 1, 2}

dim text(2) as string = {"a", "b", "c"}

redim dynamisch(2) as integer

dim udt(2) as myUdt

udt(0) = myUdt(9, 9)

udt(1) = myUdt(8, 8)

udt(2) = myUdt(7, 7)



' Arrays ausgeben

print "zahl()", "text()", "udt()"

for i as integer = 0 to 2

  print zahl(i), text(i), udt(i).x & "/" & udt(i).y

next

print "Adresse von dynamisch(): " & @dynamisch(0)

print



' Arrays löschen und erneut ausgeben

erase zahl, text, udt, dynamisch

print "zahl()", "text()", "udt()"

for i as integer = 0 to 2

  print zahl(i), text(i), udt(i).x & "/" & udt(i).y

next

print "Adresse von dynamisch(): " & @dynamisch(0)

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.