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

voyager

กระทู้เกี่ยวกับ visual basic 6.0 ทั้งที่เป็น hardware interface หรือ miscellaneous ถ้าไม่มีใคร post ก็จะมา post เอง 555555 มีเรื่องราวหลากหลายทิป เทคนิคที่เพื่อนๆสามารถนำไปประยุกต์ใช้ในการพัฒนาโปรแกรมได้ไม่ว่าจะเป็นด้าน vision,webcam, การเขียนโปรแกรมติดต่อ Hardware และ Network โดยใช้VB,VC+ รวมถึง โครงงาน คอมพิวเตอร์เชื่อมต่ออุปกรณ์ภายนอกการเขียนโปรแกรมด้วย วิชวลเบสิก(visual basic),วิชวลซี(visual C++assembly และ ไมโครคอนโทรลเลอร์ เพื่อ ควบคุม หรือ เชื่อมต่อสื่อสาร ฮาร์ดแวร์ รวมถึงการเขียนโปรแกรมผ่าน winsock,API

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

Code of the day: ใช้ SetCursorPos API กำหนดตำแหน่ง curser

'Module
Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long

'Form:
Private Sub Command1_Click()
Dim SetCurPos As Long
If IsNumeric(Text1) Then
If IsNumeric(Text2) Then
SetCurPos = SetCursorPos(Text1, Text2)
Else
MsgBox "อย่าลืมว่าต้องใส่ทั้งสองช่อง!"
End If
Else
MsgBox "ใส่ตัวเลขเท่านั้นจ้า!"
End If
End Sub

ประยุกต์: โปรแกรม auto click

Bluejoob · ตอบ: พ. สค. 24, 2005 5:52 pm ชื่อกระทู้:

อยากได้โปรแกรมหรือcode vb6 ที่ดึงภาพมาจาก webcam

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

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 cmdSave_Click()
Dim bm As Image
' Copy image to clipboard
SendMessage hHwnd, WM_CAP_EDIT_COPY, 0, 0
ClosePreviewWindow
picCapture.Picture = Clipboard.GetData
CommonDialog1.CancelError = True
CommonDialog1.FileName = "Webcam1"
CommonDialog1.Filter = "Bitmap |*.bmp|JPEG |*.jpeg"
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()
hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 640, 480, picCapture.hwnd, 0)
If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then
SendMessage hHwnd, WM_CAP_SET_SCALE, True, 0
SendMessage hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0
SendMessage hHwnd, WM_CAP_SET_PREVIEW, True, 0
cmdSave.Enabled = True
cmdStop.Enabled = True
cmdStart.Enabled = False
Else
DestroyWindow hHwnd
cmdSave.Enabled = False
End If
End Sub

Private Sub ClosePreviewWindow()
SendMessage hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0
DestroyWindow hHwnd
End Sub
Private Sub Form_Unload(Cancel As Integer)
If cmdStop.Enabled Then
ClosePreviewWindow
End If
End Sub

บุคคลทั่วไป · ตอบ: พฤ. สค. 25, 2005 1:19 pm ชื่อกระทู้:

Code of the day: Scott's LED ocx

Property: LEDState และ LEDFlashrate
LEDState:
- 0 = Off LED
- 1 = On LED
- 2 = Flashing LED
LEDFlashrate: Property ที่ใช้กำหนดค่าในการกระพริบของ LED

Public n As Integer
Private Sub Form_Load()
Timer1.Interval = 1
Timer1.Enabled = False
Timer2.Interval = 1000
Timer2.Enabled = False
Command1.Caption = "Start"
Command2.Caption = "Clear LED"
End Sub
Private Sub Command1_Click()
Static i As Integer
i = i + 1
i = i Mod 2
If i <> 0 Then
Command1.Caption = "STOP"
Timer1.Enabled = True
Timer2.Enabled = True
n = 0
Else
Command1.Caption = "RUN"
Timer1.Enabled = False
Timer2.Enabled = False
For m = 0 To 7
ForgeLEDb1(m).LEDstate = 0
Next m
n = 0
End If
End Sub
Private Sub Timer1_Timer()
If n < 8 Then
ForgeLEDb1(n).LEDstate = 1
Else
For m = 0 To 7
ForgeLEDb1(m).LEDstate = 0
Next m
End If
End Sub
Private Sub Timer2_Timer()
n = n + 1
If n > 8 Then n = 0
End Sub

ดาวน์โหลด ocx:http://members.tripod.com/forgesoft/
ประยุกต์: แสดงผล[/url]

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

Code of the day: Check IP ได้ง่าย ๆ ด้วย winsock

Private Sub cmdIp_Click()
Text1.Text = Winsock1.LocalIP
Text2.Text = Winsock1.LocalHostName
End Sub

ประยุกต์: -

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

Code of the day: MS agent

'Module
Public Bot As IAgentCtlCharacterEx

'Form

Private Sub Form_Load()
Agent1.Characters.Load "Robby", "robby.acs"
Set Bot = Agent1.Characters("Robby")
Bot.Show
End Sub
Private Sub Command1_Click()
Bot.Speak Text1.Text
End Sub
Private Sub Command2_Click()
End
End Sub

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

Code of the day: เคลียร์ค่าใน text box

Private Sub Command1_Click()
For i = 0 To 99
Text1(i).Text = ""
Next i
End Sub

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

พี่ครับผมส่ง mail ไปหาพี่แล้วแต่คิดว่าพีคงยังไม่ได้อ่าน ผมขอบคุณพี่มากนะครับที่ตอบคำถาม เกี่ยวกับ code คีย์บอร์ดที่หน้าเวบบอร์ดให้ผมแต่เนื่องจากผมศึกษา vb ได้ไม่ถึงเดือนผมก็เลยเข้าใจแค่บางส่วน แต่ก็ช่วยผมได้เยอะเลยขอบคุณมากครับ
พีครับแต่ผมมีเรื่องรบกวนอีกหน่อยครับ ผมจะทำยังไงให้โปรแกรมมันทำงานคล้ายโปรแกรม scan ไวรัส ประมาณว่าเช่นผมทำงานอยู่ที่หน้า ms word ถ้าผมพิมพ์ ตัว a ลงใน ms word หน้าจอก็จะขึ้นแสดง a ปกติแต่โปรแกรมของผมจะส่งเสียงเพลงออกมาด้วย
วัตถุประสงค์ของโปรแกรมคือ มันสามารถทำงานได้โดยที่เราทำงานอื่นอยู่เช่น ms word,ms excells,internet,หรือหน้าจอปกติโดยที่ยังไม่เข้าโปรแกรมอะไรเลยหากมีการกด a ก็จะมีเสียงเพลงเล่นขึ้นมาคล้ายโปรแกรม scan ไวรัส คอยดักจับอยู่ตลอดเวลา เห็นมีคนที่เค้าพอรู้เขาบอกว่าต้องติดต่อกับ API มันเเป็ยยังไงผมก็ไม่ค่อยรู้จักรู้จัก ผมเองก็เป็นมือใหม่ก็เลยไม่ค่อยเข้าใจ ก็เลยต้องขอให้พี่ช่วยหน่อยครับ ไกด์นำทางให้ผมหน่อยนะพี่ขอบคุณมากครับ

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

ใช้ API "GetKeyState" นะครับ

1. สร้างปุ่มกดมา 1 อันตั้งชื่อให้มันว่า A
2. Timer 1 อันตั้ง interval=20

ผมทดลองโดยพิมพ์ A ที่ MS word(หรือโปรแกรมอะไรก็ได้) ทุกครั้งที่พิมพ์ caption ของปุ่มก็จะเปลี่ยนเป็นสีเหลือง(อย่าลืม set styleเป็น graphical ล่ะ) ถ้าจะประยุกต์ให้แสดงผลเป็นอย่างอื่นก็ใด้

'Module
Option Explicit
Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
Private Keystate As Long
Private A As Boolean
Public Const VK_A = &H41
Public Function CheckKeys()
Keystate = GetKeyState(VK_A)
If (Keystate And &H80) = &H80 Then
Form1.A.BackColor = vbYellow
Else
Form1.A.BackColor = &H8000000A
End If
End Function

'Form
Option Explicit
Private Sub Timer1_Timer()
CheckKeys
End Sub

เด็กตาดำๆ · บุคคลทั่วไป

พี่ครับ ช่วยสอนวิธีการ เขียน vb ให้ ส่ง sms เข้ามือถือหน่อยสิครับ
ผมรู้แค่ว่าต้องใช้ AT Command
ถ้าใช้โทรศัพท์บ้านส่งจะทำมีการเชื่อมต่อยังไง และถ้าจะใช้มือถือส่ง นี่จะง่ายกว่าโทรศัพท์บ้าน ไหมครับ วิธีทำ ทำยังไง
ขอแบบละเอียดๆ อ่าครับ ขอบคุณมากครับ

เด็กตาดำๆ · บุคคลทั่วไป

AT Command ซึ่งติดต่อพอร์ตของโทรศัพท์ อาจจะเป็น พอร์ตCom1 หรือ Com2 ก็ได้ แต่ถ้าหากในกรณีที่เป็นเน็ต adsl ซึ่งสายโทรศัพท์ต้องเชื่อมต่อกับ Router นี่ มันจะกลายเป็นพอร์ตอะไรครับ หรือว่าไม่สามารถส่ง sms ได้เลย

บุคคลทั่วไป

