ห้องVBส่วนตัวของแมงเม่า

voyager

ใครอยาก post กระทู้เกี่ยวกับ visual basic 6.0 ทั้งที่เป็น hardware interface หรือ miscellaneous ถ้าไม่มีใคร post ก็จะมา post เอง 555555

ถัง · ตอบ: ศ. มิย. 02, 2006 8:37 pm ชื่อกระทู้:

สวัสดีคุณแมงเม่าและขอบคุณครับที่ตอบคำถาม ผมมีความสนใจหลักการและทฤษฎีเพื่อทำ Project เกี่ยวกับMechine visionหรือการค้นหาภาพ อยากจะศึกษาเพิ่มเติมอยู่ 2 หัวข้อคือ
1. ทฤษฎีเกี่ยวกับ Thresholding
2. ทฤษฎีเกี่ยวกับ Blob
ผมรบกวนสอบถามว่าข้อมูล 2 ข้อนี้สามารถหาได้จากไหนบ้าง จะเป็นเอกสารที่ผมจะขอถ่ายเอกสารหรือเป็นสื่ออื่นๆที่ผมจะหามาศึกษา เป็นเอกสารภาษาไทยก้อจะดีมากเลยมีข้อมูลภาษาอังกฤษก้อเอา ขอความกรุณาด้วยนะครับ
_________________
dpc

แมงเม่า · บุคคลทั่วไป

kipo

พีแมงเม่าครับผมมีอะไรอยากขอคำชี้แนะหน่อย คือผมกำลังศึกษาระบบคาราโอเกะอยู่แต่ติดปัญหาอยู่ที่ผมจะหาคอมโพแนนต์หรือAPIตัวใดที่จะได้ค่าเวลาขณะเล่นไฟล์มิดี้แบบที่โปรแกรมcakewalkน่ะครับ คือมันจะนับแบบเป็นเฟรมเช่น 01:04:024 เล่นไป 24 เฟรมจะเป็น 1 จังหวะ เล่นไป 4 จังหวะเป็น 1 ห้อง และจะเป็นอย่างนี้ไปเรื่อยๆผมจะต้องทำอย่างไรครับเคยถามคนอื่นแล้วตอบไม่ได้หรือเท่าที่ทำได้ก็นับเฉพาะ 2 หลักแรกไม่นับเฟรม(0-24เฟรม)ผมจะนำไปใช้กับการปาดตัวหนังสือคาราโอเกะ ตอนนี้ก็ขอรบกวนด้วยนะครับ

แมงเม่า · บุคคลทั่วไป

ลูกแก้ว · บุคคลทั่วไป

หาข้อมูลมะได้เลย พี่แมงเม่าช่วยบอกทีนะครับ ว่า vb สามารถเขียนคำสั่ง เพื่อที่จะวัดระดับน้ำ ว่าเพิ่มขึ้นเท่าไหร่และลดลงเท่าไหร่ และมาแสดงที่หน้าฟอร์ม สามารถทำได้ไหมครับ
ถ้าได้รบกวนแนะนำด้วยครับ
หรือมีหนังสือเกี่ยวกับเรื่องนี้บ้างไหมครับ ขอความกรุณาด้วยนะครับ

ขอโทษที่รบกวน และขอขอบคุณมากครับ
ขอให้พี่แมงเม่าอยู่คู่บอร์ด นานๆนะครับ เพื่อเป็นที่ปรึกษา อิอิ Shocked

แมงเม่า · บุคคลทั่วไป

บุคคลทั่วไป · ตอบ: อ. มิย. 06, 2006 7:30 pm ชื่อกระทู้:

เอาโฟมลอยไว้ แล้วใช้ infrared จับเอาก้อได้มั้ง
แล้วถ้าต้องการนำสัญญาณจาก soundcard มาใช้จะทำยังไงครับ
คืออยากเอาเสียงที่รับได้มาทำ FFT แล้ววิเคราห์อะครับ
เป็นโปรเจคเกี่ยวกับ OFDM ทำใน MatLab แล้ว อยากลองทำใน
VB บ้าง จะได้ง่ายขึ้น (รึป่าว !)

แมงเม่า · บุคคลทั่วไป

