📄 函数与插值.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Frm_Main
Caption = "函数与插值"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
ScaleHeight = 11010
ScaleWidth = 15240
StartUpPosition = 3 'Windows Default
WindowState = 2 'Maximized
Begin VB.CommandButton Cmd_Get
Caption = "插 值"
Height = 495
Left = 9480
TabIndex = 15
Top = 10320
Width = 1095
End
Begin VB.CommandButton Cmd_Make
Caption = "产 生"
Height = 495
Left = 600
TabIndex = 14
Top = 10320
Width = 1095
End
Begin VB.Timer Timer1
Interval = 1000
Left = 720
Top = 240
End
Begin VB.PictureBox Pic_Rest
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4215
Left = 8880
ScaleHeight = 4155
ScaleWidth = 4755
TabIndex = 10
Top = 1680
Width = 4815
Begin VB.Label Lbl_Prg
AutoSize = -1 'True
BackColor = &H0080FF80&
Caption = "Label4"
Height = 240
Left = 480
TabIndex = 16
Top = 1320
Width = 720
End
End
Begin VB.CommandButton Cmd_Output
Caption = "导 出"
Height = 495
Left = 3600
TabIndex = 9
Top = 10320
Width = 1095
End
Begin VB.CommandButton Cmd_Input
Caption = "导 入"
Height = 495
Left = 2160
TabIndex = 8
Top = 10320
Width = 1095
End
Begin VB.TextBox Txt_Phase
Height = 375
Left = 5880
TabIndex = 5
Text = "0"
Top = 9600
Width = 855
End
Begin VB.TextBox Txt_Times
Height = 375
Left = 3600
TabIndex = 4
Text = "2"
Top = 9600
Width = 975
End
Begin VB.TextBox Txt_Amp
Height = 375
Left = 1200
TabIndex = 2
Text = "1"
Top = 9600
Width = 975
End
Begin VB.PictureBox Pic_Func
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4095
Left = 360
ScaleHeight = 4035
ScaleWidth = 6675
TabIndex = 0
Top = 1800
Width = 6735
End
Begin MSComDlg.CommonDialog CDlg_File
Left = 1680
Top = 240
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Line Line1
X1 = 360
X2 = 15120
Y1 = 1560
Y2 = 1560
End
Begin VB.Label Lbl_DT
AutoSize = -1 'True
Caption = "学习"
Height = 240
Left = 840
TabIndex = 13
Top = 1080
Width = 480
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "姓名：穆芙韫"
Height = 240
Left = 5280
TabIndex = 12
Top = 1080
Width = 1440
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "实验六 函数与插值"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 3
Left = 4800
TabIndex = 11
Top = 360
Width = 4050
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "度"
Height = 240
Index = 2
Left = 7080
TabIndex = 7
Top = 9600
Width = 240
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "相位："
Height = 240
Index = 1
Left = 5040
TabIndex = 6
Top = 9600
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "周期："
Height = 240
Left = 2640
TabIndex = 3
Top = 9600
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "振幅："
Height = 240
Index = 0
Left = 240
TabIndex = 1
Top = 9600
Width = 720
End
End
Attribute VB_Name = "Frm_Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'-------------------------------------------------
'
' 实验六 函数与插值
'
' 姓名：穆芙韫
' 实验日期： 2005-09-22
'
'-------------------------------------------------
Option Explicit
'-------------------------------------------------------
Dim W_x0 As Double, W_y0 As Double, W_xl As Double, W_yl As Double
Dim Px_min As Double, Px_max As Double, Px_step As Double, Px_Name As String
Dim Py_min As Double, Py_max As Double, Py_step As Double, Py_Name As String
Dim Pic_Title As String
Dim Data_X() As Double, Data_Y() As Double, Data_N As Long
Dim Data_PX() As Double, Data_PY() As Double, Data_PN As Long
Dim PI As Double
Private Sub Cmd_Get_Click()
Dim i As Long, j As Long, k As Long, m As Long, N As Long
Dim str1 As String, str2 As String, str3 As String, str4 As String
Dim x As Double, y As Double
Call Cmd_Input_Click
Data_PN = 1024
ReDim Data_PX(0 To Data_PN - 1)
ReDim Data_PY(0 To Data_PN - 1)
Lbl_Prg.Visible = True
For i = 0 To Data_PN - 1
x = (Px_max - Px_min) * i / Data_PN + Px_min
Data_PX(i) = x
y = Fn(Data_X, Data_Y, Data_N, x)
Data_PY(i) = y
str1 = "正在进行插值：" + Str(Data_PN - 1 - i)
Lbl_Prg.Caption = str1
Lbl_Prg.Refresh
Next i
Lbl_Prg.Visible = False
Call Plot_Data_P(Pic_Rest, RGB(255, 0, 255))
End Sub
'=============================================================
Private Sub Cmd_Make_Click()
Dim i As Long, j As Long, k As Long, m As Long, N As Long
Dim str1 As String, str2 As String, str3 As String, str4 As String
Dim d1 As Double, d2 As Double, d3 As Double, d4 As Double
Data_N = 1024
ReDim Data_X(0 To Data_N - 1)
ReDim Data_Y(0 To Data_N - 1)
Pic_Title = "正弦函数"
Py_Name = "Sin(x)"
Py_max = Val(Txt_Amp.Text)
Py_min = -Py_max
Py_step = Py_max
d1 = Val(Txt_Times.Text)
d2 = Val(Txt_Phase.Text)
Px_Name = "t"
Px_min = d2
Px_max = 360 * d1 + d2
Px_step = 90
'-------------------------------------------------------
For i = 0 To Data_N - 1
Data_X(i) = i * (Px_max - d2) / Data_N + d2
Data_Y(i) = Py_max * Sin(Data_X(i) * PI / 180)
Next i
'-------------------------------------------------------
Call Plot_Data(Pic_Func, RGB(255, 0, 0))
End Sub
Private Sub Cmd_Output_Click()
Dim i As Long, j As Long, k As Long, m As Long, N As Long
Dim str1 As String, str2 As String, str3 As String, str4 As String
Dim File_No As Integer
str1 = App.Path
str2 = "数据文件(*.csv)|*.csv"
With CDlg_File
.InitDir = str1
.FileName = ""
.DialogTitle = "另存"
.CancelError = False
.Filter = str2
.Flags = &H6
.ShowSave
If Len(.FileName) = 0 Then
Exit Sub
End If
str3 = .FileName
End With
'--------------------------------------------------------
File_No = FreeFile(1)
Open str3 For Output As #File_No
str1 = "Title," + Pic_Title + "," + Str(Data_N)
Print #File_No, str1
str1 = "min," + Str(Px_min) + "," + Str(Py_min)
Print #File_No, str1
str1 = "max," + Str(Px_max) + "," + Str(Py_max)
Print #File_No, str1
str1 = "step," + Str(Px_step) + "," + Str(Py_step)
Print #File_No, str1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -