VB与E语言的代码转换 悬赏30精币

笨潴

{:3_234:}win7下VB有问题，没安装，，，。打开不了

kvzhen

笨潴 发表于 2011-7-17 18:02
win7下VB有问题，没安装，，，。打开不了

{:3_228:}乃会吗 我把代码复制上来 您试试？

kvzhen

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

复制代码

kvzhen

上面的是一次函数 这个是二次函数
Private Sub Command1_Click()  '单击命令按钮开始执行程序
    On Error Resume Next
    Dim X As Single
    Dim Y As Single
    Dim A As Double
    Dim B As Double
    Dim C As Double
    If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
        MsgBox "信息填写不完整，请重填！", vbCritical, "错误"
        Exit Sub
    End If
    Cls                           '清屏幕
    A = Val(Text1.Text)
    B = Val(Text2.Text)
    C = Val(Text3.Text)
    Scale (-10, 10)-(10, -10)     '定义新坐标系统的左上角和右下角坐标
   
    Line (-10, 0)-(10, 0)           '绘制y轴
    Line (0, -10)-(0, 10)           '绘制x轴
   
    '通过循环 画出函数点
    For X = -30 To 30 Step 0.0005
        Y = A * X * X + B * X + C
        PSet (X, Y), RGB(255, 0, 0)
        DoEvents
    Next X
End Sub
Private Sub Form_Load()
    If App.PrevInstance Then End
End Sub



截图

g2869233

http://www.mesky.net/downz/tddhcjj#edown

如果你看清他的验证码的话，你可以下载，易语言和VB之间的互换

kunzaiai

能看懂一点 大概就是 按钮一单击事件 定量XYABC三个变量分别为后边的那个类型 具体可是上百度（我不记得了） 然后 就是个判断 （我用易语言代码了） 如果编辑框1.内容=“” 或 编辑框2.内容=“” 或 编辑框3.内容=“”然后 信息框（“信息填写不完整，请重填！”，0，“错误”）【那个VBCritical不用管】 退出按钮一单击事件  结束如果命令 清屏A=编辑框1.内容 B=编辑框2.内容 C=编辑框3.内容  定义新坐标系统的左上角和右下角坐标 画X/Y轴 然后就不懂了 希望能帮到你

笨潴

基本按照VB的翻译了
忘了修正坐标，等会。。

笨潴

{:soso_e141:}弄好了，早知道不放大10倍了。。。。

kvzhen

笨潴 发表于 2011-7-17 20:12
弄好了，早知道不放大10倍了。。。。

哥们 再来个反比例 30精币就是你的了……
我去给你复制代码

易团萌

这个不会,也没办法