Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
cagueca

Saida de numeros numa label !!

Recommended Posts

cagueca

boas :

tenho um programa já feito que me da saída de 20 números e letras tipo 6F554GFTTRGHFY 

O que eu queria era saber como faço para separar ou tipo os primeiros números são w555r e depois o resto dos 20

numa label ..

Este e o código que tenho para isso ..

KeyGen = New RandomKeyGenerator
        KeyGen.KeyLetters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ.@[]=+-_()<>?#~"
        KeyGen.KeyNumbers = "0123456789"
        KeyGen.KeyChars = 20
        For i_Keys = 1 To NumKeys
            RandomKey = KeyGen.Generate()
            Label1.Text = (RandomKey)
        Next

Obrigado

Share this post


Link to post
Share on other sites
Tim§id€

boas :

tenho um programa já feito que me da saída de 20 números e letras tipo 6F554GFTTRGHFY 

O que eu queria era saber como faço para separar ou tipo os primeiros números são w555r e depois o resto dos 20

numa label ..

Este e o código que tenho para isso ..

KeyGen = New RandomKeyGenerator
        KeyGen.KeyLetters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ.@[]=+-_()<>?#~"
        KeyGen.KeyNumbers = "0123456789"
        KeyGen.KeyChars = 20
        For i_Keys = 1 To NumKeys
            RandomKey = KeyGen.Generate()
            Label1.Text = (RandomKey)
        Next

Obrigado

queres tipo fazer? dos 20 numeros e letras=? para aparecer tipo assim? XXXX-YYYY-VVVV......!?


...º(>_<)º...

Share this post


Link to post
Share on other sites
cagueca

Boas :

Sim pode ser eu depois com esse modelo faco o que achar melhor ou outra qualquer .. so quero ter mesmo a ideia de como fazer porque nao sei mesmo ...

Obrigado

Share this post


Link to post
Share on other sites
Tim§id€

Boas :

Sim pode ser eu depois com esse modelo faco o que achar melhor ou outra qualquer .. so quero ter mesmo a ideia de como fazer porque nao sei mesmo ...

Obrigado

For i_Keys = 1 To NumKeys

            RandomKey = KeyGen.Generate()

for x=1 to 5

            Label1.Text = label1.text +RandomKey(x) +"-"

Next

           

        Next

Penso que assim ja da para fazer assim XXXX.-AAAA.-AAAA-AAAA---

(codigo nao testado)


...º(>_<)º...

Share this post


Link to post
Share on other sites
Tim§id€

Boas :

Sim pode ser eu depois com esse modelo faco o que achar melhor ou outra qualquer .. so quero ter mesmo a ideia de como fazer porque nao sei mesmo ...

Obrigado

Podias postar as variaveis declaradas?...para poder testar!


...º(>_<)º...

Share this post


Link to post
Share on other sites
cagueca

Option Strict On
Imports System.Text

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim KeyGen As RandomKeyGenerator
        Dim NumKeys As Integer
        Dim i_Keys As Integer
        Dim RandomKey As String


        NumKeys = 20

        KeyGen = New RandomKeyGenerator
        KeyGen.KeyLetters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        KeyGen.KeyNumbers = "0123456789"
        KeyGen.KeyChars = 20
        For i_Keys = 1 To NumKeys
            RandomKey = KeyGen.Generate()
            Label1.Text = (RandomKey)
        Next
        
    End Sub

    Public Class RandomKeyGenerator
        Dim Key_Letters As String
        Dim Key_Numbers As String
        Dim Key_Chars As Integer
        Dim LettersArray As Char()
        Dim NumbersArray As Char()

        
        Protected Friend WriteOnly Property KeyLetters() As String
            Set(ByVal Value As String)
                Key_Letters = Value
            End Set
        End Property
        
        Protected Friend WriteOnly Property KeyNumbers() As String
            Set(ByVal Value As String)
                Key_Numbers = Value
            End Set
        End Property
        
        Protected Friend WriteOnly Property KeyChars() As Integer
            Set(ByVal Value As Integer)
                Key_Chars = Value
            End Set
        End Property

        Function Generate() As String
            Dim i_key As Integer
            Dim Random1 As Single
            Dim arrIndex As Int16
            Dim sb As New StringBuilder
            Dim RandomLetter As String

            ' CONVERT LettersArray & NumbersArray TO CHARACTR ARRAYS
            LettersArray = Key_Letters.ToCharArray
            NumbersArray = Key_Numbers.ToCharArray

            For i_key = 1 To Key_Chars

                Randomize()
                Random1 = Rnd()
                arrIndex = -1
                
                If (CType(Random1 * 111, Integer)) Mod 2 = 0 Then

                    Do While arrIndex < 0
                        arrIndex = Convert.ToInt16(LettersArray.GetUpperBound(0) * Random1)
                    Loop
                    RandomLetter = LettersArray(arrIndex)

                    If (CType(arrIndex * Random1 * 99, Integer)) Mod 2 <> 0 Then
                        RandomLetter = LettersArray(arrIndex).ToString
                        RandomLetter = RandomLetter.ToUpper
                    End If
                    sb.Append(RandomLetter)
                Else

                    Do While arrIndex < 0
                        arrIndex = Convert.ToInt16(NumbersArray.GetUpperBound(0) * Random1)
                    Loop
                    sb.Append(NumbersArray(arrIndex))
                End If
            Next
            Return sb.ToString
        End Function
    End Class

End Class

Tens ai o codigo todo para usar se quiseres.

Obrigado

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.