Logo by Irenicus mercoledì 03-dic-08 23:03


RaulKen.It :: Leggi il Topic - Volontario per la realizzazione gratuita di un programmino?
 FAQFAQ   CercaCerca   Gruppi utentiGruppi utenti   ProfiloProfilo   Messaggi PrivatiMessaggi Privati   LoginLogin 

Volontario per la realizzazione gratuita di un programmino?

 
Nuovo Topic   Rispondi    Indice del forum -> Programmazione
Precedente :: Successivo  
Autore Messaggio
Maurence
Il Bibliotecario di RaulKen.it


Registrato: Feb 10, 2005
Messaggi: 637
Località: Lago Patria

MessaggioInviato: Sab Gen 13, 2007 12:05 pm    Oggetto: Volontario per la realizzazione gratuita di un programmino? Rispondi citando

Salve ragazzi, mi servirebbe un piccolo programmino fatto in java, in c, in pascal una cosa semplice, se poi fatto in html sarebbe perfetto. Smile

Vi scrivo a cosa dovrebbe servire questo programma:

Vi si deve impostare una data specifica ad es. 10/07/1982 e da lì far partire un caledario dal primo giorno in modo tale che la data sopra scritta diventi giorno 1 anno 1.

Il programma dovrebbe avere anche la possibilità di immettere una data antecedente o successiva alla data impostata. Esempio.

Si immette la la data 10/07/72 ed il programma deve dire 10 anni prima della data impostata, stessa cosa per le date successive.

Il programma fa ulteriori richieste, dovrebbe anche saper calcolare anche oltre agli anni anche i giorni es. 7/07/72 = 9 anni e 362 giorni dalla data impostata.

Qualcuno di ottima volontà c'è? Smile

ghghgh

grazie

Bye
_________________
Se, riunendosi nel tempio ancestrale prima della battaglia,
si giunge a prevedere una vittoria,
ciò è dovuto ai molti calcoli compiuti;
se si prevede di non vincere, ciò è dovuto a calcoli insufficienti.

Torna in cima
Profilo Messaggio privato
Space_One
Frequentatore del Forum
Frequentatore del Forum


Registrato: Jan 16, 2007
Messaggi: 132

MessaggioInviato: Mer Gen 17, 2007 9:41 am    Oggetto: Rispondi citando

Va bene anche in visual studio?... Mr. Green

2003 o 2005? Cool
Torna in cima
Profilo Messaggio privato
Maurence
Il Bibliotecario di RaulKen.it


Registrato: Feb 10, 2005
Messaggi: 637
Località: Lago Patria

MessaggioInviato: Mer Gen 17, 2007 5:38 pm    Oggetto: Rispondi citando

Va benissimo, basta che poi lo si trasforma in un piccolo eseguibile Smile
_________________
Se, riunendosi nel tempio ancestrale prima della battaglia,
si giunge a prevedere una vittoria,
ciò è dovuto ai molti calcoli compiuti;
se si prevede di non vincere, ciò è dovuto a calcoli insufficienti.

Torna in cima
Profilo Messaggio privato
Space_One
Frequentatore del Forum
Frequentatore del Forum


Registrato: Jan 16, 2007
Messaggi: 132

MessaggioInviato: Gio Gen 18, 2007 8:29 am    Oggetto: Rispondi citando

mmmm fatto.... come te lo posso passare?
Torna in cima
Profilo Messaggio privato
Maurence
Il Bibliotecario di RaulKen.it


Registrato: Feb 10, 2005
Messaggi: 637
Località: Lago Patria

MessaggioInviato: Ven Gen 19, 2007 9:47 am    Oggetto: Rispondi citando

Grazie infinite.

Ti ho mandato il mio indirizzo e-mail tramite mp.

bye Smile
_________________
Se, riunendosi nel tempio ancestrale prima della battaglia,
si giunge a prevedere una vittoria,
ciò è dovuto ai molti calcoli compiuti;
se si prevede di non vincere, ciò è dovuto a calcoli insufficienti.

Torna in cima
Profilo Messaggio privato
ciddazza
Utente del Forum
Utente del Forum


Registrato: Mar 03, 2007
Messaggi: 82

MessaggioInviato: Sab Mar 03, 2007 7:24 pm    Oggetto: Rispondi citando

ovviamente se c'è tempo...
perchè non spiegare anche come si è proceduto alla realizzazzione del programma? magari può essere utile a qualcuno Smile
Torna in cima
Profilo Messaggio privato
Space_One
Frequentatore del Forum
Frequentatore del Forum


Registrato: Jan 16, 2007
Messaggi: 132

MessaggioInviato: Lun Apr 02, 2007 10:20 am    Oggetto: Rispondi citando

Salve!!

Chiedo scusa per la latitanza ma sono stato molto assente Smile

Dunque, passo a spiegare il procedimento che ho adottato....

Innanzitutto mi serve una Function per fare tutto quello che devo fare...e me la scrivo, aggungendo anche qualche PLUS Cool nel caso dovesse servire per altre cosette Smile

Citazione:
Public Shared Function GetDiff(ByVal mode As howToCompare, ByVal startDate As System.DateTime, ByVal endDate As System.DateTime) As Double
Dim diff As Double = 0
Try
Dim ts As System.TimeSpan = New System.TimeSpan(startDate.Ticks - endDate.Ticks)
Select Case (mode.ToString().ToLower())
Case "m"
diff = Convert.ToDouble(ts.TotalMinutes)
Exit Select
Case "s"
diff = Convert.ToDouble(ts.TotalSeconds)
Exit Select
Case "t"
diff = Convert.ToDouble(ts.Ticks)
Exit Select
Case "mm"
diff = Convert.ToDouble(ts.TotalMilliseconds)
Exit Select
Case "yyyy"
diff = Convert.ToDouble(ts.TotalDays / 365)
Exit Select
Case "q"
diff = Convert.ToDouble((ts.TotalDays / 365) / 4)
Exit Select
Case Else 'd
diff = Convert.ToDouble(ts.TotalDays)
Exit Select
End Select
Catch
diff = -1
End Try
Return diff

End Function


Per metodo di comparamento ho utilizzato un enum.... andrà dichiarato anche questo (fuori dalla funzione ovviamente)

Citazione:
Public Enum howToCompare
m = 1
s
t
mm
yyyy
q
d
End Enum



Tutto il resto si puo riassumere in una sub, ovviamente dovrò avere una data di partenza e una data da confrontare (2 text/label) e una label o text per incollarci dentro il risultato....

la sub l'ho scritta in questa maniera

Citazione:
Private Sub cmdConfronta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdConfronta.Click

Dim Diff As Double
Dim DataPartenza, DataFine As Date
Dim SePrimaODopo As String
Dim ContaAnni, ContaGiorni, Temp As Integer

DataPartenza = txtData.Text
DataFine = txtDataConfronto.Text


Diff = GetDiff(howToCompare.d, DataPartenza, DataFine)

If Mid(Str(Diff), 1, 1) = "-" Then
SePrimaODopo = "Dopo"
Else
SePrimaODopo = "Prima"
End If

Diff = -(Int(Diff))
Temp = Diff

ContaAnni = Int(Math.Abs((Diff / 365)))
Math.DivRem(Temp, 365, ContaGiorni)


lblResult.Text = Math.Abs(ContaAnni) & " Anni e " & Math.Abs(ContaGiorni) & " Giorni " & SePrimaODopo & " della data di partenza"


End Sub


txtData.Text è la data di partenza
txtDataConfronto.Text è la data con cui devo confrontare

howToCompare.d che passo nella funzione GetDiff è il metodo di comparazione; nel mio caso ho bisogno dei giorni di differenza tra le due date, ma potrei anche farmi restituire la differenza in Minuti, Secondi, Millisecondi etc Smile Smile a seconda di come glielo passo Smile

il resto è solo operazioni di stringhe e calcoli per determinare il risultato e lblResult.Text è la label che lo conterrà


questa è piu o meno l'interfaccia che ho fatto saltare fuori in 5 minuti



spero di esservi stato utile Linguaccia

(Se volete che entro nel dettaglio piu specifico delle funzioni utilizzate basta chiedere Smile )
Torna in cima
Profilo Messaggio privato
Mostra prima i messaggi di:   
Nuovo Topic   Rispondi    Indice del forum -> Programmazione Tutti i fusi orari sono GMT + 1 ora
Pagina 1 di 1

 
Vai a:  
Non puoi inserire nuovi Topic in questo forum
Non puoi rispondere ai Topic in questo forum
Non puoi modificare i tuoi messaggi in questo forum
Non puoi cancellare i tuoi messaggi in questo forum
Non puoi votare nei sondaggi in questo forum

Powered by phpBB © 2001, 2005 phpBB Group

 
© 1999-2008 by Hyarbor S.r.l. PI 04698901215 ®
Usando questo sito si accettano le Note Legali in termini di privacy.
PHP-Nuke Copyright © 2005 by Francisco Burzi. This is free software, and you may redistribute it under the GPL. PHP-Nuke comes with absolutely no warranty, for details, see the license.
Generazione pagina: 0.13 Secondi