Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Dymaniczna tablica???
Dagged
Dagged




Typ: neutral
Postów: 49
Zarejestrowany: Dec 2003
Dymaniczna tablica???

Cze all. Mam pytanie czy istnieje coś takiego jak dynamiczna tablica w VB?. Mam do zrobienia programik, ktory przy uruchomieniu pyta o wartosc n. Nastepnie po podaniu wartosci n, pyta o wartosci parametrow a,b,c,d. I teraz jesli n= 2 to bedzie pytal o wartosci dla a1,b1,c1,d1 ,a2,b2,c2,d2. Jesli podam n jako 5 to bedzie sie pytał o a1.. a2... a3...a4...a5. Czy jest to możliwe? Jesli tak to prosze o pomoc jak to zrobic z gory thx


_____________________________________________
May the Force be with you...

04-10-2004 12:01
Pokaż profil Dagged  Wyślij email do Dagged        1728948
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Nic prostrzego. Kawałek kodu:

Dim Wartosc As String
Wartosc = InputBox("Podaj ilość [...]"
If Trim(Wartosc) = "" Or Not IsNumeric(Wartosc) Then Exit Sub
ReDim A(Wartosc) As String
ReDim B(Wartosc) As String
ReDim C(Wartosc) As String
ReDim D(Wartosc) As String
Const Alfa = "ABCD"
Dim NextWar(3) As String
Dim I As Byte
For I = 0 To 3
NextWar(I) = InputBox("Podaj wartość kolejnych zmiennych " & Mid(Alfa, I + 1, 1) & ", oddzielając ''|''"
Dim Test As Variant
Test = Split(NextWar(I), "|"
Debug.Print Test(0)
Next

Wiem, że mógłbym to uprościć, ale po całej nocy nauki muszę się wyżyć na klawieśnicy//napadło mnie

[Post edytowany dnia 04-10-2004 15:19 przez mikmas]


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

04-10-2004 15:16
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Najpierw deklarujesz tablicę bez ustalonych wymiarów:
Dim TwojaTablica() As String

Potem,w  kodzie, piszesz:
ReDim TwojaTablica(nWymiar) As String
, gdzie nWymiar to rozmiar tablicy (może być stała, mozę być zmienna).


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

04-10-2004 15:20
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

ale ReDim może być chyba odrazu? [Bez deklarowania jako Dim]


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

04-10-2004 15:30
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Dagged
Dagged




Typ: neutral
Postów: 49
Zarejestrowany: Dec 2003
a za co to odpowiada?

Dim NextWar(3) As String
Dim I As Byte

dlaczego nextwar(3)????


_____________________________________________
May the Force be with you...

04-10-2004 15:57
Pokaż profil Dagged  Wyślij email do Dagged        1728948
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

W niej nadaje się kolejne wartości ABCD. Dlaczego akurat 3? Licz od 0. 0123(=ABCD). I jest używana do pętli for


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

04-10-2004 17:58
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Jest dopuszczalne, tak samo jak jest dopuszczalne nieuzasadnione używanie Variantów i przypisywanie wartości niezdeklarowanym zmiennym. Co nie znaczy, że jest to prawidłowy nawyk.


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

04-10-2004 20:46
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1