home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Wave_Gener2149494112009.psc / Demo / WG_Main.frm < prev    next >
Text File  |  2009-04-11  |  4KB  |  127 lines
  1. VERSION 5.00
  2. Begin VB.Form Main 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Wave Generator Examples"
  5.    ClientHeight    =   2640
  6.    ClientLeft      =   2940
  7.    ClientTop       =   2985
  8.    ClientWidth     =   6930
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2640
  13.    ScaleWidth      =   6930
  14.    Begin VB.OptionButton Demo 
  15.       Caption         =   "Lissajou Art"
  16.       Height          =   285
  17.       Index           =   4
  18.       Left            =   -1980
  19.       TabIndex        =   5
  20.       Top             =   0
  21.       Value           =   -1  'True
  22.       Width           =   1755
  23.    End
  24.    Begin VB.OptionButton Demo 
  25.       Caption         =   "Lissajou Art"
  26.       Height          =   285
  27.       Index           =   3
  28.       Left            =   3960
  29.       TabIndex        =   4
  30.       Top             =   2040
  31.       Width           =   1755
  32.    End
  33.    Begin VB.OptionButton Demo 
  34.       Caption         =   "Lissajou Patterns"
  35.       Height          =   285
  36.       Index           =   2
  37.       Left            =   3960
  38.       TabIndex        =   3
  39.       Top             =   1650
  40.       Width           =   1755
  41.    End
  42.    Begin VB.OptionButton Demo 
  43.       Caption         =   "Sound Generation"
  44.       Height          =   285
  45.       Index           =   1
  46.       Left            =   840
  47.       TabIndex        =   2
  48.       Top             =   2070
  49.       Width           =   1755
  50.    End
  51.    Begin VB.OptionButton Demo 
  52.       Caption         =   "Simple Waveforms"
  53.       Height          =   285
  54.       Index           =   0
  55.       Left            =   840
  56.       TabIndex        =   1
  57.       Top             =   1620
  58.       Width           =   1755
  59.    End
  60.    Begin VB.PictureBox IMG 
  61.       Appearance      =   0  'Flat
  62.       AutoRedraw      =   -1  'True
  63.       BackColor       =   &H00000000&
  64.       ForeColor       =   &H00FFFFFF&
  65.       Height          =   1005
  66.       Left            =   180
  67.       ScaleHeight     =   975
  68.       ScaleWidth      =   6525
  69.       TabIndex        =   0
  70.       Top             =   90
  71.       Width           =   6555
  72.    End
  73.    Begin VB.Label Label1 
  74.       Caption         =   "Choose a demonstration :"
  75.       Height          =   255
  76.       Left            =   2340
  77.       TabIndex        =   6
  78.       Top             =   1230
  79.       Width           =   1995
  80.    End
  81. End
  82. Attribute VB_Name = "Main"
  83. Attribute VB_GlobalNameSpace = False
  84. Attribute VB_Creatable = False
  85. Attribute VB_PredeclaredId = True
  86. Attribute VB_Exposed = False
  87. Option Explicit
  88. ' WG_Demo Main form
  89. ' Provides a means to select one of the 4 demos
  90.  
  91. Private Sub Form_Load()
  92.   Me.Move (Screen.Width - Me.Width) * 0.4, (Screen.Height - Me.Height) * 0.3
  93.   TitleScreen
  94. End Sub
  95.  
  96. Private Sub Demo_Click(Index As Integer)
  97.   Select Case Index
  98.   Case 0: Waves.Show vbModal, Me
  99.   Case 1: Sounds.Show vbModal, Me
  100.   Case 2: Lissajou.Show vbModal, Me
  101.   Case 3: Art.Show vbModal, Me
  102.   End Select
  103. End Sub
  104.  
  105. Sub TitleScreen()
  106. Dim x, k, osc As SimpleOsc
  107.   IMG.Scale (0, 100)-(500, -100)
  108.   IMG.Line (0, 0)-(500, 0), vbWhite
  109.   Set osc = New SimpleOsc
  110.   osc.Amplitude = 50
  111.   osc.Frequency = 30
  112.   k = vbBlue
  113.   IMG.DrawWidth = 3
  114.   For x = 0 To 499
  115.     If (x Mod 100) = 0 Then
  116.       k = Array(vbBlue, vbRed, vbWhite, vbYellow, vbGreen)(x \ 100)
  117.       osc.Shape = (x \ 100) Mod 4
  118.     End If
  119.     IMG.PSet (x, osc.Value), k
  120.     osc.Tick
  121.     IMG.Line -(x, osc.Value), k
  122.   Next
  123.   IMG.PSet (400, -60), vbBlack
  124.   IMG.Print "By Larry Serflaten"
  125.   IMG.Picture = IMG.Image
  126. End Sub
  127.