Ecco il file
Diagramma di Flusso del massimo fra N numeri a piacere.
Lavoro da effettuare in WORD di Microsoft.
Prof in gamba.
venerdì 8 maggio 2015
giovedì 30 aprile 2015
Programma Gestionale Azienda
Ecco per tutti coloro che amano l'economia il
software gestionale aziendale.
Software gestionale aziendale
Prof in gamba.
software gestionale aziendale.
Software gestionale aziendale
Prof in gamba.
venerdì 24 aprile 2015
Codice dietro il pulsante di calcolo.
Ben trovati a tutti i ragazzi delle QUARTE.
Questo il codice che si cela dietro il pulsante di calcolo.
Dim messaggio As String
If Me.txt_Base > 0 Then
If Me.txt_Altezza > 0 Then
If Me.txt_Lato1 > 0 Then
If Me.txt_Lato2 > 0 Then
If Me.Opzioni_Calcoli = 1 Then
Me.txt_Area = (Val(Me.txt_Base) * Val(Me.txt_Altezza)) / 2
Me.txt_Perimetro = 0
End If
If Me.Opzioni_Calcoli = 2 Then
Me.txt_Perimetro = Val(Me.txt_Lato1) + Val(Me.txt_Lato2) + Val(Me.txt_Base)
Me.txt_Area = 0
End If
If Me.Opzioni_Calcoli = 3 Then
Me.txt_Area = (Val(Me.txt_Base) * Val(Me.txt_Altezza)) / 2
Me.txt_Perimetro = Val(Me.txt_Lato1) + Val(Me.txt_Lato2) + Val(Me.txt_Base)
End If
' in questo braccio sono state digitate le variabili di input
Else
messaggio = MsgBox("La variabile lato2 è obbligatoria. Per favore digitare !!!", vbInformation)
DoCmd.GoToControl (Me.txt_Lato2)
End If
Else
messaggio = MsgBox("La variabile lato1 è obbligatoria. Per favore digitare !!!", vbInformation)
DoCmd.GoToControl (Me.txt_Lato1)
End If
Else
messaggio = MsgBox("La variabile altezza è obbligatoria. Per favore digitare !!!", vbInformation)
DoCmd.GoToControl (Me.txt_Altezza)
End If
Else
messaggio = MsgBox("La variabile base è obbligatoria. Per favore digitare !!!", vbInformation)
DoCmd.GoToControl (Me.txt_Base)
End If
Ciao A TUTTI
Prof in gamba
Questo il codice che si cela dietro il pulsante di calcolo.
Dim messaggio As String
If Me.txt_Base > 0 Then
If Me.txt_Altezza > 0 Then
If Me.txt_Lato1 > 0 Then
If Me.txt_Lato2 > 0 Then
If Me.Opzioni_Calcoli = 1 Then
Me.txt_Area = (Val(Me.txt_Base) * Val(Me.txt_Altezza)) / 2
Me.txt_Perimetro = 0
End If
If Me.Opzioni_Calcoli = 2 Then
Me.txt_Perimetro = Val(Me.txt_Lato1) + Val(Me.txt_Lato2) + Val(Me.txt_Base)
Me.txt_Area = 0
End If
If Me.Opzioni_Calcoli = 3 Then
Me.txt_Area = (Val(Me.txt_Base) * Val(Me.txt_Altezza)) / 2
Me.txt_Perimetro = Val(Me.txt_Lato1) + Val(Me.txt_Lato2) + Val(Me.txt_Base)
End If
' in questo braccio sono state digitate le variabili di input
Else
messaggio = MsgBox("La variabile lato2 è obbligatoria. Per favore digitare !!!", vbInformation)
DoCmd.GoToControl (Me.txt_Lato2)
End If
Else
messaggio = MsgBox("La variabile lato1 è obbligatoria. Per favore digitare !!!", vbInformation)
DoCmd.GoToControl (Me.txt_Lato1)
End If
Else
messaggio = MsgBox("La variabile altezza è obbligatoria. Per favore digitare !!!", vbInformation)
DoCmd.GoToControl (Me.txt_Altezza)
End If
Else
messaggio = MsgBox("La variabile base è obbligatoria. Per favore digitare !!!", vbInformation)
DoCmd.GoToControl (Me.txt_Base)
End If
Ciao A TUTTI
Prof in gamba
lunedì 20 aprile 2015
Uscita Didattica a Venezia come patrimonio dell'UNESCO.
Salve ragazzi di 2°D
di seguito le notizie riguardanti l'uscita a Venezia del giorno 23 aprile 2015.
Posto di riunione/incontro il mattino del 23 aprile 2015 presso la biglietteria dei treni di Treviso Centrale a pochi minuti a piedi dal Riccati.
Tutti i costi riportati fanno riferimento ad un alunno o ad un insegnante.
Acquisto dei biglietti di Andata/Ritorno Treviso-Venezia al costo complessivo di € 6,60.
La regione Veneto ha tolto l'agevolazione delle comitive e l'agevolazione per le scuole per cui dovremo pagare il Biglietto per intero. (ribadisco € 6,60 per alunno/insegnante)
Da Venezia arrivo in stazione Centrale.
Acquisto biglietto vaporetto A/R con modalità scolaresca € 6,00 per viaggio Andata + Ritorno.
Coloro che hanno la Carta Venezia il costo sarà di € 1,30 x 1 biglietti Andata cioè € 2,60 in totale.
Mattino: Museo storico dell'Arsenale ingresso € 3,50 visita prevista dalle ore 9,15 fino alle ore 13,00.
Camminata verso DORSODURO e pranzo al sacco. Coloro che vorranno approfittare di panifici e supermarket potranno farlo.
Ore 15,00 avremo appuntamento al "Peggy Guggenheim Museum di Venezia" per ingresso nostro gruppo.
La Collezione Peggy Guggenheim è uno dei più importanti musei in Italia per l'arte europea ed americana del XX secolo con sede a Venezia presso Palazzo Venier dei Leoni, sul Canal Grande, in quella che fu l'abitazione di Peggy Guggenheim. Il museo ospita la collezione personale di Peggy Guggenheim, ma anche i capolavori della Collezione Hannelore B. e Rudolph B. Schulhof, della Collezione Gianni Mattioli, il Giardino delle sculture Nasher e mostre temporanee. La Collezione Peggy Guggenheim è di proprietà della Fondazione Solomon R Guggenheim che la gestisce insieme al Museo Solomon R. Guggenheim di New York e al Guggenheim Museum Bilbao.
Pomeriggio: dalle ore 15,00 "Peggy Guggenheim Museum di Venezia" visita che si può fare senza guida oppure con guida.
Costo entrata € 8,00 studenti guida € 4,00 per ciascuno per gruppi consistenti almeno di 30 scolari.
Fine visita al museo Guggenheim ore 18,00.
rientro con vaporetto + treno
Ora rientro prevista a Treviso ore 19,30 in stazione dei Treni.
Vi comunicherò anche il costo del treno Treviso-Venezia A/R cumulativo in modo preciso.
Totale costi € 12,60 Trasporto + € 11,50 per i due musei =€ 24,10 totale.
Buona giornata.
Prof in gamba.
di seguito le notizie riguardanti l'uscita a Venezia del giorno 23 aprile 2015.
Posto di riunione/incontro il mattino del 23 aprile 2015 presso la biglietteria dei treni di Treviso Centrale a pochi minuti a piedi dal Riccati.
Tutti i costi riportati fanno riferimento ad un alunno o ad un insegnante.
Acquisto dei biglietti di Andata/Ritorno Treviso-Venezia al costo complessivo di € 6,60.
La regione Veneto ha tolto l'agevolazione delle comitive e l'agevolazione per le scuole per cui dovremo pagare il Biglietto per intero. (ribadisco € 6,60 per alunno/insegnante)
Da Venezia arrivo in stazione Centrale.
Acquisto biglietto vaporetto A/R con modalità scolaresca € 6,00 per viaggio Andata + Ritorno.
Coloro che hanno la Carta Venezia il costo sarà di € 1,30 x 1 biglietti Andata cioè € 2,60 in totale.
Mattino: Museo storico dell'Arsenale ingresso € 3,50 visita prevista dalle ore 9,15 fino alle ore 13,00.
Camminata verso DORSODURO e pranzo al sacco. Coloro che vorranno approfittare di panifici e supermarket potranno farlo.
Ore 15,00 avremo appuntamento al "Peggy Guggenheim Museum di Venezia" per ingresso nostro gruppo.
La Collezione Peggy Guggenheim è uno dei più importanti musei in Italia per l'arte europea ed americana del XX secolo con sede a Venezia presso Palazzo Venier dei Leoni, sul Canal Grande, in quella che fu l'abitazione di Peggy Guggenheim. Il museo ospita la collezione personale di Peggy Guggenheim, ma anche i capolavori della Collezione Hannelore B. e Rudolph B. Schulhof, della Collezione Gianni Mattioli, il Giardino delle sculture Nasher e mostre temporanee. La Collezione Peggy Guggenheim è di proprietà della Fondazione Solomon R Guggenheim che la gestisce insieme al Museo Solomon R. Guggenheim di New York e al Guggenheim Museum Bilbao.
Pomeriggio: dalle ore 15,00 "Peggy Guggenheim Museum di Venezia" visita che si può fare senza guida oppure con guida.
Costo entrata € 8,00 studenti guida € 4,00 per ciascuno per gruppi consistenti almeno di 30 scolari.
Fine visita al museo Guggenheim ore 18,00.
rientro con vaporetto + treno
Ora rientro prevista a Treviso ore 19,30 in stazione dei Treni.
Vi comunicherò anche il costo del treno Treviso-Venezia A/R cumulativo in modo preciso.
Totale costi € 12,60 Trasporto + € 11,50 per i due musei =€ 24,10 totale.
Buona giornata.
Prof in gamba.
mercoledì 15 aprile 2015
mercoledì 8 aprile 2015
Codice dietro il pulsante di uscita.....
Ecco il codice che si cela dietro il pulsante di uscita.
On Error GoTo Err_cmd_Uscita_Click
"If Me.Dirty Then Me.Dirty = False
DoCmd.Close
Exit_cmd_Uscita_Click:
Exit Sub
Err_cmd_Uscita_Click:
MsgBox Err.Description
Resume Exit_cmd_Uscita_Click
prof in gamba.
On Error GoTo Err_cmd_Uscita_Click
"If Me.Dirty Then Me.Dirty = False
DoCmd.Close
Exit_cmd_Uscita_Click:
Exit Sub
Err_cmd_Uscita_Click:
MsgBox Err.Description
Resume Exit_cmd_Uscita_Click
prof in gamba.
mercoledì 1 aprile 2015
Iscriviti a:
Post (Atom)