Newsgroup: it.comp.lang.visual-basic
Titolo: un aiutino?

devo fare un programmino che rappresenta dei vettori.
dunque è fatto così:
1 picturebox
4 textbox
e ovviamente un command button
dunque il codice che ho fatto è questo:
Dim GRad1, Grad2, Coox1, cooY1, Coox2, cooY2 As Double
Const PG = 3.14159265358979 ' PiGreco
Private Sub Command1_Click()
    GRad1 = Round(text1.text * PG / 180, 20) 'da radianti in gradi
    Grad2 = Round(text3.text * PG / 180, 20) 'da radianti in gradi
    Coox1 = text2.text * Cos(GRad1) 'coordinata x del vettore 1
    cooY1 =text2.text * Sin(GRad1) 'coordinata y del vettore 1
    Coox2 = text4.text * Cos(Grad2) ' coordinata x del vettore 2
    cooY2 = text4.text * Sin(Grad2) 'coordinata y del vettore 2
    Picture1.Scale (-200, 200)-(200, -200) 'scala disegno
    Picture1.BackColor = vbWhite 'colore sfondo
    Picture1.Line (0, 200)-(0, -200) 'asse x
    Picture1.Line (200, 0)-(-200, 0) 'asse y
    Picture1.Line (200, 0)-(190, 10) 'freccia x
    Picture1.Line (0, 200)-(10, 190) 'freccia y
    Picture1.Line (200, 0)-(190, -10) 'freccia x
    Picture1.Line (0, 200)-(-10, 190) 'freccia y
    Picture1.Line (0, 0)-(Coox1, cooY1), vbGreen 'vettore 1
    Picture1.Line (0, 0)-(Coox2, cooY2), vbRed 'vettore 2
End Sub
a rappresentare i vettori nn c'è problema, il problema è che mi serve fare 
le frecce alla fine dei vettori.
e poi rappresentare gli angoli con archi di circonferenza che partono 
dall'asse x del primo quadrante.
sono giorni che ci sto dietro, proprio non riesco.
spero che qualcuno possa aiutarmi.
grazie infinite
ciao 

    GRad1 = Round(text1.text * PG / 180, 20) 'da radianti in gradi
Basta, non leggo oltre.
Alberto
-- 
"Se viriamo, viriamo viriamo viriamo;
Se andiamo dritti, viriamo"
(Cit. "il tattico") 


visto che ti ho dato il programma che ho fatto fin qui potresti provarlo a 
costruire copiando il codice allegato, o no?
io volevo solo sapere come mettere 'ste frecce alla fine dei vettori. e 'sti 
archi di circonferenza per rappresentare gli angoli.
dimmi solo se si può o nn si può, basta.
ciao 

 dimmi solo se si può o nn si può, basta.
E' ovvio che si può, basta sapere cos'è un Seno e un Coseno, e calcolare con 
due formulette le coordinate (relative) degli estremi delle stanghettine 
delle frecce rispetto al punto finale del vettore. Sono quattro cazzate in 
croce, se sai appena appena lavorare in trigonometria.
Ciao



visto che sono 4 cazzate in croce e sono 5 giorni che ci lavoro sopra 
saresti così gentile da darmi tu il codice?

 saresti cosě gentile da darmi tu il codice?
Mi sa che l'esame (O il compito) č il tuo, no?
Piero

 6)cooy2
Le VARIABILI sono 6, ma te prima hai detto di aver utilizzato 6 VARIANTI 
(cioè tipo variant), invece, per come sono dichiarate, sono 5 VARIANT e 1 
DOUBLE (l'ultima)
-- 
Due stringhe entrano in un bar. La prima dice al barista: "Barista, dammi 
una birra.u.5n$x5t?*&4ru!2[sACC~ErJ". E la seconda: "Perdoni il mio amico, 
non ha il terminatore NULL"


ah scusa ho letto male io. 

 saresti così gentile da darmi tu il codice?
Sei un asino.
Perchè leggendo la mia frase, avresti dovuto immediatamente capire quale 
strada intraprendere. Non ho certo voglia di scriverti il codice, ma di 
fatto ti ho dato la soluzione.
Se fra dieci minuti non hai ancora risolto, allora il problema non è vb.



macchč esame, macchč compito, mi serve e basta.
e poi io intendevo il codice per le frecce alla fine dei vettori.
il resto l'ho fatto io.
perchč me lo chiedi? 


guarda che lo so benissimo che nn č un problema di vb.
sono io che nn riesco a ragionare su come si potrebbero fare 'ste frecce.
posso capire che non hai voglia di scrivermi il codice ma almeno dammi 
ancora un aiutino.
grazie
ciao 

 saresti cosě gentile da darmi tu il codice?
Questa č la classica domanda, che in un qualunque ambiente di lavoro,
generalmente irrita chi ascolta, e non aiuta, chi pone la domanda, a
compredere il suo problema e relativa soluzione.
--
Greg


su questo hai ragione, non ho dubbi, ma io sono in difficoltà, nn ci riesco.
ditemi almeno che tipo di formule di trigonometria dovrei usare.
grazie
ciao

 almeno dammi ancora un aiutino.
Ma scusa, le formule le hai già scritte!
Cioè, sono le stesse formule, identiche identiche identiche, di quelle che 
hai già usato.
Solo che devi riscriverle cambiando le variabili, e aggiungendo +30° e -30° 
all'angolo del vettore.
Ma le hai scritte tu o le hai copiate?
Perchè se le hai scritte tu, e non ne capisci il significato...


 le frecce alla fine dei vettori.
Questa volta lascio le disquisizioni filosofiche agli altri (non ho voglia
di analizzare il codice).
Per la domanda, la soluzione č banale se sai come rappresentare la direzione
del vettore: prendi il vertice finale della retta, lo stesso angolo, lo
disegni piů "corto" una volta aggiungendo ad es. 5 gradi e una seconda
togliendone 5.
Ecco disegnata la freccia.
Se cerchi qualche funzione matematica che ti aiuti dai un occhio alla mia
libreria sul sito comume: cerca "axvGraph" su 
www.it-lang-vb.net
Ciao
--
Reporting tool: 
http://www.neodatatype.net
Qualunque mentecatto puň scrivere codice che un computer possa capire.
I buoni programmatori scrivono codice che gli uomini possano capire.
[Martin Fowler]


forse questo è un aiuto prezioso.
proverò così
grazie
ciao 

 ha scritto nel messaggio news:N4Vne.131387$IN.22...@twister2.libero.it...

grazie a tutti!
mi sono fatto un sacco di risate!!!

 questa è un'offesa bella e buona.
Nooo dai .. questa "fa' ride" ... magari ora come ora tu
hai i tuoi problemi e non apprezzi questo fine umorismo
 LOL
--
Fosco