ไม่เคยลองทำนะครับ แต่เท่าที่หาข้อมูลมาก็จะมีการส่งอยู่ 2 แบบ(ถ้าไม่ถูกต้องก็ขออภัยคร้าบบ)
1. SMS PDU format และ VB Mscom(บทความเกี่ยวกับ PDUhttp://www.dreamfabric.com/sms/) ถ้ามีเวลาจะลองทำดู

2. ผ่าน ICQ (ผ่านเวปไซต์)ผมลองดาวน์โหลด ICQ มาส่งดูแต่มันส่งไม่ได้ มี error "The cellular network is currently unable to send your message to the rececipient. Please try again later". ไม่รู้ว่ามันไปติดอะไร แต่ที่รู้แน่ ๆ คือ ICQ ที่เป็นโปรแกรมส่ง SMS ทั่วโลกยังส่งไม่ได้ นับประสาอะไรกับโปรแกรมที่เราทำเองละครับ Crying or Very sad

แต่ก็ลองเอาไปทำดูละกันครับ
โปรแกรม Idea

1. สร้าง text ชื่อ user.Text, pass.Text เพื่อรับค่าหมายเลข ICQ และ password
2. สร้าง text ชื่อ prefix.Text, number.Text เพื่อรับค่ารหัสประเทศ+หมายเลขเครือข่าย เช่นไทยคือ 66 และหมายเลขปลายทาง
เช่นป้อน 6601-5555555
3. Code
Private Sub Command1_Click()
'เปิดรับค่า log in log in
Inet1.OpenURL "http://web.icq.com/karma/dologin/1,,,00.html?uService=1&uLogin=" + user.Text + "&uPassword=" + pass.Text
'ส่ง message ผ่านทางเบอร์ปลายทาง เช่น66(01)5555555
Inet1.OpenURL "http://web.icq.com/sms/send_history/1,,,00.html?target=msghistory&prefix=+" + prefix.Text + "&carrier=aaa&tophone=" + number.Text + "&msg=" + msg.Text
End Sub

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

error ที่เกิดเมื่อส่งโดยโปรแกรม icq

โปรแกรมที่ทำ (ส่งออก smsได้ ตอนนี้ก็รออยู่ยังไม่มาซักที)

เด็กตาดำๆ · บุคคลทั่วไป

พี่ๆ พอจะมี ตัวอย่าง โปรแกรม vb ในการเขียน เล็กๆ น้อยๆ พอให้เป็นแนวทางได้ไหมครับ
จะใช้ vb Mscom อ่ะครับ เอาที่แบบใช้ได้จริงๆ อ่ะครับ ใช้หลักการของ AT Command เช่นโปรแกรมรับสายวางสายอีัตโนมัติ เงี่ยครับ แต่ใช้ AT Command ในการส่ง sms แทน
และถ้าจะใช้ Mscom เนี่ย เน็ต adsl ทำไม่ได้ใช่ไหมครับ เพราะว่า พอร์ตที่เชื่อมต่อมันไปต่อกับ Router เลย และไม่มีโมเด็ม หรือมีวิธีทำครับ รบกวนทีครับ ขอบคุณมากครับ

ปล.นี่เป็นโปรแกรมตอบรับอัตโนมัติ vb AT Command
http://saltnlight-e.com/project1.zip

แหล่งที่มา
http://saltnlight-e.com/programing.htm

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

ยังไม่ได้อ่านละเอียดนะนู๋ แต่ดูผ่านๆ ตา มันคือการควบคุมการทำงานของมือถือตาม AT command ไม่ใช่การเขียนโปรแกรมส่ง sms เหมือนที่พี่เข้าใจ จาก link ที่ 2ของน้อง ให้ดูหัวข้อ 7 กับ 8 น่าจะช่วยได้เยอะ

ลองใช้ keyword หาดูใน google พี่ลองดูแล้ว free source code มีเยอะมั๊กๆ copy มาใช้ได้เรยย Embarassed

MSComm1.Output = "AT+CMGS"
MSComm1.Output = "AT+CMGL"
MSComm1.Output = "AT+CMGR"
MSComm1.Output = "AT+CMGS"
MSComm1.Output = "AT+CMSS"
MSComm1.Output = "AT+CMGW"
MSComm1.Output = "AT+CMGD"

SMS AT command

AT+CMGL List Messagese
AT+CMGR Read Message
AT+CMGS Send Message
AT+CMSS Send Message from Storage
AT+CMGW Write Message to Memory
AT+CMGD Delete Message

จบ forum นี้ครับ(ห้ามกลับมาถามอีก) Cool

thaiio · ตอบ: พ. กย. 07, 2005 1:24 pm ชื่อกระทู้:

สนับสนุนกระทู้นี้ครับ ผมเลยตรึงกระทู้ไว้ให้ค้างอยู่ด้านบนเลยนะครับ

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

ขอบคุณครับ webmaster
===============
Code of the day: โปรแกรมติดต่อ webcam โดยใช้ VB

ผมทึกทักเอามีหลายคนสงสัยว่า How can I detect webcam and command its?(โดยใช้ VB) ปกติแล้วหลาย ๆ คน คงคิดว่ามันต้องมี component อะไรซักอย่างเพื่อเป็นตัวเชื่อมต่อระหว่างโปรแกรมกับ Hardware(webcam) แน่ละหลาย ๆ คนเขียนโปรแกรมเป็นและมีกล้องแต่ไม่รู้จะไปหา component ตัวนั้นที่ไหนก็เลยติดแหง๊กตามหาคำตอบในเวปบอร์ดต่าง ๆ ........นี่ปัญหาของคุณใช่ไหม
ผมบอกได้ว่าคุณ ๆ คิดมากไปเพราะไมโครซอฟท์ได้คิดปัญหานี้ไว้ก่อนแล้วและก็แก้ให้แล้ว(จริง ๆ ใช้ประโยชน์ด้านอื่นๆมั้ง) และเขียนไว้ในหมวด Windows Multimedia หมู่ Multimedia Messages
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/multimed/htm/_win32_wm_cap_set_scale.asp

ที่เรานำเอามาใช้ก็คือ
1. messagge ค้นหา driver
2. การจัดการเกี่ยวกับภาพ(preview,scale,WS..)

สรุปคือมันจะหา driver+device บนเครื่องคอมพิวเตอร์เราเอง เมื่อเจอแล้วก็เป็นหน้าที่ของเราที่จะเขียนโปรแกรมดึงภาพมาเก็บและแสดงผล

ทีนี่ก็มาเริ่มเขียนโปรแกรมกันเลย......รับรองได้ผล 100000000 % ผมลองมาแล้วและย้ำว่าไม่มีการเพิ่ม component ไดๆ ทั้งสิ้น(เผื่อมีคนจะถามอีก)

'ดูเหมือน code จะยาวเพราะ font มันสีเหมือนกัน แต่ถ้าคุณเอาไปวางบน VB จะเห็นชัดว่ามันสั้นนิดเดียวเอง......แปลกแต่จริงนะเออ????

Const WM_CAP As Integer = &H400
Const WM_CAP_DRIVER_CONNECT As Long = WM_CAP + 10 'ติดต่อ webcam(โดยหาจาก driver)
Const WM_CAP_DRIVER_DISCONNECT As Long = WM_CAP + 11 'Disconect webcam อันนี้สำคัญทีเดียว
Const WM_CAP_EDIT_COPY As Long = WM_CAP + 30 'Copy ภาพจาก frame buffer นำมาเก็บในรูปของ clipboard เอาไว้ใช้สำหรับ save ภาพนิ่ง(jpg,bmp..)

Const WM_CAP_SET_PREVIEW As Long = WM_CAP + 50 'นำภาพจาก hardware มาเก็บที่ system memory แล้วนำมาแสดงบน window ผ่าน GDI function
Const WM_CAP_SET_PREVIEWRATE As Long = WM_CAP + 52 'Set frame
Const WM_CAP_SET_SCALE As Long = WM_CAP + 53 'ให้ able(True) หรือ disable scale(False) ภาพ
Const WS_CHILD As Long = &H40000000 'Window style จ้า
Const WS_VISIBLE As Long = &H10000000 'Window style จ้า
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 ' Device ID ที่รับได้
Dim hHwnd As Long ' Handle to preview window

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 Form_Load()
LoadDeviceList 'ก่อนอื่นต้องหาว่ามีกล้อง(webcam)ติดตั้งอยู่หรือไม่

If lstDevices.ListCount > 0 Then
lstDevices.Selected(0) = True 'ถ้ามีก็ OKey เตรียมตัวคลิก start ได้เรยยย มัน enable แล้ว
Else
cmdStart.Enabled = False 'ถ้าไม่มีก็จบ(ห่)
lstDevices.AddItem ("No Device Available")
End If

cmdStop.Enabled = False
cmdSave.Enabled = False
End Sub

Private Sub LoadDeviceList() 'ส่วนนี้ใช้หาว่ามีการติดตั้ง webcam อยู่หรือไม่
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) ' โหลด Driver และ version
If iReturn Then lstDevices.AddItem Trim$(strName) ' โหลดชื่อ Device ที่ detect ได้ลงใน lstDevices
x = x + 1
Loop Until iReturn = False
End Sub

Private Sub cmdStart_Click()
iDevice = lstDevices.ListIndex 'โหลด Device(Driver)จาก list.....
OpenPreviewWindow 'ไปดูการทำงานที่โปรแกรมย่อย OpenPreviewWindow
End Sub

Private Sub OpenPreviewWindow() 'เมื่อทุกอย่างพร้อมแล้วก็ลุยเรยยยยย

hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 640, 480, picCapture.hwnd, 0) 'ให้รับภาพผ่านทาง picture box

If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then 'ติดต่อ webcam

SendMessage hHwnd, WM_CAP_SET_SCALE, True, 0 'ตั้งค่า scale ให้เป็น False เพราะขนาดภาพจริงจะถูก fix ไว้ ถ้าเป็น True ขนาดภาพจะขยายเท่ากับ window preview

SendMessage hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0 'ตั้งค่า preview rate

SendMessage hHwnd, WM_CAP_SET_PREVIEW, True, 0 'ให้เริ่มรับภาพ(True) จาก webcam

cmdSave.Enabled = True
cmdStop.Enabled = True
cmdStart.Enabled = False
Else

DestroyWindow hHwnd 'ถ้ามีข้อผิดพลาดก็ให้ออกจาก window(แบบถูกที่ถูกทาง)

cmdSave.Enabled = False
End If
End Sub

Private Sub ClosePreviewWindow()

SendMessage hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0 'ยกเลิกการติดต่อโดยใช้ message WM_CAP_DRIVER_DISCONNECT ถ้าไม่ออกวิธีนี้ error แน่นอน ลองดูสิ

DestroyWindow hHwnd 'ออกจาก window
End Sub

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

หวังว่าจะเอาไปใช้ประโยชน์นทางที่ถูกที่ควรนะครับ Embarassed

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

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

เด็กดื้อ · บุคคลทั่วไป

บอดพี่นี่แหล่งความรู้ของผมเลย ผมกำลังทำเรื่องกล้องพอดี แต่อยากทราบว่าภาพจะถูกจัดเก็บไว้ที่ใหนรึครับ

บุคคลทั่วไป · ตอบ: อ. กย. 13, 2005 9:52 am ชื่อกระทู้:

ขอบคุณมากครับ พี่แมงเม่า

ไม่ทราบว่าพี่มี เมล์ ป่าวครับ
ขอหน่อยได้ไหมครับ ตอนนี้กำลังทำโปรเจคอยู่ครับ รบกวนด้วยนะครับ

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

ตอนนี้ผมทำโปรแกรมกับ webcam ชื่อว่า motion detection การทำงานแบบนี้ครับ
1. ใช้ timmer จับภาพทุก 1/20 วินาที่(5 frames/sec)
2. นำภาพที่ได้มาหาจุดสี RGB
3. เอาจุดสีที่อ่านได้มาลบกัน แล้วดูว่าอยู่ในช่วงที่กำหนดไว้หรือไม่ เช่น R0=10, R1=20 ดังนั้นผลต่าก็เท่ากับ 10 ถ้าเรากำหนดว่าให้ capture ภาพที่มีจุดสีต่างกัน 5 จุดมันก็จะ capture ภาพนั้นไว้
4. ทำไปเพื่ออะไร
4.1 สมมุติว่าเราเปิด webcam ทิ้งไว้กล้องจะมีการตรวจสอบทุก ๆ 1/20 วินาทีว่าภาพโหลดมามีการเปลี่ยนแปลงของจุดสี(pixel)หรือไม่ภายใต้เงื่อนไข 5 pixcelหรือไม่
สมมุติว่าขณะนั้นมีหนูวิ่งผ่านกล้องเป็นเวลา 5 วินาที กล้องจะนำภาพมาโหลดไว้ที่ picture box พร้อมทั้งเอาแต่จุดสีของแต่ละภาพมาลบกันตามลำดับจนครับ 25 ภาพ(5sec*5ภาพ/sec)
4.2 ถ้าภาพที่ 1-4 แทบจะไม่ต่างกันเลย(ต่างกันน้อยกว่า 5 pixel) มันก็จะไม่ capture ภาพที่ 4 ไว้แต่มันจะต่างกันในภาพที่ 5 ดังนั้น ถ้าหนูวิ่งผ่านกล้องเป็นเวลา5วินาทีโดยไม่เปลี่ยนท่างทาง มันจะถูกถ่ายภาพเก็บไว้ 25/5 = 5 ภาพภายใต้เงื่อนไขการเปลี่ยนแปลง 5 pixel

โปรแกรมตัวนี้ผมทำไปประกวดที่ http://www.thaiware.com/ ลองดาวน์โหลดไปเล่นดูนะครับ ส่วน code นั้นง่าย ๆ มาก ๆครับต่อยอดจาก source ที่ผมเคย post ทิ้งไว้

http://www.geocities.com/ezy_math/Package.zip โปรแกรมตัวนี้ผมให้มันจับภาพเมื่อมีเปอร์เซนต์การเคลื่อนไหว(PCDR: pixel comparison, differrnt ratio;ตั้งชื่อเอง อิอิ)มากว่า 3 % และเก็บภาพไว้ในโฟลเดอร์ img

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

อืมมมมมม link ผิดครับ
http://www.geocities.com/ezy_math/Package1.zip

บุคคลทั่วไป · ตอบ: อ. กย. 13, 2005 12:03 pm ชื่อกระทู้:

ลองไปทำดูแล้วครับ เยี่ยมเลยครับ Very Happy

ผมใช้กล้องเวปแคม ของ ลอจิเทค ครับ
ภาพออกมาทำไมไม่ชัดเหมือนตอนใช้โปรแกรมที่แถมมาล่ะครับ
อ้อ... แล้วทำไมภาพมันกลับซ้ายเป็นขวาล่ะครับ อิอิอิ แถมดูเหมืือนภาพมันซูมๆๆ ด้วย :p
เราจะกำหนดขนาดของภาพได้รึป่าวครับ แล้วเวลากดเซฟ ภาพมันจะไปอยู่ที่ไหนเหรอครับ ???

ถามอีกนิดนึงครับ !!!
คือถ้าผมเอากล้องเวปแคมไปต่อบนฐานของมอเตอร์ (สเตปมอเตอร์) แล้วผมจะเพิ่มฟังก์ชั่น
การหมุนของกล้องเข้ามา สามารถทำได้ใช่ไหมครับ !!!
กะว่าจะสั่งงานผ่านพอร์ตปรินเตอร์ แต่ปัญหาคือสาย usb ของกล้องมันสั้นนิดเดียวเองครับ เราจะต่อสายให้ยาวได้ไหมครับ แล้วยาวได้สูงสุดเท่าไหร่ครับ

ยังไงรบกวนพี่แมงเม่า และพี่ๆทุกคนด้วยนะครับ :p

----------------------------------------------------------------------------------------

>>> http://www.geocities.com/ezy_math/Package.zip <<<
โหลดไม่ได้อ่ะครับพี่ -__-"

บุคคลทั่วไป · ตอบ: อ. กย. 13, 2005 12:25 pm ชื่อกระทู้:

มาถามต่อครับ Razz

ถ้าเราต้องการจะเรคคอร์ดภาพวิดิโอเก็บเอาไว้ในฮาร์ดดิสก์ แบบพวกกล้องวงจรปิดที่ใช้ตามห้าง
เราจะต้องเขียนโคดเพิ่มยังไงครับ

รบกวนด้วยนะครับ อิอิอิ !!!
ขอบคุณครับ Embarassed

ช่วยด้วย · บุคคลทั่วไป

ผมใช้กล้องเวบแคมของ Alpha อ่ะโปรแกรมที่พี่ให้มันฟ้องไม่เจอไดร์เวอร์ ผมต้องไปหาต้องใหนครับ ช่วยผมที่

บุคคลทั่วไป · ตอบ: อ. กย. 13, 2005 2:49 pm ชื่อกระทู้:

ผมไป upload ที่ geocities มันเกิดอาการ exceed data transfer น่ะครับก็เลยดาวน์อะไรไม่ได้เลย ตอนนี้เลยเอาไฟล์ไปฝากไว้ที่
http://www.thaimeet.com/jaupload/uploadallfile/files/FileUpload/MemberUpload/ezy_math.thaimeet.tmgold.Package1.zip
ดาวน์โหลดมาใช้ได้เลยครับ

ตอบคำถาม
1. ผมทำภาพก็ปกติดีนี่ครับ
2. กำหนดได้ครับ

เช่น
Public Const WM_CAP_DLG_VIDEOFORMAT = WM_CAP_START + 41
capDlgVideoFormat lwndC
Function capDlgVideoFormat(ByVal lwnd As Long) As Boolean
capDlgVideoFormat = SendMessage(lwnd, WM_CAP_DLG_VIDEOFORMAT, 0, 0)
End Function

3. การ save ภาพก็แล้วแต่ location เช่น menu click บันทึกภาพนิ่งของโปรแกรม motion detection ผม save ภาพชื่อ image(N).bmp เก็บไว้ในโฟลเดอร์ img1

Private Sub shot_Click()
STOPCAM
SavePicture Picture1.Image, App.Path & "\img1\image" & Counter & ".bmp"
Counter = Counter + 1
End Sub

4. การบันทึกไฟล์เป็นไฟล์ VDO ได้ครับแต่ค่อนข้างซับซ้อนใช้ API ในการควบคุม
ผมมีโค๊ดอยู่ตัวหนึ่งดาวน์โหลดมาจากอินเตอร์เนต เขียนด้วย API ทั้งหมดเป็นโปรแกรมที่เห็นแล้วใคร ๆ ต้องบอกว่า "ทำได้ไงเนี่ย" คนเขียนเก่งมาก ๆ(E. J. Bantz Jr) ผมกล้าพูดได้ว่าเป็น code ที่ดีที่สุดในโลก(ประมาณว่าไมโครซอร์ฟยังอาย....ไม่เชื่อดาวน์โหลดไปรันดู)
สามารถเอาไปดัดแปลงได้ครับเพราะเป็น free code แต่ต้องระวังเรื่องลิขสิทธ์ด้วยนะครับ(ถ้าจะเอาของเค้าไปขาย)

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

5. เรื่อง Hard ware ผมไม่ถนัดครับลองถามคนอื่น ๆ ดูล่ะกัน

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

ตอบคำถามน้อง ช่วยด้วย

