[Resolvido] Gerar aleatoriamente um texto em MsgBox

[fabiomaxdoce]

Olá pessoal venho pedir ajuda porque sou novo na programação visual basic, eu tenho instalado no meu computador Visual Basic 2008 express edition eu quero fazer o meu primeiro programa em vb, já fiz o design na form. já coloquei os botões, já dei codigo em varios comandos, a minha duvida é no button1_click, eu quero que ele gera MsgBox.text aleatoriamente, mais so uma mensagem cada vez que ele for clicado, e não apresentar uma mensagem seguida da outra aleatoriamente. obrigado pela atenção...

[acao]

Boas

MsgBox.text aleatoriamente

amigo fabiomaxdoce pode-se explicar melhor o pretende ou entende por MsgBox.text aleatoriamente.

será isto:

if texto = aleatoriamente then

MsgBox("o texto é aleatoriamente")

elseif texto = normal then

MsgBox("O texto é normal")

end if

cumps

acao

[fabiomaxdoce]

amigão acao, adorei por ter respondido mais é mais ou menos assim:

Public Class Form1
Private Sub Button1_Click ByVal sender As System.Object, ByVal e As System.EventArgsHandles Button1.Click
 Dim a As Integer
 Dim b As Integer
 Dim c As Integer
 Dim d As Integer
 Dim MsBoxDefault As Boolean
 a = MsgBox("eu amo programar em VB")
 b = MsgBox("tu amas programar em VB")
 c = MsgBox("nós amamos programar em VB")
 d = MsgBox("ele gosta programar em VB")
 MsBoxDefault = a And b And c And d
End Sub
End Class

e eu quero que ele apresenta cada mensagem uma só vez cada vez que o botão for clicado mais aleatoriamente.vlw

Edited June 19, 2012 at 10:35 PM by jpaulino

[acao]

Em 6/17/2012 às 14:02, fabiomaxdoce disse:

amigão acao, adorei por ter respondido mais é mais ou menos assim:

Public Class Form1
  Private Sub Button1_Click ByVal sender As System.Object, ByVal e As System.EventArgsHandles Button1.Click
   Dim a As Integer
   Dim b As Integer
   Dim c As Integer
   Dim d As Integer
   Dim MsBoxDefault As Boolean
	a= MsgBox("eu amo programar em VB")
	b = MsgBox("tu amas programar em VB")
	c = MsgBox("nós amamos programar em VB")
	d = MsgBox("ele gosta programar em VB")
	MsBoxDefault = a And b And c And d
End Sub
End Class

 

e eu quero que ele apresenta cada mensagem uma só vez cada vez que o botão for clicado mais aleatoriamente.vlw

Boas

poderá usar a função «Rnd».

Private Sub CommandButton1_Click()
Dim str As String
str = Mid(CStr(Rnd), 3, 1)  'cria numeros de 0 a 9
if str = 0 then
MsgBox("eu amo programar em VB")
elseif str =1 Or str =2 then
MsgBox("tu amas programar em VB")
end if
End Sub

 

é só completar com os numeros todos de 0 a 9

Edit: acrescentar inf.

coloca assim porque eu converti para string para testar na msgbox

Private Sub CommandButton1_Click()
Dim str As Byte
str = Mid((Rnd), 3, 1)  'cria numeros de 0 a 9
if str = 0 then
MsgBox("eu amo programar em VB")
elseif str =1 Or str =2 then
MsgBox("tu amas programar em VB")
end if
End Sub

 

cumps

acao

[fabiomaxdoce]

amigão ação muito obrigadoo pela ajuda deu certo e fico muito grato por isto, mais eu gostaria de saber se não tem como gerar aleatoriamente 100 msgbox, o que vc deu só chega ate 10, obrigadoo...

[acao]

boas

altere para 2 digitos assim

str = Mid((Rnd), 3, 2) 'cria numeros de 0 a 99

cunps

acao

[fabiomaxdoce]

Obrigado amigão acao, fico muito grato, manda seu facebook ae???

[jpaulino]

Está resolvido, certo?

[fabiomaxdoce]

Sim foi resolvido e fico muito grato por isto agradeço muito pelo amigão acção e pelo forum portugal-a-programar...vlw