无忧启动论坛

标题: VB计算机CPU暴力测试程序 [打印本页]
作者: sunsea    时间: 2012-7-30 13:40
标题: VB计算机CPU暴力测试程序
对不起，我不会VC，所以做成了VB。（如果是VC的话就可以多线程方式执行，不会看上去像死机了）
此程序采用最传统、最暴力的方法测试CPU：
对随机基数进行平方、开方、对数、反对数等暴力整数、浮点计算指定次，检验性能。
注：由于此测试手段非常“暴力”、“野蛮”，霸占CPU，而且是单线程程序，所以可能在计算时看上去像死机，请谅解（这是单线程程序的不足）！
如果是多核CPU，建议按CPU核心数量多开测试，结果更准确！

源码：
  1. Option Explicit
  2. Private Sub Command1_Click()
  3.     Dim jsw, cs, i, ii As Integer
  4.     Dim StartTime, EndTime As Double
  5.     jsw = Form1.Text1.Text
  6.     cs = Form1.Text2.Text * 1000000
  7.     Dim zfc As String
  8.     zfc = "1**6789"
  9.     Form1.Label11.Caption = "正在计算"
  10.     Form1.Label8.Caption = ""
  11.     StartTime = Timer
  12.     For i = 1 To cs
  13.         Randomize
  14.         Dim ranmod As String
  15.         Dim temp, temp2, temp3, temp4, temp5, temp1 As Double
  16.         ranmod = "0"
  17.         For ii = 1 To jsw
  18.             ranmod = ranmod & Mid(zfc, 1 + Int(Len(zfc) * Rnd), 1)
  19.         Next ii
  20.         temp = ranmod ^ 2
  21.         temp1 = Sqr(temp)
  22.         temp2 = Log(temp1)
  23.         temp3 = Exp(temp2)
  24.         temp4 = Atn(temp3)
  25.         temp5 = Tan(temp4)
  26.         temp = temp + 1
  27.         temp = temp * ranmod - 5
  28.     Next
  29.     EndTime = Timer
  30.     Form1.Label8.Caption = EndTime - StartTime
  31.     Form1.Label11.Caption = "计算完成"
  32. End Sub
复制代码

[ 本帖最后由 2011czmxbb52 于 2012-7-31 09:57 编辑 ]

计算机CPU暴力测试程序.part1.rar

292.97 KB, 下载次数: 58, 下载积分: 无忧币 -2

计算机CPU暴力测试程序.part2.rar

292.97 KB, 下载次数: 72, 下载积分: 无忧币 -2

计算机CPU暴力测试程序.part3.rar

20.35 KB, 下载次数: 35, 下载积分: 无忧币 -2

作者: sunsea    时间: 2012-7-30 20:56
**
竟然定义错变量类型
导致数字一大就溢出
这回修正了

[ 本帖最后由 2011czmxbb52 于 2012-7-31 09:56 编辑 ]

计算机CPU暴力测试程序.part1.rar

294.92 KB, 下载次数: 27, 下载积分: 无忧币 -2

计算机CPU暴力测试程序.part2.rar

294.92 KB, 下载次数: 28, 下载积分: 无忧币 -2

计算机CPU暴力测试程序.part3.rar

6.8 KB, 下载次数: 22, 下载积分: 无忧币 -2

作者: 2012hongrui    时间: 2012-7-30 22:19
你循环语句中不用Doevents语句,不怕程序停止响应么？VB程序可是单线程的,编译成可执行文件很耗CPU的,极有可能卡死！
作者: sunsea    时间: 2012-7-31 09:53
原帖由 2012hongrui 于 2012-7-30 22:19 发表
你循环语句中不用Doevents语句,不怕程序停止响应么？VB程序可是单线程的,编译成可执行文件很耗CPU的,极有可能卡死！

这个问题基本无视。
再严重点按Ctrl+Alt+Del
再说，我也不会VC和MFC
如果我会直接写多线程好了
对了
那个语句的语法是什么
我没有找到
一般我查语法资料都是从天极那边查：http://www.yesky.com/imagesnew/software/vbscript/index.html

[ 本帖最后由 2011czmxbb52 于 2012-7-31 09:56 编辑 ]
作者: sunsea    时间: 2012-7-31 10:05
好吧
我把我写的烂的一塌糊涂的MFC代码发上来（还有点错），希望大家帮忙！谢谢！

MFC代码.rar

23.95 KB, 下载次数: 17, 下载积分: 无忧币 -2

