title image


Smiley Alle Buchstaben/Zahlen-Kombinationen auflisten
Hi!Dieses Projekt ist ziehmlich komplex und erfordert sehr viel Rechenpower, ein Pentium 3 mit 500 MHz braucht ca 4 Minuten und 30 Sekunden um alle Kombinationen für 6 Buchstaben/Zahlen aufzulisten! Wer dieses Projekt haben will und es mit dem folgenden Code nicht hinbekommt der schickt mir eine eMail oder ICQ-Message (Adressen am Seitenende).Benötigt werden:1 Formular1 Textfeld (Text1) 'Eingabe der Buchstaben1 Label (Label1) 'Anzeige während der Laufzeit1 ListBox (List1) 'Kombinationenliste1 Button (Command1) 'StartVB-Quellcode:' © Copyright by Mr. S, 2001' MailMr_S@gmx.de Dim xBArry() As String, l As Double, m As Double, n As Double, Temp As String, D1 As Date, D2 As Date Private Sub Command1_Click() If Len(Text1.Text) > 9 Then Exit Sub List1.Clear Text1.Enabled = False ReDim xBArry(1 To Len(Text1.Text)) As String For i = 1 To Len(Text1.Text) xBArry(i) = Right(Left(Text1.Text, i), 1) Next i l = 0 m = 0 For i = 1 To Len(Text1.Text) l = l * 10 + i Next i For i = Len(Text1.Text) To 1 Step -1 m = m * 10 + i Next i n = 0 D1 = Time MousePointer = vbHourglass Do While Not n + l = m + 1 Label1.Caption = (m + 1) - (n + l) Label1.Refresh For i = 1 To Len(Text1.Text) If AZ(CStr(n + l), Right(Left(CStr(n + l), i), 1)) 1 Then GoTo Weiter: Next i For i = Len(Text1.Text) + 1 To 10 If i = 10 Then If InStr(CStr(n + l), "0") 0 Then GoTo Weiter: Else If InStr(CStr(n + l), CStr(i)) 0 Then GoTo Weiter: End If Next i Temp = "" For i = 1 To Len(Text1.Text) Temp = Temp & xBArry(CInt(Right(Left(CStr(n + l), i), 1))) Next i List1.AddItem Temp List1.Refresh Me.Caption = List1.ListCount Me.RefreshWeiter: n = n + 1 Loop D2 = Time Label1.Caption = Format(D2 - D1, "hh:nn:ss") MousePointer = vbDefault Text1.Enabled = TrueEnd Sub Private Function AZ(Stringfolge1 As String, Stringfolge2 As String) As Integer On Error Resume Next Dim awergf As String, klo As Integer, op As Integer op = 0 For klo = 1 To (Len(Stringfolge1) - Len(Stringfolge2)) + 1 If Mid(Stringfolge1, klo, Len(Stringfolge2)) = Stringfolge2 Then op = op + 1 Next klo AZ = opEnd Function Private Sub Text1_Change() l = 0 m = 0 For i = 1 To Len(Text1.Text) l = l * 10 + i Next i For i = Len(Text1.Text) To 1 Step -1 m = m * 10 + i Next i Label1.Caption = m - lEnd SubMr. SICQ #67858520eMail: MailMr_S@gmx.de

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: