QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 10202|回复: 4
打印 上一主题 下一主题

帮帮忙,谢谢大侠,VB

[复制链接]
字体大小: 正常 放大

4

主题

2

听众

71

积分

升级  69.47%

该用户从未签到

新人进步奖

跳转到指定楼层
1#
发表于 2005-1-17 22:01 |只看该作者 |正序浏览
|招呼Ta 关注Ta
<>rivate Sub cmdPlot_Click()# ~" s# q$ Q! B9 q5 f
XY% j, R0 C  C; J, b/ \" y
On Error Resume Next
- U' `# O3 R0 `9 d+ c Dim x As Double, Y As Double2 l0 n! S/ \6 u2 B6 D
Randomize
& ], d! N! L! k2 A3 K  
7 m( D" y# F  i$ P$ F1 E        SC.Reset' G% ^" D3 R4 N  u4 C
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"$ G; |% l% [5 s3 h& B
       For x = -15 To 15 Step 0.001
5 u# }) a9 b. ^2 d- S( |         Y = SC.Run("runthis", x)
) d4 \- K7 p7 \% |9 |6 d         DoEvents
3 B9 L( m4 s8 a9 k9 {, ]          Picture1.PSet (x, Y), RGB(250, 0, 0)
7 t' A$ f" [! t4 b6 ?3 k9 n          Next x( {5 m6 l4 {5 F3 j
End Sub</P>
0 m6 Y0 I8 `  e5 p! [<>为仕么Y=LOG(X),SQR(X)也有图象(X轴负半轴),请帮忙</P>
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
ealx0yJu        

0

主题

5

听众

110

积分

升级  5%

  • TA的每日心情
    开心
    2012-10-23 19:08
  • 签到天数: 8 天

    [LV.3]偶尔看看II

    自我介绍
    浩礼光羽丽叔瀚
    回复

    使用道具 举报

    0

    主题

    0

    听众

    3

    积分

    升级  60%

    该用户从未签到

    呵呵,看大家评论如何1 G6 _& c( \# V0 F
    2 b5 v: N1 o& i
    ) G( g% _2 Z9 D9 W& p& x/ X
    ; F+ o# }$ L9 c6 c7 x  ~( }# c' z6 u

    / r3 P, F: B( ]0 H# m2 b+ m# x& {6 e; s: ^
    8 ^7 P% c2 i" k0 Z0 e; o
    - K* k: L, R3 U$ g' h; k
    1 Y$ h7 s9 f7 P. M: |! b

    1 K5 I( C  t# u+ Q& x
    3 ]$ X/ @. c2 h
    ; l! P* O+ w1 P- g$ ^$ R8 r4 u/ c% N* ^3 y3 K* J; I
    大家好,能交朋友嘛?ok0633.com
    回复

    使用道具 举报

    4

    主题

    2

    听众

    71

    积分

    升级  69.47%

    该用户从未签到

    新人进步奖

    <><b>帮帮忙,跪下谢谢斑竹,VB</b></P><>rivate Function PrintWord(x, Y, Word As String)+ L+ w$ F' O/ |( V% T3 `1 k! `# ^
    With Picture18 [. J5 s, c' e, x7 R
    .CurrentX = x
    8 F6 w. A9 q2 f* Y% N, I4 ~% r2 s, }.CurrentY = Y
    3 G0 d( v4 y5 z.ForeColor = RGB(0, 0, 255)3 c" ^! g  P- [: G, {; P
    End With
    $ a  {4 h' `" F" ^& l0 o$ [Picture1.Print Word
    * n9 ?- C) n. Z8 D6 M1 }, i9 MEnd Function
    ! f- e: V5 N6 Z) y- R) k* k6 V$ a'定义画点函数
    6 P/ H2 k* w% P9 D3 ?; `4 NPrivate Function DrawDot(Px, Py, Color)  s: C1 j8 D: T* f8 u
    Picture1.PSet (Px, Py), Color( G% k% ?& {/ L6 c; ]! w2 Q
    End Function
    # U6 K9 W" V. k( B7 c& CSub XY() '建立直角坐标系
    ) e8 Q. T; g) o9 F4 w1 pPicture1.DrawWidth = 1 '设置线条宽度
    1 u3 Q; @. u* R% _Picture1.Cls1 g5 Z& I8 o4 D7 t: \, m* Y
    '设定用户坐标系,坐标原点在Picture1中心
    ' K" |: X! W# O8 f: FPicture1.Scale (-10, 10)-(10, -10)
    ' L1 I3 i" W/ f" b9 Y9 HPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
    5 H5 l, c0 D+ R% y5 c/ }1 @- DPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)* J: _( d9 \9 l- p" _
    Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)& i8 D' }4 Y- @& b+ R0 z5 \. p3 L# Y( o
    Picture1.ForeColor = RGB(0, 0, 255)
    ( [5 P) v& z) R6 Y) `- a0 u9 FPicture1.Print "X"7 W7 K) r3 u; P9 |% n2 c5 C8 v
    '画 X 轴
    5 y3 U5 G" g- f* ?# SPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)8 u3 R# M% ?' T# U4 b* q
    Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
    8 p8 H: O2 {3 D6 c, LPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
    . V  X  r& u) k4 APicture1.Print "Y"
    " ]3 H/ c/ E0 b" h2 L  f'画 Y 轴  m* s$ o. ~2 @$ Q3 P
    For lin = -9 To 9
    / I0 V; r! r4 L( dPicture1.Line (lin, 0)-(lin, 0.25)
    ( A& h9 X4 T$ m8 k5 @; j1 j9 Qwor = PrintWord(lin - 0.5, -0.5, Str(lin))
    ) t: N: B$ [9 E% O7 EPicture1.Line (0, lin)-(-0.25, lin)/ R4 t) {5 k- @  X2 x
    If lin &lt;&gt; 0 Then" T' ?5 @& f2 S9 i* X
    wor = PrintWord(-0.9, lin, Str(lin)); B- e: N/ o+ B
    End If
    - Q, ~9 H0 a( l' dNext lin: m6 L1 r; c" r
    Picture1.DrawWidth = 1" _7 i6 t9 K2 W* Y" _
    End Sub* j  d! d) f5 h, o
    Private Sub cmdPlot_Click()
    3 ?( V. e7 R' B& _XY
    8 H8 f9 o8 S" [$ f( f% N  B  c* \On Error Resume Next, {, q; B1 l. F* Y
    Dim x As Double, Y As Double0 N5 R, ?, F8 L5 z  E
    Randomize
    ! M. A; ]  V+ m$ A+ v: K6 q  . Z. g0 K& y. W' H+ n  w# P5 D& X& ^
            SC.Reset  Z* i# \4 C" J( f  S  M+ A3 v3 p
            SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
    " W% y0 k* p- Q. L9 J       For x = -15 To 15 Step 0.001
    2 F- J* ~( x* K         Y = SC.Run("runthis", x)
    ( o4 ]* ~! c# Z" [+ G/ ^         DoEvents
    # w2 d7 j: X3 ]9 e7 ]+ h3 |; F. e          Picture1.PSet (x, Y), RGB(250, 0, 0)
    5 [. q! X' Z0 |! U8 B: g7 Y          Next x3 ?# Q5 m; T6 d
    End Sub</P><>rivate Sub Command2_Click()
      S2 U/ |5 \3 v; H7 |XY$ x# G" e' {4 Z% z( G
    End Sub</P><>rivate Sub Command3_Click()
    . G- u0 I! q- T8 V- R( tEnd5 ~) B2 ^1 z+ b0 R) \. Z  V
    End Sub</P><>- Q2 U: K" L* y* i2 F
    Private Sub Form_Load()4 F8 t- p- Z7 }! c  v6 o
    Me.Caption = "美丽曲线——山东省商河一中路来民"
    ; u8 `% }9 e6 C9 j7 n' o- bMe.Show
    1 j/ M$ _9 q  e& _Me.AutoRedraw = True
    & i) ~: A9 k1 o3 u6 lXY
    ' w; g/ S9 M! @7 m% ~End Sub% n; {6 f3 T' r
    控件</P><>为仕么Y=LOG(X),SQR(X)也有图象(X轴负半轴), SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢!!!</P>
    回复

    使用道具 举报

    USER001        

    2

    主题

    2

    听众

    61

    积分

    该用户从未签到

    元老勋章

    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2026-9-19 20:50 , Processed in 0.332735 second(s), 79 queries .

    回顶部