Dúvida em VB

Question

Ol&aacute; pessoal,
 
Algu&eacute;m pode tirar essa du&uacute;vida b&aacute;sica pra mim?
 
Minha intens&atilde;o &eacute; inserir um n&uacute;mero em um inputox 
Mas enquanto o valor do input for nulo continua pedindo o n&uacute;mero
 
Ex

Private Sub Form_Activate()
 
Dim nome As String
Dim ra As Integer
 
Do While nome = 
nome = InputBox( NOME DO ALUNO)
LabelNome.Caption = nome
Loop
 
Do While ra = Null
ra = InputBox( RA DO ALUNO )
LabelRA.Caption = ra
Loop
End Sub

o primeiro loop da certo mas o segundo n&atilde;o.O erro deve estar na condi&ccedil;&atilde;o...Se algu&eacute;m puder ajudar...
 
Valew

Answer

ra &eacute; um numero? j&aacute; tentou comparando com 0?

Answer

Dim nome As String
     
    Do While nome = 
        nome = InputBox( NOME DO ALUNO)
        LabelNome.Caption = nome
    Loop
     
    nome = 
    
    Do While nome = 
        nome = InputBox( RA DO ALUNO )
        LabelRA.Caption = nome
    Loop

Somente uma vari&aacute;vel do tipo string j&aacute; &eacute; o suficiente nesse caso.

Answer

Cuidado que com esse c&oacute;digo o seu programa vai ficar no loop mesmo se o usu&aacute;rio clicar em Cancel (ou seja, a tela do InputBox nunca vai sumir, a n&atilde;o ser que voc&ecirc; escreva qualquer coisa l&aacute; para entrar na condi&ccedil;&atilde;o). 
Para verificar se o usu&aacute;rio cancelou a opera&ccedil;&atilde;o &eacute; necess&aacute;rio checar pelo ponteiro da v&aacute;ri&aacute;vel que recebe o retorno do InputBox.

Isso &eacute; feito por uma fun&ccedil;&atilde;o n&atilde;o documentada do VB que retorna o endere&ccedil;o de uma string em UNICODE, chamada StrPtr(). Se ela retornar zero &eacute; porque o usu&aacute;rio cancelou o inputbox.

Dim nome As String
    
Do While (nome = )
    nome = InputBox( NOME DO ALUNO)
    
    If StrPtr(nome) = 0 Then Exit Do
    LabelNome.Caption = nome
LoopFergo

Answer

aproveitando o assunto da mensagem do fergo, deixo minha pergunta aqui...
 
Como eu fa&ccedil;o pra um loop iniciado com o click de um bot&atilde;o seja interrompido pelo outro, por exemplo dois bot&otilde;es, um play_loop e outro stop_loop?
 
vlw

Answer

[quote=thomas.vilhena, post: 3616815]aproveitando o assunto da mensagem do fergo, deixo minha pergunta aqui...
 
Como eu fa&ccedil;o pra um loop iniciado com o click de um bot&atilde;o seja interrompido pelo outro, por exemplo dois bot&otilde;es, um play_loop e outro stop_loop?
 
vlw[/QUOTE]

Uma maneira POG seria criar uma variavel global PARA que seja setada True quando vc apertar o bot&atilde;o de stop. o loop que o play dispara verifica se Para &eacute; true ou n&atilde;o (o default seria False).

&Eacute; gambiarra pura. O correto seria fazer threads para isso, enviando mensagens mas eu n&atilde;o conhe&ccedil;o como o VB faz isso. Em flash vc adicionaria um handler associado ao clique dos bot&otilde;es para para ou continuar um video, o principio deveser o mesmo para VB s&oacute; deve mudar a sintaxe.

Veja se ja n&atilde;o existe o componente que vc quer criar :)

Answer

[quote=thomas.vilhena, post: 3616815]aproveitando o assunto da mensagem do fergo, deixo minha pergunta aqui...
 
Como eu fa&ccedil;o pra um loop iniciado com o click de um bot&atilde;o seja interrompido pelo outro, por exemplo dois bot&otilde;es, um play_loop e outro stop_loop?
 
vlw[/quote]

Voc&ecirc; utilizar uma vari&aacute;vel booleana e utilizar ela na condi&ccedil;&atilde;o. Algo como:

[code=rich]
[COLOR=Blue]Dim [/COLOR]booClicou [COLOR=Blue]As Boolean[/COLOR]
[COLOR=Blue]
Private Sub[/COLOR] Command1_Click()
    [COLOR=Blue]Do While Not[/COLOR] booClicou
        [COLOR=Green]'[/COLOR][COLOR=Green]algum codigo aqui dentro[/COLOR]
        DoEvents
[COLOR=Blue]    Loop
End Sub[/COLOR]

[COLOR=Blue]Private Sub[/COLOR] Command2_Click()
    booClicou = [COLOR=Blue]True[/COLOR]
[COLOR=Blue]End Sub[/COLOR]
[/code]O DoEvents &eacute; necess&aacute;rio para reservar um tempo de processamento para responder as mensagens do Windows, como cliques em bot&otilde;es, mover janela, etc. De forma resumida, ele evita que o programa fique pendente no sistema e pare de responder ao entrar no loop.

O VB6 gerencia as threads automaticamente e n&atilde;o h&aacute; uma forma nativa de gerar novas threads, ent&atilde;o esse &eacute; o m&eacute;todo que sobra (mas n&atilde;o considero gambiarra).

Fergo

Answer

Eu tinha tentado uma vez fazer o que o peczenyj falou, mas dava pau na aplica&ccedil;&atilde;o pq n&atilde;o era poss&iacute;vel executar a sub do outro bot&atilde;o enquanto o loop n&atilde;o acabasse.
Foi s&oacute; colocar esse DoEvents que o Fergo comentou no loop que a id&eacute;ia do peczenyj passa a funcionar.
Caso algu&eacute;m venha a ler esse t&oacute;pico com a mesma d&uacute;vida, no VB .NET o 
[size=4]Application.DoEvents() [/SIZE]&eacute; equivalente ao DoEvents do VB 6.
 
flw

Ferramentas

Mover Tópico