Springen naar inhoud


- - - - -
VS 2015

Bass.net Visuals

VS2015 Bass.net

  • Log in a.u.b. om te beantwoorden
Er zijn 1 reacties in dit onderwerp

#1 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 752 berichten
    Laatst bezocht gisteren, 20:46
  • LocatieMechelen (BE)

Geplaatst op 04 juli 2020 - 01:21

Ik ben  eigenlijk al een hele tijd aan't proberen wat visuals in Tray Streamer te steken maar ik loop tegen een probleem
https://www.youtube....h?v=8ULHoZ5S0bQ

Dit staat in een backgroundworker
Visual Basic Code:
   	 Do While Not BgwVisuals.CancellationPending
			If Stream <> 0 Then
				Vis.CreateSpectrumLinePeak(Stream, CreateGraphics, New Rectangle(0, 0, ClientSize.Width, ClientSize.Height), Color.LightBlue, Color.OrangeRed, Color.White, BackColor, If(ClientSize.Width > 1024, ClientSize.Width / 1024, 2), 2, 4, 10, False, True, True)
				'Vis.CreateSpectrumWave(Stream, CreateGraphics, New Rectangle(0, 0, ClientSize.Width, ClientSize.Height), Color.LightBlue, Color.OrangeRed, BackColor, If(ClientSize.Width > 1024, ClientSize.Width / 1024, 2), False, True, False)
				'Vis.CreateSpectrumEllipse(Stream, CreateGraphics, New Rectangle(0, 0, ClientSize.Width, ClientSize.Height), Color.LightBlue, Color.OrangeRed, BackColor, If(ClientSize.Width > 1024, ClientSize.Width / 1024, 2), 5, False, True, False)
				'Vis.CreateSpectrumBean(Stream, CreateGraphics, New Rectangle(0, 0, ClientSize.Width, ClientSize.Height), Color.LightBlue, Color.OrangeRed, BackColor, If(ClientSize.Width > 1024, ClientSize.Width / 1024, 2), False, True, False)
				'Vis.CreateSpectrumDot(Stream, CreateGraphics, New Rectangle(0, 0, ClientSize.Width, ClientSize.Height), Color.LightBlue, Color.OrangeRed, BackColor, 2, 2, False, True, False)
				'Thread.Sleep(10)
			Else
				Vis.ClearPeaks()
			End If
		Loop

Ik doen wrs iets verkeerd maar het beeld ziet er niet uit, niet strak genoeg voor wat het eigenlijk moet zijn en zeker als ik alles in het groot zet loopt ie achter en is het traag met updaten. Deze weg verder bewandelen of zelf iets proberen in elkaar te steken, direct via DX12????????

#2 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 752 berichten
    Laatst bezocht gisteren, 20:46
  • LocatieMechelen (BE)

Geplaatst op 21 juli 2020 - 17:25

Ondertussen ben ik al wat verder en de tip is DoubleBuffered=true van je form/picturebox als dat laatste al kan? en dan eerst de bitmap ergens in stompen en dan weergeven op het form/picturebox

Visual Basic Code:
 Do While Not BgwVisuals.CancellationPending
If Stream <> 0 Then
BackgroundImage= Vis.CreateSpectrumLinePeak(Stream, ClientSize.Width, ClientSize.Height, Color.LightBlue, Color.OrangeRed, Color.White, BackColor, If(ClientSize.Width > 1024, ClientSize.Width / 1024, 2), 2, 4, 10, False, True, True)
'Vis.CreateSpectrumWave(Stream, CreateGraphics, New Rectangle(0, 0, ClientSize.Width, ClientSize.Height), Color.LightBlue, Color.OrangeRed, BackColor, If(ClientSize.Width > 1024, ClientSize.Width / 1024, 2), False, True, False)
'Vis.CreateSpectrumEllipse(Stream, CreateGraphics, New Rectangle(0, 0, ClientSize.Width, ClientSize.Height), Color.LightBlue, Color.OrangeRed, BackColor, If(ClientSize.Width > 1024, ClientSize.Width / 1024, 2), 5, False, True, False)
'Vis.CreateSpectrumBean(Stream, CreateGraphics, New Rectangle(0, 0, ClientSize.Width, ClientSize.Height), Color.LightBlue, Color.OrangeRed, BackColor, If(ClientSize.Width > 1024, ClientSize.Width / 1024, 2), False, True, False)
'Vis.CreateSpectrumDot(Stream, CreateGraphics, New Rectangle(0, 0, ClientSize.Width, ClientSize.Height), Color.LightBlue, Color.OrangeRed, BackColor, 2, 2, False, True, False)
Else
Vis.ClearPeaks()
End If
Loop
;)

https://youtu.be/r_G3IUGmKf4

Veranderd door Damic, 21 juli 2020 - 18:06.






Ook met taq VS 2015, VS2015, Bass.net voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VS 2015] Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)