这里有没有VB高手呀！求助啦

依然笑朗 · 发表于 2006-7-29 19:18:17

我们不再是孤独的探索者；让我们的手紧紧相连，一起成长。

您需要登录才可以下载或查看，没有账号？注册会员

×

本人想编一个VB程序计算输送机的水平动力、垂直动力、及总动力等。本人有计算公式。窗口等介面都设计好了，有输入数据的TextBox和输出计算结果的TextBox，这个计算过程是怎样的一个思路呢？求助！！！如果哪位大哥有类似程序的源码请留给小弟一观,就是类似这样的一个程序http://cncad.net/viewFile.asp?BoardID=22&ID=1616。 <a href="mailto:我是初学者！syws52@126.com">我是初学者！syws52@126.com</a>

晓寒 · 发表于 2006-7-29 19:37:24

呵呵，有VB低手，偶也在学，去明经CAD看看吧，

lymx · 发表于 2006-7-30 08:03:34

楼主看看这段小程序，也许会有点帮助!''''这是一个胶带机功率简单计算的程序'''' ''''本程序可以用于共享学习之用，如用作商业用途，请告知作者<a href="mailto

YMX12345@126.COM">LYMX12345@126.COM</a> ''''Option Explicit

rivate Sub Form_Load()     Dim L, B, LO, qj, dj, p, k, V, Q, H, N1, N, A, A1, A2, ts, dsxs B:     B = InputBox("请输入带宽(mm)", Me.Caption & "--数据输入", 500)     If B = "" Then End     If B = "400" Or B = "500" Or B = "650" Or B = "800" Or B = "1000" Or B = "1200" _        Or B = "1400" Or B = "1600" Or B = "1800" Or B = "2000" Then     Else: GoTo B     End If     B = Val(B)     If B = 400 Then         LO = 160     ElseIf B = 500 Then         LO = 200     ElseIf B = 650 Then         LO = 250     ElseIf B = 800 Then         LO = 315     ElseIf B = 1000 Then         LO = 380     ElseIf B = 1200 Then         LO = 465     ElseIf B = 1400 Then         LO = 530     ElseIf B = 1600 Then         LO = 600     ElseIf B = 1800 Then         LO = 670     ElseIf B = 2000 Then         LO = 750     End If     ts = "带    宽：" & B & "mm" L:     L = InputBox(ts & Chr(10) & Chr(10) & "请输入水平机长(m)", Me.Caption & "--数据输入")     If L = "" Then End     If L > 3 And L < 20000 Then     Else: GoTo L     End If     ts = ts & Chr(10) & "水平机长：" & L & "m" qj:     qj = InputBox(ts & Chr(10) & Chr(10) & "请输入倾角(°)", Me.Caption & "--数据输入", 0)     If qj = "" Then End     qj = Val(qj)     If qj <= 6 Then         k = 1     ElseIf qj <= 8 Then         k = 0.96     ElseIf qj <= 10 Then         k = 0.94     ElseIf qj <= 12 Then         k = 0.92     ElseIf qj <= 14 Then         k = 0.9     ElseIf qj <= 16 Then         k = 0.88     ElseIf qj <= 18 Then         k = 0.85     ElseIf qj <= 20 Then         k = 0.81     ElseIf qj <= 22 Then         k = 0.76     Else         GoTo qj     End If     ts = ts & Chr(10) & "倾    角：" & qj & "°" p:     p = InputBox(ts & Chr(10) & Chr(10) & "请输入物料松散密度密度(t/m3)", Me.Caption & "--数据输入", 0.9)     If p = "" Then End     p = Val(p)     If p < 0.1 Or p > 2.5 Then GoTo p     ts = ts & Chr(10) & "松散密度：" & p & "t/m3"dj:     dj = InputBox(ts & Chr(10) & Chr(10) & "请输入物料安息角(°)", Me.Caption & "--数据输入", 30)     If dj = "" Then End     dj = Val(dj)     If p < 0 Or p > 60 Then GoTo dj    A1 = Tan(dj * 0.92 * (3.1415926 / 180)) * ((LO / 1000 + (0.9 * B / 1000 - 0.05 - LO / 1000) * 0.86602540378) ^ 2) / 6     A2 = (LO / 1000 + ((0.9 * B / 1000) - 0.05 - (LO / 1000)) * 0.4330127) * (0.9 * B / 1000 - 0.05 - (LO / 1000)) * 0.25     A = A1 + A2     ts = ts & Chr(10) & "安息角：" & dj & "°"V:     V = InputBox(ts & Chr(10) & Chr(10) & "请输入带速(m/s)", Me.Caption & "--数据输入", 1.25)     If V = "" Then End     If V > 0 And V < 5 Then     Else: GoTo V     End If     V = Val(V)     If V <= 1.6 Then         dsxs = 1     ElseIf V <= 2.5 Then         dsxs = 0.95     ElseIf V <= 3.15 Then         dsxs = 0.9     ElseIf V <= 4# Then         dsxs = 0.8     Else         dsxs = 0.76     End If     ts = ts & Chr(10) & "带    速：" & V & "m/s" H:     H = InputBox(ts & Chr(10) & Chr(10) & "请输入提升高(m)", Me.Caption & "--数据输入", Val(Format(Val(L) * Tan(qj * (3.1415926 / 180)), "###.###")))     If H = "" Then End     ts = ts & Chr(10) & "提升高：" & H & "m" Q:     Q = InputBox(ts & Chr(10) & Chr(10) & "请输入输送量(t/h)", Me.Caption & "--数据输入", CLng(A * 3600 * Val(V) * k * p * dsxs))    If Q = "" Then End     If Val(Q) = 0 Then GoTo Q     ts = ts & Chr(10) & "输送量：" & Q & "t/h"    N1 = (0.36 * (40 + L) * (B - 300) * V + (40 + L) * Q) / 10000 + 0.00273 * Q * H     N = N1 / 0.85     If N < 1 Then N = "0" & N     MsgBox ts & Chr(10) & Chr(10) & "计算所需功率  " & Val(CCur(N)) & "千瓦", , "胶带机功率计算(六月梦雪)"     End End Sub

lymx · 发表于 2006-7-30 08:05:14

楼主看看下面这段源码，也许有点帮助！希望大家也多多共享呀''''这是一个胶带机功率简单计算的程序'''' ''''本程序可以用于共享学习之用，如用作商业用途，请告知作者<a href="mailto

YMX12345@126.COM">LYMX12345@126.COM</a>  '''' Option Explicit

rivate Sub Form_Load()     Dim L, B, LO, qj, dj, p, k, V, Q, H, N1, N, A, A1, A2, ts, dsxs B:     B = InputBox("请输入带宽(mm)", Me.Caption & "--数据输入", 500)     If B = "" Then End     If B = "400" Or B = "500" Or B = "650" Or B = "800" Or B = "1000" Or B = "1200" _        Or B = "1400" Or B = "1600" Or B = "1800" Or B = "2000" Then     Else: GoTo B     End If     B = Val(B)     If B = 400 Then         LO = 160     ElseIf B = 500 Then         LO = 200     ElseIf B = 650 Then         LO = 250     ElseIf B = 800 Then         LO = 315     ElseIf B = 1000 Then         LO = 380     ElseIf B = 1200 Then         LO = 465     ElseIf B = 1400 Then         LO = 530     ElseIf B = 1600 Then         LO = 600     ElseIf B = 1800 Then         LO = 670     ElseIf B = 2000 Then         LO = 750     End If     ts = "带    宽：" & B & "mm" L:     L = InputBox(ts & Chr(10) & Chr(10) & "请输入水平机长(m)", Me.Caption & "--数据输入")     If L = "" Then End     If L > 3 And L < 20000 Then     Else: GoTo L     End If     ts = ts & Chr(10) & "水平机长：" & L & "m" qj:     qj = InputBox(ts & Chr(10) & Chr(10) & "请输入倾角(°)", Me.Caption & "--数据输入", 0)     If qj = "" Then End     qj = Val(qj)     If qj <= 6 Then         k = 1     ElseIf qj <= 8 Then         k = 0.96     ElseIf qj <= 10 Then         k = 0.94     ElseIf qj <= 12 Then         k = 0.92     ElseIf qj <= 14 Then         k = 0.9     ElseIf qj <= 16 Then         k = 0.88     ElseIf qj <= 18 Then         k = 0.85     ElseIf qj <= 20 Then         k = 0.81     ElseIf qj <= 22 Then         k = 0.76     Else         GoTo qj     End If     ts = ts & Chr(10) & "倾    角：" & qj & "°" p:     p = InputBox(ts & Chr(10) & Chr(10) & "请输入物料松散密度密度(t/m3)", Me.Caption & "--数据输入", 0.9)     If p = "" Then End     p = Val(p)     If p < 0.1 Or p > 2.5 Then GoTo p     ts = ts & Chr(10) & "松散密度：" & p & "t/m3"dj:     dj = InputBox(ts & Chr(10) & Chr(10) & "请输入物料安息角(°)", Me.Caption & "--数据输入", 30)     If dj = "" Then End     dj = Val(dj)     If p < 0 Or p > 60 Then GoTo dj    A1 = Tan(dj * 0.92 * (3.1415926 / 180)) * ((LO / 1000 + (0.9 * B / 1000 - 0.05 - LO / 1000) * 0.86602540378) ^ 2) / 6     A2 = (LO / 1000 + ((0.9 * B / 1000) - 0.05 - (LO / 1000)) * 0.4330127) * (0.9 * B / 1000 - 0.05 - (LO / 1000)) * 0.25     A = A1 + A2     ts = ts & Chr(10) & "安息角：" & dj & "°"V:     V = InputBox(ts & Chr(10) & Chr(10) & "请输入带速(m/s)", Me.Caption & "--数据输入", 1.25)     If V = "" Then End     If V > 0 And V < 5 Then     Else: GoTo V     End If     V = Val(V)     If V <= 1.6 Then         dsxs = 1     ElseIf V <= 2.5 Then         dsxs = 0.95     ElseIf V <= 3.15 Then         dsxs = 0.9     ElseIf V <= 4# Then         dsxs = 0.8     Else         dsxs = 0.76     End If     ts = ts & Chr(10) & "带    速：" & V & "m/s" H:     H = InputBox(ts & Chr(10) & Chr(10) & "请输入提升高(m)", Me.Caption & "--数据输入", Val(Format(Val(L) * Tan(qj * (3.1415926 / 180)), "###.###")))     If H = "" Then End     ts = ts & Chr(10) & "提升高：" & H & "m" Q:     Q = InputBox(ts & Chr(10) & Chr(10) & "请输入输送量(t/h)", Me.Caption & "--数据输入", CLng(A * 3600 * Val(V) * k * p * dsxs))    If Q = "" Then End     If Val(Q) = 0 Then GoTo Q     ts = ts & Chr(10) & "输送量：" & Q & "t/h"    N1 = (0.36 * (40 + L) * (B - 300) * V + (40 + L) * Q) / 10000 + 0.00273 * Q * H     N = N1 / 0.85     If N < 1 Then N = "0" & N     MsgBox ts & Chr(10) & Chr(10) & "计算所需功率  " & Val(CCur(N)) & "千瓦", , "胶带机功率计算(六月梦雪)"     End End Sub

lymx · 发表于 2006-7-30 08:17:45

不好意思，上面的帖子发重复了 编译过的程序

YPDBPEGC.rar (142.17 KB, 下载次数: 17)

依然笑朗 · 发表于 2006-7-30 13:46:34

谢谢上面的贴子，本人正在参考中！有价值但是我想做的那个计算程序输入数值和输出数据在一个窗口里面，"计算”按钮的源码怎么写呢？<a href="mailto:syws52@126.com">syws52@126.com</a>

gangxiadexue · 发表于 2010-6-3 11:58:28

都是高手啊！！！

账号		自动登录	找回密码
密码			注册会员

这里有没有VB高手呀！求助啦

我们不再是孤独的探索者；让我们的手紧紧相连，一起成长。

谢谢上面的贴子，本人正在参考中！有价值

浏览过的版块