VB Risolutore di solidi

[MarcoAlberto]

Da ieri mi ronza in testa di fare un programma che risolve i problemi basilari di geometria, partendo dai solidi, sto facendo il cubo con tutte le sue formule in modo che solo con un lato si puo risolvere, non ha avuto molto successo in quando il risultato non appare dove dovrebbe, o meglio non appare proprio
ora posto quello che ho scritto :

Private Sub Lato_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Area_di_base.TextChanged
        Dim Area_laterale As Double
        Dim Area_totale As Double
        Dim Area_di_base As Double
        Dim Lato As Double
        Lato = Area_di_base ^ 0.5
        Lato = Area_laterale Mod 4 ^ 0.5
        Lato = Area_totale Mod 6 ^ 0.5
    End Sub

    Private Sub Area_di_base_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lato.TextChanged
        Dim Area_laterale As Double
        Dim Area_totale As Double
        Dim Area_di_base As Double
        Dim Lato As Double
        Area_di_base = Lato ^ 2
        Area_di_base = Area_laterale Mod 4
        Area_di_base = Area_totale - Area_laterale Mod 2
    End Sub

    Private Sub Area_laterale_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Area_laterale.TextChanged
        Dim Area_laterale As Double
        Dim Area_totale As Double
        Dim Area_di_base As Double
        Dim Lato As Double
        Area_laterale = Area_totale - Area_di_base * 2
        Area_laterale = Area_di_base * 4
        Area_laterale = Lato ^ 2 * 4
    End Sub

    Private Sub Area_totale_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Area_totale.TextChanged
        Dim Area_laterale As Double
        Dim Area_totale As Double
        Dim Area_di_base As Double
        Dim Lato As Double
        Area_totale = Area_laterale + Area_di_base * 2
        Area_totale = Area_di_base * 6
        Area_totale = Lato ^ 2 * 6
    End Sub

Il progetto finale comprende anche piramidi con base triangolare e quadrata parallelepipedi rettangoli e coni.
Plz, mettete solo gli errori e non scrivetelo daccapo tutto che sennò non posso dire con gli amici"l'ho fatto io^^"

Come sempre Grazie a chi risponde,

Bovolino
​

 

[Rhapsody]

Ti giuro avevo letto "Risolutore di soldi" xD
A saperlo non entravo xD
Ma già che ci sono.. credo che il tuo problema è che hai fatto un po' di confusione. Infatti nell'evento che tu chiami "Lato_TextChanged", imposti l'Handles su "Area_di_base.TextChanged", e viceversa in quello che tu chiami "Area_di_base.TextChanged, imposti l'Handles su "Lato_TextChanged". Hai altri problemi?

 

[MarcoAlberto]

Il mio unico problema è che non appare il risultato dove dovrebbe, o meglio, non cambia nulla, scrivo o meno rimanet tutto fermo...
ora provo
Edit : O non ho capito io, o non funziona lo stesso

 

[Rhapsody]

Scusa ma, tu definisci le variabili, assegni un valore... e poi? Cioè, devi dire al programma che deve far visualizzare qualcosa!

 

[MarcoAlberto]

C'è bisogno del pulsante "calcola" solo che non so qual'è il codice per dirgli di farlo, tutto ciò che ho postato è quello che ho scritto fin ora, come glie lo spiego che deve visualizzarlo?
Per le calcolatrici mi pare non sia così... ma posso sbagliare

 

[Yurik94]

Forse è la logica che è errata.
Allora logicamente parlando io farei così:
metto le textbox che mi servono (ti faccio un semplice esempio), ci attacco sopra dell label per descrivere a cosa servono, metto un button calcola.
Nel button calcola dichiaro le variabili che mi servono e le associo alle textbox.
tipo:

dim lato as integer
lato = textbox1.text

poi faccio le mie varie operazioni
dopodichè in un'altra textbox ci scrivo il risultato:

....
calcoli...
...
textboxrisultato.text = risultato

Sottolineo che questo è un mio consiglio, è soltanto un abbozzo.

 

[MarcoAlberto]

UUUUP, andiamo non c'è nessun nabbone in geometria che vuole aiutarmi?
(ho lasciato il topic per un po' perche ho avuto un lutto in famiglia)

 

[Ghost64]

UUUUP, andiamo non c'è nessun nabbone in geometria che vuole aiutarmi?
(ho lasciato il topic per un po' perche ho avuto un lutto in famiglia)

aggiungimi a msn e te lo spiego...

 

[MarcoAlberto]

ok grazie, come ti aggiungo? [email protected]