无聊发VB三角函数的源码

kvzhen

1. 
   
2. Private Sub Command1_Click()  '单击命令按钮开始执行程序
   
3.     On Error Resume Next
   
4.     Dim X As Single
   
5.     Dim Y As Single
   
6.     Dim A As Double
   
7.     Dim k As Double
   
8.     Dim m As Double
   
9.     Dim b As Double
   
10.     If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
    
11.         MsgBox "信息填写不完整，请重填！", vbCritical, "错误"
    
12.         Exit Sub
    
13.     End If
    
14.     Cls                           '清屏幕
    
15.     A = Val(Text1.Text)
    
16.     k = Val(Text2.Text)
    
17.     m = Val(Text3.Text)
    
18.     b = Val(Text4.Text)
    
19.     Scale (-10, 10)-(10, -10)     '定义新坐标系统的左上角和右下角坐标
    
20.    
    
21.     Line (-10, 0)-(10, 0)           '绘制y轴
    
22.     Line (0, -10)-(0, 10)           '绘制x轴
    
23.    
    
24.     '通过循环 画出函数点
    
25.     For X = -30 To 30 Step 0.0005
    
26.         If Option1.Value = True Then Y = A * Sin(k * X + m) + b
    
27.         If Option2.Value = True Then Y = A * Cos(k * X + m) + b
    
28.         If Option3.Value = True Then Y = A * Tan(k * X + m) + b
    
29.         PSet (X, Y), RGB(255, 0, 0)
    
30.         DoEvents
    
31.     Next X
    
32. End Sub
    
33. Private Sub Form_Load()
    
34.     If App.PrevInstance Then End
    
35. End Sub
    

复制代码

易团俊

看起来你的确很无聊啊

kvzhen

易团俊 发表于 2011-7-17 23:51
看起来你的确很无聊啊

聪明~
我是来求人帮忙弄个三角函数的{:3_244:}

kvzhen

这是大概的截面图~
帅锅拜托再弄个窗口 要么乱了

hao3642270

学习了感谢楼主分享

kvzhen

hao3642270 发表于 2011-7-18 00:02
学习了感谢楼主分享

学习嘛
我自己都么看懂

657342313

太深奥了   {:3_232:}

ghoob

要是能弄个画旋转的五角星更好了。

914417177

没必要用TAN函数