• In diretta da GamesVillage.it
    • News
    • -
    • In Evidenza
    • -
    • Recensioni
    • -
    • RetroGaming
    • -
    • Anteprime
    • -
    • Video
    • -
    • Cinema

Visualizzazione risultati da 1 a 8 di 8

Discussione: ViSuAl BaSiC pRoJeCt

Cambio titolo
  1. #1
    nicox
    Ospite

    ViSuAl BaSiC pRoJeCt

    in questi giorni ho iniziato un progetto per scuola.
    in pratica devo programmare con vb6 il funzionamento di 2 semafori!

    dovrei individuare 4 casi:

    la prima colonna indica quello che deve fare il semaforo 1 e la seconda si riferisce al semaforo 2

    in pratica al tempo 0 devo avere l'accensione della shape che evidenzia il verde per il semaforo 1, mentre per il semaforo 2 dovrei avere il rosso.
    al tempo 20, il semaforo 1 è sull'arancio mentre il semaforo 2 rimane rosso, e così via, facendolo ripetere all'infinito finchè nn premo end (loop ? )

    la struttura del progetto è così:

    con 6 shape
    2 bottoni
    1 label
    1 timer

  2. #2
    nicox
    Ospite
    per ora ho scritto questo, ma ho dei problemi: non riesco a fare cambiare colore agli shape dopo i 20 secondi... dove ho sbagliato??

    Dim t As Integer
    Dim n As Integer
    Dim a As Integer

    Private Sub btnesci_Click()
    End
    End Sub

    Private Sub btnonoff_Click()

    n = n + 1
    a = n Mod 2

    If a = 0 Then
    btnonoff.BackColor = vbRed
    btnonoff.Caption = "OFF"
    t = 0
    tmrs.Enabled = False

    ElseIf a = 1 Then
    btnonoff.BackColor = vbGreen
    btnonoff.Caption = "ON"
    tmrs.Enabled = True

    Select Case t
    Case Is > 0 And t <= 20
    shpv1.FillColor = vbGreen
    shpr2.FillColor = vbRed
    Case Is > 20 And t <= 25
    shpa1.FillColor = vbYellow
    shpr2.FillColor = vbRed
    Case Is > 25 And t <= 35
    shpr1.FillColor = vbRed
    shpv2.FillColor = vbGreen
    Case Is > 35 And t <= 40
    shpr1.FillColor = vbRed
    shpa2.FillColor = vbYellow


    End Select
    End If
    End Sub

    Private Sub Form_Load()
    Label1.Caption = 0
    btnonoff.BackColor = vbRed
    btnonoff.Caption = "OFF"
    End Sub

    Private Sub tmrs_Timer()
    If a = 1 Then
    t = t + 1
    Label1.Caption = t
    End If
    End Sub
    *modificato
    Ultima modifica di nicox; 26-04-2005 alle 20:15:54

  3. #3
    Dipendente da PES 2008 L'avatar di PaulPS2
    Registrato il
    07-04
    Località
    Busto Arsizio
    Messaggi
    5.186
    è un po' un casino Visual Basic, prenditi un bel libro guida e studia studia!


  4. #4
    Bannato L'avatar di Eclipse
    Registrato il
    02-04
    Località
    C++atania
    Messaggi
    5.745
    fallo in c++ con le sdl

  5. #5
    nicox
    Ospite
    @PaulPS2: di manuali di vb nn ne ho... e comunque nn ho tempo di studiare perchè miserve entro sabato

    @Eclipse: devo usare vb perchè è per scuola

  6. #6
    nicox
    Ospite
    ho risolto il problema del tempo che partiva per i bippi suoi.

    nn riesco però ancora a fare in modo che dopo 20 secondi, le shape accese varino!!
    HELP

  7. #7
    Dipendente da PES 2008 L'avatar di PaulPS2
    Registrato il
    07-04
    Località
    Busto Arsizio
    Messaggi
    5.186
    Citazione nicox
    @PaulPS2: di manuali di vb nn ne ho... e comunque nn ho tempo di studiare perchè miserve entro sabato

    @Eclipse: devo usare vb perchè è per scuola
    Vuoi dire che dopo sabato nn devi fare più nbiente con VB?


  8. #8
    nicox
    Ospite
    no ma devo portare questa relazione per sabato.
    vb probabilmente lo userò solo quest'anno (3^ITIS) xciò preferisco nn approfondire + di tanto

Regole di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •