Własne typy danych
Niejednokrotnie programując używamy np. 2 tablic które się uzupełniają. Załóżmy, że piszemy program, który zapisuje do tablicy współrzędne punktów, w które klikneliśmy. Możemy zrobić 2 tablice i fragment kodu by tak wyglądał :
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Numer = Numer + 1
tblX(Numer) = X
tblY(Numer) = Y
End Sub
Oczywiście zmienna numer i obie tablice są zadeklarowane jako zmienne globalne. No i wszystko wygląda ładnie, ale jest to trochę niewygodne. Załóżmy, że dodamy jeszcze do tego Button i Shift a rząglowanie 4 tablicami będzie strasznie niewygodne. Można to nieco zmienić i utworzyć własny typ danych. Aby utworzyć typ danych należy w sekcji deklaracyjnej napisać :
[public/private] Type nazwa
.. zmienna as Typ
End type
Być może to brzmi skomplikowanie, ale poniższy przykład wyjaśni wszystkie watpliwości :
Public Type Myszka
PozX as Single
PozY as Single
Button as Integer
Shift as Integer
End Type
I utworzyliśmy własny typ danych. Deklaracja zmiennej wygląda tak :
Dim Zmienna as Myszka
a deklaracja tablicy wygląda nieco inaczej :
Dim Tabl(10) as Myszka
A teraz najciekawsze : używanie tego typu :
Tabl(3).PozX=10
Tabl(6).PozY=2
Tabl(1).Shift=7
Tak więc nasz początkowy program będzie wyglądał nieco inaczej
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Numer = Numer + 1
Tabl(Numer).PozX = X
Tabl(Numer).PozY = Y
Tabl(Numer).Shift = Shift
Tabl(Numer).Button = Button
End Sub
Jest to bardzo wygodne, bo pisząc skomplikowane programy, lubimy zapomnieć jak się nazywa dana tablica a tutaj pamiętamy nazwę 1 tablicy która przechowuje kilka danych. Jest to szczególnie przydatne w pisaniu baz danych, ale w innych programach też używa się własnych typów danych. Zachęcam do używania własnego typu danych niż kilku "współpracujących ze sobą" tablic.
Jelcyn
jelcyn@pnet.pl