lotek a vb...szczera prośba...

[PITMaN]

Długo mnie tu nie było oj długo 3994 postów do przeczytania ale nie w tej sprawie pisze....



chłopaki jest sprawa....
musze napisać prog w vb a konkretnie duży lotek losujący 6 z 49 liczb. dla sieciowca jest to czarna magia ale to nie wymówka. nie pisałbym gdybym nie miał problemów z własnym sprzętem, a czas mam do przyszłego poniedziałku. dlatego w tej sytuacji będę naprawdę szczęśliwy jeśli ktoś ma chwilę napisać choćby pseudo kod, a nawet jeśli będę przy groszu to jak latem będzie jakiś zjaździk postawie krowe....to nie żart

[=VND=]

Hmmm... nikt się nie odzywa, pewnie na mnie znowu padło

Z VB miałem do czynienia dawno temu i jakoś nie polubiliśmy się , wiec co najwyżej mogę Ci dać pseudo kod.

Code: Select all

Definicje:

int licznik=0;     // która liczba jest losowana z sześciu. 
int tablica[6];    // tablica na wylosowane liczby
int liczba;          // zmienna w której jest wylosowana liczba

Pętla:
While( licznik<6)       // powtarzaj pętle aż wylosujesz 6 liczb
{
   
    liczba=Random(48 )+1;   // losowanie liczby z przedziału 1-49 
                                        // +1 aby uniknąć wylosowania 0
    if( liczba<>tablica[0] && liczba<>tablica[1] && liczba<>tablica[2] &&
        liczba<>tablica[3] && liczba<>tablica[4] && liczba<>tablica[5]) 
       // cały ten kolos powyżej sprawdza czy wylosowana liczba  wypadła już wcześniej 
     {  // jeśli nie wpisz liczbę do tabeli
         tabela[licznik]=liczba;
         licznik=licznik+1;           //zwiększ licznik o 1
     }

}

algorytm jest na tyle banalny że moim zdaniem nie opłaca się bawić w pętle for czy inne sprawdzenia czy liczba już wypadła.
założyłem że kompilator vb zeruje table po definicji, jeśli nie, to zostaje zrobić to ręcznie.

mogę Ci to skrobnąć w C jak wrócę z "dżoba" (praktycznie niewiele różni się od tego wyżej)