Assolutamente si, Francesco... Il copia e incolla funziona, come
testimonia il 'paste' qui sotto:
Dim L, B, N, I, F, G, A, P, Q, M, W As Double
Dim Res As String
Predimensionamento.Risultati.text=App.RisultatiInizio
L=CDbl(MainWindow.EditField1.text)
P=CDbl(MainWindow.EditField2.text)
A=CDbl(MainWindow.EditField4.text)
B=CDbl(MainWindow.EditField3.text)
N=CDbl(MainWindow.EditField7.text)
F=P+A+N ' carico di progetto
if App.Normativa=2 then
F=1.4*P+1.5*A+1.05*N ' carico di progetto
Predimensionamento.Risultati.text=ReplaceAll
(Predimensionamento.Risultati.text,"cp$","1,4 "+format(P,"#.##0"))
Predimensionamento.Risultati.text=ReplaceAll
(Predimensionamento.Risultati.text,"ca$","1,5 "+format(A,"#.##0"))
Predimensionamento.Risultati.text=ReplaceAll
(Predimensionamento.Risultati.text,"cn$","1,05 "+format(N,"#.##0"))
end if
Q=F*B ' carico su trave
Il problema si propone quando hai un progetto intero da metter su
carta.. Non è pensabile fare il copia e incolla per tutte le varie
'procedure', metodi e altro... Si correrebbe il rischio di
dimenticarne qualcuna...
Tutorial... Credimi, il più sprovveduto del nug, ne sa moooolto, ma
mooolto più di me. Non credo di poter insegnare nulla... E comunque
grazie per la (malriposta) stima...
A presto e, scusate ancora per lo sfogo.
Lucio
|