fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

GetMaxDim geht ein bisschen

Uploader:	ytwinky
Datum/Zeit:	14.09.2007 14:21:55

'+-----------------------------------------------------------------------------------+

'|    Header: Bestimmen der Übergabeparameter                                        |

'|    AnzeigeCheck:|Il1 sind Alt-0124, Großes i, kleines L, Eins „ä”öüáßŽÄ™ÖšÜñ±¸©ø°|

Const Author="GetMaxDim.Bas v017f ¸2007 by ytwinky, MD"'                             |

'|           (Tastenkombination: keine)                                              |

'|                                                                                   |

'|    Zweck : Versuch, die max. Dimension zu erkennen                                |

'+-----------------------------------------------------------------------------------+

'(Anmerkung zu den Sonderzeichen: zuerst steht das DOS-Zeichen, danach das Windowszeichen)

Const MinDim=1 'min. Dimension die bei FB erlaubt ist

Const MaxDim=8 'max. Dimension die FB unterstützt

Type MyType As Integer

Dim As MyType StaticArray(0), CurDim=1

Declare Function GetMaxDim(a() As MyType) As Integer

?"Gefundene max. Dim~" &GetMaxDim(StaticArray()) 'interessant: ersetze & mit ; LOL

?StaticArray(0)

?StaticArray(1) 'ok, zeigt einen Fehler, wenn mit -exx kompiliert

?"Eniki..";

Sleep

End

Function GetMaxDim(a() As MyType) As Integer

    Dim As Byte i=0

    For j As Byte=MinDim To MaxDim

        ?UBound(a, j)

        i-=UBound(a, j)<>0

    Next

    ?

    Return i

End Function

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.