 |
| |
ขอคำแนะนำ การเขียนโค้ดจับเวลาใน VB.Net 2010 โดยใช้ Timer |
| |
 |
|
|
 |
 |
|
คือ ตอนนี้ผมเขียนโปรแกรม getpixel image มาหนึ่งโปรแกรม แล้วผมอยากรู้ว่า ถ้ารุปอินพุตที่ใช้นั้นมีขนาดที่แตกต่างกัน เวลาที่ใช้จะต่างกันมากน้อยเท่าไร
จึงอยากขอคำแนะนำ การเขียนโค้ดจับเวลาการประมวลผลในหนึ่งโพรซีเยอร์นั้นใช้เวลาในการประมวลผลเท่าไรแต่ละรอบ ตั้งแต่คำสั่งแรกไปจนประมวลผลเสร็จสิ้นคำสั่งสุดท้าย แล้วนำค่าเวลาที่จับได้นั้นไปโชว์ออกทาง textbox
Code (VB.NET)
Public Class Form1
Private Sub upld_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upld_btn.Click
Dim open_file As New OpenFileDialog
open_file.Filter = "Pictures Files| *.bmp;*.jpg;*.gif;*.wmf;*.tif;*.png"
Try
If open_file.ShowDialog() = DialogResult.OK Then
picture_bx1.Image = Image.FromFile(open_file.FileName)
Else
MsgBox("Please select a picture", vbInformation, "Pictures Files")
End If
Catch ex As Exception
MsgBox(ex.Message, vbCritical, "Pictures Files")
End Try
End Sub
'////////////////////////////////////////////////////// GetPixel ////////////////////////////////////////////////////////////////////////////////////////////
Private Sub get_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles get_btn.Click
'ต้องเริ่มจับเวลาตรงนี้
Dim Image_1 As New Bitmap(picture_bx1.Image)
Dim Px1 As Integer
Dim Py1 As Integer
Dim Image_1_Pixel(Image_1.Width, Image_1.Height) As Color
For Px1 = 0 To Image_1.Width - 1 Step 1
For Py1 = 0 To Image_1.Height - 1 Step 1
Image_1_Pixel(Px1, Py1) = Image_1.GetPixel(Px1, Py1)
Next
Next
'แล้วหยุดการจับเวลาตรงนี้
End Sub
End Class
Tag : .NET, VB.NET, VS 2010 (.NET 4.x)
|
|
|
 |
 |
 |
 |
| Date :
2013-09-24 01:38:10 |
By :
try |
View :
6332 |
Reply :
6 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
เอ่อ......
ถ้าจะจับเวลาเขาไม่ได้ใช้ timer หรอกนะ
เขาใช้ timespan ที่หัวและท้าย
แล้วเอา 2 ค่ามา diff กัน
|
| |
|
|
| |
| Date :
2013-09-24 08:08:33 |
By :
ห้ามตอบเกินวันละ 2 กระทู้ |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ถ้าเป็นความต่างระดับ วินาที ก็ใช้ datediff ก็ได้ครับ
แต่ถ้าต่างระดับ มิลลิวินาที ก็น่าจะใช้ tick แทน (มั้ง) ผมไม่เคยใช้อ่ะ
http://www.dotnetspider.com/forum/46646-How-do-I-find-Time-difference-milliseconds-vb.net.aspx
http://vbcity.com/forums/t/121938.aspx
|
| |
|
|
| |
| Date :
2013-09-24 08:38:20 |
By :
fonfire |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณคับ แต่อ่านแล้วยังไม่เข้าอ่ะคับ พอจะมีใครช่วยให้ตัวอย่างการใช้ได้ป่าวคับ
|
| |
|
|
| |
| Date :
2013-09-24 22:08:20 |
By :
try |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
น่าจะประมาณนี้น่ะครับ
Code (VB.NET)
Private Sub get_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles get_btn.Click
Dim dateStart as datetime
Dim dateStop as datetime
'ต้องเริ่มจับเวลาตรงนี้
dateStart=Now
Dim Image_1 As New Bitmap(picture_bx1.Image)
Dim Px1 As Integer
Dim Py1 As Integer
Dim Image_1_Pixel(Image_1.Width, Image_1.Height) As Color
For Px1 = 0 To Image_1.Width - 1 Step 1
For Py1 = 0 To Image_1.Height - 1 Step 1
Image_1_Pixel(Px1, Py1) = Image_1.GetPixel(Px1, Py1)
Next
Next
'แล้วหยุดการจับเวลาตรงนี้
dateStop=Now
Msgbox(datediff("s",dateStart,dateStop))
End Sub
|
| |
|
|
| |
| Date :
2013-09-25 08:12:44 |
By :
fonfire |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณมากคับ คุณ fonfire ที่ช่วยให้คำแนะนำและเขียนโค้ดให้
|
| |
|
|
| |
| Date :
2013-09-25 11:40:55 |
By :
try |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
อันนี้น่าจะตรงจุดกว่านะครับ
Code (VB.NET)
Dim stw As New Stopwatch
stw.Start()
'Process.........
stw.Stop()
Console.WriteLine(stw.ElapsedMilliseconds)
|
| |
|
|
| |
| Date :
2014-01-10 06:39:58 |
By :
base3000 |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
