lampeggio led con timer con VB6

[cbrseicento]

Ciao a tutti,ho letto in giro non ho trovato nulla che fa al mio caso,premetto che so usare poco Visual Basic 6,a casa mia ho un impianto domotico,gestito sia in locale che da touchscreen,quello che vorrei è : ho dei faretti RGB da far lampeggiare tipo strobo,ho provato ma senza risultati,per accenderli li accendo tramite button,e posso cambiare i colori a mio piacimento,ma vorrei anche farli lampeggiare tipo ogni 300/500 millisecondi,qualcuno è così gentile a darmi qualche dritta nel codice da scrivere?

quello che vorrei realizzare e questo,
un Command per accensione/spegnomento faretto
un timer con intervallo 500ms per farli lampeggiare,
per spegnere vorrei poter usare lo stesso command che uso per accenderli..

grazie a tutti

[oregon]

Ma se hai detto che riesci ad accenderli e spegnere, avrai scritto del codice.

Basta aggiungere un timer.

[cbrseicento]

Originariamente inviato da oregon
Ma se hai detto che riesci ad accenderli e spegnere, avrai scritto del codice.

Basta aggiungere un timer.

si certo,il problema è quando aggiungo il timer non so che codice scrivere

[MItaly]

Originariamente inviato da cbrseicento
si certo,il problema è quando aggiungo il timer non so che codice scrivere

Scusa, tu sai già come accendere e spegnere il LED, giusto? Devi semplicemente usare il medesimo codice nell'evento del timer...

[oregon]

Originariamente inviato da MItaly

Scusa, tu sai già come accendere e spegnere il LED, giusto? Devi semplicemente usare il medesimo codice nell'evento del timer...

E' quello che avevo scritto ... evidentemente non ha scritto lui il codice o non esiste proprio un codice ...

[cbrseicento]

Originariamente inviato da oregon
E' quello che avevo scritto ... evidentemente non ha scritto lui il codice o non esiste proprio un codice ...

il codice l'ho scritto io tramite degli esempi a corredo della domotica,ho fatto come mi ha suggerito MIitaly,in effetti funziona,però quando clicco sul button non si spegne il led ma continua a lampeggiare,scrivo i lcodice qui

Option explicit
Dim x1 As Integer

nel command1 ho scritto:

If x1 = 0 Then
[indirizzo plc e led rgb]
x1 = 1
Goto fine1:
End if

If x1 = 1 Then
[indirizzo plc e led rgb]
x1 = 0
Goto fine1:
End if
fine1:
End Sub

nel timer:
ho scritto la stessa cosa,
ma cliccando sul command1 non spegne il led ma continua a lampeggiare

spero aver capito cosa intendi per codice tra [code]

[MItaly]

Se vuoi che smetta di lampeggiare devi disattivare il timer, cambiando la sua proprietà Enabled.
Tieni presente però che a programmare "a copia incolla" non si va molto lontano...


Per inciso, il codice va inserito tra tag [code] ... [/code], provvedi a correggere.

[oregon]

Originariamente inviato da cbrseicento
il codice l'ho scritto io tramite degli esempi a corredo della domotica

Ti consiglio di rivedere il codice in modo opportuno per eliminare quei goto.

Se il LED deve lampeggiare, il timer deve essere abilitato. Se deve essere sempre acceso/spento, ovviamente dovrai disabilitare prima il timer.

Non devi semplicemente "ripetere" lo stesso codice nel timer ma impostare una funzione/sub che accenda/spenga il LED e richiamarla dal timer e/o dal click del button a seconda dei casi.

Dai un'occhiata ad un manuale di base del VB6.

[MItaly]

Originariamente inviato da cbrseicento
spero aver capito cosa intendi per codice tra [code]

No, non hai capito; i tag code funzionano così: scrivi
[code]
qui in mezzo incolli il codice
[/code]

Per il resto, non posso che confermare quanto scritto da oregon.

[cbrseicento]

diciamo che se ero capace non stavo qui a chiedere aiuto,cmq va bene lo stesso,chiederò aiuto altrove..

mi ero iscritto a questo forum perchè lo trovavo validissimo,e poter prendere spunto ad imparare da persone preparate,ma dato le risposte secche che date,credo non sia molto facile imparare da voi...cmq va bene lo stesso...