sanderkeswerts
Legacy Member
visual basic: x,y,z assen
hej ik probeer in visual basic mijn eigen assentelsel te programmeren
de x en y as is al piccobello in orde
dit is mijn code:
Option Explicit
Const PIOVER180 As Single = 0.01745329251 '(PI / 180)
Private Sub cmdDraw_Click()
Dim sngHoek As Single
sngHoek = txtHoek.Text * PIOVER180
lna.X2 = lna.X1 + (Cos(sngHoek) * 2400)
lna.Y2 = lna.Y1 - (Sin(sngHoek) * 2400)
cos1.Text = (Cos(sngHoek))
sin1.Text = Sin(sngHoek)
End Sub
lna is lijn A,
en 2400 is het aantal keer groter dan dat is dan 1 (goniometrische cirkel)
nu is mijn vraag weet iemand hoe ik makelijk een Z asje erbij maak
formules/ misschien code, ik wil ook iets dat je de lijn laat tekenen en dan je muis naar het stelsel gaat en klik/beweeg en dan draait je assenstelsel + lijn
hints...
mjin programma ziet er zo uit,
http://forum.gunk.be/showthread.php?t=14005, daar staat foto omdat ik hem nimmer kan uploaden opnieuw
er word een sin en cos weergegeven
hej ik probeer in visual basic mijn eigen assentelsel te programmeren
de x en y as is al piccobello in orde
dit is mijn code:
Option Explicit
Const PIOVER180 As Single = 0.01745329251 '(PI / 180)
Private Sub cmdDraw_Click()
Dim sngHoek As Single
sngHoek = txtHoek.Text * PIOVER180
lna.X2 = lna.X1 + (Cos(sngHoek) * 2400)
lna.Y2 = lna.Y1 - (Sin(sngHoek) * 2400)
cos1.Text = (Cos(sngHoek))
sin1.Text = Sin(sngHoek)
End Sub
lna is lijn A,
en 2400 is het aantal keer groter dan dat is dan 1 (goniometrische cirkel)
nu is mijn vraag weet iemand hoe ik makelijk een Z asje erbij maak
formules/ misschien code, ik wil ook iets dat je de lijn laat tekenen en dan je muis naar het stelsel gaat en klik/beweeg en dan draait je assenstelsel + lijn
hints...
mjin programma ziet er zo uit,
http://forum.gunk.be/showthread.php?t=14005, daar staat foto omdat ik hem nimmer kan uploaden opnieuw
er word een sin en cos weergegeven
.
of zal is iets bedenken inventief ben ik wel