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

Visualizzazione risultati da 1 a 12 di 12

Discussione: grafica vb

Cambio titolo
  1. #1
    Bannato L'avatar di Tom Bombadillo
    Registrato il
    04-05
    Località
    nell'internet point
    Messaggi
    399

    grafica vb

    aiutatemi perfavore che non ci sto capendo più niente!



    in pratica devo creare (con visual basic) in una picture box tramite un command button questo disegno che c'è sopra.
    i rettangoli devono distare 50 pixel,il rettangolo più grande ha il lato grande di 5000 punti e il lato piccolo di 3000. il rettangolo più piccolo ha il lato maggiore di 50 punti, mentre il lato superiore lo si calcola di conseguenza.

    non riesco a mettere in pratica quello che ho in mente! ho intuito che devo usare un ciclo for, ma poi buio totale.
    che qualche genio d'informatica mi aiuti perfavore, mi sto scervellando! grazie!

  2. #2
    gymvideo
    Ospite
    ma i rettangoli sono tutte delle picture box?

  3. #3
    Bannato L'avatar di Tom Bombadillo
    Registrato il
    04-05
    Località
    nell'internet point
    Messaggi
    399
    no, li devo fare dentro una picturebox dopo aver schiacciato un command button

  4. #4
    Programmatore capo L'avatar di thebigdax
    Registrato il
    10-04
    Località
    IBM
    Messaggi
    781
    non so niete di visual basic però fai così:
    imposti le variabili con i valori dei due lati
    crei un repeat con all'interno il for che disegna tutti i punti, alla fine del for diminuisci i lati, la condizione di termine del repeat è until lato minore e lato maggiore è 50 e 30.
    alla fine di questo repeat si interrompe l'esecuzione del comando button perchè ha fatto quello che doveva fare e ha disegnato tutti i punti

    Può sempre servire
    Nel 1969, 2 commodore 64 sono riusciti a far andare l'uomo sulla Luna... ...oggi, nel 2005, un Athlon 3500+ fa fatica a far girare Windows Xp!!!!

  5. #5
    Bannato L'avatar di Tom Bombadillo
    Registrato il
    04-05
    Località
    nell'internet point
    Messaggi
    399
    Citazione thebigdax
    non so niete di visual basic però fai così:
    imposti le variabili con i valori dei due lati
    crei un repeat con all'interno il for che disegna tutti i punti, alla fine del for diminuisci i lati, la condizione di termine del repeat è until lato minore e lato maggiore è 50 e 30.
    alla fine di questo repeat si interrompe l'esecuzione del comando button perchè ha fatto quello che doveva fare e ha disegnato tutti i punti
    diciamo che sono un autodidatta e certi termini non li capisco ancora, che cos'è un repeat?

  6. #6
    gymvideo
    Ospite
    il problema è disegnare i lati.

    Teoricamente puoi provare così:

    Dim i,distanza
    distanza=0
    For i=1 to num_rettangoli
    distanza=distanza+50
    disegnarettangoli
    next

  7. #7
    Bannato L'avatar di Tom Bombadillo
    Registrato il
    04-05
    Località
    nell'internet point
    Messaggi
    399
    Citazione gymvideo
    il problema è disegnare i lati.

    Teoricamente puoi provare così:

    Dim i,distanza
    distanza=0
    For i=1 to num_rettangoli
    distanza=distanza+50
    disegnarettangoli
    next
    ma per disegnare i rettangoli nn devo fare così?
    es:
    pic1.line (400,598)-(98752,9856),300,B

    dove b sta per rettangolo, in pratica disegno la diagonale e il comando b fa il rettangolo basandosi sulla diagonale

  8. #8
    Programmatore capo L'avatar di thebigdax
    Registrato il
    10-04
    Località
    IBM
    Messaggi
    781
    Citazione Tom Bombadillo
    diciamo che sono un autodidatta e certi termini non li capisco ancora, che cos'è un repeat?
    in pascal il repeat funziona così

    repeat
    a:=a+1
    until a=15

    ripete a:=a+1 fino a che non è 15 non so però come si fa in visual basic

    Può sempre servire
    Nel 1969, 2 commodore 64 sono riusciti a far andare l'uomo sulla Luna... ...oggi, nel 2005, un Athlon 3500+ fa fatica a far girare Windows Xp!!!!

  9. #9
    Bannato L'avatar di Tom Bombadillo
    Registrato il
    04-05
    Località
    nell'internet point
    Messaggi
    399
    grazie

  10. #10
    Programmatore capo L'avatar di thebigdax
    Registrato il
    10-04
    Località
    IBM
    Messaggi
    781
    sei riuscito a farlo funzionare?

    Può sempre servire
    Nel 1969, 2 commodore 64 sono riusciti a far andare l'uomo sulla Luna... ...oggi, nel 2005, un Athlon 3500+ fa fatica a far girare Windows Xp!!!!

  11. #11
    Bannato L'avatar di Tom Bombadillo
    Registrato il
    04-05
    Località
    nell'internet point
    Messaggi
    399
    no
    mi esce male il rettangolo piccolo (quello di centro)

  12. #12
    Programmatore capo L'avatar di thebigdax
    Registrato il
    10-04
    Località
    IBM
    Messaggi
    781
    solo quello?

    Può sempre servire
    Nel 1969, 2 commodore 64 sono riusciti a far andare l'uomo sulla Luna... ...oggi, nel 2005, un Athlon 3500+ fa fatica a far girare Windows Xp!!!!

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
  •