Visual Basic:aiuto programma

[casbah]

non e' che qualcuno e' capace di realizzarlo???sarei infinitamente grato....
Testo: Si realizzi sul form un semaforo con tre Shape circolari dei tre colori

del semaforo.
Con un tasto (chiamato Command 1)si devono attivare in sequenza ogni 2 secondi
le luci del semaforo passando dal verde al giallo e poi al rosso e poi nuovamente
al verde il tutto si deve realizzare tutto con un solo timer.

Programma: Lo shape verde si accende per 2 secondi si spegne per 2 secondi
e si accende il giallo per 2 secondi e si spegne e rimane spento per 2 secondi
infine il rosso si accende e rimane acceso per 2 secondi e spento per 2 secondi
e tutto ricomincia dal verde.

Il programma risulta più semplice farlo con una struttura di tipo Switch
con tre possibilità di scelta in ognuna di esse si colora una delle tre luci
facendo divenire bianche le altre due.

[Swisström]

Originariamente inviato da casbah

non e' che qualcuno e' capace di realizzarlo???sarei infinitamente grato....
Testo: Si realizzi sul form un semaforo con tre Shape circolari dei tre colori

del semaforo.
Con un tasto (chiamato Command 1)si devono attivare in sequenza ogni 2 secondi
le luci del semaforo passando dal verde al giallo e poi al rosso e poi nuovamente
al verde il tutto si deve realizzare tutto con un solo timer.

Programma: Lo shape verde si accende per 2 secondi si spegne per 2 secondi
e si accende il giallo per 2 secondi e si spegne e rimane spento per 2 secondi
infine il rosso si accende e rimane acceso per 2 secondi e spento per 2 secondi
e tutto ricomincia dal verde.

Il programma risulta più semplice farlo con una struttura di tipo Switch
con tre possibilità di scelta in ognuna di esse si colora una delle tre luci
facendo divenire bianche le altre due.

se nessuno ti aiuta prima, te lo realizzo domani sera.

[casbah]

Originariamente inviato da Swisström

se nessuno ti aiuta prima, te lo realizzo domani sera.

grazie mille sei gentilissimo, mi salveresti la vita, mi serve per giovedi a scuola....grazie ancora

[0rph3n]

