formsin.frm

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

VERSION 5.00
Begin VB.Form formsin 
   Caption         =   "Sin Form"
   ClientHeight    =   4890
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6750
   LinkTopic       =   "Form1"
   ScaleHeight     =   4890
   ScaleWidth      =   6750
   StartUpPosition =   3  '窗口缺省
   Begin VB.Label Label1 
      Caption         =   "请双击……Y=Sin( X * 6 * / 160)"
      Height          =   255
      Left            =   180
      TabIndex        =   0
      Top             =   180
      Width           =   3555
   End
End
Attribute VB_Name = "formsin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_DblClick()
    Cls
    Dim x As Single
    Dim y As Single
    DrawWidth = 1
    ScaleWidth = 100
    ScaleHeight = 100
    For x = 10 To ScaleWidth Step 10
        If x = 50 Then
            ForeColor = QBColor(9)
        Else
            ForeColor = vbBlack
        End If
        Line (0, x)-(ScaleWidth, x)
        Line (x, 0)-(x, ScaleHeight)
    Next x
    DrawWidth = 2
    For x = 0 To 100 Step 0.2
        y = Sin(x * 6 * 3.14159 / 160)
    
        PSet (x, y * 20 + 50)
    Next x
End Sub