[Resolvido] comando para retroceder

[webdesign 1]

alguem me pode dizer o comando para retroceder,tenho 2 forms do 2 form queria ir para o principal como faço?

[KhaosDoctor 242]

Form1.show

Me.close

[webdesign 1]

Form1.show

Me.close

 

excelente obrigado

 

Tenho outra duvida tenho este codigo

 texts = txt_Rotacao.Text
   	Dc = txt_diametro.Text
   	rotaMaxima = txt_Rotacao.Text
   	Rot = você / Pi / Dc





   	If Dc = 16 Then
       	avanco = Rot * 0.17
   	ElseIf Dc = 20 Then
       	avanco = Rot * 0.2
   	ElseIf Dc = 25 Then
       	avanco = Rot * 0.23
   	ElseIf Dc = 30 Then
       	avanco = Rot * 0.28
   	ElseIf Dc = 40 Then
       	avanco = Rot * 0.34


   	End If
   	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

 

 

eu queria um caixa de texto caso nao digita-se nada na rotaçao e no diametro ele dese uma mensagem com "parametros indisponiveis"

 

 

e outra caixa de texto imagine se digitar este valores no diametro 16,20,25,30,40 ele faz o calculo....queria se colocasse outros valores diferentes dos que digitei desse erro parametros indisponives

[KhaosDoctor 242]

Com relação a primeira pergunta faça assim:

 

 

if not txt_rotacao.text = "" or txt_diametro.text = "" Then 

texts = txt_Rotacao.Text
       Dc = txt_diametro.Text
       rotaMaxima = txt_Rotacao.Text
       Rot = você / Pi / Dc





       If Dc = 16 Then
               avanco = Rot * 0.17
       ElseIf Dc = 20 Then
               avanco = Rot * 0.2
       ElseIf Dc = 25 Then
               avanco = Rot * 0.23
       ElseIf Dc = 30 Then
               avanco = Rot * 0.28
       ElseIf Dc = 40 Then
               avanco = Rot * 0.34


       End If
       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

else

MsgBox("Parametros indisponiveis")

End if

 

 

Não entendi a segunda questão

[webdesign 1]

Com relação a primeira pergunta faça assim:

 

 

if not txt_rotacao.text = "" or txt_diametro.text = "" Then 

texts = txt_Rotacao.Text
       Dc = txt_diametro.Text
       rotaMaxima = txt_Rotacao.Text
       Rot = você / Pi / Dc





       If Dc = 16 Then
               avanco = Rot * 0.17
       ElseIf Dc = 20 Then
               avanco = Rot * 0.2
       ElseIf Dc = 25 Then
               avanco = Rot * 0.23
       ElseIf Dc = 30 Then
               avanco = Rot * 0.28
       ElseIf Dc = 40 Then
               avanco = Rot * 0.34


       End If
       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

else

MsgBox("Parametros indisponiveis")

End if

 

 

Não entendi a segunda questão

 

 

nao funcionou, coloquei esse codigo e em algum momento ele deu ..tenho a caixa de texto para diametro e outro para rotação o que quero é caso nao digite nada na rotaçao erro parametro indisponivel e no diametro igual....

 

 

agora na 2 questao como vê no codigo eu coloquei dc =20 dc=25 etc..o que disse foi se digitar aquele valor diametro 20 entao ele calcula,se digitar outros valores que nao coloquei no codigo ele da erro ? Espero que me possa ajudar

 

 

  Dim você As Integer = 72000
Const Pi As Double = 3.14159265358979
Dim Dc As Decimal
Dim rotaMaxima As Decimal
Dim Rot As Decimal
Dim avanco As Decimal
Dim texts As Decimal

Private Sub Multiplex_MD_1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


End Sub

Private Sub Btn_calcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_calcular.Click

   	texts = txt_Rotacao.Text
   	Dc = txt_diametro.Text
   	rotaMaxima = txt_Rotacao.Text
   	Rot = você / Pi / Dc






   	If Dc = 16 Then
       	avanco = Rot * 0.17
   	ElseIf Dc = 20 Then
       	avanco = Rot * 0.2
   	ElseIf Dc = 25 Then
       	avanco = Rot * 0.23
   	ElseIf Dc = 30 Then
       	avanco = Rot * 0.28
   	ElseIf Dc = 40 Then
       	avanco = Rot * 0.34


   	End If
   	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

[KhaosDoctor 242]

Na primeira pergunta ele não tem como dar errado, eu englobei todo o código com um if de verificação apenas, o que ocorre?

 

Na segunda questão o que você precisa fazer é adicionar outro else:

 

 

If Dc = 16 Then
               avanco = Rot * 0.17
       ElseIf Dc = 20 Then
               avanco = Rot * 0.2
       ElseIf Dc = 25 Then
               avanco = Rot * 0.23
       ElseIf Dc = 30 Then
               avanco = Rot * 0.28
       ElseIf Dc = 40 Then
               avanco = Rot * 0.34
Else
Msgbox("Parametro incorreto")

       End If

 

[webdesign 1]

resolvido amigo

 

 

cara é possivel colocar uma imagem numa msgbox?

[KhaosDoctor 242]

Creio que não, você teria que montar uma msgbox personalizada para tal fim.