non per rompere le balle, ma i compiti per casa vanno fatti!
perlomeno ci hai provato a realizzarlo sto programma (che tra l'altro è anche semplice)?
se si, allora chiedi aiuto sui punti in cui ti sei incasinato, non chiedere l'intero programma!
se no, prima provaci e poi chiedi aiuto!

'iao

[Ziosilvio]

Originariamente inviato da Swisström

se nessuno ti aiuta prima, te lo realizzo domani sera

Fare i compiti al posto degli altri non vuol dire aiutarli: semmai il contrario.

[Ziosilvio]

Originariamente inviato da casbah

mi serve per giovedi a scuola

Allora datti una mossa, che ormai manca poco.

[casbah]

Dim semaforo As Integer

Private Sub CommandButton1_Click()

If semaforo = 0 Then semaforo = 1

End Sub

Private Sub Timer1_timer()

Select Case (semaforo)
Case 1: CommandButton1.ForeColor = vbyellow
Case 2: CommandButton1.ForeColor = vbblack
Case 3: CommandButton1.ForeColor = vbred
Case 4: CommandButton1.ForeColor = vbblack
Case 5: CommandButton1.ForeColor = vbgreen
Case 6: CommandButton1.ForeColor = vbblack
End Select

If (semaforo < 6) And (semaforo > 0) Then semaforo = semaforo + 1
else semaforo = 1
end-if

End Sub

questo e' quello che ho fatto io, il programma non e' per me, per un mio amico.

[casbah]

ma cos'e' un forum di bacchettoni???se qualcono puo' aiutarmi grazie.

[wingman87]

Originariamente inviato da casbah

Dim semaforo As Integer

Private Sub CommandButton1_Click()

If semaforo = 0 Then semaforo = 1

End Sub

Private Sub Timer1_timer()

Select Case (semaforo)
Case 1: CommandButton1.ForeColor = vbyellow
Case 2: CommandButton1.ForeColor = vbblack
Case 3: CommandButton1.ForeColor = vbred
Case 4: CommandButton1.ForeColor = vbblack
Case 5: CommandButton1.ForeColor = vbgreen
Case 6: CommandButton1.ForeColor = vbblack
End Select

If (semaforo < 6) And (semaforo > 0) Then semaforo = semaforo + 1
else semaforo = 1
end-if

End Sub

questo e' quello che ho fatto io, il programma non e' per me, per un mio amico.

Il testo chiedeva di usare delle shape (una x ogni colore), non di colorare il bottone, di case dice di farne tre e invece di spegnere col nero dice di usare il bianco..
Io ti consiglio di mettere il timer disabled con interval 2000, quando premi il pulsante attivi il timer e fai accendere la shape del verde e poi imposti la variabile di stato (tu l'hai chiamata semaforo) a 1. Nel timer incrementi lo stato o lo riporti a 1 se è uguale a 4 e poi fai lo switch a seconda del valore dello stato colorando le shape giuste.

[casbah]

Originariamente inviato da wingman87

Il testo chiedeva di usare delle shape (una x ogni colore), non di colorare il bottone, di case dice di farne tre e invece di spegnere col nero dice di usare il bianco..
Io ti consiglio di mettere il timer disabled con interval 2000, quando premi il pulsante attivi il timer e fai accendere la shape del verde e poi imposti la variabile di stato (tu l'hai chiamata semaforo) a 1. Nel timer incrementi lo stato o lo riporti a 1 se è uguale a 4 e poi fai lo switch a seconda del valore dello stato colorando le shape giuste.

ehhhhhh??????

[0rph3n]

Originariamente inviato da casbah

ma cos'e' un forum di bacchettoni???se qualcono puo' aiutarmi grazie.

magari qualcuno c'è passato prima del "tuo amico" ( ) eh che ne dici?!
quindi quel qualcuno sa che non c'è modo migliore per imparare, che farsi le cose da soli!
Detto questo:

Originariamente inviato da casbah

Select Case (semaforo)
Case 1: CommandButton1.ForeColor = vbyellow
Case 2: CommandButton1.ForeColor = vbblack
Case 3: CommandButton1.ForeColor = vbred
Case 4: CommandButton1.ForeColor = vbblack
Case 5: CommandButton1.ForeColor = vbgreen
Case 6: CommandButton1.ForeColor = vbblack
End Select

Il programma risulta più semplice farlo con una struttura di tipo Switch
con tre possibilità di scelta

Il tuo switch ha 6 casi, quando è consigliato dal testo di usarne 3.

Si realizzi sul form un semaforo con tre Shape circolari dei tre colori del semaforo.

Stai colorando il pulsante e non le shape che sono menzionate nel testo.

[casbah]

Originariamente inviato da 0rph3n

magari qualcuno c'è passato prima del "tuo amico" ( ) eh che ne dici?!
quindi quel qualcuno sa che non c'è modo migliore per imparare, che farsi le cose da soli!
Detto questo:



Il tuo switch ha 6 casi, quando è consigliato dal testo di usarne 3.

Stai colorando il pulsante e non le shape che sono menzionate nel testo.

e quindi?

[Ziosilvio]

Originariamente inviato da casbah

il programma non e' per me, per un mio amico

Allora dì al tuo amico di darsi una mossa, che ormai manca poco.

ma cos'e' un forum di bacchettoni?

La prossima volta, provate a postare in un gruppo di discussione su Usenet, tu e il tuo amico: vedrete che accoglienza calorosa...

[casbah]

ecco il programma:

Dim A As Integer
Dim semaforo As Integer
Private Sub Command1_Click()
If semaforo = 0 Then semaforo = 1
A = 0
End Sub

Private Sub Command2_Click()
Unload Me
End
End Sub

Private Sub Form_Load()
Shape1.Visible = False
Shape2.Visible = False
Shape3.Visible = False
End Sub

Private Sub Timer1_timer()

Select Case (semaforo)
Case 1: Timer1.Interval = 2000
Shape1.Visible = True
Shape3.Visible = False
Shape2.Visible = False
Case 2: Timer1.Interval = 500
Shape2.Visible = True
Shape1.Visible = False
Shape3.Visible = False
Case 3: Timer1.Interval = 200
Shape1.Visible = False
Shape2.Visible = False
Shape3.Visible = False
If A = 0 Then
A = 1
Semaforo = 1
Else
A = 0
Semaforo = 3
End If
Case 4: Timer1.Interval = 2000
Shape3.Visible = True
Shape1.Visible = False
Shape2.Visible = False
End Select
If (semaforo < 4) And (semaforo > 0) Then semaforo = semaforo + 1 Else: semaforo = 1
End Sub

e' buona educazione in un forum non riempire le discussioni di offtopic e attingersi solo al tema del topic, altro che usernet

[0rph3n]

Originariamente inviato da casbah

e' buona educazione in un forum non riempire le discussioni di offtopic e attingersi solo al tema del topic, altro che usernet

dovrebbe essere buona educazione degli studenti non farsi fare i compiti dagli altri!
ps: hai visto che ci sei riuscito?

'iao

[Albozzo]

Originariamente inviato da casbah

ma cos'e' un forum di bacchettoni???se qualcono puo' aiutarmi grazie.

[LiFeHaCk]

ma daiiii io ho 17anni e mi sn imparato il visual basic da solo
e se penso ke c'è gente che nn sa fare cambiare colori a tre shape hiihhi nono nn voglio prendere in giro eheh cmq ti capisco... sarai agli inizi io il vb lo so bene però quando apro visualc++ corro su installazione applicazioni e lo disinstallo huahuauh mi manda troppooooo a maleeee! anke se ormai sarebbe ora di passare a qualke linguaggio un po piu efficente di vb hihihi ciaoo!!!
ti consiglio cmq di nn farti fare i programmini dagli altri perkè nn imparerai mai e cmq una volta ke ti avvi vedrai ke è una vera cavolata ahah io ho fatto server e client direct connect plusplus eheh (il famoso programma di P2P)
tutto da solo cn un mio amiko.... si kiamava mmm v-hub esiste ankora un suo sito su altervista eheh
cmq fidati ke il vb è un bel linguaggio secondo me il vb è vero ke è pieno di bug ma alla fine basta saperli superare e diventa il migliore ehehhehe
ciaooo!!!
PS: sai io da cosa ho imparato: form1.visible=true , form1.visible=false
auhuhbauhbubh ti giuro me lo ricorderò sempre è stata la prima cosa ke ho scritto ^^ ciaoo

[Albozzo]

Originariamente inviato da LiFeHaCk

ma daiiii io ho 17anni e mi sn imparato il visual basic da solo
e se penso ke c'è gente che nn sa fare cambiare colori a tre shape hiihhi nono nn voglio prendere in giro eheh cmq ti capisco... sarai agli inizi io il vb lo so bene però quando apro visualc++ corro su installazione applicazioni e lo disinstallo huahuauh mi manda troppooooo a maleeee! anke se ormai sarebbe ora di passare a qualke linguaggio un po piu efficente di vb hihihi ciaoo!!!
ti consiglio cmq di nn farti fare i programmini dagli altri perkè nn imparerai mai e cmq una volta ke ti avvi vedrai ke è una vera cavolata ahah io ho fatto server e client direct connect plusplus eheh (il famoso programma di P2P)
tutto da solo cn un mio amiko.... si kiamava mmm v-hub esiste ankora un suo sito su altervista eheh
cmq fidati ke il vb è un bel linguaggio secondo me il vb è vero ke è pieno di bug ma alla fine basta saperli superare e diventa il migliore ehehhehe
ciaooo!!!
PS: sai io da cosa ho imparato: form1.visible=true , form1.visible=false
auhuhbauhbubh ti giuro me lo ricorderò sempre è stata la prima cosa ke ho scritto ^^ ciaoo

condivido tutto in quello che dici....... ma penso che il vb sia pieno di bug (nn so se superabili tutti)...... io uso il delphi ed è una delle cose + belle e facili della STORIA DELLA PROGRAMMAZIONE....... dico SECONDO ME, nn mi aggredite!!!!!!!!!!!!!
ciauz

[LiFeHaCk]

condivido tutto in quello che dici....... ma penso che il vb sia pieno di bug (nn so se superabili tutti)...... io uso il delphi ed è una delle cose + belle e facili della STORIA DELLA PROGRAMMAZIONE....... dico SECONDO ME, nn mi aggredite!!!!!!!!!!!!!
ciauz

hihihi ok lo proverò LOL
per i bug sn tutti superabili ahah anzi alcune volte dico per fortuna che ci sn!! LOL bahuuhba