作者: sunsea    时间: 2012-7-31 17:43
现在发现VB.NET可以搞多线程（更重要的是不用去烦那么繁杂的API），所以就用VB。NET做了
可惜微软不给力，还要装那么大一个.NET
VB.NET的效率好像也不怎么高
源码：

  2. Option Explicit On
  3. Imports VB = Microsoft.VisualBasic
  4. Friend Class Form1
  5.     Inherits System.Windows.Forms.Form
  6.     Dim Td As System.Threading.Thread '定义一个线程
  7.     'Delegate Sub Dg(ByVal v As Int32) '声明一个委托，以后实现检测核心数量并自动生成线程就有用了
  8.         Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
  9.         Me.Label11.Text = "正在计算"
  10.         Me.Label8.Text = ""
  11.         Td = New System.Threading.Thread(AddressOf CPUTest)
  12.         Td.Start()
  13.         End Sub

  15.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  16.         Td.Abort() '中止线程
  17.         Me.Label11.Text = "计算被终止"
  18.         Me.Label8.Text = ""
  19.     End Sub
  20.     Sub CPUTest()
  21.         '这里定义了很多变量，但是，一旦线程结束（相当于Sub执行完成），内存便会被释放（因为变量生存期过了）
  22.         Dim cs, jsw, i, StartTime, EndTime As Object
  23.         Dim ii As Short
  24.         jsw = Me.Text1.Text
  25.         cs = CDbl(Me.Text2.Text) * 1000000
  26.         Dim zfc As String
  27.         zfc = "1**6789"
  28.         Dim ranmod As String
  29.         Dim temp4, temp2, temp, temp3, temp5 As Object
  30.         Dim temp1 As Double
  31.         Dim temp6, temp7 As String
  32.         temp6 = cs
  33.         temp6 = temp6 / 100
  34.         temp7 = "0"
  35.         CheckForIllegalCrossThreadCalls = False
  36.         Me.ProgressBar1.Value = 0
  37.         CheckForIllegalCrossThreadCalls = True
  38.         StartTime = VB.Timer()
  39.         For i = 1 To cs
  40.             '简便打注释技巧：选中需要注释的区域，按Ctrl+K，再按一遍Ctrl+C就行了；如果要撤销注释，按Ctrl+K，再按一遍Ctrl+U就行了
  41.             If temp7 = temp6 Then
  42.                 CheckForIllegalCrossThreadCalls = False
  43.                 Me.ProgressBar1.Value = Me.ProgressBar1.Value + 1
  44.                 CheckForIllegalCrossThreadCalls = True
  45.                 temp7 = "0"
  46.             End If
  47.             temp7 = temp7 + 1
  48.             Randomize()
  49.             ranmod = "0"
  50.             For ii = 1 To jsw
  51.                 ranmod = ranmod & Mid(zfc, 1 + Int(Len(zfc) * Rnd()), 1)
  52.             Next ii
  53.             temp = ranmod ^ 2
  54.             temp1 = System.Math.Sqrt(temp)
  55.             temp2 = System.Math.Log(temp1)
  56.             temp3 = System.Math.Exp(temp2)
  57.             temp4 = System.Math.Atan(temp3)
  58.             temp5 = System.Math.Tan(temp4)
  59.             temp = temp + 1
  60.             temp = temp * ranmod - 5
  61.         Next
  62.         EndTime = VB.Timer()
  63.         CheckForIllegalCrossThreadCalls = False
  64.         Me.Label8.Text = EndTime - StartTime
  65.         Me.Label11.Text = "计算完成"
  66.         CheckForIllegalCrossThreadCalls = True
  67.     End Sub
  68.     ' Sub Label()
  69.     '现在我们用不到这个段，代码就没有
  70.     '以后实现检测核心数量并自动生成线程就有用了
  71.     ' End Sub
  72. End Class
复制代码

下载：

[ 本帖最后由 2011czmxbb52 于 2012-7-31 17:58 编辑 ]

计算机CPU暴力测试程序.rar

10.63 KB, 下载次数: 22, 下载积分: 无忧币 -2

作者: 2012hongrui    时间: 2012-7-31 18:26
编译成一个可执行文件,最讨厌的就是停止响应时按ctr|+alt+De|,既然你不在乎,我也不再说什么了.
作者: sunsea    时间: 2012-7-31 19:58
原帖由 2012hongrui 于 2012-7-31 18:26 发表
编译成一个可执行文件,最讨厌的就是停止响应时按ctr|+alt+De|,既然你不在乎,我也不再说什么了.

好了
现在VB.NET的版本有停止按钮了



欢迎光临 无忧启动论坛 (http://bbs.wuyou.net/) Powered by Discuz! X3.3