FAZER UM PROGRAMA DE ESCOLHA RANDOMICA
Olá amigos, eu queria fazer um programa que eu conseguisse colocar opções nas textbox e ao clicar no bt1, fosse randomico a escolha de qual seria o texto que sairia para a textbox final.Não esta dando mt certo e n sei oq fazer, podem me ajudar?
Teste: Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = TextBox1.Text or TextBox2.Text
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = [Ô][Ô]
TextBox2.Text = [Ô][Ô]
TextBox3.Text = [Ô][Ô]
End Sub
End Class
Teste: Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = TextBox1.Text or TextBox2.Text
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = [Ô][Ô]
TextBox2.Text = [Ô][Ô]
TextBox3.Text = [Ô][Ô]
End Sub
End Class
Amigo,
Vê se isso te ajuda, não entendi direito o que tu quer.
Esse cóodigo abaixo gera um texto aleatório de 6 caracteres só com letras Maiusculas e Numeros
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Codigo As String
Dim Number, J As Integer
Dim rand As New Random()
j = 0
Codigo = [Ô][Ô]
For i = 1 To 100
Number = rand.Next(48, 90) [ô]Pega um randomico entre 48 e 90
If (Number >= 48 And Number <= 57) Or (Number >= 65 And Number <= 90) Then [ô]Entre 48 e 57 é numero, entre 65 e 90 são caracteres maiusculos
Codigo = Codigo + Chr(Number)
j += 1
End If
If j = 6 Then Exit For
Next
MsgBox(Codigo)
End Sub
Vê se isso te ajuda, não entendi direito o que tu quer.
Esse cóodigo abaixo gera um texto aleatório de 6 caracteres só com letras Maiusculas e Numeros
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Codigo As String
Dim Number, J As Integer
Dim rand As New Random()
j = 0
Codigo = [Ô][Ô]
For i = 1 To 100
Number = rand.Next(48, 90) [ô]Pega um randomico entre 48 e 90
If (Number >= 48 And Number <= 57) Or (Number >= 65 And Number <= 90) Then [ô]Entre 48 e 57 é numero, entre 65 e 90 são caracteres maiusculos
Codigo = Codigo + Chr(Number)
j += 1
End If
If j = 6 Then Exit For
Next
MsgBox(Codigo)
End Sub
Juro que tentei entender....Posta fotos ai do que esta tentando fazer...
Tipo assim, eu colocava duas opções, uma em cada textbox:
Textbox 1: Opção 1
Textbox 2: Opção 2
Ai ao clicar no botão, sairia uma das duas opções na textbox3 randomicamente
Textbox 1: Opção 1
Textbox 2: Opção 2
Ai ao clicar no botão, sairia uma das duas opções na textbox3 randomicamente
Acho que é ainda mais simples do que você colocou JCM0867.
Acho que a situação é a seguinte: Você tem 3 textboxs. Quando você clicar no botão, o terceiro Textbox receberá o valor do Textbox1 ou do Textbox2, randomicamente, correto?
Não me perguntem porque, mas cheguei a conclusão disso pelo uso do OR na atribuição do textbox3 hahaha
Coloque esse código no botão:
O que eu faço aà é sortear um valor entre 1 e 2... Se for 1, vai pegar o valor do textbox1... se for 2, vai pegar o valor do textbox2.
Falou
Acho que a situação é a seguinte: Você tem 3 textboxs. Quando você clicar no botão, o terceiro Textbox receberá o valor do Textbox1 ou do Textbox2, randomicamente, correto?
Não me perguntem porque, mas cheguei a conclusão disso pelo uso do OR na atribuição do textbox3 hahaha
Coloque esse código no botão:
Dim randomico as New Random
dim valorSorteado as Integer
valorSorteado = randomico.Next(1,2)
If valorSorteado = 1 Then
textbox3.text = textbox1.text
Else
textbox3.text = textbox2.text
End if
O que eu faço aà é sortear um valor entre 1 e 2... Se for 1, vai pegar o valor do textbox1... se for 2, vai pegar o valor do textbox2.
Falou
Po funcionou ate a metade, porquê toda a hora aparece o texto da textbox1, nunca sorteia o 2
Troque a linha:
valorSorteado = randomico.Next(1, 2)
por
valorSorteado = randomico.Next(1, 3)
no método Next, o valor MAX não entra no domÃnio randômico da função.
Falou!
valorSorteado = randomico.Next(1, 2)
por
valorSorteado = randomico.Next(1, 3)
no método Next, o valor MAX não entra no domÃnio randômico da função.
Falou!
VLWWW MAAN
Tópico encerrado , respostas não são mais permitidas