Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTOOOOOO

Dim OraX As String
Dim a As String
Private Sub Combo1_Change()
If Combo1.Text = "LogOff" Then a = 0
If Combo1.Text = "ShutDown" Then a = 1
If Combo1.Text = "Reboot" Then a = 2
If Combo1.Text = "Force" Then a = 4
Label1.Caption = a
End Sub
Private Sub Combo1_Click()
If Combo1.Text = "LogOff" Then a = 0
If Combo1.Text = "ShutDown" Then a = 1
If Combo1.Text = "Reboot" Then a = 2
If Combo1.Text = "Force" Then a = 4
End Sub
Private Sub Command1_Click()
OraX = MaskEdBox1.Text
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
a = 1
End Sub
Private Sub Timer1_Timer()
Dim starttime As Variant
starttime = Now
If starttime >= OraX Then
    ExitWindows a
Else
    Exit Sub
End If
End Sub
con questo codice dovrei  far spegnere il computer all'ora scelta in
MaskEdBox1.Text, ma anzichč aspettare l'ora scelta il computer si spegne
subito.
Dove ho sbagliato?                     GRAZIE

 
Sentimi bene: LEGGITI I MESSAGGI DI IERI CHE TI HANNO GIA' RISPOSTO.

 ha scritto nel messaggio
news:Xns92E8B35704...@195.31.190.131...

az!
Vuoi un biscottino di Prato per calmarti????
:o)

 ha scritto nel messaggio
news:QB1M9.1265$Q%4.2...@news1.tin.it...


 ha scritto
PLOOOOOOOONK

 ha scritto nel messaggio
news:Xns92E8B35704...@195.31.190.131...

Mi stupisce che ci sia ancora qualcuno che lo considera.
E' uno dei soggetti più rompicoglioni del NG.
Se ne frega della Netiquette, quota da culo, non legge le risposte,
ripropone le stesse domande cento volte, e mette dei subject che
meriterebbero il plonk immediato.
Le possibilità sono solamente due:
1) si diverte -> Plonk
2) e' scemo/a -> Compatire
Ciao
Alberto

:o)
Sono calmissimo :P ma sto tizio se ho contato bene e il server non ha 
perso messaggi ha già postato 5 volte la stessa cosa. gli hanno risposto e 
non ha letto.
Cmq se mi offri anche del Vin Santo per me va bene :P

 Le possibilità E' solamente UNA: PLONK

 Cmq se mi offri anche del Vin Santo per me va bene :P
giovedi' scorso a cena mi hanno offerto un
vin millennium
davvero

 ha scritto nel messaggio
news:5y1M9.1247$Q%4.2...@news1.tin.it...

secondo me sbagli nel tipo di dato delle variabili. io il codice lo
correggerei cosě
Dim OraX As DATE '<=====
Dim a As INTEGER '<=====
Private Sub Combo1_Change()
If Combo1.Text = "LogOff" Then a = 0
If Combo1.Text = "ShutDown" Then a = 1
If Combo1.Text = "Reboot" Then a = 2
If Combo1.Text = "Force" Then a = 4
Label1.Caption = CSTR(a) '<===== non essenziale ma oramai mi viene naturale
End Sub
Private Sub Combo1_Click()
If Combo1.Text = "LogOff" Then a = 0
If Combo1.Text = "ShutDown" Then a = 1
If Combo1.Text = "Reboot" Then a = 2
If Combo1.Text = "Force" Then a = 4
End Sub
Private Sub Command1_Click()
OraX = CDATE(MaskEdBox1.Text) '<=====
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
a = 1
End Sub
Private Sub Timer1_Timer()
Dim starttime As DATE '<=====
starttime = Now
If starttime >= OraX Then
    ExitWindows a '<===== ricordati di aggiornare la routine ExitWindows
                  '       per accettare argomenti di tipo integer
                  '       oppure passagli CSTR(a)
Else
    Exit Sub
End If
End Sub
correzioni segnalate con <=====
lieto di esserti stato utile
ciao!

GRAZIE
"DigitalBlasphemy" <appoxanR...@RIMUOVEREinwind.it> ha scritto nel
messaggio news:wE5M9.3292$R45.1...@news2.tin.it...


[X] scrisse:
(snip)
Quando cambiare il nick non ha assolutamente senso :-(
ah, per altri aspetti, ma vale anche per i canidi....
Salutoni
Sergio

 GRAZIE
Non ha resistito...
Si č fatto la sua quotata ACDC, cosě si č fatto pure beccare a fare
morphing...
E guardate che e-mail ha messo...
Un genio. Semplicemente un genio.
Alberto

 Sergio
ciao

 ehm, devo riferire a qualcuno in particolare ?
no, a nessuno, credo che il destinatario del messaggio ne sia gią venuto a
conoscenza.
Se ti capitasse di sentirlo, salutalo da parte mia
Salutoni
Sergio

 Se ti capitasse di sentirlo, salutalo da parte mia
[x] fatto :)
ciao

 GRAZIE
Ah, ciao Ricky.
Che ne dici, per la 8000esima volta, di imparare a quotare?