1. เสียบกล้องทิ้งไว้แล้ว restart เมื่อ boot ใหม่มันจะเห็นเอง
หรือ
2. เอา Source codeที่ post ให้ล่าสุดไปลองตัวนี้น่าจะได้(http://www.geocities.com/ezy_math/SourceCode.zip) แต่ตัวนี้ผมไม่ได้เขียนเองนะครับความสามารถไม่ถึงขนานนั้น

Let enjoy!

323club · ตอบ: อ. กย. 13, 2005 2:59 pm ชื่อกระทู้:

ขอบคุณพี่แมงเม่ามากครับ

เดี๋ยวจะไปลองดูอีกที Razz

_________________
Design by 323club

ช่วยด้วย · บุคคลทั่วไป

ขอบคณุมากๆๆครับ

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

รูปมันเบลอเพราะว่าน้อง(คนไหนก็ไม่รู้ถามไว้)set ให้มัน enable ตาม scale ของ picture box ถ้าต้องการให้ขนาดเป็นแบบ default(เท่าโปรแกรมที่แถมมากับกล้อง) ต้อง set ให้ message set scale เป็น false นะครับ ตามที่เคย post ไว้น่ะแหระ

SendMessage hHwnd, WM_CAP_SET_SCALE, True, 0 'ตั้งค่า scale ให้เป็น False เพราะขนาดภาพจริงจะถูก fix ไว้ ถ้าเป็น True ขนาดภาพจะขยายเท่ากับ window preview

จาก
SendMessage hHwnd, WM_CAP_SET_SCALE, True, 0

เปลี่ยนเป็น
SendMessage hHwnd, WM_CAP_SET_SCALE, False, 0

323club · ตอบ: พฤ. กย. 15, 2005 11:06 am ชื่อกระทู้:

ผมย่อภาพได้แล้วครับ ขอโทษทีครับ ที่ไม่ได้ดูให้ละเอียด เหอๆๆ แต่ถ้าทำให้ ย่อ/ขยาย
ได้หลายๆสเตป น่่าจะดีมากๆเลย :p

มากวนพี่แมงเม่าต่อ อิอิอิ ...
พี่แมงเม่ามีโค้ดที่เข้าใจง่ายกว่า "http://www.geocities.com/ezy_math/SourceCode.zip "
ไม๊ครับ คือผมไม่ค่อยรู้เรื่อง VB เท่าไหร่ เมื่อคืนไปมั่วๆดูแล้ว ไม่รู้็เรื่องเลยครับ Crying or Very sad

คืออยากให้สามารถบันทึกภาพ VDO ได้ด้วยน่ะครับ รบกวนพี่แมงเม่าด้วยนะครับ Embarassed

ผมก็ไม่รู้จะติดต่อพี่แมงเม่ายังไง Question

อันนี้เมล์ผมนะครับ niper_pk@hotmail.com

รบกวนพี่ด้วยนะคร้าบบบ Mr. Green

_________________
Design by 323club

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

ก็มีอยู่นะครับแต่มันต้องใช้ ActiveX control(ezVidCap.ocx) ความยากง่ายพอ ๆ พอกันครับ(จริง ๆ ค่อนข้างยากทีเดียว)

ลองเข้าไปดูเวปนี้มันจะมี control และ Source codeให้ดาวน์โหลด
http://www.shrinkwrapvb.com/

323club · ตอบ: พฤ. กย. 15, 2005 5:03 pm ชื่อกระทู้:

ขอบคุณคร้าบ Very Happy

_________________
Design by 323club

voyager

ตอนนี้ทางไทยแวร์มีการจัดประกวด Thaiware award 2005 (แต่ไม่มีเงินรางวัล??)ไม่ทราบว่าสมาชิก thaiio ใครส่งไปแข่งขันบ้างครับ ผมส่งไป 4 ตัวครับ เลยอยากให้ลองดาวน์โหลดไปลองเล่นดูครับ เผื่อว่าวันหน้าเล็งเห็นประโยชน์ก็จะได้เอามาทำประโยชน์ร่วมกัน
โปรแกรม1: Advancemath
ความสามารถ
1. plot กราฟฟังก์ชันคณิตศาสตร์ เช่น โพลิโนเมียล,ตรีโกณมิติ,เอกโปเนนเชียล,ลอกาลิทึม
2. หาอัตราการการเปลี่ยนเปลี่ยนแปลงของฟังก์ชันที่ x ไดๆ โดยวิธีการทำเส้นสัมผัส หรือที่เรียกว่า differential(dy/dx@value of x)นั่นแหละครับ
3. หาพื้นที่ใต้กราฟของฟังก์ชันได ๆ จากจุด x1 ถึง x2 โดยวิธีการอินติเกรตแบบจำกัดเขต

http://download.thaiware.com/program12/AdvanceMath.zip

ตอนทำ setup เจ้า comdlg32.ocx มัน out of date (ผมไม่แน่ใจว่ามันเกิดเพราะอะไร)บางเครื่องอาจต้อง restart ก่อนใช้ตอนนี้ผมเอาตัวใหม่ลงแล้วแต่ไม่ได้ upload

โปรแกรม2: Anywhere
โปรแกรมนี้ผมทำไว้เพราะมีน้องคนนึงโทรมาหาผมว่าอยากได้โปรแกรมคลิกเล่นเกมส์กับคลิก branner(ดีเลิศประเสริฐศรี) ผมคิดว่ามันแปลกดีก็เลยบ้าจี้ทำให้แต่แอบกลั๊กไว้ให้ทำงานแค่ตำแหน่งเดียว(ตัวคลิก 5 ตำแหน่งเอาไป upload ที่ไทยแวร์ก่อนแล้วแต่จำ url ไม่ได้)
ความสามารถ
1. กำหนดให้คลิกหรือดับเบิลคลิกตำแหน่งได ๆ โดยสามารถให้มันวนลูปคลิก/ดับเบิลคลิกสูงสุด 10,000,000 รอบ
2. ตั้งระยะเวลาคลิก/ดับเบิลคลิกแต่ละครั้งสูงสุด 34,560 นาที(คลิกเดือนละครั้งยังได้)
หาประโยน์คงไม่มีเท่าไหร่แต่ก็เอาไว้เล่นได้

http://download.thaiware.com/program12/AnyWhere.zip

โปรแกรม3: Motion detection
โปรแกรมนี้เอาไว้ใช้งาน securityได้ดีทีเดียว แต่ยังบันทึกเป็น AVI ไม่ได้ วันหลังถ้ามีโอกาสเวอร์ชัน 2 คงเจอกัน

http://www.thaimeet.com/jaupload/uploadallfile/files/FileUpload/MemberUpload/ezy_math.thaimeet.tmgold.Package1.zip

โปรแกรม4;
โปรแกรมนี้ใช้ความคุมการทำงานของเมาส์และคีย์บอร์ดโดยใช้เสียงเช่น ให้เคอร์เซอร์เลื่อนขึ้น ลง ซ้าย ขวา และการทำงานบางปุ่มที่ใช้บ่อย ตอนที่เอาไป upload ที่ไทยแวร์ครั้งแรกเป็นที่ฮือฮามากติดอันดับดาวน์โหลดสูงต้น ๆ เรย และก็มีสถานีวิทยุของโมเดิร์นไนน์มาสำภาษณ์เกี่ยวกับตัวโปรแกรม ผมเองก็แอบอมยิ้มเล็ก ๆ แต่ว่า feedback ทางบร์อดไม่เหมือนที่คิด เพราะว่ามันไม่ค่อยยืดหยุ่น คำสั่งมันต้องเป๊ะ ๆ บางคนต้องการให้ทำอย่างหนึ่งแต่ดันไปทำอีกอย่างหนึ่ง(อย่าว่าแต่คนอื่นเลย บ้างครั้งผมทำเองมันยังเพี้ยน) หลายๆ คนก็บอกว่าโปรแกรมห่วย......... Crying or Very sad

ผมก็เลยทำตัวนี้ออกมาแก้ตัว
ความสามารถ:
1. สามารถ กำหนด คำสั่งได้เอง โดยการ add เข้า command list และให้ทำคำสั่งอะไรก็ได้ตามที่กำหนดไว้ เช่น อาจจะพูดว่า "darling" แล้วไปกำหนดว่าให้เคอร์เซอร์วิ่งขึ้น หรือ อาจพูดว่า "ลง"(พิมพ์ภาษาอังกฤษใน command list ว่า loung) แล้วก็ไปเลือกให้เคอร์เซอร์เลื่อนลง ถ้าไม่ work ก็ลองเปลี่ยนคำสั่งอื่น ๆ ทีนี้ถ้ามันไม่ทำงานก็จะมาว่าผมไม่ได้ Very Happy

2. สามารถเลือกทำกี่คำสั่งก็ได้ ถ้ามือใหม่ก็ลองซัก 2- 3คำสั่ง แต่ถ้าเริ่มจับทิศทางได้แล้วก็ add เยอะ ๆ ไปเลย
3. สามารถลบคำสั่งออกจาก command list ได้

โปรแกรมนี้ต้องลง speech reconition engine ก่อนไฟล์ประมาณ 6Mb หน้าที่ก็ตามชื่อมันน่ะแหละ
http://activex.microsoft.com/activex/controls/agent2/actcnc.exe

โปรแกรม

http://www.thaimeet.com/jaupload/uploadallfile/files/FileUpload/MemberUpload/ezy_math.thaimeet.tmgold.ezycontrol.zip

การเขียนโปรแกรมทำคำสั่งด้วยเสียงผมเอามาลงไว้แล้วบางส่วน ใครสนใจก็ลองเอาไปประยุกต์ดูได้ครับ

อ่อนหัด

มี vb ส่งผ่าน modem โดยรับค่าจาก comport ไหมครับ

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

ผมไม่เคยทำโปรเจคเกี่ยวกับมือถือหรือพวกโมเดมเลยครับ ถ้าเป็นพวกมือถือเท่าที่รู้ก็ลองหาจาก AT command เช่น MSComm1.Output = "AT+CMGS" เป็น command ส่ง sms Crying or Very sad

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

อยากทำรูปที่เขียนจาก VB ให้โปร่งแสงมองทะลุ แบบรูปด้าน ขวา

ต้องทำยังไงค่ะ อันขวาดาวโหลดมาค่ะไม่มี Souce code เค้าไม่แจก เค้าแจกเป็นตัวEXE

เอาตัวอย่างมาให้ดู ช่วยทีนะถามมาหลายคน ยังหาคำตอบไม่ได้เลย Crying or Very sad

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

คือโปรแกรม Motion Detection ครับ
ผมโหลดไม่ได้ ใน thaiware ก็ไม่มี
อยากจะขออีกรอบจะได้มั้ยครับ
โพส url ไว้ในนี้เลย รึจะที่เมล์ผมก้อได้ครับ
zar_ya@yahoo.com

อีกอย่างคือผมทำโปรเจ็คต์เกี่ยวกับ image processing
(กล้องติดตามความเคลื่อนไหว)
อยากหาคนที่ทำเกี่ยวกะ image เหมือนกัน
เพื่อปรึกษาและแลกเปลี่ยนความเห็นครับ
golf_wut@hotmail เมล์นี้ครับ

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

สาว ๆ ขอร้องมาทั้งที Embarassed

ฟอร์มปกติ

ฟอร์มโปร่ง

แบบนี้ใช่ไหมครับที่ต้องการ

'Module
Option Explicit

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const WS_EX_LAYERED = &H80000

Public Function MakeTransparent(ByVal hWnd As Long, Perc As Integer) As Long
Dim Msg As Long
On Error Resume Next
If Perc < 0 Or Perc > 255 Then
MakeTransparent = 1
Else
Msg = GetWindowLong(hWnd, GWL_EXSTYLE)
Msg = Msg Or WS_EX_LAYERED
SetWindowLong hWnd, GWL_EXSTYLE, Msg
SetLayeredWindowAttributes hWnd, 0, Perc, LWA_ALPHA
MakeTransparent = 0
End If
If Err Then
MakeTransparent = 2
End If
End Function

'Form
Private Sub Command1_Click()
MakeTransparent Me.hWnd, 200
End Sub

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

เมื่อ 2 วันก่อนมันยังดาวน์โหลดได้เลยครับ
จะ upload ตอนนี้ก็ไม่ได้เนตที่ห้องมันช้าวันจันทร์ผมลางานด้วย วันอังคารจะมา upload ให้ละกันครับ

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

เพิ่มเติม transparent form

Public Function MakeTransparent(ByVal hWnd As Long, Perc As Integer) As Long

สามารถกำหนดความโปร่งใสได้ตั้งแต่ 0-255
(ใกล้) 0 คือ โปร่งสุด ๆ มองไม่เห็นเลย
(ใกล้) 255 คือ ทึบ

เปลี่ยนในฟังก์ชันนี้ครับ

MakeTransparent Me.hWnd, 100 'ผมใส่ค่า Perc = 100

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

ดาวน์โหลด Motion detection

http://www.thaimeet.com/jaload/allfile/index.php?action=view&filename=voyager.thaimeet.tmgold.Motiondetection.zip&directory=TMGold&

เมื่อเข้าไปที่ Link นี้แล้วให้ดาวน์โหลดโปรแกรมจาก link ที่เป็น zip file(link ที่ 2 ถัดจาก link แรก)

เด็กกล้องหาย · บุคคลทั่วไป

อยากให้พี่แมงเม่าโฟสเรื่องกล้องมากๆๆอ่ะ ที่อ่านมายัง งง อยู่ ก้อคนมันโง่อ่ะ หรือพี่แนะนำหนังสือก็ได้นะครับ ขอร้องละครับ นะพี่คนดี

บุคคลทั่วไป · ตอบ: จ. กย. 19, 2005 11:13 am ชื่อกระทู้:

อยากให้พี่แมงเม่าโฟสเรื่องกล้องมากๆๆ ครับ

ฉานมานโง่ · บุคคลทั่วไป

capture แบบ real time ทำไงอ่ะ พี่แมงเม่าพอรู้ไหมครับ

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

จะว่ามัน realtime ซะเลยก็ไม่เชิงหรอกครับมันอยู่ที่ Timer แต่ก็เร็วพอตัวล่ะ
เช่น ถ้าน้องกำหนดให้ Interval ของ Timer1=10(1/100วินาที) และให้มัน save ภาพทุก ๆ ครั้งที่ execute คำสั่งดังนั้นใน 1 วินาที น้องจะ save รูปได้ 100 รูป(10 วินาทีก็ปาเข้าไป 1000รูป)แต่พี่กลัวว่ามันจะ Hang ซะก่อนน่ะครับ

Private Sub Timer1_Timer()
SavePicture Picture1.Image, App.Path & "\img\image" & Counter & ".bmp"
Counter = Counter + 1
End If
End Sub

การ save ภาพก็คือการเอาภาพที่แสดงมาเก็บไว้เท่านั้นเอง

ฉานมานโง่ · บุคคลทั่วไป

คือผมต้องการ capture หน้าจอต้วเอง แล้วเอาไปแสดงที่โปรเจก อื่นนะครับแล้วอยากให้มันเปงเหมือนเรียลไทม์อ่ะครับ code capture แล้วผมมีแล้วนะครับ ตอนให้มันแสดงภาพอ่ะครับโดยใช้ picturebox มารับมันจะได้ไหมครับ แล้วถ้านามสกุลเป็น jpg จะได้ไหมครับเพราะผมเซฟเป็น jpg น่ะครับ

บุคคลทั่วไป · ตอบ: อ. กย. 20, 2005 4:22 pm ชื่อกระทู้:

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

ใช่แล้วครับเหมือน comment ที่48

ยกตัวย่างอันนึงครับ

'Form
Private Sub Timer1_Timer()
If Capture_Desktop(App.Path & "\image.bmp") Then
End If
End
End Sub

'Module
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Function Capture_Desktop(ByVal Destination$) As Boolean
DoEvents
Call keybd_event(vbKeySnapshot, 1, 0, 0)
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), Destination$
Capture_Desktop = True
Exit Function
End Function

จอมมารบู · บุคคลทั่วไป

พี่แมงเม่าพี่พอรู้เรื่อง ezvidcap ที่ใช้กับกล้องแวปแคมไหมครับ ถ้ารู้ขอช่วยโฟส code ได้ไหมครับ

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

Screen capture โดยใช้ API keybd_event SNAPSHOT(คีย์บอร์ด print screen)

'Module

Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = &H2C

'Form

Private Sub Timer1_Timer()
Dim i As Integer
Dim Counter As Integer
For i = 1 To 30 'save ภาพจำนวน 30 ภาพ
DoEvents
Call keybd_event(VK_SNAPSHOT, 0, 0, 0) ' ให้รับค่า Prt Scr
' Call keybd_event(VK_SNAPSHOT,1 , 0, 0) ' ให้รับค่า Alt+Prt Scr
Image1.Refresh
Image1.Picture = Clipboard.GetData()
SavePicture Image1.Image, App.Path & "\img1\image" & Counter & ".bmp" เก็บภาพไว้ใน folder img1
Counter = Counter + 1
Next i
Timer1.Enabled = False
End Sub

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

การใช้ ezVidC60.ocx บันทึก VDO
ข้อเสียของการใช้ ocx ตัวนี้คือมันจะ default ชื่อไฟล์และ location ที่ c:\capture.avi

Option Explicit
Private Sub chkAudio_Click()
If chkAudio.Value = 1 Then
ezVidCap1.CaptureAudio = True
Else
ezVidCap1.CaptureAudio = False
End If
End Sub
Private Sub cmdCapture_Click()
Call ezVidCap1.CaptureVideo
End Sub

ดาวน์โหลด ezVidC60.ocx

http://www.shrinkwrapvb.com/ezvidc60.zip

จอมมารบู · บุคคลทั่วไป

เอาเฉพาะ แค่ ถ่ายรูปแล้วเก็บ ไฟสอ่ะ ไม่ต้องถ่อยเปงวีดีโออ่ะ

บ้องแบ๊ว · บุคคลทั่วไป

ขอตัวอย่างการ การ streaming รูปภาพไปยังเครื่องอื่นได้ไหมครับ และ ตัวอย่างตอนที่อีกเครื่องกำลังรับการ streaming ได้ไหม ครับ

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

Call ezVidCap1.SaveDIB(filename) 'save bitmap

ตัวอย่าง

Private Sub Snapsavepic_Click()

Dim filename As String
Dim Counter As String
filename = App.Path & "\img1\image" & Counter & ".bmp
Call ezVidCap1.SaveDIB(filename)
Savedpic.Picture = filename
Counter = Counter + 1
End Sub

แต่ยังไงซะผมก็ไม่อยากแนะนำให้ใช้ ocx มันค่อยไม่ยืดหยุ่น แต่ข้อดีคือง่าย(มาก)

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

หมายถึงการส่งภาพจาก picture box ของเครื่อง server<===>client ใช่ไหมครับ
น่าจะใช้ winsock นะครับ(เคยทำแต่ให้มันส่ง file ระหว่างเครื่อง แต่ส่งภาพไม่เคยทำ)
ลองหาใน google ใช้ keyword ประมาณว่า "winsock image transfer" ส่วนระหว่างการรอรับก็ใช้ progress bar เป็นตัววัดก็น่าจะได้

จอมมารบู · บุคคลทั่วไป

พี่เเมงเม่า captrue ภาพ โดย ezvidcap ไปที่ pictruebox ทำอย่างไรครับ ผมไม่รู้จิงๆๆอ่ะครับ

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

Savedpic.Picture = filename

"Savedpic" คือ picture box

ลอง search หาใน google เพิ่มเติมนะครับ

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

Code of the day: Flat combo box

