Roberto VB (Member)
Expert
Messaggi: 419
Iscritto: 29/01/2007
|
Salve, ho fatto un programma che misura i lati di un triangolo e dice se è equilatero, isoscele o scaleno. Ho creato quindi 3 textbox dove l'utente inserisce le dimensioni dei lati.
Però se inserisco nella prima textbox 4, nella seconda 5, e nella terza 4 dice che è equilatero. non so per quale motivo. Vi posto il codice:
Codice sorgente - presumibilmente VB.NET |
'-------Dichiaro le varibili Dim A As Long Dim B As Long Dim C As Long Dim i As Integer '-------Assegno il valore delle Textbox alle variblabili A = Val(txtLato1.Text) B = Val(txtLato2.Text) C = Val(txtLato3.Text) '-------Eseguo i calcoli If A = (B And C) Then MsgBox "Triangolo equilatero", vbInformation txtLato1.Text = "" txtLato2.Text = "" txtLato3.Text = "" ElseIf (A <> B) And (A <> C) And (B <> C) Then MsgBox "Trinangolo scaleno", vbInformation txtLato1.Text = "" txtLato2.Text = "" txtLato3.Text = "" Else MsgBox "Trinagolo isoscele", vbInformation txtLato1.Text = "" txtLato2.Text = "" txtLato3.Text = "" End If
|
Help!
|