- 在线时间
- 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)& }4 \5 N/ j' V8 D; I% [
With Picture1
$ W7 ?1 Z. Z" v% x) [/ R4 V.CurrentX = x
' n* \, U+ j0 l# Y& ], l1 a.CurrentY = Y
9 a& L% | `: W: T9 a" o: b! m.ForeColor = RGB(0, 0, 255)
3 b1 b; `1 C' G& l8 hEnd With5 J2 @$ m% o- |5 F7 v
Picture1.Print Word) O7 q7 m$ d0 L+ b
End Function0 q& B3 t7 ^7 k% j/ {5 N2 m! X) c
'定义画点函数4 c7 d9 B; d3 W$ i. L' T
Private Function DrawDot(Px, Py, Color)
$ F2 M. j( P0 t4 j0 T$ m) ]; FPicture1.PSet (Px, Py), Color# j) l( s" L% p, F
End Function' E* A' V. u9 }% @3 {
Sub XY() '建立直角坐标系
5 d' r4 h( c9 U kPicture1.DrawWidth = 1 '设置线条宽度
: J) c2 v$ r0 f( {0 e/ cPicture1.Cls1 ~7 p- x! i1 L0 h! }
'设定用户坐标系,坐标原点在Picture1中心
* W$ l/ q0 {5 @1 B4 @* b# p' kPicture1.Scale (-10, 10)-(10, -10)2 R2 I4 b* Y! S8 B
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
% p" `! N0 V& W& ?' FPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)* ?) g8 z* W2 c( z! Q
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)) U, Q- Y: r- k: y; d% I
Picture1.ForeColor = RGB(0, 0, 255)' u! b" j4 g& f2 G, Z! |
Picture1.Print "X"
. s' C5 j& x9 n" r- P3 R'画 X 轴; V- S9 T4 E! K+ F5 S8 R2 o9 W" b
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)+ H. c1 E- j- E$ r3 }' o: n; N# I
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
9 z5 ^5 a0 c( o3 i( e( qPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)7 F. V7 H, M( {2 \! Y! K/ P B
Picture1.Print "Y"8 S( j6 e0 B- B# ~( p( w
'画 Y 轴# ]6 X) L8 A& b( e& G6 A) ^- ^
For lin = -9 To 9
+ F, R6 t f! iPicture1.Line (lin, 0)-(lin, 0.25)% r; e* H( H; {9 m$ @
wor = PrintWord(lin - 0.5, -0.5, Str(lin))2 |! a" i4 t4 Q) N6 X/ E
Picture1.Line (0, lin)-(-0.25, lin)
( O5 S3 S% p v: I% CIf lin <> 0 Then- |8 \8 l+ N% J% B2 C4 [( F
wor = PrintWord(-0.9, lin, Str(lin))
( c& E. Y! u( {2 m( {End If
g) w; }* D( YNext lin
9 W# h; H/ i& m T( `, CPicture1.DrawWidth = 1" B3 @# q7 I$ l6 X0 s X3 E
End Sub
' p# ?( ?" N5 h# ^) _" yPrivate Sub cmdPlot_Click()
% d8 K1 F1 i5 ~XY
6 o9 g9 U8 ^* \7 Q$ u/ _. yOn Error Resume Next
5 l P; d* n; n- v; u+ y( G1 t Dim x As Double, Y As Double9 I" e" \: Q" W$ P+ L# T% ]6 L
Randomize' b( {3 y; C- C. L
$ g& S. k( Z7 \2 P6 u SC.Reset& `9 q$ V1 T( Y' x$ `+ S; p+ u9 _
SC.AddCode "Function RunThis(X)" & vbCrLf & "RunThis=" & txtEquation & vbCrLf & "End Function"; u2 B0 \1 y6 O' i" m- l+ t, l+ n
For x = -15 To 15 Step 0.001
& Q$ l* _) P2 F5 B Y = SC.Run("runthis", x)
$ U8 W( f! k, S; z- F* T DoEvents& A9 L6 j; }( g S
Picture1.PSet (x, Y), RGB(250, 0, 0)
0 u* b: u3 Z' p3 W/ z) P7 H) \ Next x
1 R, ~, H" R2 B: lEnd Sub</P>< > rivate Sub Command2_Click() j. \1 |3 S5 ], E! }' H
XY
$ Y) U7 J/ z; X, O: zEnd Sub</P>< > rivate Sub Command3_Click(); k. ^' F$ E/ V$ ?
End+ r8 O1 W% e% d" w2 V& A0 _0 g
End Sub</P>< >
* A2 S6 Y: a1 oPrivate Sub Form_Load()
1 H$ O, s; r" a$ y& IMe.Caption = "美丽曲线——山东省商河一中路来民"
) I# [" `" \# i% }/ \% rMe.Show
+ }& ^5 m! }- O3 L/ N f% h3 VMe.AutoRedraw = True* k m! M! V, ]# \1 ^
XY2 U/ S2 m# W8 C5 }: g! V
End Sub
" x2 q# o9 t( ]0 h( H4 ^, y% _控件</P>< >为仕么Y=LOG(X),SQR(X)也有图象(X轴负半轴), SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢!!!</P> |
|