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

cagueca

Saida de numeros numa label !!

7 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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......!?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora