急求高手帮我解决一道VB编程题 关于速度时间曲线的 已知一点的速度 求速度时间曲线

来自:    更新日期:早些时候
求个vb实时采集速度曲线~

电机速度要送到计算机上,通过串口、网口等方式,然后做程序画曲线。

说常用解法给你。应用:中间时刻的瞬时速度等于这一段时间的平均速度。

所以,只需要以要求速度的那点为中心,在它前后各另找一个点,就可以把该点当成这三个点的中间时刻点。
然后用平均速度=总位移/总时间,把这个点前后两段位移加起来除以对应的两段时间,就可以了。

例如:有ABCDE五个连续的点,要求B点的瞬时速度,那么VB=(AB+BC)/2T,T是连续的时间间隔。

Private Function jiecheng(x As Integer) As Long '定义阶乘函数
jiecheng = 1
For i = 1 To x
jiecheng = jiecheng * i
Next i
End Function
Private Sub Command1_Click() 'sub求阶乘
a = InputBox("输入A"): b = InputBox("输入B"): c = InputBox("输入C")
sa = 1: sb = 1: sc = 1
For i = 1 To Val(a)
sa = sa * i
Next i
Print sa
For i = 1 To Val(b)
sb = sb * i
Next i
For i = 1 To Val(c)
sc = sc * i
Next i
s = sa + sb + sc
Print s
End Sub

Private Sub Command2_Click() '函数求阶乘
a = InputBox("输入A"): b = InputBox("输入B"): c = InputBox("输入C")
sa = jiecheng(Val(a)): sb = jiecheng(Val(b)): sc = jiecheng(Val(c))
s = sa + sb + sc
Print s
End Sub
很简单滴````自己看吧,加油学吧````
另外,团IDC网上有许多产品团购,便宜有口碑

知道速度和时间的关系式么?
如果有关系式就简单了。


用vb画曲线很费劲的,而且效果不是好,推荐你用画图控件Tchart

是的 点的速度已知,在FORM1窗口已经求出来,现在用全局变量求出,在FORM2中用空间PICTURE能不能帮我编出一个程序啊
给我个邮箱,我发给你个画图程序


急求高手帮我解决一道VB编程题 关于速度时间曲线的 已知一点的速度 求速度时间曲线视频

相关评论:
  • 19859417143急求高手帮我解决一道VB编程题 关于速度时间曲线的 已知一点的速度 求...
    咎夜蚂Private Function jiecheng(x As Integer) As Long '定义阶乘函数 jiecheng = 1 For i = 1 To x jiecheng = jiecheng * i Next i End Function Private Sub Command1_Click() 'sub求阶乘 a = InputBox("输入A"): b = InputBox("输入B"): c = InputBox("输入C")sa = 1: sb = 1...

  • 19859417143急求VB代码 请高手指点
    咎夜蚂新建工程,窗体FORM1,添加按钮Command1,计时器Timer1,Timer2 Timer1,Timer2的Enabled属性都改成False,Interval属性都改成300 窗口代码 Private a As Integer Private b As Integer Public Sub Command1_Click()Timer1.Enabled = False Timer2.Enabled = False End Sub Private Sub Form_Load()a = 1...

  • 19859417143急求VB高手 或者VF高手帮助编程!!谢谢网络上的哥哥姐姐
    咎夜蚂VB可以做,这就是合成背景模板 Private Sub MaskBlendProcess(Optional ByVal ptrDestBuffer As Long, Optional ByVal ptrSrcBuffer As Long, Optional ByVal ptrMaskBuffer As Long, Optional ByVal Width As Long, Optional ByVal Height As Long, Optional ByVal idLineAdd As Long, Optional ByVa...

  • 19859417143100分!!急求VB高手帮我写个程序
    咎夜蚂VB隐藏进程是可以实现的。在任务管理器的进程列表里隐藏,但是枚举进程的话还是能看出来。。。Private Const MOD_ALT = &H1 Private Const MOD_CONTROL = &H2 Private Const MOD_SHIFT = &H4 Private Const PM_REMOVE = &H1 Private Const WM_HOTKEY = &H312 Private Type POINTAPI x As Long...

  • 19859417143急求!!!vb编程 100以内的加法运算
    咎夜蚂tm = tm + 1 N1 = Int(Rnd() * 100)N2 = Int(Rnd() * 100)ti.Caption = N1 & "+" & N2 & "="End Sub Private Sub Command2_Click()pd End Sub Sub pd()If N1 + N2 = Val(da) Then MsgBox ("对了")'再录点音,如恭喜你答对了 Ztol = Ztol + 25 Else MsgBox ("...

  • 19859417143急求:VB编程1到100求和
    咎夜蚂Private Sub Command1_Click()For i = 1 To 100 s = s + i Next MsgBox "1到100的和为:" & s End Sub

  • 19859417143【VB作业】急求VB高手指点迷津!!!
    咎夜蚂Private Sub Command1_Click()Dim a() As Integer Print "1000以内的完数:"For i = 6 To 1000 s = 0 n = 0 t = ""For j = 1 To i - 1 If i Mod j = 0 Then s = s + j n = n + 1 ReDim Preserve a(n)a(n) = j End If Next j For k = 1 To n t = t...

  • 19859417143急求啊~~~用vb编程,实现i行j列矩阵与常数x相乘
    咎夜蚂建议提问前先搜索一下 这是我以前的回答http:\/\/zhidao.baidu.com\/question\/94449041.html Private Sub Command1_Click()Dim i As Integer, j As Integer, k As Integer, M As Integer, N As Integer Dim A() As Double, B() As Double, C() As Double M = Val(Text1.Text) '>0 N...

  • 19859417143VB程序设计,是高手的进来!!!
    咎夜蚂比较简单...在ACCESS中做好你要用的表 VB中,在窗体画一个AdoDATA控件,在连接字串属性处用向导生成一个就OK了.很简单的...最后,如果你觉得这样讲还不明白,去搜索VB+ACCESS,那应该可以找到详细操作步骤了

  • 19859417143VB编程 急求 随机产生n个1~100之间的数(包含1和100),求最大值,最小值...
    咎夜蚂For I = 1 To 5 '数组里面有5个不同数值a1,a2,a3,a4,a5,此处I的最大值n对应Dim中的a(n)(可以改变最大值来改变需要的输出的数据数量)' I = 0 to n 表示I的取值有n-0+1个 a(I) = Int(Rnd * 99) + 1 '数组内产生1~100的随机数 Print a(I);z = z + a(I)s = z \/...

  • 相关主题精彩

    版权声明:本网站为非赢利性站点,内容来自于网络投稿和网络,若有相关事宜,请联系管理员

    Copyright © 喜物网