home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pctchnqs
/
1991
/
number5
/
bitmap.bas
< prev
next >
Wrap
BASIC Source File
|
1991-09-08
|
992b
|
40 lines
Sub Command2_Click () ' "CREATE A BITMAP" BUTTON
' Creates an image on a bitmap file which can be
' manipulated and printed with Windows Paintbrush.
Screen.MousePointer = 11 ' HOURGLASS CURSOR
Picture1.ScaleMode = 5 ' SCALE IN INCHES
Picture1.AutoRedraw = -1 ' IT'S A BITMAP PICTURE
Picture1.Cls
Picture1.DrawWidth = 3 ' DRAW CIRCLES
Picture1.Circle (2, 2), 1.5
Picture1.DrawWidth = 1
Picture1.Circle (2, 2), 1.45
Pi# = 3.1415926537 ' DRAW LISSAJOUS FIGURE
x = 2
y = 2 + 1
Picture1.PSet (x, y)
For t# = 0 To Pi# * 32.1 Step Pi# / 64
x = 2 + Sin(t#)
y = 2 + Cos(t# * 1.0625)
Picture1.Line -(x, y)
s% = DoEvents()
Next t#
m$ = "PC Techniques" ' PRINT LABEL
Picture1.CurrentY = 3.05
Picture1.CurrentX = 2 - Picture1.TextWidth(m$) / 2
Picture1.Print m$
SavePicture Picture1.Image, "EXAMPLE1.BMP"
Screen.MousePointer = 0 ' NORMAL CURSOR
End Sub