Draw a Flame Effect on a Form

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Intermediate

Author:

Andrew Flynn

Version Compatibility: Visual Basic 6

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Private Sub Form_Click()

Cls
  
Scale (-8, 8)-(8, -8)            ' First set the screen scale.

ForeColor = vbBlack
   DrawWidth = 1
       
      
     
     
'"********************************************************************************************************************
'***********************************************************************************************************************
'*******************************************************************************************************************
 
 
 
 
 
DrawWidth = 30
BackColor = vblue

Line (-1.2, 1)-(-0.8, ScaleHeight), vbBlue
 Line (1.2, 1)-(0.8, ScaleHeight), vbBlue      'Middle flame holder
 Line (-1.2, -2.6)-(1.2, -2.6), vbBlue
 
  Line (-4.2, -2.6)-(-1.9, -2.6), vbBlue
  Line (-3.05, -2.6)-(-3.05, ScaleHeight), vbBlue    'Left flame holder
  
   
  Line (1.9, -2.6)-(4.1, -2.6), vbBlue              'Right flame holder
  Line (3#, -2.6)-(3#, ScaleHeight), vbBlue
  
  
Do

For x = -1 To 1 Step 0.01

ForeColor = vbBlack

PSet (x, 3.5 * Rnd * -Tan(Cos(Sin(x))) + 4)
 
  j = 220
  k = 170
  l = 80

ForeColor = RGB(j, k, l)                            'Middle flame

PSet (x, 3.9 * Rnd * Tan(Cos(Sin(x))) - 2)

DoEvents
   Next x
 
   
  
For x = -4 To -2 Step 0.01

ForeColor = vbBlack

PSet (x, 3.5 * Rnd * -Tan(Cos(Sin(x))) + 4)

ForeColor = vbRed

PSet (x, 3.9 * Rnd * Tan(Cos(Sin(x))) - 2)         'Left flame

DoEvents
   Next x
   
   
   
   For x = 2 To 4 Step 0.01

ForeColor = vbBlack

PSet (x, 3.5 * Rnd * -Tan(Cos(Sin(x))) + 4)
                                                   'right flame
ForeColor = vbRed

PSet (x, 3.9 * Rnd * Tan(Cos(Sin(x))) - 2)

DoEvents
   Next x

Loop

End Sub