+- Praca w domu - Dodatkowa Praca - Zarabianie przez Internet (https://zarabiam.com)
+-- Dział: Off-Topic (/Forum-Off-Topic-9)
+--- Dział: Programowanie (/Forum-Programowanie-364)
+--- Wątek: Kod generatora VB (/Temat-Kod-generatora-VB-64924)
Kod generatora VB - [T] r u a n [T] - 15-02-2013 14:19
Potrzebuje kod aby generator ,który zrobiłem działał.
Pierwszy generator jakiego zrobiłem .
RE: Kod generatora VB - Coristo - 15-02-2013 14:24
Opisz swój problem po polsku. Jeżeli potrzebujesz pomocy z VB napisz mi na gg
RE: Kod generatora VB - Sloniasek - 15-02-2013 14:26
Cytat:LOL_LOL:
Dim AA As Decimal = Int(Rnd() * 10000)
Dim BB As Decimal = Int(Rnd() * 10000)
Dim CC As Decimal = Int(Rnd() * 10000)
Dim DD As Decimal = Int(Rnd() * 10000)
Dim EE As Decimal = Int(Rnd() * 10000)
If AA > 1000 And BB > 1000 And CC > 1000 And DD > 1000 And EE > 1000 Then
If AA + BB + CC + DD + EE = 35927 Then
Dim serial As String = AA & "-" & BB & "-" & CC & "-" & DD & "-" & EE
serial = serial.Replace("2", "G")
serial = serial.Replace("4", "Z")
serial = serial.Replace("6", "S")
serial = serial.Replace("8", "N")
TextBox1.Text = serial
Exit Sub
Else
GoTo lol_lol
End If
Else
GoTo LOL_LOL
End If
Sprawdź ten, ja go używam.
RE: Kod generatora VB - Coristo - 15-02-2013 15:06
Wykonane
Kod generatora VB - Coristo - 15-02-2013 15:06
Wątek zostaje zamknięty, ponieważ moderator uznał że temat został wyczerpany bądź rozwiązany. Jeśli posiadasz nowe pytania prosimy o założenie kolejnego tematu.