mad hacker (Normal User)
Pro
Messaggi: 61
Iscritto: 04/02/2008
|
ho creato una form dove ho inserito più istruzioni ognuna diversa dall'altra e devo fare in modo ke si esegua una dopo l'altra...come posso fare???
risp...:
|
|
antometal (Member)
Guru
Messaggi: 691
Iscritto: 12/09/2007
|
tt le istruzioni vengono eseguite una dopo l' altra...
forse nn ho capito cosa intendi dire
se posti il codice e ti spieghi meglio forse posso aiutarti
|
|
Due (Normal User)
Pro
Messaggi: 68
Iscritto: 19/10/2007
|
Non mi è molto chiaro...magari se puoi fare un esempio..
Comunque (se è questo che vuoi sapere) in un form le istruzioni vengono automaticamente eseguite una dopo l'altra a seconda dell'ordine in cui sono messe (poi certo, se uno lo riempie di "goto"...)
|
|
mad hacker (Normal User)
Pro
Messaggi: 61
Iscritto: 04/02/2008
|
inserisco due semplici codici per l'esempio...
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Form_Load()
mciSendString "Set cdaudio door Open", 0, 0, 0 'far aprire il lettore
end sub
beep 44, 4000 'far emettere un beep dopo l'apertura del lettore
End Sub
spero di essere stato chiaro..
Ultima modifica effettuata da mad hacker il 08/02/2008 alle 20:33 |
|
gantonio (Normal User)
Guru^2
Messaggi: 1532
Iscritto: 09/09/2007
|
|
|
LuigiBiasi (Normal User)
Expert
Messaggi: 237
Iscritto: 15/09/2006
|
Postato originariamente da mad hacker:
inserisco due semplici codici per l'esempio...
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Form_Load()
mciSendString "Set cdaudio door Open", 0, 0, 0 'far aprire il lettore
end sub
beep 44, 4000 'far emettere un beep dopo l'apertura del lettore
End Sub
spero di essere stato chiaro.. |
innanzitutto qui c'è un errore c'è un end sub di troppo
Private Sub Form_Load()
mciSendString "Set cdaudio door Open", 0, 0, 0 'far aprire il lettore
'leva end sub
beep 44, 4000 'far emettere un beep dopo l'apertura del lettore
End Sub
comunque non ho ben chiaro cosa intendi fare...
forse vuoi creare delle sub con delle istruzioni per esempio cosi:
sub suona()
beep 44, 4000 'far emettere un beep dopo l'apertura del lettore
end sub
sub aprilettore()
mciSendString "Set cdaudio door Open", 0, 0, 0
end sub
e la load del form diviene:
private sub Form1_Load()
aprilettore()
suona()
end sub
nn ho capito cosa intendi. |
|
antometal (Member)
Guru
Messaggi: 691
Iscritto: 12/09/2007
|
forse il problema è che senti il suono prima dell' apertura del lettore...
questo avvine xk ci vuole + tempo a far aprire il lettore (ke è un' operazione meccanica) che emettere un suono
in tal caso puoi usare doevents che fa trascorrere il tempo necessario all' esecuzione di un' operazione senza eseguire quella successiva
codice x lettore
doevents
codice x suono
in caso nn funzioni prova così:
Codice sorgente - presumibilmente VB.NET |
private sub timer1_timer() codice suono end sub private sub form_load() timer1.enabled=false codice lettore timer1.enabled=true
|
l' interval del timer sarà il tempo che interorre tra l' esecuzione dell' apertura del lettore e l' emissione del suono
così cre do funzioni
|
|
mad hacker (Normal User)
Pro
Messaggi: 61
Iscritto: 04/02/2008
|
|
|
antometal (Member)
Guru
Messaggi: 691
Iscritto: 12/09/2007
|
hai risolto???
|
|