ตอบคำถามซะปวดหัวเลย ขอพักก่อนนะครับ
ตอนนี้ trend การใช้ flat property(2 มิติ)กำลังมาแรง เช่น text box, picture box แต่สังเกตไหมครับว่า combo box จะเป็นปลาเน่าอยู่ตัวเดียวที่ทำไม่ได้ เวลาเอามารวมกันมันขัด ๆ ตายังไงก็ไม่รู้ ผมลองหา flat control ในอินเตอร์เนตก็มีแต่ว่าส่วนใหญ่จะใช้ activeX control ซึ่งโปรแกรมเมอร์แต่ละคนก็ทำขึ้นมาเอง(ไม่ง่ายเลย Crying or Very sad

) แต่เรามี List control ซึ่งทำงานเหมือน combo box ผมก็เลยลองเอามาประยุกต์ใช้ร่วมกับ text box ซึ่งก็ดูดีเหมือนกันครับ ส่วน code ก็เขียนแบบบ้าน ๆน่ะครับไม่ยากเลย

Private Sub Form_Load()
List1.Visible = False
List1.AddItem Text1.Text
With List1
.AddItem ("red")
.AddItem ("green")
.AddItem ("blue")
End With
End Sub
Private Sub Picture1_Click()
Static i As Integer
i = i + 1
i = i Mod 2
If i <> 0 Then
Text1.Text = List1.Text
List1.Visible = True
Else
List1.Visible = False
End If
End Sub
Private Sub List1_Click()
Text1.Text = List1.Text
If List1.Text = "red" Then
MsgBox "red"
ElseIf List1.Text = "green" Then
MsgBox "green"
ElseIf List1.Text = "blue" Then
MsgBox "blue"
End If
End Sub

บ๊องแบ๊ว · บุคคลทั่วไป

ขอบคุณสำหรับคำตอบครับช่วยได้มากจริงๆ จากใจจริงครับ ขอบคุณมากครับ Razz

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

ทำได้แล้วครับ Very Happy

ใช้ winsock ส่ง image frame จาก client<====>server แบบ real time ผ่าน picture box
image frame จะปรากฎ(เกือบ)พร้อม ๆ กัน ระหว่าง client กับ server ถ้าใช้โปรแกรม screen capture หรือ web cam(post ไปแล้ว)รับภาพ picture boxจากเครื่องหนึ่งมันก็จะไปปรากฎที่อีกเครื่องได้ กระสุนนัดเดียวได้ 2 ต่อเรยย Embarassed

แล้วจะเอา code มา post ทีหลัง

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

วันนี้เชียงใหม่อากาศร้อนมาก ๆ เมื่อไหร่จะหนาวซะทีน้อ
ตั้งหน้าตั้งเวลารอไปวัน ๆ

Source code

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

Embarassed

azuki

พอดีผมทำโปรเจคจบคือทำโปรแกรมจับเวลาที่ร้านอินเตอร์เน็ตครับ อยากได้โค้ด ที่แสดงหมายเลข ip ของเครื่อง client เวลาเปิดเครื่อง และจับเวลาอัตโนมัติด้วยครับ ช่วยกรุณาตอบผมด้วยนะครับ ด่วนนะครับพี่แมงเม่า ขอบคุณครับ

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

พี่ๆท่านใดพอจะทราบวิธีเขียนVB6ให้สามารถควบคุมเครื่องอีกตัวผ่านบลูทูธในลักษณะซีเรียลพอร์ทบ้างครับ รบกวนบอกวิธีคร่าวๆให้หน่อยครับเพระจะทำงานส่งอาจาย์ครับ

ขอบคุรมากครับ Rolling Eyes

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

sodium

พี่ๆค่ะ ตอนนี้หนูอยากเขียนvbให้แสดงค่าอุณหภูมิออกมาเป็นกราฟอ่ะค่ะโดยรับข้อมูลจากMSC_51ติดต่อกับcomputerแบบserial port(RS-232)โดยแสดงเป็นกราฟแท่งอ่ะค่ะหนูเพิ่งเริ่มศึกษาไม่นานเลยเขียนยังไม่ได้เท่าไร ขอให้พี่ๆที่รู้ ช่วยบอกด้วยน่ะค่ะ

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

นู๋อ้อจ้า · บุคคลทั่วไป

ตามลิ้งนี้นะค่ะ http://www.thaiio.com/cgi-bin/html/vhtml.pl?name=iotoday&topic=31 นู๋ใช้ vb ส่งข้อมูลออกจากเครื่องแล้วค่ะ แต่ส่วน ฮาร์ดแวร์มานใช้มะได้ค่ะ ไม่รู้ต่อไงอ่ะ...ไม่รู้ต้องใช้ตัวต้านทานไรด้วยรึป่าว คือนู๋ต่อ ตรงๆ ผ่านไอซี ก้อเท่านั้นค่ะ รบกวนพี่ๆ ช่วยนู๋หน่อยค่ะ ทำมา หลายเดือนละไม่ได้สักที T T

gf9H, · บุคคลทั่วไป

หากต้องการใช้คำสั้ง call เพื่อใช้งานฐานเวลาที่ทุกเครื่องเท่ากัน แล้ว ต้องเขียนในส่วนของโปรแกรมย่อยอย่างไรให้มีฐานเวลาที่เท่ากัน (ใช้ทาม์เมอร์ก็ได้) เช่น call delay_1s ก็ให้มันได้ หนึ่งวินาทีจิงๆ ทุกเครื่องที่นำโปรแกรมไปรัน

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

ได้ code interface คอมพิวเตอร์พอร์ต(parallel,serial,USB port)VB กับ VC มาจาก internet ครับ(VC ผมใช้ไม่เป็นดอก) เอาไปทดลองทำดูนะครับ
ช่วงนี้งานยุ่งมากถ้าเป็นเรื่อง hardware มาผมคงตอบให้ไม่ได้

VB source code

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

VC source code

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

Embarassed

นู๋ไม่รู้ · บุคคลทั่วไป

การเซ็ตค่า control word ของการขยายพอร์ตขนานโดยใช้ไอซี 8255 จะต้องเขียนโปรแกรมยังงัยให้เข้าถึงพอร์ตครับ ผมดูของในเวบมานเป็นภาษาซี นะ(ไม่รู้ใช่ป่าว) ถ้าเขียนด้วย VB ต้องเขียนยังงัยครับเอาแบบ ใช้งานได้เลยนะครับ คือตอนนี้ผมมีโปรแกรมควบคุมมอเตอร์ อยุ่ แต่ต้องการขยายพอร์ตก่อน ขอความกรุณาด้วยครับ

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

323club :P · บุคคลทั่วไป

รบกวนพี่แมงเม่าเรื่องการสั่งงาน vb ผ่าน คีย์บอร์ด หน่อยครับ

จะเขียนโคดยังไงอะครับ Question

แบบ กด "a" ไปทางซ้าย กด "d" ไปทางขวา ลักษณะนี้น่ะครับ
รบกวนด้วยนะครับพี่ Razz

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

Option Explicit

Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
Private Keystate As Long

Private Const VK_A = &H41
Private Const VK_D = &H44
Private Function CheckKeys()

Keystate = GetKeyState(VK_A)
If (Keystate And &H80) = &H80 Then Label1.Caption = "You press A"
Keystate = GetKeyState(VK_D)
If (Keystate And &H80) = &H80 Then Label1.Caption = "You press D"
End Function

Private Sub Timer1_Timer()
CheckKeys
End Sub

balloon.com · บุคคลทั่วไป

คือ ตอนนี้ผมทำโปรเจคเกี่ยวกับเครื่องชาร์จถ่าน (AA) ซึ่งจะใช้ PSoc เป็นไมโครคอนโทรลเลอร์ควบคุมเครื่องชาร์จ มีการต่อไปยังตัวลูกอีกหลายๆตัว โดยมีการสื่อสารแบบ RS 485 ( สมมุติว่ามีเครื่องชาร์จทั้งหมด 5 ตัวก็จะมี 1 ตัวที่เป็นตัว Master และอีก 4 ตัวจะเป็นตัว Slave) ตัวที่เป็น Master จะควบคุมการ Charge , Discharge เลือกกระแสในการชาร์จ ของตัวลูก
และเครื่องชาร์จ สามารถต่อกับ PC ได้และให้ PC เป็น Master แทน และเซ็ตเครื่องชาร์จที่เป็น Master เป็น Slave และ PC สามารถควบคุมตัวลูกได้ทั้งหมดสั่ง

ผมอยากจะรบกวนพี่ๆ ขอตัวอย่าง code VB 6.0 ที่มันทำงานตามข้างบนนี้ครับเอาเฉพาะส่วนที่ PC เป็น Master โดยที่ เมื่อ PC เป็น Master แล้วสามารถเช็คสถานะเครื่องชาร์จตัว Slave ทุกว่ามีตัวไหนใน Network พร้อมที่จะทำงานตัวไหนไม่พร้อมที่จะทำงาน แล้วส่งกลับมาโชว์ที่หน้าจอเป็น Text หรือ อะไรก็ได้ครับเอาแบบเข้าใจง่ายๆครับ เพราะผมไม่เคยเขียนโปรแกรมแบบนี้เลยครับ ขอคุณล่วงหน้าครับ

ball_civic3d@hotmail.com

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

เอาสัญญาณจากตัวมาสเตอร์แล้วส่งไปให้คอมพิวเตอร์(PC)ผ่านพอร์ตขนานได้รึเปล่าครับ เนื่องจากมาสเตอร์จะมีการตรวจสอบสลาฟอยู่ตลอด(ตามโปรแกรมที่ออกแบบไว้) ดังนั้น PC ก็จะรู้ความเคลื่อนไหวของสลาฟเหมือนกับมาสเตอร์เช่นกัน โดยคำสั่งที่มาสเตอร์รับมาจาก PC อาจอยู่ในรูปของ lookup table ส่วนการเขียนโปรแกรมรับส่งโดยใช้ VB คงไม่ยากครับ

บทความเกี่ยวกับ RS 485

http://industrial.se-ed.com/itr115/itr115_128.asp

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

Source code การเขียน VB ควบคุมผ่านพอร์ตขนานและอนุกรม

http://www.infopress2000.com/download/ch02.zip
http://www.infopress2000.com/download/ch07.zip
http://www.infopress2000.com/download/ch08.zip
http://www.infopress2000.com/download/ch09.zip
http://www.infopress2000.com/download/ch10.zip
http://www.infopress2000.com/download/ch12.zip

323club · ตอบ: พฤ. กย. 29, 2005 9:51 am ชื่อกระทู้:

ขอบคุณพี่แมงเม่ามากครับ
_________________
Design by 323club

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

ใครมี GPS ลองเอามาเล่นกับโปรแกรมนี้ดูนะครับ ใช้ Mscomm(VB6.0)ติดต่อกับ GPS แล้วเอามาพล็อตลงใน picture box

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

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

พี่เเม่งเม่าครับ รู้โค้ด ของ vb ที่ใช้ในการสแกนภาพ หาสีต่างๆๆอ่ครับ เช่น สแกนภาพว่าจุดสีแดงหาตรงพิกัดใหนอ่ะครับ ถ้ารู้ช่วยบอกด้วยนะครับ

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

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

ขอบคุงครับเดี๋ยวผมจะไปลองประยุกต์ใช้ ขอบคุงมั่กๆๆครับ

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

Code of the day:ทำเกมส์เล่นกันไหม
เกม: BOMB
1. ใช้ timer random ค่า Interger 0-1000
2. เปรียบเทียบค่า random กับค่าที่ป้อน(รหัสปลดระเบิด)
3. ถ้าตรงก็ OK ถ้าไม่ตรงก็ให้เลือกปลดแบบ manual(ตัดสายไฟ)
4. ถ้าเลือกถูกเส้นก็ OK แต่ถ้าผิดละก็..... Laughing

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

ปล. ห้ามแอบดู code จนกว่าจะรันเล่นซัก 2-3 รอบ มะงั้นไม่ตื่นเต้น

323club · ตอบ: ส. ตค. 01, 2005 4:20 pm ชื่อกระทู้:

ขอบคุณมากครับ
_________________
Design by 323club

aha

กำลังทำโปรเจค จะควบคุม stepping motor แบบ 6 สาย โดยจะควบคุมแบบเป็นฐานตั้งกล้อง ให้หมุนซ้ายขวา และหมุนขึ้นลง ใช้ motor 2 ตัว แต่ไม่มีความรู้เรื่องการต่อวงจรเลยคะ ไม่ทราบว่าต้องใช้ ไอซี ชิป อะไรตัวไหน ไม่รู้จะทำยังไงดี รบกวนใครมีความรู้ช่วยหน่อยนะคะ

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

balloon.com

ขอบคุณพี่แมงเม่ามากนะครับ

azuki

พอดีผมทำโปรเจคจบคือทำโปรแกรมจับเวลาที่ร้านอินเตอร์เน็ตครับ อยากได้โค้ด ที่แสดงหมายเลข ip ของเครื่อง client เวลาเปิดเครื่อง และจับเวลาอัตโนมัติด้วยครับ ช่วยกรุณาตอบผมด้วยนะครับ ด่วนนะครับพี่แมงเม่า ขอบคุณครับ * * พี่แมงเม่าครับได้โค้ดหรือยังครับใกล้จะถึงวันส่งโปรเจคแล้วนะครับพี่ Embarassed

kra the kop · บุคคลทั่วไป

อยากทราบวิธีการเขียน Vb 6.0 ติดต่อไมโครคอนโทรลเลอร์ผ่าน Serial Port โดยที่นำค่าที่ได้รับมาตรวจสอบกับ Database ช่วยผมหน่อยนะคร้าบ

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

พี่ ครับ คือผมศึกษาโปรแกรมในหน้า

http://www.thaiio.com/prog-cgi/programing.cgi?0031 นี้ อยู่ หนะครับ

แต่ ติด การ Test send complete ในด้านล่าง หนะครับ ถ้าใคร พอจะทราบ Source Code ของมันโปรดช่วย ตอบ ด้วยนะครับ ขอบคุณ ล่วงหน้าครับ รึถ้า สะดวก เมลล์ตอบมาที่ Trinbah@hotmail.com ก็ได้นะครับ

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

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

ส่ง ascii code ผ่าน serial port
ประยุกต์ใช้:
1. ติดต่อระหว่างคอมพิวเตอร์(หรือ simulation โดย jump Tx เข้ากับ Rx)
2. ติดต่อกับไมโครคอนโทรลเลอร์ผ่าน ascii code

Private Sub Form_Load()
MSComm1.Settings = "9600,N,8,1"
MSComm1.CommPort = 1
MSComm1.InputLen = 1
MSComm1.PortOpen = True
MSComm1.RThreshold = 1

End Sub

Private Sub MSComm1_OnComm()
Dim StrData As Variant
StrData = MSComm1.Input
RXText.Text = StrData
End Sub

Private Sub SendKey_Click()
MSComm1.Output = TextSEND.Text
TextSEND.Text = ""
End Sub

Source code

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

323club · ตอบ: พ. ตค. 05, 2005 10:28 am ชื่อกระทู้:

โปรเจคคุณ aha เหมือนกะที่ผมทำอยู่เลย

ใช้วงจรนี้ก็ได้ แบบสำเร็จรูปก็มีขายนะครับ
\/
\/
\/
\/
http://www.thaiio.com/Hardware-cgi/hardware.cgi?0031

ลองดูนะครับ
_________________
Design by 323club

323club · ตอบ: พ. ตค. 05, 2005 10:59 am ชื่อกระทู้:

http://www.codeproject.com/vbscript/Stepper_Motor_Control.asp
_________________
Design by 323club

323club · ตอบ: พ. ตค. 05, 2005 12:34 pm ชื่อกระทู้:

http://www.intel.com/intelpress/usb/examples/ZipFiles/steppermVB.htm
_________________
Design by 323club

putzaci · ตอบ: ศ. ตค. 07, 2005 2:42 am ชื่อกระทู้:

คือว่าผมต้องการ refresh vb เอาเปงแบบว่า 5 วินาทีให้ refresh 1ครั้ง อาไรประมานนี้อ่ะครับ ช่วยแนะนำผมหน่อยนะครับ ผมกำลังฝึกเขียน vb อยู่อ่ะครับ ผมใช้ vb 6 อยู่นะครับ

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

คิดว่าบางคนคงรำคาญ message เตือน syntax error ใน VB6 ก็เลยเอา tip เล็ก ๆ การกำจัด message error มาฝาก

Tool>>Options>>Editor แล้ว check ออก Auto syntax check

ทดสอบ

พิมพ์ if บน form แล้ว enter จะไม่มี message แสดง compile error

Embarassed

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

พี่ ครับ คือผมศึกษาโปรแกรมในหน้า

http://www.thaiio.com/prog-cgi/programing.cgi?0031 นี้ อยู่ หนะครับ

แต่ ติด การ Test send complete ในด้านล่าง หนะครับ ถ้าใคร พอจะทราบ Source Code ของมันโปรดช่วย ตอบ ด้วยนะครับ ขอบคุณ ล่วงหน้าครับ รึถ้า สะดวก เมลล์ตอบมาที่ Trinbah@hotmail.com ก็ได้นะครับ

และถามต่อว่า ic 8051 กับ 8052 ต่างกัน รึ ป่าว ครับ ถ้า ต่างกัน ช่วยบอกทีว่าต่างกัน ยังไง

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

ผมว่ามันไม่ยากเลยถ้าพยายามทำความเข้าใจแล้วเอามาดัดแปลงทำเอง อย่าลองพยายามเดินตามเค้าโดยที่เราไม่เข้าใจอะไรเลย

ลองทำโปรแกรมง่าย ๆ เช่น

ถ้า computer ส่ง "A" ไปให้ uC แล้ว LED 1 ที่บอร์ดจะสว่าง จากนั้น uC จะส่ง "B" กลับไปที่คอมพิวเตอร์ว่าได้รับ A แล้ว ถ้าทำได้ก็ OK ลืมโปรเจคเก่าไปเลย

อย่าพยายามทำให้เสร็จในทีเดียว ถ้าไม่แม่นจริงถือว่ายาก

aha

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

ต่อตามนี้เด๊ะเลยแต่เปลี่ยนชุด LED เป็นมอเตอร์อีกตัว

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

การควบคุมมอเตอร์ 2 ตัวโดยผ่าน computer ทำได้ 2 แบบ
1. ขยายพอร์ต ข้อดี โปรแกรมง่าย แต่ฮาร์ดแวร์ยุ่งยาก
2. พอร์ตเดียวโดยตรง(8บิต) ข้อดี ฮาร์ดแวร์ง่าย แต่โปรแกรมซับซ้อนกว่าเพราะ output ที่ออกจากพอร์ตจะออกมาทีเดียว 8 บิต แน่นอนว่าจะต้องไปรบกวนมอเตอร์อีกตัว เช่น ขณะที่รันมอเตอร์บิตบน(XXXX YYYY)อยู่ แล้วมีการส่ง 01H เข้าไป ผลที่ได้คือบิตบนทั้งหมดเป็น 0 มอเตอร์ที่รันอยู่ก็จะหยุดด้วย ที่ผมเคยทำคือใช้คำสั่ง Xor(Exclusive Or,เหมือน=0 ต่าง=1) เป็นตัวรักษาสภาพบิตไว้

data = Inp(&H378) 'ตรวจค่าปัจจุบัน
Out pwrite, Text1.Text Xor data 'รักษาค่าเดิมไว้

แนะนำว่าแบบแรกน่าจะ OK กว่าเพราะโปรแกรมง่ายกว่าเยอะ

aha

แหะๆ แล้วขยายพอร์ตนี่คืออะไรคะ ไม่รู้ hardware เลยคะ ทำยังไงหรอ เด็กโง่....

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

พี่ ๆ ครับ รบกวนช่วยอธิบายหลักการทำงาน ของโปรแกรมนี้หน่อยสิครับ

Private Sub TimRec_Timer()
On Error Resume Next
MSComm1.DTREnable = False
MSComm1.DTREnable = True
MSComm1.InputLen = 0
Data = MSComm1.Input
recdata$ = Hex$(Asc(Data))
Text2.Text = recdata
If recdata = "FE" Then
Image37.Visible = True
Image28.Visible = False
tim1.Enabled = True
End If
If recdata = "F1" Then
Image37.Visible = False
Image28.Visible = True
tim11.Enabled = True
timA10.Enabled = True
End If
If recdata = "DF" Then
timpump2.Enabled = True
timV3.Enabled = True
End If
If recdata = "FF" Then
Image97.Visible = True
Image75.Visible = False
Image27.Visible = True
Image36.Visible = False
End If
End Sub

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

อยากถามว่า vb สามารถเขียน กราฟฟิค 3 มิติได้มั้ยครับ เนี่ย ถ้า ได้ ช่วยแนะ นำวิธีการเขียนให้หน่อยสิครับ

บุคคลทั่วไป · ตอบ: พ. ตค. 12, 2005 9:51 am ชื่อกระทู้:

ผมเองก็ไม่เคยทำพวก 3D เลยครับ ก็เลยลองศึกษาดู ก็พอจะได้เรื่องคร่าว ๆ ว่าการเขียน 3D ใน VB ไม่ค่อยจะหวือหวานัก หลัก ๆ ก็จะมีอยู่ 2 จุดประสงค์คือ
1. เขียนไปเรื่อยเปื่อย เช่น ทำ polygon 3 มิติต่าง ๆ, กราฟ
2. เป็นเรื่องเป็นราว พวกนี้ advance มาก ๆ มีการเอา Dirext3D มาช่วย เช่นการทำเกม

ผมมี source code มาให้ทั้ง 2 แบบ
1. เรื่อยเปื่อย

source code:http://www.geocities.com/ezy_math/3D.zip

2. เกม มี 2 เกมให้ลอง ผมลองเล่นแล้วบอกได้เลยว่าสุดยอดมาก ๆ ไม่เคยรู้มาก่อนเหมือนกันว่า VB จะทำได้ขนาดนี้
Car racing

source code:http://www.geocities.com/ezy_math/Game1.zip

Shoting

source code:http://www.geocities.com/ezy_math/Game2.zip

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

เกม Racing ดาวน์โหลดไม่ได้เพราะ geocities host จำกัดขนาดไฟล์ไว้น้อยกว่า 1.5 Mb ผมเลยแบ่ง upload เป็น 2 ไฟล์คือ part1.zip(941Kb) และ part2.zip(612kb) เมื่อดาวน์โหลดเสร็จแล้วให้ extract ทั้ง 2 ไฟล์มาเก็บไว้ในโฟลเดอร์เดียวกัน

http://www.geocities.com/ezy_math/part1.zip
http://www.geocities.com/ezy_math/part2.zip

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

เมื่อประมาณบ่าย ๆ ไทยแวร์โทรมาแจ้งว่าโปรแกรม Motion detection เข้ารอบสุดท้ายแล้ว เย้! ใครว่างและอยู่ใกล้ก็ไปดูได้ครับที่ Bangkok CODE KMUTT วันที่ 20 ตุลาคม งานนี้ท่าทางจะมีโปรแกรมเมอร์หน้าใหม่ไปเยอะเลย

Embarassed

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

ถาม

ผมทำโปรเจค VB ติดต่อกับ excel โดยใช้ referenceจาก Excel Office application's library(MS Excel 9.0 object libraly, XP)ตอนที่ใช้เครื่องผมมันก็ OK ดีอยู่หรอก พอผมเอาไปรันบน 98 ซึ่งเป็น MS Excel 8.0 มันรันไม่ได้ ฟ้อง error out of date และ runtime error ตรึม ผมก็เลยเอาตัว setup ไปลง...... ปรากฎว่าคอมเครื่องนั้นเจ๊งไปเลย boot ก็ไม่ได้ อยากถามใครที่เคยทำเรื่องนี้ว่ามีทางแก้ปัญหาอื่นอีกไหมนอกจากลงวินโดว์ใหม่เป็น XP

Sad

worapon · ตอบ: ส. ตค. 15, 2005 12:52 am ชื่อกระทู้:

จากตัวอย่างบทความนี้ครับ

