Tema: Visual Basic
View Single Post
Staro 06.10.2009., 20:45   #2
malixx
Premium
 
Datum registracije: Feb 2009
Lokacija: Zagreb
Postovi: 76
Eeee evo napravio sam primjer, samo jel može to u nekakvoj petlji da bude kraće, isto to.. ?

Code:
If krt(1) = "" Then
krt(1) = clave & all_chars(random_index)
Else
   If krt(2) = "" Then
   krt(2) = clave & all_chars(random_index)
   Else
      If krt(3) = "" Then
      krt(3) = clave & all_chars(random_index)
      Else
         If krt(4) = "" Then
         krt(4) = clave & all_chars(random_index)
         Else
            If krt(5) = "" Then
            krt(5) = clave & all_chars(random_index)
            Else
               If krt(6) = "" Then
               krt(6) = clave & all_chars(random_index)
               End If
            End If
         End If
      End If
   End If
End If
malixx je offline   Reply With Quote