Visual Basic 6 - Ripetere un'azione più volte

Forum - Visual Basic 6 - Ripetere un'azione più volte

Pagine: [ 1 2 ]

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 22:32
Lunedì, 27/08/2007

Ciao!
volevo sapere come posso ripetere un'azione, un pezzo di codice più volte.
Per esempio mettiamo che in un form ci sia un pulsante che come codice ha:

Msgbox "ciao!"

allora io vorrei sapere come posso far ripetere questa azione un certo tot che desidero io.
Grazie in anticipo a quelli che si interesseranno al mio problema.

WARRIOR (Ex-Member)
Guru

Messaggi: 627
Iscritto: 30/03/2007

Postato alle 0:15
Martedì, 28/08/2007

Per ripetere del codice si usano i cicli

TheCrow (Ex-Member)
Expert

Messaggi: 471
Iscritto: 31/05/2007

Postato alle 0:27
Martedì, 28/08/2007

Potresti usare sia un while ke un for :k:

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 8:58
Martedì, 28/08/2007

grazie, anche se questo lo sapevo già.
Quando ad esempio ho provato a usare while
e ho fatto la prova per vedere se funzionava mi ha dato errore segnalandomi un pezzo di codice che,
oltre a trovarsi in una function apparte, quando non ho usato while funzionava tutto correttamente.

potete postarmi un codice o con while o con for-next o con do while, o ecc.
dove fate ripetere ad esempio il codice:

Msgbox "prova"

per un certo tot (diciamo 5). Quindi quando per esempio si preme un pulsante vengono 5 messggi con all'interno scritto "prova".

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 9:20
Martedì, 28/08/2007

il msgbox appare 1 alla volta non contemporaneamente cmq il ciodice potrebbe essere
for x = 1 to 5
msgbox ("prova")
next x

Ultima modifica effettuata da P4p3r0g4 il 28/08/2007 alle 9:21

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 9:55
Martedì, 28/08/2007

Grazie per le info, però il problema resta sempre lo stesso adesso ti posto questo codice che ho trovato che blocca i processi:

Function TerminaProcesso(NomeProcesso As String)
   For Each Processo In GetObject("winmgmts:").InstancesOf("win32_process")
       If Processo.Name = NomeProcesso Then Processo.Terminate
   Next
End Function

poi in nel pulsante ho messo:
terminaprocesso "nome del processo"

se io metto solo questo codice  e provo, il prog. funziona, ma quando metto il tuo codice e provo il prog. mi da errore e mi evidenzia "Processo.Terminate" che si trova nella function. Forse ho sbagliato io quindi ti dico come ho messo il tuo codice dentro la sub command1_click()

For x = 1 To 5
TerminaProcesso "nome processo"
Next x

Ultima modifica effettuata da GrG il 28/08/2007 alle 9:57

c.ronaldo (Ex-Member)
Pro

Messaggi: 121
Iscritto: 05/07/2007

Postato alle 10:19
Martedì, 28/08/2007

Scusa è logico,se il processo è gia terminato che lo ai a fare 4 volte

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 10:28
Martedì, 28/08/2007

Si, però io intendo fare un programma che fa terminare un processo di un'altro prog. attivo.
Poi però io voglio che quando lo riapro lui ri fa terminare il processo e così via...
però non so bene come fare...
puoi aiutarmi tu?
vorrei che controllasse, circa ogni 3 secondi, se il processo c'è e se lo trova lo blocca, ma come ti ho detto prima non so bene come posso fare,
ho solo una vaga idea...
Mi puoi dire come faccio a dire questo in codice:
se msnmsgr.exe è attivo....

Ultima modifica effettuata da GrG il 28/08/2007 alle 10:47

c.ronaldo (Ex-Member)
Pro

Messaggi: 121
Iscritto: 05/07/2007

Postato alle 10:57
Martedì, 28/08/2007

Testo quotato

Postato originariamente da GrG:
Function TerminaProcesso(NomeProcesso As String)
On error resume next
   For Each Processo In GetObject("winmgmts:").InstancesOf("win32_process")
       If Processo.Name = NomeProcesso Then Processo.Terminate
   Next
End Function

For x = 1 To 5
TerminaProcesso "nome processo"
Next x

Pagine: [ 1 2 ]