เขียนโปรแกรมติดต่อรับสัญญาณจากกับโทรศัพท์
http://www.thaiio.com/cgi-bin/html/vhtml.pl?name=iotoday&topic=29

คือไม่ทราบว่าจะต้องเซ็ตยังไงให้ปลายทางได้ยินเสียงครับ เพราะลองแล้วมันได้ยินที่ลำโพงคอมครับ แล้วไปเซตที่ sound and Audio Devices Properties ให้เป็น modem#4 Line Playback แล้วมัน error คล้ายกับว่า Devices ไม่สามารถเล่นไฟล์นี้ได้ ไม่ทราบว่าต้องไปเซตตรงไหนครับ

แล้ว คำสั่ง AT command อะไรที่ส่งให้ โมเด็ม รับสัญญาณ DTMF ครับ

ขอบคุณครับ

worapon · ตอบ: ส. ตค. 15, 2005 12:53 am ชื่อกระทู้:

อีกข้อครับ ต้องเป็น โมเด็มแบบ serial เท่านั้นหรอครับ คือผมมีแต่แบบ usb ครับ

นิ้ม · บุคคลทั่วไป

คือว่า อยากทราบว่า มี API ไหนไหมที่
สั่ง Lock Keyboard และ Mouse ได้อะคับ
ไม่ไห้กระดุกะดิกไปไหน
http://www.thaiio.com/cgi-bin/html/vhtml.pl?name=vbapi&topic=40
ที่มีเขียนไว้ ผมไช้มะได้อ่าคับ

ตามรูปเลยคับ กดปุ้บ Error ปั้บ เลยคับ ไม่ทราบว่าผมทำผิดตงไหนอะเปล่า

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

ลองแล้วใช้ได้

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Activate()

DoEvents
BlockInput True
Sleep 10000 'Deactivate 10 วินาที
BlockInput False

End Sub

นิ้ม · บุคคลทั่วไป

ขอบคุณพี่แมงเม่าคับ
พี่แมงเม่าช่วยแน้ะนำ API ที่ทำไห้ห้ายกด ctrl+alt+delete ได้ไหมคับ
ที่หน้าเว็บ
http://www.thaiio.com/cgi-bin/html/vhtml.pl?name=vbapi&topic=27
ผมทำแล้ว พอกด ctrl+alt+delete ยังติดอยู่เลยคับ

ขอบคุณคับ Very Happy

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

Code ถูกต้องแล้วครับ ผมเอามาดัดแปลงให้ดูง่าย ๆ ก็ประมาณนี้

Private Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, _
ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long

Private Sub cmdEnable_Click()
Call SystemParametersInfo(97, False, "1", 0)
End Sub

Private Sub cmdRelease_Click()
Call SystemParametersInfo(97, True, "1", 0)
End Sub

แต่ยังไงซะมันก็ไม่ work อยู่ดีครับ Laughing

เพราะว่า API ตัวนี้ไม่ support WinXP/NT ใช้ได้แค่ Win9x ผมลองหาวิธีอื่นก็ไม่มี แต่ก็มีทางเดียวครับคือ "เล่นของสูง" ก่อนอื่นขอให้ backupไฟล์ taskmgr.exe ไว้ก่อนนะครับ เสียหายไปจะยุ่ง บอกก่อนว่า Code นี้ผมคิดเองไม่ได้ลองด้วย

Private Sub Timer1_Timer()
On Error Resume Next
Kill "C:\WINDOWS\SYSTEM32\taskmgr.exe"
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Embarassed

นิ้ม · บุคคลทั่วไป

โอ้ขอบคุณพี่แมงเม่ามากเลยคับ
เล่นซ้ะก่อนทดลองเสียวไปหมด แต่ก็ไช้ได้คับ
ขอบคุณมากๆคับ

ขออีกข้อนะคับอันนี้ผมไม่รู้จิงๆ

คือ ผมต้องการ ฟังชั่นหรืออะไรก็ได้ที่สามารถดูที่อยู่ของตัวโปรแรกม ที่ ตัวมันไปอยู่คับ
เช่น

ผม สร้างขึ้นมา
แล้วเอาไปวางไว้ที่ c:\bit\a\b\c\d\ชื่อโปรแรกม.exe

ผมต้องการไห้โปรแกรมมันบอกว่า ตอนนี้มันอยู่ที่
c:\bit\a\b\c\d\

พอจะมีวิธีไหมคับ

ขอบคุณสำหรับคำตอบนะคับ

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

ใช้ keyword "search file vb" ใน google ดูนะครับผมลองหาดูก็มี code น่าสนใจอยู่เยอะเลย

aha

รบกวนพี่แมงเม่าสอนวิธิใช้ vb ติดต่อฐานข้อมูล mysql หน่อยคะ

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

ไม่เคยใช้ database ครับ ดาวน์โหลดตัวอย่างไปทดลองน่าจะมีประโยชน์บ้าง

http://www.infopress2000.com/download/dbvb6_v2.zip

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

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

aha

ขอบคุณพี่แมงเม่ามากเลยนะคะ

รัต · ตอบ: พ. ตค. 19, 2005 3:09 pm ชื่อกระทู้:

อยากได้ code vb ที่ใชรับเสียงจาก soundcard แล้วนำมาหาความถี่ คือจะทำโปรแกรมเทียบสายกีต้าร์นะ โดยจะเสียบกีต้าร์เข้ากับ soundcard แล้วเอาเสียงที่ได้มาหาความถี่ฝากพี่ช่วยหน่อยนะครับ

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

ผมเคยเห็นเหมือนกันแต่ไม่เข้าใจเท่าไหร่ ลักษณะคือรับไฟล์เสียง(*.wav)/soundcard เข้ามาแล้วเอามาวิเคราะห์ความถี่ผ่าน FFT ฟังก์ชัน ถ้าจะเอามาประยุกต์ต้องดัดแปลงกันเยอะเลย แต่จะเอา code มา upload ให้ลองทำแล้วกันครับ

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

source code wave analyzer

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

ตั้งแต่วันจันทร์ที่ 24 ตุลาคม-11 พฤศจิกายน ผมมี train ที่ต่างประเทศคงไม่ได้เข้ามาตอบเวปบอร์ดยาวเลยละครับ

รัต · ตอบ: พฤ. ตค. 20, 2005 11:24 am ชื่อกระทู้:

ขอคุณพี่มากเลยครับ ผมคงต้องปรึกษาพี่อีกเยอะเลยครับ Razz

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

ผมกำลังทำโปรเจคจบปริญญาตรี อยู่ที่คณะวิศวะจุลา อ่ะคับ

ต้องการความช่วยเหลือคือ

ผมจะซื้อกล้อง network camera ที่มี ip ในตัว โดยผมจะเอาภาพจากกล้องมาทำการหาวัตถุ(แยกวัตถุออกจากฉากหลังโดยการเปลี่ยนเทียบเฟรมที่ติดกันว่ามีวัตถุใดเคลื่อนไหว) โดยการเอาเฟรมที่ติดกันมาวิเคราะห์ ควรจะทำยังไงดีครับ โดยตอนนี้ผมใช้โปรแกรม matlab วิเคราะห์รูปสองรูปได้ แต่จากการรับภาพที่เป็นแบบ mpeg จากกล้อง ผมจะทำการเอาภาพมาวิเคราะห์ได้อย่างไร ช่วย mail ไปยัง projectcam@hotmail.com ด้วยครับ

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

ก็เอาภาพแรกมาหาจุดสี ยิ่งมากยิ่งดี เช่น ซัก 1000 จุดแล้วกัน จากนั้นเอาภาพที่ 2 มาทำแบบเดียวกัน ตำแหน่งเดียวกัน สมุติว่าถ้าจุดสีทั้งสองต่างกันเกิน10%(100จุด)ให้ถือว่า 2 ภาพนี้ต่างกัน

Embarassed

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

ลองทดสอบโดยใช้ Visual Basic จับภาพจากกล้องดิจิตอล โดยใช้ Code ที่คุณแมงเม่าแบ่งปันความรู้มาให้
แล้วลอง Save แต่ละเฟรม ลงเครื่อง จากนั้น ลองใช้โปรแกรม Matlab ดึงภาพที่ Save มาวิเคราะห์ ความแตกต่างของภาพก่อน (เห็น Post บอกว่าสามารถวิเคราะห์ในโปรแกรม Matlab ได้แล้ว) เมื่อได้แล้ว ก็น่าจะ Work
ต่อไป ก็ดึงภาพไปวิเคราะห์ในลักษณะ Real Time (Matlab น่าจะทำได้) นะลองคุยกับอาจาร์ยที่ปรึกษา ถึงขอบเขตละกัน
ป.ล. แนะนำนะไม่รู้ว่า Matlab มีความสามารถแค่ไหน

kit_jeng

พี่ครับขอรบกวนด้วยครับ คือว่าผมต้องทำโครงงานส่งอาจารย์ แต่ติดปัญหาคือว่า จะต้องโชว์ไฟก่อนตัด 5 นาที แต่ผมเขียนโปรแกรมไม่ได้ครับ รายละเอียดของโครงงานคือ เป็นวงจรตัดต่อไฟที่จ่ายให้กับ ทีวี (ใช้ในร้านเกมส์เพลส์)โดยใช้โปรแกรม VB 6 ในการตั้งเวลา และต้องโชว์ไฟเตือนก่อนหมดเวลา 5 นาที รบกวนช่วยผมด้วยนะครับ
_________________
jeng

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

sodium

คือพี่แมงเม่าค่ะหนูต้องการส่งข้อมูลจาก mcs51 ไปแสดงผลที่หน้าจอcomputerโดยผ่านport serial port ของmcs51 (RS-232) ไปที่port อนุกรมของคอมพิวเตอร์ค่ะ
โดยที่หนูใช้คำสั่ง Printf(xxxx) เพื่อส่งค่าตัวเลขไปที่คอมพิวเตอร์ แล้วเขียนVBเพื่อแสดงผลค่าข้อมูลนั้นเป็นกราฟ หรือ เป็นตัวเลข อ่ะค่ะ
หนูเลยมีคำถามจะถามและขอคำแนะนำจากพี่ดังนี้ Embarassed

1.ในการส่งข้อมูลแบบตัวเลข ใช้คำสั่งPrintf(XXXX) แล้วส่งไปที่Computer นั้นสามารถใช้VBจัดการข้อมูลนั้นมาแสดงผลหรือนำไปควบคุมอย่างอื่นได้ไหมค่ะ Question

(หรือว่าต้องใช้คำสั่งอื่นค่ะ Exclamation

)

2. เขียนVBรับค่าตัวเลขจาก port อนุกรม ของComputerโดยข้อมูลนั้นถูกส่งมาจากserial port ของmcs51 (RS-232) ทำยังไงค่ะ มีตัวอย่างให้หนูศึกษารึป่าวค่ะ Question

3.พี่ช่วยหาตัวอย่างการรับค่าจากport อนุกรม ของcomputer แล้วเขียนvbให้จัดการข้อมูลเพื่อแสดงผลได้ไหมค่ะ

ขอบคุณพี่แมงเม่ามากๆค่ะที่ช่วยเหลือหนู(เด็กมีความรู้น้อย...) Embarassed

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

ผมเองก็ไม่ได้ใช้ MCS51 มานานมาก ๆๆๆๆๆๆๆ วิธีไม่รู้ว่าจะโบราณไปรึเปล่า

ผมสมมุติว่า มีการส่ง A,B โดย MCS51 และVB

1) MSC51:

1.1ส่ง A เมื่อมีการกดสวิตซ์

MAIN:SETB INPUT_CMD
CHECK_A: JB INPUT_CMD,CHECK_A
MOV A,#'A'
WAIT_A_UP: JNB INPUT_CMD,WAIT_A_UP
ACALL TRANSMIT

TRANSMIT: MOV SBUF,A
CLR TI

2)ตรวจการรับ B

CHECK_RECEIVE: CJNE A,#'B',GET_RESULT_PASS
SETB BUSY
SJMP MAIN

GET_RESULT_PASS:
ACALL DELAY_10ms
SETB OUTPUT_CMD

2) VB:

2.1 รับ A

