vbalavoro

vedi vbalavoro.xls

esercitazione con VBA su Excel e soluzione problemi su lavoro con corpo vincolato
con forza e spostamento nella stessa direzione o con angolo diverso da 0 e da 90
con corpo lungo un piano inclinato o su percorso verticale:uguaglianza di lavoro
inserire dati:forza, spazio, altezza

calcolato L = F*s......F*s*cos(alfa)....F*h....F*s*sin(alfa)

codice da copiare e incollare(come vedi spiega1.htm) disegni da eseguire da parte di utente
su foglio ove avrà creato due pulsanti e inserito codice

Private Sub CommandButton1_Click()
Rem lavoro e percorso
Cells(1, 1) = "forza in newton in 1,2"
Cells(2, 1) = "percorso in metri in 2,2"
Cells(3, 1) = "lavoro in joule L = F*s in 3,2"
Cells(3, 2) = Cells(1, 2) * Cells(2, 2)
Cells(5, 1) = "inserire forza, spostamento, angolo alfa"
Cells(6, 1) = "forza in 6,2)"
Cells(7, 1) = "spostamento in 7,2"
Cells(8, 1) = "angolo alfa in 8,2"
Cells(9, 1) = "alfa in radianti in 9,2"
Cells(9, 2) = Cells(8, 2) * 3.14 / 180
Cells(10, 1) = "coseno alfa in 10,2"
Cells(10, 2) = Cos(Cells(9, 2))
Cells(11, 1) = " lavoro = F * s * cos(alfa) in 11,2"
Cells(11, 2) = Cells(6, 2) * Cells(7, 2) * Cells(10, 2)
Cells(13, 1) = "percorso verticale o su piano inclinato:Lv = Lp"
Cells(14, 1) = "inserire forza peso,altezza,lunghezza"
Cells(15, 1) = "forza peso in 15,2)"
Cells(16, 1) = "altezza in 16,2"
Cells(17, 1) = "lunghezza in 17,2"
Cells(18, 1) = "calcolo seno alfa 18,2"
Cells(18, 2) = Cells(16, 2) / Cells(17, 2)
Cells(21, 1) = "lavoro lungo il piano L=F*s*sin(alfa) in 21,2"
Cells(21, 2) = Cells(15, 2) * Cells(17, 2) * Cells(18, 2)
Cells(22, 1) = "lavoro lungo la verticale L=F*h in 22,2"
Cells(22, 2) = Cells(15, 2) * Cells(16, 2)
End Sub

Private Sub CommandButton2_Click()
Rem cancellare
For riga = 1 To 22
Cells(riga, 2) = 1
Next riga
End Sub

inseriti forza e spazio, calcolato lavoro
(appare anche altro risultato che utilizza dati associati a pulsante cancella:non badarci...)