GoGreen PC TuneUp™
Learn More

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


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 Andy Flagg
View Count: 160
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

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

'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 an Andrew Jackson 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.

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