http://www.geocities.com/ezy_math/oscilloscope.zip

Xion · บุคคลทั่วไป

พี่แมงเม่าครับช่วยสอน วิธีOpen File นามสกุล.txt จากเว็บหน่อยสิครับ

ยกตัวอย่าง ให้มันOpen File จาก http://www.test.com/text.txt

ขอบคุณล้วงหน้าครับ

บุคคลทั่วไป · ตอบ: ศ. มิย. 09, 2006 9:37 pm ชื่อกระทู้:

oscilloscope นี่ มีการทำ FFT แต่ใช้วิธีเปิดไฟล์เสียงเอานี่ครับ ถ้าต้องการให้มันรับค่าจาก soundcard เลย จะต้องทำไงอะครับ

บุคคลทั่วไป

ทำไมใช้ Speech recognition engine ไม่ค่อย work เลยอะครับ

ลูกแก้ว · บุคคลทั่วไป

ขอบคุณพี่แมงเม่าครับ แต่ก้อเปลี่ยนเอาไปควบคุมบอร์ดLEDแทน
แต่ผมมีข้อสงสัยตรงที่ input ของprinter portอ่ะครับ เราสามารถใช้เงื่อนไขในการเลือก input ได้ด้วยวิธีได้บ้างครับ นอกจากการ select case เช่น

Private Declare Function Int Lib "Dllport.Dll" Alias "Inp32" (ByVal PortAddress As Integer)As Integer
Private Declare Sub Out Lib "Dllport.Dll" Alias "Out32" (ByVal PortAddress As Integer,ByVal Value As Integer)
Public pwrite As Integer
Public pread As Integer
Public Data As Integer
---------------------------------------------
Private Sub Form_Load()
pwrite = &H378
pread = &H379
End Sub
---------------------------------------------
Private Sub Timer1_Timer()
Data = inp(pread)
Select Case Data'เป็นการใช้ select case เลือกเงื่อนไขการรับ Input'
Case 119'จากสวิชต์ 1'
Out pwrite , &H1 'output ทำงาน'
Case 111'จากสวิชต์ 2'
Out pwrite , &H2 'output ทำงาน'
End Select
End Sub
------------------------------------------------
แบบนี้อ่ะครับ จะสามารถใช้เงื่อนไขอื่น เมื่อมีการกดสวิชต์ แล้วให้ output ทำงานตามที่ระบุได้รึป่าวอ่ะครับ โดยไม่ใช้ select case ช่วยแนะนำด้วยครับ

บุคคลทั่วไป

select case น่าจะเป็นวิธีที่ optimize ที่สุดแล้วนะ หรือไม่ก็ลองใช้ if แต่มันก็จุดประสงค์เดียวกันและยุ่งยากเกินไป

ลูกแก้ว · บุคคลทั่วไป

คือว่า การใช้ select case ในการรับอินพุทอ่ะครับ ถ้าอินพุท มีหลายค่าก้อจะทำให้caseกันยาวเลย if...then ยิ่งยาวไปใหญ่ อ่ะครับ พอจะมีตัวแปรหรือ คำสั่งอื่นๆที่สามารถ ทำเช่นที่กล่าวได้มั่งมั้ยครับ ขอบคุณมากครับ

แมงเม่า · บุคคลทั่วไป

เด็กใหม่ · บุคคลทั่วไป

ผมมีระบบเก่าที่เขียนด้วย COBOL ซึ่งเวลาสั่งพิมพ์ ออก Line Printer(Printronix) จะเร็วมาก แต่มีความจำเป็นที่ต้องเขียนระบบขึ้นมาใหม่ โดยใช้ Centura Developer ซึ่งมีปัญหาเรื่องการพิมพ์ เพราะพิมพ์ช้ามาก โดยเครื่องพิมพ์พยายามพิมพ์ให้ชัดแบบ Graphic
อยากรบกวนขอคำแนะนำ โดย VB มีวิธิการพิมพ์ข้อมูลออก Line Printer แบบ Text Mode เหมือน Cobol ไหมครับ

ขอบคุณครับ

ลูกแก้ว · บุคคลทั่วไป

ไม่มี แน่เลย ยังไงก้อขอบคุณมากครับ

vclash27 · บุคคลทั่วไป

