View Full Version : Visual Basic:aiuto programma
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
28-03-2006, 23:26
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.
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 ;)
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
29-03-2006, 10:27
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
29-03-2006, 10:28
mi serve per giovedi a scuola
Allora datti una mossa, che ormai manca poco.
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.
ma cos'e' un forum di bacchettoni???se qualcono puo' aiutarmi grazie.
wingman87
29-03-2006, 13:49
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.
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?????? :help:
ma cos'e' un forum di bacchettoni???se qualcono puo' aiutarmi grazie.
magari qualcuno c'è passato prima del "tuo amico" ( :rolleyes: ) eh che ne dici?!
quindi quel qualcuno sa che non c'è modo migliore per imparare, che farsi le cose da soli!
Detto questo:
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.
magari qualcuno c'è passato prima del "tuo amico" ( :rolleyes: ) 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
29-03-2006, 15:00
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...
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
e' buona educazione in un forum non riempire le discussioni di offtopic e attingersi solo al tema del topic, altro che usernet
:sbonk:
dovrebbe essere buona educazione degli studenti non farsi fare i compiti dagli altri!
ps: hai visto che ci sei riuscito?
'iao
ma cos'e' un forum di bacchettoni???se qualcono puo' aiutarmi grazie.
:D :sofico:
LiFeHaCk
29-03-2006, 21:16
:doh: :doh: 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 :D:D 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 :D
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
:doh: :doh: 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 :D:D 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 :D
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!!!!!!!!!!!!! :D :sofico:
ciauz
LiFeHaCk
05-04-2006, 13:09
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 :D:D ok lo proverò LOL
per i bug sn tutti superabili ahah anzi alcune volte dico per fortuna che ci sn!! LOL bahuuhba
vBulletin® v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.