- 在线时间
- 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)" t1 H$ K5 V5 }9 |. c
With Picture1! I% c$ K; O0 z! m
.CurrentX = x7 @. d8 a: U0 E; {2 o( \
.CurrentY = Y. n* I2 k3 Z( z* R8 l+ F8 K
.ForeColor = RGB(0, 0, 255)
# _; p6 \$ H9 o; B# XEnd With* `) `! c4 {! Z- v
Picture1.Print Word
; ~$ u! D- M3 z/ n) pEnd Function
; C% X# j8 j9 P5 n9 v# a$ D: w$ d'定义画点函数
; Y. U+ S3 m0 r# M- IPrivate Function DrawDot(Px, Py, Color)
5 X- H$ E6 _" ]' v/ MPicture1.PSet (Px, Py), Color! k, a9 A9 u* r
End Function2 p$ G" d- A1 p8 e) n2 s0 `9 v
Sub XY() '建立直角坐标系+ i v, ~7 n4 R# f" v) j! B3 _
Picture1.DrawWidth = 1 '设置线条宽度
6 B7 s' i+ ^( a' o4 O7 c3 a8 WPicture1.Cls
$ o0 t) N) {, e' L/ p) j'设定用户坐标系,坐标原点在Picture1中心" ~0 P3 R% o2 q$ ~6 `
Picture1.Scale (-10, 10)-(10, -10), R4 Y6 Z* G* ~
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)* {8 t# T+ p$ y+ R x4 B/ l: o- U
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
* |! m$ R9 g8 t& y" X4 rPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
4 V3 ^. C* ~4 p! y) s) OPicture1.ForeColor = RGB(0, 0, 255)
- g# }. n. u7 X! m; `Picture1.Print "X"
! L$ J7 B% n, V( a'画 X 轴
; [8 ]# `4 c. W3 V# G+ GPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)/ a5 H- [1 z: w3 y
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)+ R! E# g+ ?$ r' d% T
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)3 k; a( F/ E& z7 e% b
Picture1.Print "Y"8 y2 H0 f4 M5 @0 T% ?% X
'画 Y 轴( D- y5 i r7 Q: R# C1 U k
For lin = -9 To 9
( J/ u+ V: K8 c* W$ ~Picture1.Line (lin, 0)-(lin, 0.25)3 a2 _( \9 F. x" Y6 t; M" W* V
wor = PrintWord(lin - 0.5, -0.5, Str(lin))( ~ e8 M+ J# a! ^
Picture1.Line (0, lin)-(-0.25, lin)
) E# R* |# m2 A( QIf lin <> 0 Then. I) ]" I1 n6 a" F: ^
wor = PrintWord(-0.9, lin, Str(lin))
, p2 ~: @. `$ IEnd If
3 p( i. O: j# _+ Y. C0 p iNext lin/ H7 H& s; _+ u+ b9 I9 ^
Picture1.DrawWidth = 1& z4 r& N6 p' `. Q' w9 ?; \& M: s
End Sub7 ]4 a3 Z1 ?5 ^- R2 T5 ^
Private Sub cmdPlot_Click(): G8 q E5 R! M$ L: v& F$ ^
XY
6 @, I' ^$ t2 B8 B" sOn Error Resume Next
! t) Y* L( b& \. W( c Dim x As Double, Y As Double
5 J" }$ }( V+ S; p Randomize
" Z: o, ]% n7 k- o5 e/ @
! m: H2 O% C; @. n, F SC.Reset, ^& O0 C3 ?2 i8 J0 s. R- t: e! ]
SC.AddCode "Function RunThis(X)" & vbCrLf & "RunThis=" & txtEquation & vbCrLf & "End Function"
: B( L' t8 G( M0 J3 s For x = -15 To 15 Step 0.001& R2 @& s, h( t) t9 J0 W; ?% I* c
Y = SC.Run("runthis", x)
3 \5 w0 y" {4 W6 O; P0 e: X DoEvents
# C* S p( C3 p; d) v, c- k/ A Picture1.PSet (x, Y), RGB(250, 0, 0)
. D( W' d+ Y3 R Y) Q, f" k Next x
+ c' v$ t* c; ^! R* pEnd Sub</P>< > rivate Sub Command2_Click()+ u2 N4 P2 ]8 Y; U( e5 C
XY! W7 J3 S0 Y+ |# q7 t/ _
End Sub</P>< > rivate Sub Command3_Click()$ _- S- e4 @$ D1 z* A h) {
End
( \0 S) s n0 }$ sEnd Sub</P>< >
3 k+ l3 e& @2 f8 ^" C/ a1 qPrivate Sub Form_Load()
+ P0 A- H4 g4 F4 Q) x: PMe.Caption = "美丽曲线——山东省商河一中路来民"
! Z# q* s" s s) i, v4 n8 T: j$ vMe.Show6 T$ Z" o& n" |5 V8 ^
Me.AutoRedraw = True- |* n( l. h' l, H, S5 E6 f
XY" D8 m' y( f) _% _' ]& m
End Sub$ c! n9 I0 f E! a* h& B. u
控件</P>< >为仕么Y=LOG(X),SQR(X)也有图象(X轴负半轴), SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢!!!</P> |
|