Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - data
Forum - Visual Basic 6 - data - Pagina 4

Pagine: [ 1 2 3 4 5 6 ] Precedente | Prossimo
Avatar
TheEngi (Ex-Member)
Pro


Messaggi: 145
Iscritto: 30/08/2009

Segnala al moderatore
Postato alle 21:22
Giovedì, 03/09/2009
Ci devo riflettere su domani te lo dico con certezza
:):) allora ti faccio sapere a domani ciao

PM Quote
Avatar
massimo (Normal User)
Expert


Messaggi: 210
Iscritto: 23/08/2009

Segnala al moderatore
Postato alle 21:27
Giovedì, 03/09/2009
ciao e grazie spero di non averti annoiato, fatto arrabbiare

PM Quote
Avatar
TheEngi (Ex-Member)
Pro


Messaggi: 145
Iscritto: 30/08/2009

Segnala al moderatore
Postato alle 21:29
Giovedì, 03/09/2009
nono anzi era da un pò che nn mettevo in moto il cervello ihihihi ciao a domani

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 21:47
Giovedì, 03/09/2009
è semplice, in un file scrivi la data.

Metti che nel tuo form2 c'è una textbox e un command e serve per salvare la data. nel codice del command button ci metti:

open "C:\percorso\tuofile.txt" for output as #1
print #1, date
close #1

in questo modo salvi la data di scadenza. Poi nella form_load del form1 recuperi i dati...

dim data as string
open "C:\percorso\tuofile.txt" for input as #1
line input #1, data
close #1

...e poi con un if confronti la data corrente con la data di scadenza:

if date = data then
msgbox "raggiunta scadenza"
end if

PM Quote
Avatar
TheEngi (Ex-Member)
Pro


Messaggi: 145
Iscritto: 30/08/2009

Segnala al moderatore
Postato alle 12:33
Venerdì, 04/09/2009
Rieccomi ho lavorato un pò e alla fine sono arrivato ad un conclusione simile a quella di GrG (attienitti cmq al form di ieri sera e poi aggiungi il codice) eccola:

Private Sub Command1_Click()
Open "C:\Users\Federico\Desktop\Ciao.txt" For Output As #1
Print #1, Date
Close #1
End Sub
Private Sub Form_Load()
Dim data As String
Open "C:\Users\Federico\Desktop\Ciao.txt" For Input As #1
Line Input #1, data
Close #1
If Date = data Then
MsgBox "raggiunta scadenza"
End If
End Sub
Private Sub Timer1_Timer()
Text3.Text = Date
End Sub


Avvisami se riscontri Problemi

Ultima modifica effettuata da TheEngi il 04/09/2009 alle 12:34
PM Quote
Avatar
massimo (Normal User)
Expert


Messaggi: 210
Iscritto: 23/08/2009

Segnala al moderatore
Postato alle 13:10
Venerdì, 04/09/2009
graze tante sei stato di parola.ad aiutarmi.sei veramente doc.
ci provo a farlo e ti faccio sapere. in poche parole che se metto la data in form2 nel textbox e invio alla scadenza compare il  messaggio.

PM Quote
Avatar
TheEngi (Ex-Member)
Pro


Messaggi: 145
Iscritto: 30/08/2009

Segnala al moderatore
Postato alle 13:12
Venerdì, 04/09/2009
Sisisisisi cmq prego nn c'è di che

PM Quote
Avatar
massimo (Normal User)
Expert


Messaggi: 210
Iscritto: 23/08/2009

Segnala al moderatore
Postato alle 20:26
Venerdì, 04/09/2009
ciao scusa quanti textbox ci sono, nel tuocodice ce uno solo in form2. poi nel time ce scritto text3, dove viene messo?

PM Quote
Pagine: [ 1 2 3 4 5 6 ] Precedente | Prossimo