Public Class Form1 Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged If RadioButton1.Checked = True Then Me.Hide() Form2.Show() End If End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged If RadioButton2.Checked = True Then Me.Hide() Form3.Show() End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load RadioButton1.Checked = False RadioButton2.Checked = False End Sub End Class
Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Form1.Show() End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load RadioButton1.Checked = False RadioButton2.Checked = False End Sub
TxtResultat.Text = "La Tension est de " & (Nbre1 * Nbre2).tostring & " Volts"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSur le Form1, j'ai mis des RadioButton qui, quand je clique dessus, sont censés me connecter sur le Form demandé, mais hélas quand je lance le programme, j'ai le droit à un message d'erreur.
Public Class Form1 Private Sub RbU_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RbU.CheckedChanged Me.Close() Form2.Show() End Sub Private Sub RbI_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RbI.CheckedChanged Me.Close() Form3.Show() End Sub Private Sub RbR_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RbR.CheckedChanged Me.Close() Form4.Show() End Sub Private Sub RbP_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RbP.CheckedChanged Me.Close() Form5.Show() End Sub Private Sub BtnQuitter_Click(sender As System.Object, e As System.EventArgs) Handles BtnQuitter.Click Me.Close() End Sub End Class
Public Class Form2 Dim U, I, R, P As Single Private Sub RbRI_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RbRI.CheckedChanged Lbl1.Text = "Résistance en Ohms" Lbl2.Text = "Intensité en Ampères" R = Txt1.Text I = Txt2.Text TxtResultat.Text = "La Tension est de " & (R * I).ToString & " Volts" End Sub Private Sub RbPR_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RbPR.CheckedChanged Lbl1.Text = "Puissance en Watts" Lbl2.Text = "Résistance en Ohms" P = Txt1.Text R = Txt2.Text TxtResultat.Text = "La Tension est de " & (Math.Sqrt(P * R)).ToString & " Volts" End Sub Private Sub RbPI_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RbPI.CheckedChanged Lbl1.Text = "Puissance en Watts" Lbl2.Text = "Intensité en Ampères" P = Txt1.Text I = Txt2.Text TxtResultat.Text = "La Tension est de " & (P / I).ToString & " Volts" End Sub Private Sub BtnSortirTension_Click(sender As System.Object, e As System.EventArgs) Handles BtnSortirTension.Click Form1.Show() End Sub End Class
Public Class Form3 Dim U, I, R, P As Single Private Sub RbITP_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RbITP.CheckedChanged Lbl1.Text = "Tension en volts" Lbl2.Text = "Puissance en Watts" U = Txt1.Text P = Txt2.Text TxtResultat.Text = "L'intensité est de " & (P / U).ToString & " Ampères" End Sub Private Sub RbIPR_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RbIPR.CheckedChanged Lbl1.Text = "Puissance en Watts" Lbl2.Text = "Résistance en Ohms" P = Txt1.Text R = Txt2.Text TxtResultat.Text = "L'intensité est de " & Math.Sqrt(P / R).ToString & " Ampères" End Sub Private Sub RbITR_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RbITR.CheckedChanged Lbl1.Text = "Tension en Volts" Lbl2.Text = "Résistance en Ohms" U = Txt1.Text R = Txt2.Text TxtResultat.Text = "L'intensité est de " & (U / R).ToString & " Ampères" End Sub Private Sub BtnSortirIntensité_Click(sender As System.Object, e As System.EventArgs) Handles BtnSortirIntensité.Click Form1.Show() End Sub End Class
Public Class Form4 Dim U, I, R, P As Single Private Sub RbRPI_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RbRPI.CheckedChanged Lbl1.Text = "Puissance en Watts" Lbl2.Text = "Intensité en Ampères" P = Txt1.Text I = Txt2.Text TxtResultat.Text = "La résistance est de " & (P / (I * I)).ToString & " Ohms" End Sub Private Sub RbRTI_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RbRTI.CheckedChanged Lbl1.Text = "Tension en Volts" Lbl2.Text = "Intensité en Ampères" U = Txt1.Text I = Txt2.Text TxtResultat.Text = "La résistance est de " & (U / I).ToString & " Ohms" End Sub Private Sub RbRTP_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RbRTP.CheckedChanged Lbl1.Text = "Tension en Volts" Lbl2.Text = "Puissance en Watts" U = Txt1.Text P = Txt2.Text TxtResultat.Text = "La résistance est de " & ((U * U) / P).ToString & " Ohms" End Sub Private Sub BtnSortirRésistance_Click(sender As System.Object, e As System.EventArgs) Handles BtnSortirRésistance.Click Form1.Show() End Sub End Class
Public Class Form5 Dim U, I, R, P As Single Private Sub RbPTR_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RbPTR.CheckedChanged Lbl1.Text = "Tension en Watts" Lbl2.Text = "Résistance en Ohms" U = Txt1.Text R = Txt2.Text TxtResultat.Text = "La puissance est de " & ((U * U) / R).ToString & " Watts" End Sub Private Sub RbPTI_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RbPTI.CheckedChanged Lbl1.Text = "Tension en Volts" Lbl2.Text = "Intensité en Watts" U = Txt1.Text I = Txt2.Text TxtResultat.Text = "La puissance est de " & (U * I).ToString & " Watts" End Sub Private Sub RbPRI_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RbPRI.CheckedChanged Lbl1.Text = "Résistance en Ohms" Lbl2.Text = "Intensité en Ampères" R = Txt1.Text I = Txt2.Text TxtResultat.Text = "La puissance est de " & (R * (I * I)).ToString & " Watts" End Sub Private Sub BtnSortirPuissance_Click(sender As System.Object, e As System.EventArgs) Handles BtnSortirPuissance.Click Form1.Show() End Sub End Class
Je vous poste mon programme et vous me direz que que vous en pensez.
l'erreur apparaît quand j'appuie sur F5.
Bonjour monsieur, ma voiture elle marche pas !
Bien monsieur, on va réparer ça !
Bonjour monsieur, ma voiture à décider de me faire ch... ce matin
Elle c'est levé du pied gauche et, elle veux pas faire mon café !
Bien monsieur, ont va remédier à ce problèmes, nous allons lui botter le cul et la foutre à la fourrière
et vous, on va vous trouver un bon médecin qui saura traité votre problème plutôt inquiétant !
Alors soit clair ou ont pourra rien pour toi