sistema lineare con visual basic

esercitazione didattica per ottenere un
programma in visual basic che utilizza
codice fornito da altri e indicazione grafica
per la creazione degli oggetti necessari;

si vede dalla immagine che sono utilizzati :
2 pulsanti
6 caselle di testo
11 etichette(9-10-11 per caption)
dal codice si riconosce che solo alcuni oggetti
vengono (con proprietà) rinominati:
caselle di testo :  ax1, bx1, cx1,ax2,bx2,cx2
etichette :label9,label10,label11, >>>
soluziox, soluzioy, verifica
negli altri oggetti viene solo inserito testo informativo
completata la creazione degli oggetti (formattazione,colore
sono facoltativi),aprire Visualizza-Codice e copiare il
listato del codice fornito; attivare con Esegui-Esegui User Form
inserire i numeri richiesti,cliccare su pulsante per avere
la soluzione, cliccare su altro pulsante per passare ad
altra equazione.
Il programma richiede 6 numeri, calcola determinante sistema
verifica se esistono soluzioni reali o indeterminato o impossibile
visualizza risultato;con pulsante secondo si cancellano
le caselle e risposte e si prepara per altro sistema
riportando il cursore a inizio con ax1.SetFocus

codice da copiare e incollare

rem soluzione sistema lineare
Private Sub CommandButton1_Click()
Dim a1, b1, c1, a2, b2, c2 As Double
Dim x, y, dx, dy, ds As Double
a1 = ax1.Text
b1 = bx1.Text
c1 = cx1.Text
a2 = ax2.Text
b2 = bx2.Text
c2 = cx2.Text
ds = a1 * b2 – a2 * b1
dx = c1 * b2 – c2 * b1
dy = a1 * c2 – a2 * c1
If ds <> 0 Then
x = dx / ds
y = dy / ds
soluziox.Caption = "valore di x =" & x
soluzioy.Caption = "valore di y =" & y
End If
If (ds = 0) And (dx <> 0) And (dy <> 0) Then  verifica.Caption = " sistema impossibile"
If (ds = 0) And (dx = 0) And (dy = 0) Then verifica.Caption = "sistema indeterminato"
End Sub

Private Sub CommandButton2_Click()
ax1 = ""
ax2 = ""
bx1 = ""
bx2 = ""
cx1 = ""
cx2 = ""
soluziox.Caption = ""
soluzioy.Caption = ""
verifica.Caption = ""
ax1.SetFocus
End Sub

per vedere attivato ppt sistema1.ppt

Informazioni su fumarino

interessato ad argomenti scientifici, ambienti naturali, parchi e monti
Questa voce è stata pubblicata in informatica. Contrassegna il permalink.

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...