grafica vb

[Tom Bombadillo]

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!

[gymvideo]

ma i rettangoli sono tutte delle picture box?

[Tom Bombadillo]

no, li devo fare dentro una picturebox dopo aver schiacciato un command button

[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

[Tom Bombadillo]

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?

[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

[Tom Bombadillo]

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

[thebigdax]

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

[Tom Bombadillo]

grazie

[thebigdax]

sei riuscito a farlo funzionare?

[Tom Bombadillo]

no
mi esce male il rettangolo piccolo (quello di centro)

[thebigdax]

solo quello?