bredator  - 41
Champion
(offline)
Dabei seit 03.2008
5319
Beiträge
|
|
Geschrieben am: 05.10.2010 um 12:13 Uhr
|
|
Ich möchte Yasin für den Vaporware-Award nominieren. ;)
Lache nicht über jemanden, der einen Schritt zurück macht. Er könnte Anlauf nehmen.
|
|
Prof_Matze - 33
Champion
(offline)
Dabei seit 03.2006
6894
Beiträge
|
|
Geschrieben am: 05.10.2010 um 14:07 Uhr
|
|
Zitat von bredator: Ich möchte Yasin für den Vaporware-Award nominieren. ;)
Lass mal, vllt muss er ja die Engine wechseln 
Ich hoffe die Anspielung hat jeder kapiert^^
Leider wird fehlendes Wissen missverständlicherweise (zu) oft durch blinden Schreibwahn ersetzt...
|
|
Properties - 30
Halbprofi
(offline)
Dabei seit 06.2010
299
Beiträge
|
Geschrieben am: 09.10.2010 um 15:20 Uhr
Zuletzt editiert am: 09.10.2010 um 15:26 Uhr
|
|
Ich hab ne kleine Frage zu einem Prorgamm. Und zwar geht es um das Fake-Keygen-Prinzip, bei dem man z.B. 5 Schlüssel hat und dann per Zufall diese nacheinander ausgibt. Jetzt wollte ich frgen, wie man es machen kann, dass wenn man z.B. 5 Mal auf "Generate" klickt, keine der 5 Zahlen doppelt vorkommt, also so z.B.:
2
4
3
1
5
und nicht
4
1
1
3
5
imaxabs :D
|
|
piepmax - 38
Profi
(offline)
Dabei seit 04.2006
794
Beiträge
|
Geschrieben am: 09.10.2010 um 15:35 Uhr
Zuletzt editiert am: 09.10.2010 um 15:35 Uhr
|
|
Zitat von Properties: Ich hab ne kleine Frage zu einem Prorgamm. Und zwar geht es um das Fake-Keygen-Prinzip, bei dem man z.B. 5 Schlüssel hat und dann per Zufall diese nacheinander ausgibt. Jetzt wollte ich frgen, wie man es machen kann, dass wenn man z.B. 5 Mal auf "Generate" klickt, keine der 5 Zahlen doppelt vorkommt, also so z.B.:
2
4
3
1
5
und nicht
4
1
1
3
5
Dim Zahlen as new Listbox
Dim Zufall as New Random
Public Function ZahlErzeugen()
Dim Zahl as Integer
Dim i as integer
NeueZahl:
Zahl=Zufall.Next(0,6)
i=0
while i < Zahlen.Items.Count
If Zahl=Zahlen.Items.Item(i) then
Goto NeueZahl
end if
end while
Zahlen.Items.Add(Zahl)
Return Zahl
End Function
Die Feder ist mächtiger als das Schwert - Die Ignoranz gefährlicher als das Messer.
|
|
Properties - 30
Halbprofi
(offline)
Dabei seit 06.2010
299
Beiträge
|
|
Geschrieben am: 09.10.2010 um 17:22 Uhr
|
|
Zitat von piepmax: Zitat von Properties: Ich hab ne kleine Frage zu einem Prorgamm. Und zwar geht es um das Fake-Keygen-Prinzip, bei dem man z.B. 5 Schlüssel hat und dann per Zufall diese nacheinander ausgibt. Jetzt wollte ich frgen, wie man es machen kann, dass wenn man z.B. 5 Mal auf "Generate" klickt, keine der 5 Zahlen doppelt vorkommt, also so z.B.:
2
4
3
1
5
und nicht
4
1
1
3
5
Dim Zahlen as new Listbox
Dim Zufall as New Random
Public Function ZahlErzeugen()
Dim Zahl as Integer
Dim i as integer
NeueZahl:
Zahl=Zufall.Next(0,6)
i=0
while i < Zahlen.Items.Count
If Zahl=Zahlen.Items.Item(i) then
Goto NeueZahl
end if
end while
Zahlen.Items.Add(Zahl)
Return Zahl
End Function
Danke.
imaxabs :D
|
|
piepmax - 38
Profi
(offline)
Dabei seit 04.2006
794
Beiträge
|
Geschrieben am: 09.10.2010 um 18:49 Uhr
Zuletzt editiert am: 09.10.2010 um 19:10 Uhr
|
|
Zitat: Dim Zahlen as New Listbox
Public Sub ErzeugeZahlen(Byval Anzahl as Integer)
Dim i as Integer
Zahlen.Items.Clear()
While i < Anzahl
Zahlen.Items.Add(i+1)
i=i+1
End While
End Sub
Public Function Zufallszahl()
Dim Zufall as new Random
Dim Abfrage as new Integer=Zufall.Next(0,Zahlen.Items.Count)
Dim Zahl as Double
Zahl=Zahlen.Items.Item(Abfrage)
Zahlen.Items.Remove(Abfrage)
Return Zahl
End Function
Die vorige dürfte gar nicht funktionieren, da hab ich was vergessen.
Nimm die, die ist bei größeren Zahlenmengen schneller, da keine If Abfragen oder Gotos notwending sind.
Die Feder ist mächtiger als das Schwert - Die Ignoranz gefährlicher als das Messer.
|
|
Spasslex - 114
Experte
(offline)
Dabei seit 09.2006
1308
Beiträge
|
|
Geschrieben am: 09.10.2010 um 19:49 Uhr
|
|
Nur so als Überflug:
Dim Zahlen(5) as Byte
wobei "5" die menge an Zufallszahlen darstellt und direkt adressiert werden können.
Die URL wurde geblockt (keine Werbung mehr auf TU) :-)
|
|
piepmax - 38
Profi
(offline)
Dabei seit 04.2006
794
Beiträge
|
Geschrieben am: 09.10.2010 um 19:51 Uhr
Zuletzt editiert am: 09.10.2010 um 19:53 Uhr
|
|
Zitat von Spasslex: Nur so als Überflug:
Dim Zahlen(5) as Byte
wobei "5" die menge an Zufallszahlen darstellt und direkt adressiert werden können.
Wäre es dann nicht noch besser Dim Zahlen(5) as Array zu verwenden?
Edit:
Da ich das hier sehr unübersichtlich finde, habe ich eine Gruppe gegründet:
Vb .Net
Die Feder ist mächtiger als das Schwert - Die Ignoranz gefährlicher als das Messer.
|
|
Spasslex - 114
Experte
(offline)
Dabei seit 09.2006
1308
Beiträge
|
|
Geschrieben am: 09.10.2010 um 21:01 Uhr
|
|
das ist bereits ein array of byte.
Die URL wurde geblockt (keine Werbung mehr auf TU) :-)
|
|
Y---_ - 28
Profi
(offline)
Dabei seit 03.2010
554
Beiträge
|
|
Geschrieben am: 09.10.2010 um 22:43 Uhr
|
|
Der Supporter kommt nicht !
[MH] - {Coder} - C0D3RBL00D- CY [C++,VB.NET,C#]
|
|
Klischeepunk - 41
Champion
(offline)
Dabei seit 01.2005
8907
Beiträge
|
|
Geschrieben am: 09.10.2010 um 23:13 Uhr
|
|
Zitat von Y---_: Der Supporter kommt nicht !
Ist die Firewall kaputt?
Dieser Post wurde 2 mal ROT-13 verschlüsselt.
|
|
#CaNe - 39
Champion
(offline)
Dabei seit 01.2005
2705
Beiträge
|
|
Geschrieben am: 10.10.2010 um 12:07 Uhr
|
|
Zitat von Klischeepunk: Zitat von Y---_: Der Supporter kommt nicht !
Ist die Firewall kaputt?
nein, er setzt sein priorität auf sein OS, er bastelt grad an nem VB bootloader 
God of War || Join: http://www.team-ulm.de/MyGroups/64898
|
|
Klischeepunk - 41
Champion
(offline)
Dabei seit 01.2005
8907
Beiträge
|
|
Geschrieben am: 10.10.2010 um 12:10 Uhr
|
|
Zitat von #CaNe: Zitat von Klischeepunk: Zitat von Y---_: Der Supporter kommt nicht !
Ist die Firewall kaputt?
nein, er setzt sein priorität auf sein OS, er bastelt grad an nem VB bootloader
Sicher auf .NET basis, der Maschinencode ist einfach universeller :P
Dieser Post wurde 2 mal ROT-13 verschlüsselt.
|
|
#CaNe - 39
Champion
(offline)
Dabei seit 01.2005
2705
Beiträge
|
|
Geschrieben am: 10.10.2010 um 16:00 Uhr
|
|
Zitat von Klischeepunk: Sicher auf .NET basis, der Maschinencode ist einfach universeller :P
evtl beschäftigt er sich auch grad mit der gui auf html-basis 
God of War || Join: http://www.team-ulm.de/MyGroups/64898
|
|
Y---_ - 28
Profi
(offline)
Dabei seit 03.2010
554
Beiträge
|
|
Geschrieben am: 21.10.2010 um 18:51 Uhr
|
|
ich beschäftige mich grade für nen Keylogger
[MH] - {Coder} - C0D3RBL00D- CY [C++,VB.NET,C#]
|
|
[