VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 4518|回复: 4

爬坡能力 和 坡度 的换算器

[复制链接]
 楼主| 发表于 2012-4-14 03:22:58 | 显示全部楼层 |阅读模式
本帖最后由 JuncoJet 于 2012-4-14 06:30 编辑

刚才看到个视频,看到某田品牌的越野车 爬不上某坡笑了。自行车都能骑上去
查阅了相关的资料  发现爬坡能力是100米上升高度的能力。所以写了这样个换算器

原先是C实现的,但使用不方便 VB重写了个

参考内容 http://blog.sina.com.cn/s/blog_439629de0100gdq2.html
20120414031140375.jpg

爬坡能力换算器.rar

4.27 KB, 下载次数: 970

点评

你好无聊啊,竟然搞出这么简单的程序……  发表于 2012-4-14 11:03
 楼主| 发表于 2012-4-14 06:27:23 | 显示全部楼层
有个奇怪的地方,退出工程后打开再编译  pi 的精度就会变。

点评

馊主意:先保存在两个Long里面,然后CopyMemory到Double里面去……  发表于 2012-4-14 11:03
还有就是 VB的 tan atn 精度 就是差那么点点,不知道问题在哪  发表于 2012-4-14 06:40
回复 支持 反对

使用道具 举报

发表于 2012-4-14 10:43:07 | 显示全部楼层
这个程序就很精确,不会变:

  1. Const pi = "3.141592653589793"
  2. Dim Focus As Integer

  3. Private Sub Text1_Change(Index As Integer)
  4.     If Focus Then
  5.         Text1(0).Text = Atn(Val(Text1(1).Text) / 100) * 180 / pi
  6.     Else
  7.         Text1(1).Text = Tan(Val(Text1(0).Text) * pi / 180) * 100
  8.     End If
  9. End Sub

  10. Private Sub Text1_GotFocus(Index As Integer)
  11.     Focus = Index
  12.     Text1(Index).SelStart = 0
  13.     Text1(Index).SelLength = LenB(Text1(Index).Text)
  14. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2012-4-17 21:35:45 | 显示全部楼层
下次把PI的精度给定死了。。。告诉你的一句:三点一撕一捂揪二肉
回复 支持 反对

使用道具 举报

发表于 2012-4-21 14:33:04 | 显示全部楼层
顶3楼
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-6-4 00:51

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表