Keskustelu: Ohjelmointikysymykset: VB6: vb6 line ja drawstyle

viivan picture1.line piirtämisessä olis ongelma.

Pitäis saada tulostettua viiva "käyrä" picture ikkunaan katkoviivoilla, drawstyle:llä menee vähän puuroks kun näyttet(lukuarvot) josta viiva pitäisi piirtää tulevat loppua kohden lyhemmillä väleillä, eli sen viivan lopussa se alkaa olemaan yhtenäistä viivaa, kun piirettävän viivan pituus on lyhyempi kuin katkoviivan tyhjä kohta.

Se viiva on talukossa oleva kiihtyvyyskäyrä jossa vaaka akselilla on nopeus ja pystyakselilla on kiihtyvyys,
mittaustavasta johtuen näytteitä tulee nopeuden kasvaessa tiiheämmin.

Niiden tiedostossa olevien näytearvoje muokkaamiseen josta käyrä piirretään ei viitsisi alkaa.

Onko piirettävä käyrä yhtenäisestä viivasta line käskyllä ja lähettävä esim. vasemmasta ylaidasta järjeltelmällisesti lukemaan ikkunassa olevaa pikselin väriä ja muutettava sitä tasaisin välein taustan väriseksi, sillä sen viivan sai haluamakseen katkoviivaks.

Siihen taulukkoon piirtyy samalla värillä, mutta eri värisävyllä useampia viivoja, joten katkoviivalla olis hyvä erottaa osa viivoista.

Sen viivan piirtäminen on tällä hetkellä toteutettu näin.

Picture1.Line (tx2 + (900 - jako), 6600 - ty2)-(tx1 + (900 - jako), 6600 - ty1), RGB(ekavari1, ekavari2, ekavari3)
tx2=tx1:ty2=ty1

siis viivaa jatketaan siitä mihin se edellisellä keralla jäi.

Tossa olis tuloste siitä käyrästä johon se katkoviivoilla piirtyvä viiva pitäisi saada aikaan.

http://galleria.busanistit.org/muitakuvia/Agon_ja_pocan_busan_k_ppyr_t

Laske alkuperäisten pisteiden perusteella käyrälle tasavälein katkoviivan osien alku- ja loppupisteet ja piirrät ne Line-metodilla. Matikkaa hiukan kehiin.

Juu, sitäkin tässä on mietitty, mutta kun siellä lopussa olevat viivat ovat yksittäin piirettynä niin lyhyitä, ja vaihtavat suuntaansa, että niitä pitäis yhdistää useampi yhteen ja laskea siitä alku ja loppupiste, jollon se on sama vaikka siitä tiedostosta missä ne arvot ovat laskee lopuupäästä yhteen useamman arvon ja ottaa niistä keskiarvon.

Miten yleensä tommoinen graffinen käyrän piirto on toteutettu?

vaikkapa tälläisellä ohjelmalla:

Dim y As Integer
Dim x As Integer

Private Sub Form_Load()

y = 1000

x = Sin(y)
End Sub

Private Sub Timer1_Timer()

x = x + 2
y = y + x / 8

Circle (x, y), 1

End Sub