- 在线时间
- 0 小时
- 最后登录
- 2005-10-29
- 注册时间
- 2005-1-17
- 听众数
- 2
- 收听数
- 0
- 能力
- 0 分
- 体力
- 220 点
- 威望
- 0 点
- 阅读权限
- 20
- 积分
- 71
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 10
- 主题
- 4
- 精华
- 0
- 分享
- 0
- 好友
- 0
升级   69.47% 该用户从未签到
|
< ><b>帮帮忙,跪下谢谢斑竹,VB</b></P>< > rivate Function PrintWord(x, Y, Word As String)' H& w. s/ i" j% e4 n
With Picture1( |) g: u/ }4 i% k
.CurrentX = x
6 [% h1 `2 t. L+ o4 [.CurrentY = Y
+ R. R v, }( @; T. Q+ i.ForeColor = RGB(0, 0, 255)
, G" s9 V" `% M8 \; e/ ?End With
$ n6 @' P% _* J% z. L aPicture1.Print Word
% k3 A7 @7 Q+ W6 TEnd Function2 b' H! F$ c. _ Z/ w$ e" H9 u4 D* I8 R
'定义画点函数. h) R, Q6 I) S/ K# [
Private Function DrawDot(Px, Py, Color)
1 z9 J" U7 r6 {+ n3 o5 [Picture1.PSet (Px, Py), Color) j: {3 D$ p: A! l
End Function
* ~9 t7 F1 f( s n* USub XY() '建立直角坐标系+ W7 l0 g% W, E, ? u) y, y) U; M
Picture1.DrawWidth = 1 '设置线条宽度2 f4 u" \( ~ A! I
Picture1.Cls
2 n( }; j. E1 b: \0 H1 @* Q'设定用户坐标系,坐标原点在Picture1中心
6 b! B$ L' p& d* CPicture1.Scale (-10, 10)-(10, -10)& m' U2 K4 R8 q; M4 C
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)( ]) ~+ ^0 t ^5 N
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)2 J" G9 J+ B0 G! Z" ]7 p- v9 P
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255). \4 `. P D7 m
Picture1.ForeColor = RGB(0, 0, 255)
2 I, P) F. { ZPicture1.Print "X"' J# B7 \$ V: H
'画 X 轴
% Z9 P$ [ R2 zPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)2 f* ^6 R- S" [
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
3 j! g0 M- n; C, `; S. i2 EPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
8 z( q8 P" T7 V: I) K9 j) R NPicture1.Print "Y"
s/ h1 U3 A! p! s- _( d1 u'画 Y 轴5 Z- o4 U, s7 X: D, K) g
For lin = -9 To 9
+ o. j6 ^) D7 H) S$ s, tPicture1.Line (lin, 0)-(lin, 0.25)7 l3 d i% I+ y2 [% U
wor = PrintWord(lin - 0.5, -0.5, Str(lin))$ ~% k" z$ {! Y! C) y- }+ L
Picture1.Line (0, lin)-(-0.25, lin)! _4 W6 F& ?7 x2 w/ Y# o* Y! D
If lin <> 0 Then
+ G7 ? A S- S, \% y6 j' zwor = PrintWord(-0.9, lin, Str(lin))
2 s' `& @* O/ CEnd If9 c4 E% D& r4 G1 |/ {$ p% s! S
Next lin8 ?$ p$ G; c' o% P+ v/ c* s( r. S
Picture1.DrawWidth = 13 ?8 P0 N! t/ O( N" G* T! }% _# ?! o
End Sub, N' x, E, D: Y. B, a& J. s4 ?
Private Sub cmdPlot_Click()7 ~, [6 }% C0 f# w
XY! X M5 G8 ?. L" s* G/ h
On Error Resume Next
1 l/ `! {) ]" \# w Dim x As Double, Y As Double& z. G! b; k( @- a/ l
Randomize! e% h! y3 r4 J" b+ ?' r: W
7 J. c) m/ ~+ z
SC.Reset
" O- k: ^4 K7 U0 o SC.AddCode "Function RunThis(X)" & vbCrLf & "RunThis=" & txtEquation & vbCrLf & "End Function"! Z8 _( x/ T N! R
For x = -15 To 15 Step 0.001& u9 U2 k+ J( H* D5 _1 K! Y. [
Y = SC.Run("runthis", x): u0 \: Y! `' H/ x& |5 Q
DoEvents
( f& ~9 X; G5 @: T) e) Q! S Picture1.PSet (x, Y), RGB(250, 0, 0)
- C0 }/ H' P1 |& [3 _3 V Next x
0 O/ G1 ]2 c- hEnd Sub</P>< > rivate Sub Command2_Click()
* [( `+ k; t2 C) X+ g: b. p0 xXY
- o) h8 G; C( JEnd Sub</P>< > rivate Sub Command3_Click()
. G- h: f' L+ O" P3 O% y0 [End
2 U5 p: e( ~$ yEnd Sub</P>< >+ ]# j9 h8 l. E7 a. K6 z# N1 m" V
Private Sub Form_Load()$ H* l. Q, g4 Y
Me.Caption = "美丽曲线——山东省商河一中路来民"
' j+ P0 k P$ IMe.Show% f+ o# s. s/ z! c7 X$ C
Me.AutoRedraw = True' K+ q; @: I6 |
XY9 S& ^( Z5 S0 |, I5 j8 x. z. z
End Sub
/ ~7 W4 `8 {$ E5 B3 x6 K控件</P>< >为仕么Y=LOG(X),SQR(X)也有图象(X轴负半轴), SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢!!!</P> |
|