GoGreen PC TuneUp™
Learn More

Insta-Install™
this is how we code sign our software and ssl encrypt our websites from our affiliate partner SSL.com

myBlog

myBlog Home

Back to Blog MTNCOMP


Visual Basic 6 Pro, generate a graphics test pattern in line with mandala draft

Published: Tuesday, October 29, 2019 written by Drew Jackson
View Count: 28
Keywords: Visual Basic 6, Mandalas, Mandelbrot, Images, Graphics, Test Pattern



Here is some sample code to get the screen width and height and test pattern to start your mandala generation. Its needed to start your symmetry points. it can be used for other things, but I am using it to start a Mandelbrot or Mandala's generator.
 
enjoy. more to come...
 
 
Private Sub Form_DblClick()
Call DrawTestPattern
End Sub

Private Sub Form_Load()
Call DrawTestPattern
End Sub

Private Sub DrawTestPattern()

'GGPCM.Label1 = "create line, randomize"
GGPCM.Label1 = ""
Debug.Print "create line, randomize"
Dim x, y, w, h

'Debug.Print Screen.Width & ", " & Screen.Height
Debug.Print GGPCM.Width & ", " & GGPCM.Height
Debug.Print GGPCM.ScaleWidth & ", " & GGPCM.ScaleHeight

'scalewidth is accurate to the form dimensions
w = GGPCM.ScaleWidth
h = GGPCM.ScaleHeight

Randomize
Debug.Print Rnd
'While x < 1000
'     x = x + 1
'     y = y + 5
'    GGPCM.PSet (x, y), vbBlack
'Wend

'draw a quadrant
PSet (w - (w * 0.1), h - (h * 0.1)), vbRed

'X corner to corner
GGPCM.Line (0, 0)-(ScaleWidth, ScaleHeight)
GGPCM.Line (ScaleWidth, 0)-(0, ScaleHeight)

'Cross T
GGPCM.Line (0, ScaleHeight * 0.5)-(ScaleWidth, ScaleHeight * 0.5)
GGPCM.Line (ScaleWidth * 0.5, 0)-(ScaleWidth * 0.5, ScaleHeight)

'GGPCM.Line (0, 0)-(w, h)
'GGPCM.Line (w, 0)-(0, h)


End Sub

 
 

if you found this article helpful, consider contributing $10, 20 or so..to the author. more authors coming soon
FYI we use paypal or patreon, patreon has 3x the transaction fees, so we don't, not yet.

© 2019 myBlog™ v1.1 All rights reserved. We count views as reads, so let's not over think it.