พี่ครับผมไปเห็นโค้ดนี้จาก http://www.wara.com/
จะต้องเพิ่มให้เป็นแบบ motion เอาแบบมีจุดแดงๆเวลาเคลื่อนไหวยังไงครับ ผมลองหาข้อมูลมาหลายเดือนแล้วยังไม่รู้จะต้องเพิ่มที่ไหน รบกวนผู้รู้ด้วยครับ

Const WM_CAP As Integer = &H400
Const WM_CAP_DRIVER_CONNECT As Long = WM_CAP + 10
Const WM_CAP_DRIVER_DISCONNECT As Long = WM_CAP + 11
Const WM_CAP_EDIT_COPY As Long = WM_CAP + 30
Const WM_CAP_SET_PREVIEW As Long = WM_CAP + 50
Const WM_CAP_SET_PREVIEWRATE As Long = WM_CAP + 52
Const WM_CAP_SET_SCALE As Long = WM_CAP + 53
Const WS_CHILD As Long = &H40000000
Const WS_VISIBLE As Long = &H10000000
Const SWP_NOMOVE As Long = &H2
Const SWP_NOSIZE As Integer = 1
Const SWP_NOZORDER As Integer = &H4
Const HWND_BOTTOM As Integer = 1
Dim iDevice As Long
Dim hHwnd As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hndw As Long) As Boolean
Private Declare Function capCreateCaptureWindowA Lib "avicap32.dll" _
(ByVal lpszWindowName As String, ByVal dwStyle As Long, _
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
ByVal nHeight As Integer, ByVal hWndParent As Long, _
ByVal nID As Long) As Long
Private Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Long, _
ByVal lpszName As String, ByVal cbName As Long, ByVal lpszVer As String, _
ByVal cbVer As Long) As Boolean

Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdSave_Click()
Dim bm As Image
SendMessage hHwnd, WM_CAP_EDIT_COPY, 0, 0
ClosePreviewWindow
picCapture.Picture = Clipboard.GetData
CommonDialog1.CancelError = True
CommonDialog1.FileName = "Webcam1"
CommonDialog1.Filter = "Bitmap |*.bmp"
On Error GoTo NoSave
CommonDialog1.ShowSave
SavePicture picCapture.Image, CommonDialog1.FileName
NoSave:
cmdStop.Enabled = False
cmdSave.Enabled = False
cmdStart.Enabled = True
End Sub

Private Sub cmdStart_Click()
iDevice = lstDevices.ListIndex
OpenPreviewWindow
End Sub

Private Sub cmdStop_Click()
ClosePreviewWindow
cmdStop.Enabled = False
cmdSave.Enabled = False
cmdStart.Enabled = True
End Sub

Private Sub Form_Load()
LoadDeviceList
If lstDevices.ListCount > 0 Then
lstDevices.Selected(0) = True
Else
cmdStart.Enabled = False
lstDevices.AddItem ("No Device Available")
End If
cmdStop.Enabled = False
cmdSave.Enabled = False
End Sub

Private Sub LoadDeviceList()
Dim strName As String
Dim strVer As String
Dim iReturn As Boolean
Dim x As Long
x = 0
strName = Space(100)
strVer = Space(100)
Do
iReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100)
If iReturn Then lstDevices.AddItem Trim$(strName)
x = x + 1
Loop Until iReturn = False
End Sub

Private Sub OpenPreviewWindow()
' Open Preview window in picturebox
hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 640, _
480, picCapture.hwnd, 0)
' Connect to device
If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then
'Set the preview scale
SendMessage hHwnd, WM_CAP_SET_SCALE, True, 0
'Set the preview rate in milliseconds
SendMessage hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0
'Start previewing the image from the camera
SendMessage hHwnd, WM_CAP_SET_PREVIEW, True, 0
' Resize window to fit in picturebox
SetWindowPos hHwnd, HWND_BOTTOM, 0, 0, picCapture.ScaleWidth, picCapture.ScaleHeight, _
SWP_NOMOVE Or SWP_NOZORDER
cmdSave.Enabled = True
cmdStop.Enabled = True
cmdStart.Enabled = False
Else
' Error connecting to device close window
DestroyWindow hHwnd
cmdSave.Enabled = False
End If
End Sub