StrData = MSComm1.Input
Select Case StrData
Case "A"
Labe1.Caption = "Received A"
Case xxxxxxxxxxx

End Select

2.2 ส่ง B
MSComm1.Output = "B"

คร่าว ๆ นะครับ เป็นการส่ง Ascii แล้วให้ไปเป็นเงื่อนไขว่าต้องการให้ทำเหตุการณ์อะไรต่อไป เรื่อง MCS ลองถามคนอื่น ๆ น่าจะดีกว่าครับ

นิ้ม · บุคคลทั่วไป

พี่แมงเม่าคับ อยากถามว่า มีตัว control ไหนไหมที่สามารถล้อกอิน ไปเชื่อต่อกะ
Ftp Server ได้อ่าคับ แบบคล้ายๆพวกโปรแรกม CuteFtp อะคับ
ถ้ามี ผมอยากได้ตัวอย่างโปรแรกม หรือตัว อย่าง Code หน่อยนะคับ

ขอบคุณคับ Very Happy

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

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

ช่วงนี้งานยุ่ง ๆ แต่ก็ยังดีที่เลื่อน Training เป็นกลางเดือนหน้า Surprised

ผล thaiware award ออกมาแล้ว Motion detection ได้ที่ 3 Shocked

แต่ก็ OK ที่ได้เห็นมุมมองใหม่ ๆ มาพัฒนาตนเอง ได้เห็นโปรแกรมระดับ commercial เช่น TONY JA THE GAME, Boxes in a box(ราคาเป็นแสน) และก็โปรแกรมที่มี interface สวย ๆ ให้แอบศึกษา

ภาพบรรยากาศงาน(หน้าตาที่งานแต่ละคน...เฮ้อ)

น้องบูม PR ของ Thaiware

More....

http://www.nongple.com/main/main.php?menu=webboard&submenu=view&no=345

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

ช่วยด้วยค้าบบบ โปรเจคผมจะไม่จบอยู่แล้ว

คือผมจะเซฟภาพที่ได้จากกล้องเปน mpeg4 แต่ก็ต้องการเอาแต่ละเฟรมมาเทียบกันเพื่อหาวัตถุที่เคลื่อนที่เลยอยากจะแยก mpeg4 ออกมาเปน เฟรมๆ เพื่อวิเคราะห์อ่ะคับ

พอมีทางทำได้บ้างไหม

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

"ทำได้แล้วครับ
ใช้ winsock ส่ง image frame จาก client<====>server แบบ real time ผ่าน picture box
image frame จะปรากฎ(เกือบ)พร้อม ๆ กัน ระหว่าง client กับ server ถ้าใช้โปรแกรม screen capture หรือ web cam(post ไปแล้ว)รับภาพ picture boxจากเครื่องหนึ่งมันก็จะไปปรากฎที่อีกเครื่องได้ กระสุนนัดเดียวได้ 2 ต่อเรยย
แล้วจะเอา code มา post ทีหลัง"

คือที่พี่บอกจะเอาโค๊ดมาลงให้ ไม่ทราบว่าจะไปโหลดได้ที่ไหนเหรอครับ คือผม กำลัง ทำโปรเจ็คในหัวข้อนี้พอดีเลย รบกวนช่วย บอกด้วยนะครับ

เด็กตาดำๆ · บุคคลทั่วไป

พี่แมงเม่าครับ ผมขอ sourcecode ของโปรแกรม Motion Detection ของพี่หน่อยสิครับ
ที่ตรวจจับด้วยเม็ดสีอ่ะครับ คือผมกำลังทำโปรเจคเกี่ยวกับตัวนี้อยู่เลยครับ ผมอยากจะได้เพื่อมาศึกษาต่อและเพิ่มเติมให้มันส่ง sms หาเราได้เมื่อตรวจพบอ่ะครับ พี่ครับ รบกวนทีนะครับ ถ้าไม่ได้ยังไงก็ช่วยบอกไว้ด้วยนะครับ ขอบคุณมากครับ

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

บุคคลทั่วไป · ตอบ: ศ. ตค. 28, 2005 1:41 pm ชื่อกระทู้:

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

รบกวนช่วยดูให้นิดนึงได้มั้ยครับ คือตอนนี้ ผมกำลังจาสอบโปรเจ็คอ่ะครับ แล้วงานที่ผมทำมานมีปัญหาเรื่องภาพที่ดีเลย์ มากเลย คือในขอบเขต บอกว่าจะเป็น Realtime แต่ตอนนี้ ยังแก้ปัญหาตรงนี้ไม่ได้เลยอ่ะครับ พี่แมงเม่าพอจะช่วยแนะนำอะไรบ้างได้มั้ยครับ เมลล์ผม aimi3317@hotmail.com หรืออันนี้ก้อได้นะครับ mc_pound@hotmail.com ผมออนทั้งวันเลยนะครับ กำลังแย่เลยเพราะ จะสอบ จบ ต้นเดือนแล้วอ่ะครับ รบกวนด้วยนะครับ

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

หรือถ้ามี code รบกวนช่วยโพสท์ให้หน่อยนะครับ เพราะเด๋วผมเอาไปลองนั่งแกะดูครับ

เด็กตาดำๆ · บุคคลทั่วไป

พี่ครับ ผมต้องสร้างฟอร์มยังไงบ้างครับถึงจะรัน sourcecode ของพี่ได้อ่า คือผมรันแล้วมันไม่มีภาพเลย มีแต่ฟอร์มสีเทาๆ

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

อยากให้ใครก็ได้ที่มีความรู้ช่วยดูโปรแกรมนี้หน่อย ว่าทำไมผมไม่สามารถส่งเสียงไปยังปลายทางได้
จะเขียนโปรแกรมตอบรับโทรศัพท์อัตโนมัติ แต่ตอนนี้ไม่สามารถส่งเสียงได้ ไม่ทราบว่าเขียนโปรแกรมผิดรึเปล่า
ช่วยแนะนำหน่อยครับ ต้องการใช้ด่วนครับ
--------------------------------------------------------------
Option Explicit
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Public Speak As Variant
Public Ring As Boolean
Dim buff As Variant
Dim temp As Variant
--------------------------------------------------------------
Private Sub Command1_Click()
Command1.Caption = "RING"
MSComm1.Output = "ATH0" + Chr(13)
End Sub
--------------------------------------------------------------
Private Sub Form_Load()
Ring = False
MSComm1.Settings = "9600,N,8,1"
MSComm1.CommPort = 1
MSComm1.InputLen = 0
MSComm1.PortOpen = True
MSComm1.RThreshold = 1
MSComm1.Output = "AT+FCLASS=8" + Chr(13)
End Sub
--------------------------------------------------------------
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
buff = MSComm1.Input
Text2.Text = Text2.Text + buff + vbCrLf
If InStr(1, buff, "RING") Then
Ring = True
Command1.Caption = "HANK UP"
End If
If Ring = True Then
MSComm1.Output = "ATA" + Chr(13)
MSComm1.Output = "AT+VIT=6" + Chr(13)
MSComm1.Output = "AT+VSL=1" + Chr(13)
Speak = mciExecute("play C:\VMGreet.wav")
Ring = False
Else
If InStr(1, buff, "~") Then
DTMF (temp)
Else
temp = buff
End If
End If
End Select
End Sub
--------------------------------------------------------------
Private Sub DTMF(numdtmf As Variant)
Text1.Text = Text1.Text + "<<"
If InStr(numdtmf, "1") Then
Text1.Text = Text1.Text + "1"
ElseIf InStr(1, numdtmf, "2") Then
Text1.Text = Text1.Text + "2"
ElseIf InStr(1, numdtmf, "3") Then
Text1.Text = Text1.Text + "3"
ElseIf InStr(1, numdtmf, "4") Then
Text1.Text = Text1.Text + "4"
ElseIf InStr(1, numdtmf, "5") Then
Text1.Text = Text1.Text + "5"
ElseIf InStr(1, numdtmf, "6") Then
Text1.Text = Text1.Text + "6"
ElseIf InStr(1, numdtmf, "7") Then
Text1.Text = Text1.Text + "7"
ElseIf InStr(1, numdtmf, "8") Then
Text1.Text = Text1.Text + "8"
ElseIf InStr(1, numdtmf, "9") Then
Text1.Text = Text1.Text + "9"
ElseIf InStr(1, numdtmf, "*") Then
Text1.Text = Text1.Text + "*"
ElseIf InStr(1, numdtmf, "0") Then
Text1.Text = Text1.Text + "0"
ElseIf InStr(1, numdtmf, "#") Then
Text1.Text = Text1.Text + "#"
End If
Text1.Text = Text1.Text + ">>" + vbCrLf
End Sub
--------------------------------------------------------------

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

รบกวนพี่แมงเม่า ช่วยทิ้งเบอร์ ไว้ให้หน่อยได้มั้ยครับ เพราะผม อยากจะรบกวนปรึกษาเรื่องโปเจ็ค เกี่ยวกับการเขียน file stream หรือถ้าพี่ไม่สะดวก ยิงมาก้อได้ครับ ผมโทรกลับเองนะครับ อ้อ 090393258,079770117,058063370 น้องเอ กับน้องปอด์นนะครับ รบกวนอย่างสูงเลยนะครับ เพราะจะสอบวันอังคารแล้ว เหลือปัญหาตรงเรื่องการส่งภาพที่ยังแก่ไม่ตกเลยนะครับ หรือ รบกวนท่านใดก็ได้ครับ ที่พอจะให้คำแนะนำและปรึกษาได้ ช่วยยิงเบอร์มาหน่อยนะครับ

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

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

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

ขอบคุณพี่แมงเม่ามากนะครับ แล้วผมจะลองพยายามดู นะครับ ได้ผลยังไง จะเล่าให้ฟังนะครับ

รัต · ตอบ: ส. ตค. 29, 2005 9:20 pm ชื่อกระทู้:

คือผมจะรับเสียงกีต้าร็จาก soundcard พี่พอจะมี code vb ที่ใช้รับเสียงจาก soundcard ไหมครับ ผมคิดว่ามันน่าคล้ายๆ กับการอัดเสียงแต่ผมไม่รู้ว่าจะทำยังไง รบกวนพี่หน่อยนะครับ ....ขอบคุณครับ

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

เด็กตาดำๆ · บุคคลทั่วไป

พี่แมงมเค้าบ T_T ช่วยสอนผมเกี่ยวกับโปรแกรม Motion Capture ของพี่ที ผมลองโหลดมาใช้แล้ว แต่ไม่มีซอดโค้ดอ่ะครับมีแต่ตัว exe และซอดโค้ดที่พี่ให้มามันตัวเดียวกันรึเปล่าครับ มันสั้นขนาดนี้เลยเหรอครับ ผมมีความรู้ด้าน vb นิดเดียวเอง T_T อยากให้พี่อธิบายเกี่ยวกับการเขียนโปรแกรมนี้ได้ป่าวอ่าครับ เช่นเริ่มสร้างฟอร์ม คือผมไม่รู้จะสร้างอะไรยังไง
ซอดโค้ดก๊อบมาวางแล้วก็ไม่มีไรเกิดขึ้นเลยอ่ะครับ

ด้วยความนับถือครับ พี่แมงเม่า

รัต · ตอบ: จ. ตค. 31, 2005 12:45 am ชื่อกระทู้:

ขอบคุณครับพี่ แล้วผมจะลองไปใช้ดูครับ แล้วจะมารบกวนพี่ใหม่ครับ ขอบคุณครับ Very Happy

น๊อต · บุคคลทั่วไป

ผมต้องการให้โมเด็มเล่นเสียง wav แบบ pcm เพื่อเวลาใครโทรเข้ามาแล้วได้ยินเสียงไฟล์ wav นั้นครับ โดยใช้ VB ไม่ทราบว่าจะต้องเขียนโค๊ดยังไงครับ พี่แมงเม้าพอจะให้ความรู้เรื่องนี้ได้รึเปล่าครับ

ปล.เคยลองทำตามในเวปนี้แล้วครับ โทรเข้ามาไม่ได้ยินเสียงครับจะมีเสียงทีลำโพงของคอมไม่ได้ยินที่โทรศัพท์ที่ใช้โทรครับ

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

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