Visual Basic

[stellacometa2003]

Qualcuno di voi sa aiutarmi nella codifica in visual basic di un problema che risolve un'equazione di secondo grado?!!

[antonio89x]

Prima di tutto dovresti creare 5 textbox, uno per il coefficiente di x², uno per il coefficiente di x, uno per il termine noto e gli ultimi due per i risultati.
poi dovrai fare anche un command button.

qui di seguito riporto il testo:

Private Sub CommandButton1_Click(Index As Integer)

Dim a, b, c, x1, x2, delta

a = Text1.Text
b = Text2.Text
c = Text3.Text
delta = (b * b) - 4 * (a * c)

x1=(-1*(b)-sqr(del))/2*a
x2=(-1*(b)+sqr(del))/2*a

text4.text="X1= " & x1
text5.text="X2= " & x2

end sub

Non dovrei aver dimenticato niente...
Questo è il programma nella forma più semplice, poi puoi aggiungere quello che voui per "abbellire" il tuo programma.

Io ne ho uno di questo tipo, però un po più complesso e più gradevole alla vista, ma non so come fartelo vedere. Se vuoi ti mando una mail con il mio file o con il programma d'istallazione.

[giuseppe87x]

Potresti inserire anche una struttera select case in modo che il programma ti dica anche quando l'equazione ha due soluzione reali e coincidenti o non ha soluzioni reali...

[antonio89x]

Io ho semplificato al massimo il programma come avevo già detto, però si protrebbero aggiunngere moltissime altre cose.

@stellacometa2003
Una volta ritrovato il mio programma te lo invierò.

Ciao.

[stellacometa2003]

Ok...grazie Antonio!! E poi un'altra cosa...se nel form1 volessi solo inserire i coeff e tramite un bottone trovare le soluzioni e poi attraverso un'altro bottone collegarmi ad un secondo form in cui, appena aperto, vengano visualizzati il valore del delta e della radice, che devo fare,anzi, scrivere???

[antonio89x]

Da quello che ho capito tu vuoi che nel primo form si inseriscano i dati e venga visualizzato il risultato e in un secondo form vengano visualizzati i passaggi.

Beh nel mio programma c'è una cosa simile ma è tutto concentrato in un solo form.

Cmq rispondendo alla tua richiesta ho scritto qui di seguito il codice:


If del > 0 Then
delta.Text = " Risoluzione: delta = b² - 4ac = " & b^2 & " - 4* (" & a & " * " & c & ")" & " = " & del
discussione.Text = " Delta maggiore di zero: Soluzioni reali e disinte"
valore_di_x.Text = " X= ( " & -1 * b & " ± " & Sqr(del) & " ) / " & 2 * a
End If

If del = 0 Then
delta.Text = " Risoluzione: delta = b² - 4ac = " & b^2 & " - 4* (" & a & " * " & c & ")" & " = " & del
discussione.Text = " Delta uguale a zero: Soluzioni reali e coincidenti"
valore_di_x.Text = " X= ( " & -1 * b & " ± " & Sqr(del) & " ) / " & 2 * a
End If

If del < 0 Then
delta.Text = " Risoluzione: delta = b² - 4ac = " & b^2 & " - 4* (" & a & " * " & c & ")" & " = " & del
discussione.Text = " Delta minore di zero: Soluzioni complesse coniugate"
valore_di_x.Text = "Non ci sono soluzioni reali"
End If

Mi sembra di aver fatto tutto bene...
Ovviamente devi prima creare un altro form e poi 3 textbox, rispetivamente con i nomi delta, discussione e valore_di_x.
Al posto di a, b, c andranno messi i nomi dei textbox del form1, quelli con i coefficienti e con il termine noto. La variabile del sarà il delta.

Il codice che ho scritto sopra andra al caricamento del form2, con l'istruzione:

Private Sub Form2_Load()

[Istruzioni...]

End Sub

Per finire dovrai fare un collegamento tra il primo e il secondo form, appunto, tramite il secondo commandbutton con l'istruzione:

Private Sub CommandButton2_Click()

Form2.Show

End Sub

Spero che sia stato chiaro, in caso contrario esponimi i tuoi dubbi.
Ciao!

[antonio89x]

Siccome non riesco a trovare il programma delle equazioni, ne ho fatto uno nuovo molto simile.

Però non conosco il tuo indirizzo e-mail e con questo sito mi pare che non si possano allegare i file quando si vuole mandarla.

Se in qualche modo me lo fai avere ti invierò il mio programma.

Ciao!

[stellacometa2003]

Antonio mi sa che tu volevi utilizzare mathplayer sopra vero?Le formule vanno scritte tra i simboli dollaro $...Cmq...il dubbio che avevo io è il fare apparire subito, al momento dell'apertura del secondo form i valori delta i radice in due text box.Cmq, il mio indirizzo email é [email protected]
Ciao e grazie del tuo prezioso aiuto!

[stellacometa2003]

Wowwwww appena ho scritto il simbolo del dollaro è comparso un macello;in quel macello c'è scritto "cmq..il dubbio che avevo io è il far apparire al momento dell'apertura del secondo form i valori delta e radice in due text box.." poi la mia email.

[antonio89x]

Non ho capito bene cosa intendi???
Io non volevo usare affatto il mathplayer, il codice che ho scritto è interamente in visual basic. Il simbolo & si usa per unire, lo so che può sembrare confusionario a prima vista ma ti assicuro che a vedersi è molto bello. E cmq in alternativa di & puoi usare +.