para New

[Ph3rnando 0]

Bom dia pessoal. estou com algumas duvidas bem simples tenho que fazer um "programa" para a facu para entregar depois das ferias ou seja na quinta mais nao estou conseguindo fazer o processo certo. Tenho dois campos no qual o usuario digita dois valores tenho que analizar qual e o maior, depois apresentar em outro campo as sequencias de numeros do menor ate o maior deles .Tenho o seguinte condigo no botao "X".

 

Private Sub SQ_Click()

If Val(Txtn1.Text) < Val(Txtn2.Text) Then

Do While Val(Txtn1.Text) < Val(Txtn2.Text)

Txtsh = Txtn1

Txtn1 = Txtn1.Text + 1

Loop

ElseIf Val(Txtn2.Text) < Val(Txtn1.Text) Then

Do While Val(Txtn2.Text) < Val(Txtn1.Text)

Txtsh = Txtn2

Txtn2 = Val(Txtn2.Text) + 1

Loop

End If

 

End Sub

 

O que acontece he o seguinte os campos 1 e 2 ficam com o valor mais alto e o campos que deveria apresentar os numeros em sequencia apresenta um numero abaixo. Tipo

digite o 1 º numero: 10 depois de executado o programa :15

Digite o 2º numero: 15 depois de executado o programa : 15

Botao X

Resultado : " " depois de executado o prgrama :14

 

Valeu a todos!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[scorpio 7]

txtsh.Text & "-" & txtn1.Text

txtn1.Text = txtn1.Text + 1

Loop

ElseIf Val(txtn2.Text) < Val(txtn1.Text) Then

Do While Val(txtn2.Text) < Val(txtn1.Text)

txtsh.Text = txtsh.Text & "-" & txtn2.Text

txtn2.Text = Val(txtn2.Text) + 1

Loop

End If

 

End Sub _linenums:0'>Private Sub SQ_Click()txtsh.Text = EmptyIf Val(txtn1.Text) < Val(txtn2.Text) ThenDo While Val(txtn1.Text) < Val(txtn2.Text)txtsh.Text = <strong class='bbc'>txtsh.Text & "-" & </strong>txtn1.Texttxtn1.Text = txtn1.Text + 1LoopElseIf Val(txtn2.Text) < Val(txtn1.Text) ThenDo While Val(txtn2.Text) < Val(txtn1.Text)txtsh.Text = <strong class='bbc'>txtsh.Text & "-" & </strong>txtn2.Texttxtn2.Text = Val(txtn2.Text) + 1LoopEnd IfEnd Sub

 

 

 

acho que é isso que você quer certo? se não for, posta ae beleza?

 

 

aquele '&' serve pra junta duas strings tp

 

nome1= "Maria "

nome2="da Silva"

 

msgbox nome1 & nome2

 

o resultado vai ser "Maria da Silva"

 

flw

 

 

abraços

[Ph3rnando 0]

txtsh.Text & "-" & txtn1.Text

txtn1.Text = txtn1.Text + 1

Loop

ElseIf Val(txtn2.Text) < Val(txtn1.Text) Then

Do While Val(txtn2.Text) < Val(txtn1.Text)

txtsh.Text = txtsh.Text & "-" & txtn2.Text

txtn2.Text = Val(txtn2.Text) + 1

Loop

End If

 

End Sub _linenums:0'>Private Sub SQ_Click()txtsh.Text = EmptyIf Val(txtn1.Text) < Val(txtn2.Text) ThenDo While Val(txtn1.Text) < Val(txtn2.Text)txtsh.Text = <strong class='bbc'>txtsh.Text & "-" & </strong>txtn1.Texttxtn1.Text = txtn1.Text + 1LoopElseIf Val(txtn2.Text) < Val(txtn1.Text) ThenDo While Val(txtn2.Text) < Val(txtn1.Text)txtsh.Text = <strong class='bbc'>txtsh.Text & "-" & </strong>txtn2.Texttxtn2.Text = Val(txtn2.Text) + 1LoopEnd IfEnd Sub

 

 

 

acho que é isso que você quer certo? se não for, posta ae beleza?

 

 

aquele '&' serve pra junta duas strings tp

 

nome1= "Maria "

nome2="da Silva"

 

msgbox nome1 & nome2

 

o resultado vai ser "Maria da Silva"

 

flw

 

 

abraços

He isso mesmo !!!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif no Txtsh aparece a sequencia certa!! M

ais nos campos Txtn1 e Txtn2 os campos ficam com o valor mais alto tem como arrumar isso?

Valeu mesmo pela Atenção.

[scorpio 7]

Você ta falando de qndo ( EX) o txtn1(10) é menor que o txtn2(20), dai o txtn1 passa a ser 20?se for isso você cria uma variavel e você soma '+ 1' nela, e não no txtpor que fazendo desse jeito, se o valor do txt é 1, somando um ele passa a ser dois....etc.txtn1.Text = txtn1.Text + 1então você cria duas variaveis poe o valor dos txt nelas..beleza?!flwabraços

[Ph3rnando 0]

He isso mesmo mais nao estou conseguindo declarar a varialvel sem um label ou campo txt. posso enviar um - email com os meus progrmas.Valeu mesmo (§¢ö®Þ¡ö