Jump to content

[Resolvido] Gerar aleatoriamente um texto em MsgBox


Recommended Posts

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

Citação

"Só é feliz, aquele homem que em todo momento esta a ensinar e a aprender"

 

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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 by jpaulino
Citação

"Só é feliz, aquele homem que em todo momento esta a ensinar e a aprender"

 

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Citação

"Só é feliz, aquele homem que em todo momento esta a ensinar e a aprender"

 

Link to comment
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
 Share

×
×
  • Create New...

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.