|
| Autor |
Nachricht |
Par4graPh_
Newbie
Anmeldedatum: 29.10.2007
Beiträge: 10
|
ehm will ein generator machen hilfe
Verfasst am: 03.11.2007, 04:44 |
|
|
jungs will ein generator haben den in den text1 feld das auspuckt wie mache ich das?
0000-0000-0000-0000
natürlich generierte nummern? |
|
| |
|
 |
BONETHUGS333_
Tutorial Leser
Anmeldedatum: 26.10.2007
Beiträge: 26
|
Verfasst am: 03.11.2007, 08:56 |
|
|
| Code: | Private Sub Command1_Click() 'Der Button
Dim NUM(1 To 10) As Integer 'Das word PAS als ganzahl Deklarierst
NUM(1) = "0"
NUM(2) = "1"
NUM(3) = "2"
NUM(4) = "3"
NUM(5) = "4"
NUM(6) = "5"
NUM(7) = "6"
NUM(8) = "7"
NUM(9) = "8"
NUM(10) = "9" 'Hier habe ich Die Zahlen zugewiesen
Randomize
random1 = Int((Rnd * 10) + 1)
random2 = Int((Rnd * 10) + 1)
random3 = Int((Rnd * 10) + 1)
random4 = Int((Rnd * 10) + 1)
random5 = Int((Rnd * 10) + 1)
random6 = Int((Rnd * 10) + 1)
random7 = Int((Rnd * 10) + 1)
random8 = Int((Rnd * 10) + 1)
random9 = Int((Rnd * 10) + 1)
random10 = Int((Rnd * 10) + 1)
random11 = Int((Rnd * 10) + 1)
random12 = Int((Rnd * 10) + 1)
random13 = Int((Rnd * 10) + 1) 'Hier habe ich dem Programm gesagt
random14 = Int((Rnd * 10) + 1) 'das er z.b. random1 als Integer sehen
random15 = Int((Rnd * 10) + 1) 'soll und das aus den 10 Zahlen
random16 = Int((Rnd * 10) + 1) 'sich eine (+1) rausgreifen soll
Text1 = NUM(random1) & NUM(random2) & NUM(random3) & NUM(random4) & "-" & NUM(random5) & NUM(random6) & NUM(random7) & NUM(random8) & "-" & NUM(random9) & NUM(random10) & NUM(random11) & NUM(random12) & "-" & NUM(random13) & NUM(random14) & NUM(random15) & NUM(random16)
'Hier hab ich noch die Reihenfolge bestimmt
'wie sie nachher im Text1 erscheinen soll
End Sub |
|
|
| |
|
|
The-God-of-all_
Poster
Anmeldedatum: 20.05.2007
Beiträge: 170
Wohnort: App.Path
|
Verfasst am: 03.11.2007, 13:38 |
|
|
Ich finde den Code nicht gut weil du 1. Erst zufällige Zahlen generierst und dann die Zufälligen Zahlen nochmal in Zahlen umsetzt was unnötig ist. 2. Kann man so nicht die Länge der Blöcke auswählen und auch nicht die Anzahl der Zahlen Blöcke. Ich poste mal eine Funktion wie ich das machen würde:
| Code: | Private Sub Command1_Click()
Text1.Text = GenerateNumbers(4, 4)
End Sub
Private Function GenerateNumbers(BlockZahl As Integer, BlockLength As Integer) As String
Randomize
Dim i As Integer
Dim j As Integer
Dim Ergeb As String
For i = 1 To BlockZahl
If i <> 1 Then Ergeb = Ergeb & "-"
For j = 1 To BlockLength
Ergeb = Ergeb & CStr(Int(Rnd(1) * 10))
Next j
Next i
GenerateNumbers = Ergeb
End Function |
|
|
| |
|
|
King of Chaos_
Coder
Anmeldedatum: 26.09.2007
Beiträge: 235
|
|
| |
|
|
Par4graPh_
Newbie
Anmeldedatum: 29.10.2007
Beiträge: 10
|
Verfasst am: 03.11.2007, 15:01 |
|
|
| nice danke jungs ich wollte noch wissen wir ich das mache das am anfang die Zahl 0 kommt und der generiert wird |
|
| |
|
|
King of Chaos_
Coder
Anmeldedatum: 26.09.2007
Beiträge: 235
|
Verfasst am: 03.11.2007, 15:04 |
|
|
ganz einfach
warte edit folgt gleich
Bleibt alles gleich ausser das ich bei text1.text = "0" & Die generierten zahlen eintrage Falls ich dich richtig verstanden hab ist das des was du meinst oder?
| Code: | Private Sub Command1_Click()
Text1.Text = "0" & GenerateNumbers(4, 4)
End Sub
Private Function GenerateNumbers(BlockZahl As Integer, BlockLength As Integer) As String
Randomize
Dim i As Integer
Dim j As Integer
Dim Ergeb As String
For i = 1 To BlockZahl
If i <> 1 Then Ergeb = Ergeb & "-"
For j = 1 To BlockLength
Ergeb = Ergeb & CStr(Int(Rnd(1) * 10))
Next j
Next i
GenerateNumbers = Ergeb
End Function
|
|
|
| |
|
|
Par4graPh_
Newbie
Anmeldedatum: 29.10.2007
Beiträge: 10
|
Verfasst am: 03.11.2007, 15:06 |
|
|
ok ehm hast du icq würde dir was fettes geben!
408171951 |
|
| |
|
|
King of Chaos_
Coder
Anmeldedatum: 26.09.2007
Beiträge: 235
|
Verfasst am: 03.11.2007, 15:06 |
|
|
hab code doch schon gepostet LoL
255-539-405 wenn du noch fragen hast.. |
|
| |
|
|
BONETHUGS333_
Tutorial Leser
Anmeldedatum: 26.10.2007
Beiträge: 26
|
Verfasst am: 03.11.2007, 18:23 |
|
|
| Kann mir jemand diesen code noch mit erklärungen bereichern und ihn dann nochmal posten, damit ich ihn mehr verstehe |
|
| |
|
|
King of Chaos_
Coder
Anmeldedatum: 26.09.2007
Beiträge: 235
|
Verfasst am: 03.11.2007, 18:43 |
|
|
man  jetzt hab ichs ihm schritt für schritt erklärt wieso fragst du jetzt erst
ich schreib die erklärung gleich nochmal
So hier ne Kleine Erklärung
| Code: | Private Sub Command1_Click()
Text1.Text = GenerateNumbers(4, 4)
'so hier hau ich die generierten zahlen
' in ner Länge von 4 Blocks und jeweils 4 Zahlen rein!
End Sub
Private Function GenerateNumbers(BlockZahl As Integer, BlockLength As Integer) As String
'in dem teil mach ich die Random Funktion...
Randomize
Dim i As Integer
Dim j As Integer
Dim Ergeb As String
For i = 1 To BlockZahl
If i <> 1 Then Ergeb = Ergeb & "-"
' hier tu ich jeweils nach jedem block ein - setzen
For j = 1 To BlockLength
Ergeb = Ergeb & CStr(Int(Rnd(1) * 10))
Next j
Next i
GenerateNumbers = Ergeb
End Function
' so das dürfte an erklärung reichen!
|
|
|
| |
|
|
Registrieren
Login
