[Release]Salvadanaio & Resoconto

Stato
Discussione chiusa ad ulteriori risposte.
Ordina per data Ordina commenti per reazioni
I

iRo

Utente Silver
25 Gennaio 2012
52
10
14
74
Salve a tutti.
Prima di tutto voglio precisare che questo programma l'ho scritto quasi 2 anni fa :p

Visto che avevo necessità di un salvadanaio che mi dava un resoconto di quello che ci avevo dentro ho deciso di creare questo piccolo programma.

Ora che l'ho completato lo condivido con voi.
Vi allego sia degli screen che l'intero progetto.

Ps: Ho scritto questo programma di fretta e furia, quindi è fatto male e ci potrebbero essere errori
asd.gif


​
Screen:

​
immagine2yj.png


Chi volesse puo anche levare la funzionalità di richiedere la pass
wink1.gif


immagine1ld.png




Source:

​

Login:​
Codice: 
[COLOR=#FF8000][LEFT][FONT=Monaco]      Public [/FONT][COLOR=#0600FF][FONT=Monaco]Class [/FONT][/COLOR][COLOR=#000000][FONT=Monaco]Form1[/FONT][/COLOR][/LEFT]
[/COLOR][COLOR=#000000] 
    [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000] Button1_Click([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] sender [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#FF0000]Object[/COLOR][COLOR=#000000], [/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] e [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#0000FF]EventArgs[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Handles[/COLOR][COLOR=#000000] Button1.[/COLOR][COLOR=#0000FF]Click[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000] TextBox1.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#808080]"inserisci la pass"[/COLOR][COLOR=#FF8000]Then[/COLOR][COLOR=#000000]
            Form2.[/COLOR][COLOR=#0000FF]Show[/COLOR][COLOR=#000000]()
            [/COLOR][COLOR=#FF8000]Me[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0600FF]Hide[/COLOR][COLOR=#000000]()
        [/COLOR][COLOR=#FF8000]Else[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#0600FF]MsgBox[/COLOR][COLOR=#000000]([/COLOR][COLOR=#808080]"La password inserita non è corretta."[/COLOR][COLOR=#000000])
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]Sub[/COLOR]
[LEFT][COLOR=#0600FF][FONT=Monaco]End[/FONT][/COLOR][COLOR=#0600FF][FONT=Monaco]Class[/FONT][/COLOR][/LEFT]

Form1​
Codice: 
[COLOR=#000000]
[/COLOR][COLOR=#0600FF][LEFT][FONT=Monaco]Imports[/FONT][/LEFT]
[/COLOR][COLOR=#000000][LEFT][FONT=Monaco] System.[/FONT][/LEFT]
[/COLOR][COLOR=#0000FF][LEFT][FONT=Monaco]Xml[/FONT][/LEFT]
[/COLOR][COLOR=#000000]
[/COLOR][COLOR=#FF8000]Public [/COLOR][COLOR=#0600FF]Class[/COLOR][COLOR=#000000] Form2
 
    [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000] TextBox1_KeyPress([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] sender [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#FF0000]Object[/COLOR][COLOR=#000000], [/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] e [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#0000FF]Windows[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]Forms[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]KeyPressEventArgs[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Handles[/COLOR][COLOR=#000000] TextBox1.[/COLOR][COLOR=#0000FF]KeyPress[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#804040]Not[/COLOR][COLOR=#0600FF]IsNumeric[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000])) [/COLOR][COLOR=#804040]And[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#0600FF]Asc[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000]) <> [/COLOR][COLOR=#FF0000]8[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Then[/COLOR][COLOR=#000000]
            e.[/COLOR][COLOR=#0000FF]Handled[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#0600FF]True[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000] TextBox2_KeyPress([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] sender [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#FF0000]Object[/COLOR][COLOR=#000000], [/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] e [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#0000FF]Windows[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]Forms[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]KeyPressEventArgs[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Handles[/COLOR][COLOR=#000000] TextBox2.[/COLOR][COLOR=#0000FF]KeyPress[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#804040]Not[/COLOR][COLOR=#0600FF]IsNumeric[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000])) [/COLOR][COLOR=#804040]And[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#0600FF]Asc[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000]) <> [/COLOR][COLOR=#FF0000]8[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Then[/COLOR][COLOR=#000000]
            e.[/COLOR][COLOR=#0000FF]Handled[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#0600FF]True[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000] TextBox3_KeyPress([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] sender [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#FF0000]Object[/COLOR][COLOR=#000000], [/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] e [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#0000FF]Windows[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]Forms[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]KeyPressEventArgs[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Handles[/COLOR][COLOR=#000000] TextBox3.[/COLOR][COLOR=#0000FF]KeyPress[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#804040]Not[/COLOR][COLOR=#0600FF]IsNumeric[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000])) [/COLOR][COLOR=#804040]And[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#0600FF]Asc[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000]) <> [/COLOR][COLOR=#FF0000]8[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Then[/COLOR][COLOR=#000000]
            e.[/COLOR][COLOR=#0000FF]Handled[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#0600FF]True[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000] TextBox4_KeyPress([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] sender [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#FF0000]Object[/COLOR][COLOR=#000000], [/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] e [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#0000FF]Windows[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]Forms[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]KeyPressEventArgs[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Handles[/COLOR][COLOR=#000000] TextBox4.[/COLOR][COLOR=#0000FF]KeyPress[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#804040]Not[/COLOR][COLOR=#0600FF]IsNumeric[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000])) [/COLOR][COLOR=#804040]And[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#0600FF]Asc[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000]) <> [/COLOR][COLOR=#FF0000]8[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Then[/COLOR][COLOR=#000000]
            e.[/COLOR][COLOR=#0000FF]Handled[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#0600FF]True[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000] TextBox5_KeyPress([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] sender [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#FF0000]Object[/COLOR][COLOR=#000000], [/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] e [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#0000FF]Windows[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]Forms[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]KeyPressEventArgs[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Handles[/COLOR][COLOR=#000000] TextBox5.[/COLOR][COLOR=#0000FF]KeyPress[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#804040]Not[/COLOR][COLOR=#0600FF]IsNumeric[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000])) [/COLOR][COLOR=#804040]And[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#0600FF]Asc[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000]) <> [/COLOR][COLOR=#FF0000]8[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Then[/COLOR][COLOR=#000000]
            e.[/COLOR][COLOR=#0000FF]Handled[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#0600FF]True[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000] TextBox6_KeyPress([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] sender [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#FF0000]Object[/COLOR][COLOR=#000000], [/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] e [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#0000FF]Windows[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]Forms[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]KeyPressEventArgs[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Handles[/COLOR][COLOR=#000000] TextBox6.[/COLOR][COLOR=#0000FF]KeyPress[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#804040]Not[/COLOR][COLOR=#0600FF]IsNumeric[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000])) [/COLOR][COLOR=#804040]And[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#0600FF]Asc[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000]) <> [/COLOR][COLOR=#FF0000]8[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Then[/COLOR][COLOR=#000000]
            e.[/COLOR][COLOR=#0000FF]Handled[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#0600FF]True[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000] TextBox7_KeyPress([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] sender [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#FF0000]Object[/COLOR][COLOR=#000000], [/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] e [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#0000FF]Windows[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]Forms[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]KeyPressEventArgs[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Handles[/COLOR][COLOR=#000000] TextBox7.[/COLOR][COLOR=#0000FF]KeyPress[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#804040]Not[/COLOR][COLOR=#0600FF]IsNumeric[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000])) [/COLOR][COLOR=#804040]And[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#0600FF]Asc[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000]) <> [/COLOR][COLOR=#FF0000]8[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Then[/COLOR][COLOR=#000000]
            e.[/COLOR][COLOR=#0000FF]Handled[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#0600FF]True[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000] TextBox9_KeyPress([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] sender [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#FF0000]Object[/COLOR][COLOR=#000000], [/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] e [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#0000FF]Windows[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]Forms[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]KeyPressEventArgs[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Handles[/COLOR][COLOR=#000000] TextBox9.[/COLOR][COLOR=#0000FF]KeyPress[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#804040]Not[/COLOR][COLOR=#0600FF]IsNumeric[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000])) [/COLOR][COLOR=#804040]And[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#0600FF]Asc[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000]) <> [/COLOR][COLOR=#FF0000]8[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Then[/COLOR][COLOR=#000000]
            e.[/COLOR][COLOR=#0000FF]Handled[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#0600FF]True[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000]
 
    [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000] TextBox10_KeyPress([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] sender [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#FF0000]Object[/COLOR][COLOR=#000000], [/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] e [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#0000FF]Windows[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]Forms[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]KeyPressEventArgs[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Handles[/COLOR][COLOR=#000000] TextBox10.[/COLOR][COLOR=#0000FF]KeyPress[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#804040]Not[/COLOR][COLOR=#0600FF]IsNumeric[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000])) [/COLOR][COLOR=#804040]And[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#0600FF]Asc[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000]) <> [/COLOR][COLOR=#FF0000]8[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Then[/COLOR][COLOR=#000000]
            e.[/COLOR][COLOR=#0000FF]Handled[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#0600FF]True[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000] TextBox12_KeyPress([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] sender [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#FF0000]Object[/COLOR][COLOR=#000000], [/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] e [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#0000FF]Windows[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]Forms[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]KeyPressEventArgs[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Handles[/COLOR][COLOR=#000000] TextBox12.[/COLOR][COLOR=#0000FF]KeyPress[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#804040]Not[/COLOR][COLOR=#0600FF]IsNumeric[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000])) [/COLOR][COLOR=#804040]And[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#0600FF]Asc[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000]) <> [/COLOR][COLOR=#FF0000]8[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Then[/COLOR][COLOR=#000000]
            e.[/COLOR][COLOR=#0000FF]Handled[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#0600FF]True[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000] TextBox13_KeyPress([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] sender [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#FF0000]Object[/COLOR][COLOR=#000000], [/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] e [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#0000FF]Windows[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]Forms[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]KeyPressEventArgs[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Handles[/COLOR][COLOR=#000000] TextBox13.[/COLOR][COLOR=#0000FF]KeyPress[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#804040]Not[/COLOR][COLOR=#0600FF]IsNumeric[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000])) [/COLOR][COLOR=#804040]And[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#0600FF]Asc[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000]) <> [/COLOR][COLOR=#FF0000]8[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Then[/COLOR][COLOR=#000000]
            e.[/COLOR][COLOR=#0000FF]Handled[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#0600FF]True[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000] TextBox14_KeyPress([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] sender [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#FF0000]Object[/COLOR][COLOR=#000000], [/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] e [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#0000FF]Windows[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]Forms[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]KeyPressEventArgs[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Handles[/COLOR][COLOR=#000000] TextBox14.[/COLOR][COLOR=#0000FF]KeyPress[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#804040]Not[/COLOR][COLOR=#0600FF]IsNumeric[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000])) [/COLOR][COLOR=#804040]And[/COLOR][COLOR=#000000] ([/COLOR][COLOR=#0600FF]Asc[/COLOR][COLOR=#000000](e.[/COLOR][COLOR=#0000FF]KeyChar[/COLOR][COLOR=#000000]) <> [/COLOR][COLOR=#FF0000]8[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Then[/COLOR][COLOR=#000000]
            e.[/COLOR][COLOR=#0000FF]Handled[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#0600FF]True[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000]
 
 
    <System.[/COLOR][COLOR=#0000FF]Serializable[/COLOR][COLOR=#000000]()> _
    [/COLOR][COLOR=#FF8000]Public[/COLOR][COLOR=#0600FF]Class[/COLOR][COLOR=#000000] DataTextBox
        [/COLOR][COLOR=#008080][I]'-- proprietà Viola[/I][/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#000000] pViola [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Public[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000] Viola() [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
                [/COLOR][COLOR=#FF8000]Return[/COLOR][COLOR=#000000] pViola
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] value [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000])
                pViola [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] value
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#008080][I]'-- proprietà Arancione[/I][/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#000000] pArancione [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Public[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000] Arancione() [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
                [/COLOR][COLOR=#FF8000]Return[/COLOR][COLOR=#000000] pArancione
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] value [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000])
                pArancione [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] value
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#008080][I]'-- proprietà Giallo[/I][/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#000000] pGiallo [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Public[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000] Giallo() [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
                [/COLOR][COLOR=#FF8000]Return[/COLOR][COLOR=#000000] pGiallo
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] value [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000])
                pGiallo [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] value
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#008080][I]'-- proprietà Blu[/I][/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#000000] pBlu [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Public[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000] Blu() [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
                [/COLOR][COLOR=#FF8000]Return[/COLOR][COLOR=#000000] pBlu
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] value [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000])
                pBlu [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] value
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#008080][I]'-- proprietà Verde[/I][/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#000000] pVerde [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Public[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000] Verde() [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
                [/COLOR][COLOR=#FF8000]Return[/COLOR][COLOR=#000000] pVerde
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] value [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000])
                pVerde [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] value
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#008080][I]'-- proprietà Rosso[/I][/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#000000] pRosso [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Public[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000] Rosso() [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
                [/COLOR][COLOR=#FF8000]Return[/COLOR][COLOR=#000000] pRosso
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] value [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000])
                pRosso [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] value
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#008080][I]'-- proprietà Grigio[/I][/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#000000] pGrigio [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Public[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000] Grigio() [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
                [/COLOR][COLOR=#FF8000]Return[/COLOR][COLOR=#000000] pGrigio
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] value [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000])
                pGrigio [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] value
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#008080][I]'-- proprietà Dieici[/I][/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#000000] pDieici [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Public[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000] Dieici() [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
                [/COLOR][COLOR=#FF8000]Return[/COLOR][COLOR=#000000] pDieici
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] value [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000])
                pDieici [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] value
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#008080][I]'-- proprietà Cinquanta[/I][/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#000000] pCinquanta [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Public[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000] Cinquanta() [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
                [/COLOR][COLOR=#FF8000]Return[/COLOR][COLOR=#000000] pCinquanta
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] value [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000])
                pCinquanta [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] value
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#008080][I]'-- proprietà Uno[/I][/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#000000] pUno [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Public[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000] Uno() [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
                [/COLOR][COLOR=#FF8000]Return[/COLOR][COLOR=#000000] pUno
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] value [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000])
                pUno [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] value
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#008080][I]'-- proprietà Venti[/I][/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#000000] pVenti [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Public[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000] Venti() [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
                [/COLOR][COLOR=#FF8000]Return[/COLOR][COLOR=#000000] pVenti
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] value [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000])
                pVenti [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] value
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#008080][I]'-- proprietà Due[/I][/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#000000] pDue [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Public[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000] Due() [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
                [/COLOR][COLOR=#FF8000]Return[/COLOR][COLOR=#000000] pDue
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Get[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] value [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]String[/COLOR][COLOR=#000000])
                pDue [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] value
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Set[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#FF8000]Property[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]Class[/COLOR][COLOR=#000000]
 
 
    [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000] Button1_Click([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] sender [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#FF0000]Object[/COLOR][COLOR=#000000], [/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] e [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#0000FF]EventArgs[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Handles[/COLOR][COLOR=#000000] Button1.[/COLOR][COLOR=#0000FF]Click[/COLOR][COLOR=#000000]
 
        [/COLOR][COLOR=#0600FF]Dim[/COLOR][COLOR=#000000] tData [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]New[/COLOR][COLOR=#000000] DataTextBox
 
        [/COLOR][COLOR=#0600FF]With[/COLOR][COLOR=#000000] tData
            .[/COLOR][COLOR=#0000FF]Viola[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] TextBox1.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000]
            .[/COLOR][COLOR=#0000FF]Arancione[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] TextBox2.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000]
            .[/COLOR][COLOR=#0000FF]Giallo[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] TextBox3.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000]
            .[/COLOR][COLOR=#0000FF]Blu[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] TextBox4.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000]
            .[/COLOR][COLOR=#0000FF]Verde[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] TextBox5.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000]
            .[/COLOR][COLOR=#0000FF]Rosso[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] TextBox6.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000]
            .[/COLOR][COLOR=#0000FF]Grigio[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] TextBox7.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000]
            .[/COLOR][COLOR=#0000FF]Dieici[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] TextBox9.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000]
            .[/COLOR][COLOR=#0000FF]Cinquanta[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] TextBox10.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000]
            .[/COLOR][COLOR=#0000FF]Uno[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] TextBox12.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000]
            .[/COLOR][COLOR=#0000FF]Venti[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] TextBox13.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000]
            .[/COLOR][COLOR=#0000FF]Due[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] TextBox14.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]With[/COLOR][COLOR=#000000]
 
        Using sw [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]New[/COLOR][COLOR=#000000] IO.[/COLOR][COLOR=#0000FF]StreamWriter[/COLOR][COLOR=#000000]([/COLOR][COLOR=#808080]"c:\status.xml"[/COLOR][COLOR=#000000])
            [/COLOR][COLOR=#0600FF]Dim[/COLOR][COLOR=#000000] Serializer [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]New[/COLOR][COLOR=#000000] Serialization.[/COLOR][COLOR=#0000FF]XmlSerializer[/COLOR][COLOR=#000000](tData.[/COLOR][COLOR=#804040]GetType[/COLOR][COLOR=#000000]())
            Serializer.[/COLOR][COLOR=#0000FF]Serialize[/COLOR][COLOR=#000000](sw, tData)
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#000000] Using
    [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000]
 
 
 
    [/COLOR][COLOR=#0600FF]Dim[/COLOR][COLOR=#000000] SommN1
    [/COLOR][COLOR=#0600FF]Dim[/COLOR][COLOR=#000000] SommN2
    [/COLOR][COLOR=#0600FF]Dim[/COLOR][COLOR=#000000] SommN3
    [/COLOR][COLOR=#0600FF]Dim[/COLOR][COLOR=#000000] SommN4
    [/COLOR][COLOR=#0600FF]Dim[/COLOR][COLOR=#000000] SommN5
    [/COLOR][COLOR=#0600FF]Dim[/COLOR][COLOR=#000000] SommN6
    [/COLOR][COLOR=#0600FF]Dim[/COLOR][COLOR=#000000] SommN7
    [/COLOR][COLOR=#0600FF]Dim[/COLOR][COLOR=#000000] SommN9
    [/COLOR][COLOR=#0600FF]Dim[/COLOR][COLOR=#000000] SommN10
    [/COLOR][COLOR=#0600FF]Dim[/COLOR][COLOR=#000000] SommN12
    [/COLOR][COLOR=#0600FF]Dim[/COLOR][COLOR=#000000] SommN13
    [/COLOR][COLOR=#0600FF]Dim[/COLOR][COLOR=#000000] SommN14
 
    [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000] Button3_Click([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] sender [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#FF0000]Object[/COLOR][COLOR=#000000], [/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] e [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#0000FF]EventArgs[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Handles[/COLOR][COLOR=#000000] Button3.[/COLOR][COLOR=#0000FF]Click[/COLOR][COLOR=#000000]
        SommN1 [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] (TextBox1.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000])
        SommN2 [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] (TextBox2.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000])
        SommN3 [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] (TextBox3.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000])
        SommN4 [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] (TextBox4.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000])
        SommN5 [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] (TextBox5.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000])
        SommN6 [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] (TextBox6.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000])
        SommN7 [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] (TextBox7.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000])
        SommN9 [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] (TextBox9.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000])
        SommN10 [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] (TextBox10.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000])
        SommN12 [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] (TextBox12.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000])
        SommN13 [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] (TextBox13.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000])
        SommN14 [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] (TextBox14.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#000000])
 
        Label17.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#0600FF]Format[/COLOR][COLOR=#000000]([/COLOR][COLOR=#0600FF]CDbl[/COLOR][COLOR=#000000](SommN1 [/COLOR][COLOR=#008000]*[/COLOR][COLOR=#FF0000]500[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#008000]+[/COLOR][COLOR=#0600FF]CDbl[/COLOR][COLOR=#000000](SommN2 [/COLOR][COLOR=#008000]*[/COLOR][COLOR=#FF0000]50[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#008000]+[/COLOR][COLOR=#0600FF]CDbl[/COLOR][COLOR=#000000](SommN3 [/COLOR][COLOR=#008000]*[/COLOR][COLOR=#FF0000]200[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#008000]+[/COLOR][COLOR=#0600FF]CDbl[/COLOR][COLOR=#000000](SommN4 [/COLOR][COLOR=#008000]*[/COLOR][COLOR=#FF0000]20[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#008000]+[/COLOR][COLOR=#0600FF]CDbl[/COLOR][COLOR=#000000](SommN5 [/COLOR][COLOR=#008000]*[/COLOR][COLOR=#FF0000]100[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#008000]+[/COLOR][COLOR=#0600FF]CDbl[/COLOR][COLOR=#000000](SommN6 [/COLOR][COLOR=#008000]*[/COLOR][COLOR=#FF0000]10[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#008000]+[/COLOR][COLOR=#0600FF]CDbl[/COLOR][COLOR=#000000](SommN7 [/COLOR][COLOR=#008000]*[/COLOR][COLOR=#FF0000]5[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#008000]+[/COLOR][COLOR=#0600FF]CDbl[/COLOR][COLOR=#000000](SommN9 [/COLOR][COLOR=#008000]*[/COLOR][COLOR=#FF0000]0.1[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#008000]+[/COLOR][COLOR=#0600FF]CDbl[/COLOR][COLOR=#000000](SommN10 [/COLOR][COLOR=#008000]*[/COLOR][COLOR=#FF0000]0.5[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#008000]+[/COLOR][COLOR=#0600FF]CDbl[/COLOR][COLOR=#000000](SommN12 [/COLOR][COLOR=#008000]*[/COLOR][COLOR=#FF0000]1[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#008000]+[/COLOR][COLOR=#0600FF]CDbl[/COLOR][COLOR=#000000](SommN13 [/COLOR][COLOR=#008000]*[/COLOR][COLOR=#FF0000]0.2[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#008000]+[/COLOR][COLOR=#0600FF]CDbl[/COLOR][COLOR=#000000](SommN14 [/COLOR][COLOR=#008000]*[/COLOR][COLOR=#FF0000]2[/COLOR][COLOR=#000000]), [/COLOR][COLOR=#808080]"#,##0.00"[/COLOR][COLOR=#008000]&[/COLOR][COLOR=#808080]" "[/COLOR][COLOR=#008000]&[/COLOR][COLOR=#808080]"Euro"[/COLOR][COLOR=#000000])
    [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000]
 
    [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000] Form2_Load([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] sender [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#FF0000]Object[/COLOR][COLOR=#000000], [/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] e [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#0000FF]EventArgs[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Handles[/COLOR][COLOR=#FF8000]MyBase[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]Load[/COLOR][COLOR=#000000]
 
        [/COLOR][COLOR=#0600FF]Dim[/COLOR][COLOR=#000000] tData [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] DataTextBox
 
        [/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000] IO.[/COLOR][URL="http://www.google.com/search?q=FILE+site:msdn.microsoft.com"][COLOR=#008000]File[/COLOR][/URL][COLOR=#000000].[/COLOR][COLOR=#0000FF]Exists[/COLOR][COLOR=#000000]([/COLOR][COLOR=#808080]"c:\status.xml"[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Then[/COLOR][COLOR=#000000]
 
            Using sr [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]New[/COLOR][COLOR=#000000] IO.[/COLOR][COLOR=#0000FF]StreamReader[/COLOR][COLOR=#000000]([/COLOR][COLOR=#808080]"c:\status.xml"[/COLOR][COLOR=#000000])
                [/COLOR][COLOR=#0600FF]Dim[/COLOR][COLOR=#000000] Serializer [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#FF8000]New[/COLOR][COLOR=#000000] Serialization.[/COLOR][COLOR=#0000FF]XmlSerializer[/COLOR][COLOR=#000000]([/COLOR][COLOR=#804040]GetType[/COLOR][COLOR=#000000](DataTextBox))
                tData [/COLOR][COLOR=#008000]=[/COLOR][COLOR=#0600FF]CType[/COLOR][COLOR=#000000](Serializer.[/COLOR][COLOR=#0000FF]Deserialize[/COLOR][COLOR=#000000](sr), DataTextBox)
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#000000] Using
 
            [/COLOR][COLOR=#0600FF]With[/COLOR][COLOR=#000000] tData
                TextBox1.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] .[/COLOR][COLOR=#0000FF]Viola[/COLOR][COLOR=#000000]
                TextBox2.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] .[/COLOR][COLOR=#0000FF]Arancione[/COLOR][COLOR=#000000]
                TextBox3.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] .[/COLOR][COLOR=#0000FF]Giallo[/COLOR][COLOR=#000000]
                TextBox4.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] .[/COLOR][COLOR=#0000FF]Blu[/COLOR][COLOR=#000000]
                TextBox5.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] .[/COLOR][COLOR=#0000FF]Verde[/COLOR][COLOR=#000000]
                TextBox6.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] .[/COLOR][COLOR=#0000FF]Rosso[/COLOR][COLOR=#000000]
                TextBox7.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] .[/COLOR][COLOR=#0000FF]Grigio[/COLOR][COLOR=#000000]
                TextBox9.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] .[/COLOR][COLOR=#0000FF]Dieici[/COLOR][COLOR=#000000]
                TextBox10.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] .[/COLOR][COLOR=#0000FF]Cinquanta[/COLOR][COLOR=#000000]
                TextBox12.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] .[/COLOR][COLOR=#0000FF]Uno[/COLOR][COLOR=#000000]
                TextBox13.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] .[/COLOR][COLOR=#0000FF]Venti[/COLOR][COLOR=#000000]
                TextBox14.[/COLOR][COLOR=#0000FF]Text[/COLOR][COLOR=#008000]=[/COLOR][COLOR=#000000] .[/COLOR][COLOR=#0000FF]Due[/COLOR][COLOR=#000000]
            [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]With[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#FF8000]Else[/COLOR][COLOR=#000000]
 
            MessageBox.[/COLOR][COLOR=#0000FF]Show[/COLOR][COLOR=#000000]([/COLOR][COLOR=#808080]"Il file con i dati non esiste"[/COLOR][COLOR=#000000], [/COLOR][COLOR=#808080]"Salvadanaio"[/COLOR][COLOR=#000000], MessageBoxButtons.[/COLOR][COLOR=#0600FF]OK[/COLOR][COLOR=#000000], MessageBoxIcon.[/COLOR][COLOR=#0600FF]Information[/COLOR][COLOR=#000000])
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]If[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000]
 
    [/COLOR][COLOR=#FF8000]Private[/COLOR][COLOR=#0600FF]Sub[/COLOR][COLOR=#000000] Form2_FormClosed([/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] sender [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#FF0000]Object[/COLOR][COLOR=#000000], [/COLOR][COLOR=#FF8000]ByVal[/COLOR][COLOR=#000000] e [/COLOR][COLOR=#FF8000]As[/COLOR][COLOR=#000000] System.[/COLOR][COLOR=#0000FF]Windows[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]Forms[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]FormClosedEventArgs[/COLOR][COLOR=#000000]) [/COLOR][COLOR=#FF8000]Handles[/COLOR][COLOR=#FF8000]MyBase[/COLOR][COLOR=#000000].[/COLOR][COLOR=#0000FF]FormClosed[/COLOR][COLOR=#000000]
        [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#000000]
    [/COLOR][COLOR=#0600FF]End[/COLOR][COLOR=#0600FF]Sub[/COLOR]
[LEFT][COLOR=#0600FF][FONT=Monaco]End[/FONT][/COLOR][COLOR=#0600FF][FONT=Monaco]Class[/FONT][/COLOR][/LEFT]


Ed ecco il download del progetto:
Monitoraggio Salvadanaio.zip
 
  • Mi piace
Reazioni: Revenge23™
Per non far scrivere i caratteri alfabetici e soltanto i numeri nelle textbox..
Voglio ricordare che il programma l'ho fatto 2 anni fa e di fretta e furia!
 
iRo ha detto:
Per non far scrivere i caratteri alfabetici e soltanto i numeri nelle textbox..
Voglio ricordare che il programma l'ho fatto 2 anni fa e di fretta e furia!
Clicca per espandere...
Bello!Ma una domanda leggendo la Source non Capisco Come fa a far salvare il tutto anche dopo la chiusura del Programma Me lo Spiegheresti?
 
Ultima modifica:
Fico, mi serviva *_*
(visto che fino ad oggi la contabilità la tenevo a mano :asd:)


P.S. Perchè al primo "log" devo inserire una password che non mi prende?

 
Ma perché programmate senza saper programmare????
ci sono almeno 300 righe inutili in quel codice... INUTILI!

---> CLICCAMI! NON MORDO! <---

2 anni fa???? e dopo 2 anni pensi ancora che questo programma sia presentabile?!?!?
 
SpeedJack ha detto:
Ma perché programmate senza saper programmare????
ci sono almeno 300 righe inutili in quel codice... INUTILI!

---> CLICCAMI! NON MORDO! <---

2 anni fa???? e dopo 2 anni pensi ancora che questo programma sia presentabile?!?!?
Clicca per espandere...

Vedo che sei in questa sezione solo per fare commenti assolutamente inutili.
Come era 2 anni fa cosi l'ho postato senza modificare nulla.

Se pensi che sia un neofita con la programmazione, beh ti sbagli. Sono del vivaio di Unfair-Gamers.com .. quindi sciallà!
 
  • Mi piace
Reazioni: xXShïñëgødXx
iRo ha detto:
Vedo che sei in questa sezione solo per fare commenti assolutamente inutili.
Come era 2 anni fa cosi l'ho postato senza modificare nulla.

Se pensi che sia un neofita con la programmazione, beh ti sbagli. Sono del vivaio di Unfair-Gamers.com .. quindi sciallà!
Clicca per espandere...
Cos'è una classe?
 
  • Mi piace
Reazioni: Domokun_
claudiodj ha detto:
Bello!Ma una domanda leggendo la Source non Capisco Come fa a far salvare il tutto anche dopo la chiusura del Programma Me lo Spiegheresti?
Clicca per espandere...

Utilizza un file Xml che scrive durante l'esecuzione e carica all'avvio.

SpeedJack ha detto:
Cos'è una classe?
Clicca per espandere...
SpeedJack per favore! :oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio::oddio:

Lui è uno del vivavio di UnfairGames.com!

P.S: Sorry, oggi mi andava di rispondere così.
 
  • Mi piace
Reazioni: SpeedJack e Domokun_
Lascio perdere il flood di faccine sta volta :\
Comunque ho visto tutto il codice ora e una classe l'ha usata (avrei usato una struttura con dei campi invece che delle proprietà ma vabbè) quindi pare che una classe sa cos'è. Però ha scritto comunque dei codici inutili per impedire che nelle textbox vengano inseriti caratteri alfabetici (tutto riassumibile in un'unica procedura che gestisce tutti gli eventi); non chiude il primo form ma lo nasconde (questo è chiaro che è stato fatto per evitare che il programma si chiuda, ma basta impostare (nelle impostazioni di compilazione) che il programma si chiuda alla chiusura dell'ultimo form ed è fatto. Invece così lascia in memoria il primo form non visibile); Dichiara variabili senza specificare il tipo (che quindi viene preso come Object, costringendo quindi il runtime a eseguire delle operazioni di boxing e unboxinmmeg); Ha eseguito un controllo della password caratterizzato da un banale If (con password in chiaro): avrebbe dovuto salvare la password sotto forma di hash e confrontarlo con l'hash della password immessa, altrimenti è inutile.
La serializzazione è l'unica cosa che merita: l'unica "cosa in più" che questo programma ha rispetto a tutti gli altri che vengono qui postati.
 
iRo ha detto:
Se pensi che sia un neofita con la programmazione, beh ti sbagli. Sono del vivaio di Unfair-Gamers.com .. quindi sciallà!
Clicca per espandere...

In pratica stai dicendo che se mi iscrivo su quel sito ottengo subito prestigio e fama nel settore della programmazione? Mi iscrivo subito!!!

:gtfo:

Invece che farti figo accetta la critica e, se proprio vuoi dimostrare qualcosa, posta un programma fatto da poco (non in fretta e furia). Con quella frase non hai fatto altro che screditare te e quel sito...
 
  • Mi piace
Reazioni: SpeedJack e Domokun_
Verrai anche da UG, però devi capire che se vieni qua a fare lo sbruffone non va tanto bene..
Ah, poi stai parlando con SpeedJack...UN SIGNOR PROGRAMMATORE!
 
St3ve ha detto:
In pratica stai dicendo che se mi iscrivo su quel sito ottengo subito prestigio e fama nel settore della programmazione? Mi iscrivo subito!!!

:gtfo:

Invece che farti figo accetta la critica e, se proprio vuoi dimostrare qualcosa, posta un programma fatto da poco (non in fretta e furia). Con quella frase non hai fatto altro che screditare te e quel sito...
Clicca per espandere...

*Palmface*
Le critiche le accetto sempre...
Con quella frase volevo affermare che ci sono moltissimi elementi "in quel sito" che mi hanno aiutato moltissimo a migliorare il mio approccio con la programmazione in generale;

Ecco:
http://www.inforge.net/community/altri-linguaggi/252555-[release]unfair-gamers-com-map.html

Ed ecco:
http://www.inforge.net/community/fuori-tema/264215-[release]simply-blurum-bot.html
 
Sono comunque cose abbastanza semplici (semmai possono richiedere un po' di tempo). Il punto è vedere come sono scritti.
 
PASSWORD??? Cos'è un invito a crackarlo??? Un .NET, senza protezione e con un form che chiede una password è un invito per il reverser con tanto di confetto omaggio (LOL)...

Tutto questo per dirti: mettici una qualche protezione, se no leva quel form di login :)
 
Ultima modifica:
Dai su, adesso ho capito che i programmi in generale vanno fatti bene e impegnandosi al massimo compiendo un lavoro degno di chiamarlo tale però adesso mi sembra di esagerare.
Non capisco la necessità di stare a reversare un programma che nemmeno contiene soldi ma ne tiene il conto LOL. Non frega un pazzo a nessuno di del suo programma (nel senso che non contiente informazioni bancarie :asd:), tanto meno cercare di reversarlo.

Avesse creato un programma per mettersi in contatto con la Nasa allora avrebbe dovuto proteggere la password per quanto possibile, ma per un SALVADANAIO...

Nessuna offesa al programma, semplicemente attribuisco ad ogni cosa il giusto approccio.

P.S: Non vedo l'ora che qualcuno usi il programma così lo decompilo, ricavo la password e poi gli fotto soldi cambiando il numero delle banconote da 500 € a 0.:owned:

scappa.gif
DIVENTERO' RICCO AHAHA!
 
E allora che serve una password?..Ci vogliono 2 minuti a reversarlo, mica una vita LOAL...Comunque il mio discorso era più una cosa informativa, cioè che se voleva mettere un form di login in un software .NET allora doveva proteggerlo...
 
Ma leggete?Il programma serve soltanto a me. Visto che anche altri membri della mia famiglia hanno l'accesso al PC non ho voluto che il programma si apriva e faceva vedere il bilancio.. cosi ho messo quella "protezione banale". Non credo che i miei parenti sappiano re versare :p
 
Stato
Discussione chiusa ad ulteriori risposte.

DISCUSSIONI SIMILI

N
Discussione Process Hollowing + Process Injection con Python su Windows (davvero?)
  • 0
  • 322
0
322
Advanced Hacking
Netcat
M
Domanda Estrare dati dal sorgente Email
  • 0
  • 381
0
381
Python
mrcamarium
Top Bottom
Indietro