Private Sub ClosePreviewWindow()
' Disconnect from device
SendMessage hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0
' close window
DestroyWindow hHwnd
End Sub

Private Sub Form_Unload(Cancel As Integer)
If cmdStop.Enabled Then
ClosePreviewWindow
End If
End Sub

dos_exe

ขอ code ครับ Crying or Very sad

iceman1234 · บุคคลทั่วไป

สวัสดีคับพี่แมงเม่า ผมเพิ่งเคยเข้ามาบอร์ดนี้เป็นครั้งแรก นั่งอ่านกระทู้เก่าๆ ที่พี่ตอบคำถามแล้ว (แต่ยังมะหมด) ต้องยอมรับว่าพี่โคตรเก่งเลย และเป็นคนที่ดีมากๆๆๆ เลยนะครับ ขอแสดงความนับถือและจะติดตามงานของพี่ต่อๆ ไป
ผมมีปัญหาอยู่หนึ่งอย่างอ่ะครับ คือ ต้องการวัดความเร็วเสียงในแท่งโลหะต่างชนิดกัน โดยต้องการทราบเวลาที่เกิดขึ้นจากการเคาะวัตถุ โดยนำเซนเซอร์มาติดไว้ ณ จุดเริ่มต้น และ จุดสุดท้ายของแท่งโลหะ ต้องการรับสัญญาณอินพุตทางพอร์ต 379 อ่ะครับ เพื่อไปจับเวลาในคอมพิวเตอร์ ปัญหาคือไม่ทราบว่ามันจะรับทันรึป่าวครับ(คอมพิวเตอร์รับสัญญาณได้เร็วที่สุดประมาณเท่าไรครับ?) ไม่แน่ใจเหมือนกันว่าเวลาที่ได้จะ น้อยกว่า millisecond รึป่าว ถ้ารับไม่ทันมีวิธีแก้รึป่าวครับ ขอบคุณมากครับ

X001 · บุคคลทั่วไป

ไม่ทราบว่าพี่แมงเม่า
ถนัดหรือเคยใช้ VideoOCX รึเปล่า
มีเรื่องอยากปรึกษา

แมงเม่า · บุคคลทั่วไป

Keng_Keta

ผมอยากได้โคดVB6ที่ Unplug USB (Remove Hardware)ได้อ่ะคับ
พี่พอจะช่วยหน่อยได้ป่าวคับ....
ขอบคุณมากเลยคับ Shocked

แมงเม่า · บุคคลทั่วไป

แนะนำโปรแกรม VEE Pro เป็น Graphical language อีกตัวที่มาแรง ฉลองเวอร์ชันล่าสุดครบ1 ปีเมื่อเดือนที่ผ่านมา VEE Pro 7.5 ค่อนข้างจะมีรูปลักษณ์ต่างจาก VEE Pro6.0 โดยสิ้นเชิงโดยเฉพาะ Property view และ Panel view หน้าตาออกจะคล้าย ๆ VB
VEE Pro เป็นคู่แข่งที่ Labview กำลังหวั่น ๆ เพราะการพัฒนาของ VEE ค่อนข้างที่จะรวดเร็วเพราะมีการยอมรับมากขึ้น โดยเฉพาะถ้าเทียบด้านการโปรแกรมแล้ว VEE Pro ค่อนข้างเขียนง่ายและยืดหยุ่นกว่า Lab Veiw อย่างไรก็ตาม Labview ยังเป็นที่นิยมกันมากเพราะเป็นโปรแกรมที่เก่าแก่และสนับสนุน instrument กว้างขวางกว่า

การใช้ VEE ในงานด้านการวิเคราะห์
Work space

Panel View

การติดต่อ test instrument(Digital mutimeter HP34401,Function generator HP33120) โดยใช้ panel driver และ component driver

ขอความช่วยเหลือ · บุคคลทั่วไป

ในฟอร์ม vb Calender มาใส่ในฟอร์มจะต้องเขียนโค๊ดอย่างให้เพื่อที่จะให้มันใช้ได้ขอความช่วยเหลือด้วยนะครับผมเพิ่งหัดเขียน vb ขอบคุณครับ

หน้าืั้ต่อไป