Discussione: VBA imparare a programmare :-)
-
18-01-11, 15:17 #41
- Data Registrazione
- Jun 2010
- Messaggi
- 205
Qualcuno ha iniziato a compilare qualche programmino ?
-
18-01-11, 16:29 #42
- Data Registrazione
- Apr 2008
- Messaggi
- 4,076
Non avevo notato la tua informazione sui corsi video di VB.
Grazie perchè da come ho visto potrebbe essere la volta buona che qualche mio figlio inizi a dedicarcisi.
-
18-01-11, 16:36 #43
- Data Registrazione
- Jun 2010
- Messaggi
- 205
-
19-01-11, 12:28 #44
- Data Registrazione
- Jun 2010
- Messaggi
- 205
Comincio da qui
semplice programma per il calcolo della deviazione standard 1 e DS 2
dati da inserire Vola implicita dell opzione put AT e close del Indice (come da istruzioni AZ13 ;-)
link al solito sara solo per 10 downlad
http://rapidshare.com/files/44338545...niStandard.zipUltima modifica di IronMAn; 19-01-11 alle 12:33
-
19-01-11, 14:25 #45
- Data Registrazione
- Jun 2010
- Località
- Modena
- Messaggi
- 117
All'uomo irrazionale interessa solamente avere ragione. All'uomo razionale interessa imparare.
-
19-01-11, 19:00 #46
- Data Registrazione
- Jun 2010
- Messaggi
- 205
-
19-01-11, 19:47 #47
- Data Registrazione
- Apr 2010
- Messaggi
- 362
Iron, ma che ne pensi di un soggiornino gratuito in toscana, giusto il tempo di farmi un corso accellerato di programmazione?
A parte gli scherzi, senza sporcare il thread, dove posso contattarti in caso di bisogno? skype, messenger, posta elettronica o quant'altro?Chi vola vale, chi vale vola, chi non vola è un vile! (cit. Grunf)
Il prezzo? Un affarone!!! (cit. Conte Oliver)
-
20-01-11, 07:59 #48
- Data Registrazione
- Jun 2010
- Messaggi
- 205
reinserisco anche il programmino di esempio
http://www.filedropper.com/deviazionistandard
Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
TextBox2.Text = Val(TextBox1.Text) / (Math.Sqrt(252))
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
Dim range As Integer
range = Val(TextBox3.Text) * Val(TextBox2.Text) / 100
Label4.Text = Val(TextBox3.Text) + range
Label5.Text = Val(TextBox3.Text) + range + range
Label6.Text = Val(TextBox3.Text) - range
Label7.Text = Val(TextBox3.Text) - range - range
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
End Sub
End ClassUltima modifica di IronMAn; 20-01-11 alle 08:03
-
20-01-11, 08:07 #49
- Data Registrazione
- Jun 2010
- Messaggi
- 205
Ultima modifica di IronMAn; 20-01-11 alle 08:20
-
23-01-11, 23:53 #50
- Data Registrazione
- Apr 2008
- Messaggi
- 4,076
La domanda è più che sensata!