visual basic

http://informascienze.altervista.org/archivio3/fondax/visuale/indice.html

http://digilander.libero.it/francescovise/visualpre/visapre.htm

http://digilander.libero.it/francescovise/visualpre/legenda.htm

http://digilander.libero.it/francescovise/visualpre/testo1.htm

presentazione powerpoint con codice e oggetti inseriti con visual basic

sistemax.ppt

se attivato , appare codice e finestra per proprietà
usabile per modificare, formattare ecc.conoscendo Visual Basic

per aprire presentazione selezionare come indicato
strumenti-macro-visualbasic editor....esegui-esegui sub/userform
se non si vuole eseguire la presentazione, è possibile copiare il codice
e operare come segue per creare una presentazione simile sul PC
inserendo gli oggetti richiesti (indicati) e incollando il codice fornito

codice da copiare e incollare e oggetti da inserire
2 pulsanti, 6 caselle testo, 6 + 3 etichette
label 1, label 8 facoltative (solo per informazioni)

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

esci
../index.html