form1.frm

单片机示波器毕业论文 真的很不错

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   7980
   ClientLeft      =   60
   ClientTop       =   375
   ClientWidth     =   10455
   LinkTopic       =   "Form1"
   Picture         =   "Form1.frx":0000
   ScaleHeight     =   532
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   697
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
    Cls
    Form1.Scale (-2830, 2030)-(2830, -2030) ' 定义坐标系
   
    CurrentX = -2820: CurrentY = 0 ' 设置起点坐标
    For i = -2820 To 2820 Step 100
        x = i: y = Sin(i)  ' 设置下一点坐标
        Line -(x, y), RGB(255, 255, 255)  ' 从当前点画到下一点
    Next i
End Sub