como posso colocar estas 2 variaveis no mesmo show

[webdesign 1]

como posso colocar estas 2 variaveis no mesmo show.

MessageBox.Show("A Rotação é: " & Rot.ToString("F0"), "Parametros de Corte")
   	MessageBox.Show("A avanço é: " & rotaMaxima.ToString("F0"), "Parametros de Corte")

 

 

sem colocar 2 message box

[KhaosDoctor 242]

MessageBox.show("A rotação é: " & Rot.ToString("F0") & vbCrLF & "O avanço é: " &  rotamaxima.ToString("F0"), "Parâmetros de corte")

 

Ao invés de vbCrLF você pode usar Environment.NewLine

[webdesign 1]

MessageBox.show("A rotação é: " & Rot.ToString("F0") & vbCrLF & "O avanço é: " &  rotamaxima.ToString("F0"), "Parâmetros de corte")

 

Ao invés de vbCrLF você pode usar Environment.NewLine

 

obrigado cara já consegui fazer aquilo que queria até em relação ao if..

Agora tenho outra duvida!?

vou postar o meu codigo

 

 

Variaveis

Dim você As Integer = 90000.0
Dim Pi As Decimal = 3.14
Dim Dc As Decimal
Dim rotaMaxima As Decimal
Dim Rot As Decimal
Dim avanco As Decimal = 0.25
Dim texts As Decimal

 

As contas

 

 texts = txt_Rotacao.Text
   	Dc = txt_diametro.Text
   	rotaMaxima = txt_Rotacao.Text


   	Rot = você / Pi / Dc
   	avanco = Rot * avanco
   	rotaMaxima = rotaMaxima * avanco / Rot

   	If texts < Rot Then
       	MessageBox.Show("Atenção rotação Superior ao limite,os valores vao ser ajustados" & vbCrLf & "A rotação é: " & texts.ToString("F0") & vbCrLf & "O avanço é: " & rotaMaxima.ToString("F0"), "Parâmetros de corte")
   	ElseIf texts > Rot Then
       	MessageBox.Show("Parametros de fábrica" & vbCrLf & "A rotação é: " & Rot.ToString("F0") & vbCrLf & "O avanço é: " & avanco.ToString("F0"), "Parâmetros de corte")
   	End If

 

O que queria Fazer era se tivesse colocado na caixa de diametro 10 esse valor era multiplicado por 0.04 se colocasse um diametro de 5 esse valor era multiplicado por 0.02 assim sucessivamente..

A variavel que multiplica esse valor "Dim avanco As Decimal = 0.25" Porque coloquei esse valor a unha como poderei fazer issu para cada diametro

[KhaosDoctor 242]

O 0,25 não vale para todos?

[webdesign 1]

O 0,25 não vale para todos?

 

nao cara...Cada diâmetro tem uma multiplicação, definido de origem...como faço então para cada diâmetro 5to6,6to7...de me só um exemplo que depois tento aplicar...obrigado

[KhaosDoctor 242]

Ah sim entendi, qual é a regra de multiplicação para cada diametro, como o exemplo que você deu sendo 10 para 0,04 e 5 para 0,02 existe um valor principal e deste valor podemos deduzir outros?

[webdesign 1]

Ah sim entendi, qual é a regra de multiplicação para cada diametro, como o exemplo que você deu sendo 10 para 0,04 e 5 para 0,02 existe um valor principal e deste valor podemos deduzir outros?

Imagine , a variável rot vai multiplicar pela variável avanco se for digitado o valor de diâmetro entre 9 a10 ela multiplica por 0.25.não sei se me expliquei bem.a questão é como conseguir só numa variável visto que coloquei o , 0.25 variável avanço para experimentar ,mas assim não executa se o diâmetro for 5 e 6,multiplica por 0.15.

[KhaosDoctor 242]

if diametro >= 9 And Diametro <= 10 Then


rot*avanço*0.25 //Não sei a conta exata

ElseIf Diametro >=5 AndAlso Diametro <=6 Then

Rot*avanço*0.15

ElseIf Diametro >= <umvalor> AndAlso Diametro <= <outroValor> Then

//Conta

End If

 

[webdesign 1]

if diametro >= 9 And Diametro <= 10 Then


rot*avanço*0.25 //Não sei a conta exata

ElseIf Diametro >=5 AndAlso Diametro <=6 Then

Rot*avanço*0.15

ElseIf Diametro >= <umvalor> AndAlso Diametro <= <outroValor> Then

//Conta

End If

 

 

kaos é mesmo issu mas ele dá me os seguinte erro nesta linha

Rot * 0.25

ele diz "expression is not a method"

o total desta conta Rot = você / Pi / Dc a multiplicar pelo 0.25.Foi assim que fiz e deu aquele erro..

está assumir o que está fora do if

   	texts = txt_Rotacao.Text
   	Dc = txt_diametro.Text
   	rotaMaxima = txt_Rotacao.Text

   	Rot = você / Pi / Dc
   	avanco = Rot * avanco
   	rotaMaxima = rotaMaxima * avanco / Rot

   	If texts >= 9 And texts <= 10 Then
       	Rot * 0.25
   	ElseIf texts >= 5 AndAlso texts <= 6 Then
       	MessageBox.Show(avanco * 0.35)

   	End If


   	If texts < Rot Then
       	MessageBox.Show("Atenção rotação Superior ao limite,os valores vao ser ajustados" & vbCrLf & "A rotação é: " & texts.ToString("F0") & vbCrLf & "O avanço é: " & rotaMaxima.ToString("F0"), "Parâmetros de corte")
   	ElseIf texts > Rot Then
       	MessageBox.Show("Parametros de fábrica" & vbCrLf & "A rotação é: " & Rot.ToString("F0") & vbCrLf & "O avanço é: " & avanco.ToString("F0"), "Parâmetros de corte")
   	End If

[KhaosDoctor 242]

É porque você precisa jogar esses resultados para uma variável.

 

Crie uma variavel e coloque os resultados nela desta forma:

 

variavel = Rot * 0.25