www.thaiio.com หน้ากระดานข่าวหลัก

หน้าแรกเวปไซด์หน้าแรก Thaiio.com คำถามถามบ่อยของกระดานข่าวคำถามถามบ่อยของกระดานข่าว ค้นหาค้นหา รายนามสมาชิกรายนามสมาชิก กลุ่มผู้ใช้งานกลุ่มผู้ใช้งาน
ข้อมูลส่วนตัวข้อมูลส่วนตัว คุณไม่มีข่าวสารใหม่คุณไม่มีข่าวสารใหม่ ออกจากระบบ [ thaiio ]ออกจากระบบ [ thaiio ]

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

 

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

ดูกระทู้ก่อนนี้ :: ดูกระทู้ถัดไป  
ผู้ส่ง ข้อความ
voyager



เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ: 68
ที่อยู่: เชียงใหม่

ตอบตอบ: พ. สค. 24, 2005 2:17 pm    ชื่อกระทู้: ห้องVBส่วนตัวของแมงเม่า ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: พ. สค. 24, 2005 3:37 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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
ตอบ: 2
ที่อยู่: 80/38 บางเขน

ตอบตอบ: พ. สค. 24, 2005 5:52 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

อยากได้โปรแกรมหรือcode vb6 ที่ดึงภาพมาจาก webcam
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ Yahoo MSN
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: พ. สค. 24, 2005 10:30 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

Idea Idea Idea Wink

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    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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]
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: ศ. สค. 26, 2005 9:04 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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

ประยุกต์: -
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: อาทิตย์ สค. 28, 2005 10:55 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: อ. สค. 30, 2005 11:02 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

Private Sub Command1_Click()
For i = 0 To 99
Text1(i).Text = ""
Next i
End Sub
กลับไปข้างบน
En_tee
บุคคลทั่วไป





ตอบตอบ: พฤ. กย. 01, 2005 10:27 pm    ชื่อกระทู้: ให้โปรแกรมทำงานเหมือนโปรแกรม scan ไวรัส ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: ศ. กย. 02, 2005 4:59 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ใช้ 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
กลับไปข้างบน
เด็กตาดำๆ
บุคคลทั่วไป





ตอบตอบ: ส. กย. 03, 2005 6:45 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: อาทิตย์ กย. 04, 2005 8:04 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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






ตอบตอบ: อาทิตย์ กย. 04, 2005 12:02 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ไม่เคยลองทำนะครับ แต่เท่าที่หาข้อมูลมาก็จะมีการส่งอยู่ 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 Crying or Very sad Crying or Very sad 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
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: อาทิตย์ กย. 04, 2005 12:31 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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


โปรแกรมที่ทำ (ส่งออก smsได้ ตอนนี้ก็รออยู่ยังไม่มาซักที)
กลับไปข้างบน
เด็กตาดำๆ
บุคคลทั่วไป





ตอบตอบ: อาทิตย์ กย. 04, 2005 6:25 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

พี่ๆ พอจะมี ตัวอย่าง โปรแกรม 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
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: จ. กย. 05, 2005 11:37 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ยังไม่ได้อ่านละเอียดนะนู๋ แต่ดูผ่านๆ ตา มันคือการควบคุมการทำงานของมือถือตาม 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 มีค. 2004
ตอบ: 17

ตอบตอบ: พ. กย. 07, 2005 1:24 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: พฤ. กย. 08, 2005 10:05 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ขอบคุณครับ 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 Embarassed
กลับไปข้างบน
En_tee
บุคคลทั่วไป





ตอบตอบ: พฤ. กย. 08, 2005 11:49 pm    ชื่อกระทู้: ผมไม่ได้หายจ้อยนะพี่ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: จ. กย. 12, 2005 6:53 pm    ชื่อกระทู้: ภาพที่ได้จัดถูกจัดเก็บไว้ที่ใหน ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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






ตอบตอบ: อ. กย. 13, 2005 9:52 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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





ตอบตอบ: อ. กย. 13, 2005 11:10 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ตอนนี้ผมทำโปรแกรมกับ 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
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: อ. กย. 13, 2005 11:16 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

อืมมมมมม link ผิดครับ
http://www.geocities.com/ezy_math/Package1.zip
กลับไปข้างบน
บุคคลทั่วไป






ตอบตอบ: อ. กย. 13, 2005 12:03 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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

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

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


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

>>> http://www.geocities.com/ezy_math/Package.zip <<<
โหลดไม่ได้อ่ะครับพี่ -__-"
กลับไปข้างบน
บุคคลทั่วไป






ตอบตอบ: อ. กย. 13, 2005 12:25 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

รบกวนด้วยนะครับ อิอิอิ !!!
ขอบคุณครับ Embarassed Embarassed Embarassed
กลับไปข้างบน
ช่วยด้วย
บุคคลทั่วไป





ตอบตอบ: อ. กย. 13, 2005 2:43 pm    ชื่อกระทู้: มันหาไดร์เวอร์ไม่เจออ่ะ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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






ตอบตอบ: อ. กย. 13, 2005 2:49 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ผมไป 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 ผมไม่ถนัดครับลองถามคนอื่น ๆ ดูล่ะกัน
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: อ. กย. 13, 2005 2:55 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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

Let enjoy!
กลับไปข้างบน
323club



เข้าร่วมเมื่อ: 13 กย. 2005
ตอบ: 13

ตอบตอบ: อ. กย. 13, 2005 2:59 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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



Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation
_________________
Design by 323club
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
ช่วยด้วย
บุคคลทั่วไป





ตอบตอบ: อ. กย. 13, 2005 3:59 pm    ชื่อกระทู้: .. ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ขอบคณุมากๆๆครับ
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: พ. กย. 14, 2005 7:17 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

รูปมันเบลอเพราะว่าน้อง(คนไหนก็ไม่รู้ถามไว้)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



เข้าร่วมเมื่อ: 13 กย. 2005
ตอบ: 13

ตอบตอบ: พฤ. กย. 15, 2005 11:06 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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

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

ผมก็ไม่รู้จะติดต่อพี่แมงเม่ายังไง Question Question Question
อันนี้เมล์ผมนะครับ niper_pk@hotmail.com

รบกวนพี่ด้วยนะคร้าบบบ Mr. Green Mr. Green Mr. Green
_________________
Design by 323club
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: พฤ. กย. 15, 2005 4:19 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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



เข้าร่วมเมื่อ: 13 กย. 2005
ตอบ: 13

ตอบตอบ: พฤ. กย. 15, 2005 5:03 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ขอบคุณคร้าบ Very Happy Very Happy Very Happy
_________________
Design by 323club
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
voyager



เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ: 68
ที่อยู่: เชียงใหม่

ตอบตอบ: พฤ. กย. 15, 2005 9:18 pm    ชื่อกระทู้: แมงเม่า ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ตอนนี้ทางไทยแวร์มีการจัดประกวด 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 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

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



เข้าร่วมเมื่อ: 15 กย. 2005
ตอบ: 3

ตอบตอบ: พฤ. กย. 15, 2005 10:40 pm    ชื่อกระทู้: มี vb ส่งผ่าน modem โดยรับค่าจาก comport ไหมครับ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

มี vb ส่งผ่าน modem โดยรับค่าจาก comport ไหมครับ
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: พฤ. กย. 15, 2005 11:42 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: ศ. กย. 16, 2005 3:40 pm    ชื่อกระทู้: ช่วยหาวิธีทำหน้าต่างที่เขียนจากVB โปร่งแสงที มีรูปตัวอย่าง ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP



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

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

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





ตอบตอบ: ศ. กย. 16, 2005 5:19 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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





ตอบตอบ: ศ. กย. 16, 2005 10:33 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

สาว ๆ ขอร้องมาทั้งที Embarassed 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
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: ศ. กย. 16, 2005 10:52 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: ศ. กย. 16, 2005 11:16 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

เพิ่มเติม transparent form

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

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

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

MakeTransparent Me.hWnd, 100 'ผมใส่ค่า Perc = 100
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: ศ. กย. 16, 2005 11:28 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ดาวน์โหลด 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 1:35 am    ชื่อกระทู้: อยากได้เรื่องกล้องอ่ะ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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






ตอบตอบ: จ. กย. 19, 2005 11:13 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

อยากให้พี่แมงเม่าโฟสเรื่องกล้องมากๆๆ ครับ
กลับไปข้างบน
ฉานมานโง่
บุคคลทั่วไป





ตอบตอบ: อ. กย. 20, 2005 1:24 am    ชื่อกระทู้: capture แบบ real time ทำไงอ่ะ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

capture แบบ real time ทำไงอ่ะ พี่แมงเม่าพอรู้ไหมครับ
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: อ. กย. 20, 2005 1:15 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

จะว่ามัน 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 ภาพก็คือการเอาภาพที่แสดงมาเก็บไว้เท่านั้นเอง
กลับไปข้างบน
ฉานมานโง่
บุคคลทั่วไป





ตอบตอบ: อ. กย. 20, 2005 4:14 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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






ตอบตอบ: อ. กย. 20, 2005 4:22 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

แล้วโคดอย่างงี้พอได้ไหมครับ


Private Sub Timer1_Timer()
Dim i As Integer
For i = 0 To 30
Call capture
Next i
End Sub

ตั้ง intaval = 1000
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: พ. กย. 21, 2005 12:20 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ใช่แล้วครับเหมือน 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
กลับไปข้างบน
จอมมารบู
บุคคลทั่วไป





ตอบตอบ: พ. กย. 21, 2005 5:35 pm    ชื่อกระทู้: พี่รู้เรื่องezvidcapไหม ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: พ. กย. 21, 2005 7:25 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: พ. กย. 21, 2005 7:34 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

การใช้ 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
กลับไปข้างบน
จอมมารบู
บุคคลทั่วไป





ตอบตอบ: พ. กย. 21, 2005 8:11 pm    ชื่อกระทู้: เอาเฉพาะ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: พ. กย. 21, 2005 8:14 pm    ชื่อกระทู้: stream ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: พฤ. กย. 22, 2005 9:09 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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 มันค่อยไม่ยืดหยุ่น แต่ข้อดีคือง่าย(มาก)
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: พฤ. กย. 22, 2005 9:18 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: พฤ. กย. 22, 2005 12:44 pm    ชื่อกระทู้: .. ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: พฤ. กย. 22, 2005 12:50 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

Savedpic.Picture = filename

"Savedpic" คือ picture box

ลอง search หาใน google เพิ่มเติมนะครับ
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: พฤ. กย. 22, 2005 1:11 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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
กลับไปข้างบน
บ๊องแบ๊ว
บุคคลทั่วไป





ตอบตอบ: พฤ. กย. 22, 2005 1:12 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: พฤ. กย. 22, 2005 6:33 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: ศ. กย. 23, 2005 2:40 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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




Source code

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

Embarassed Embarassed
กลับไปข้างบน
azuki



เข้าร่วมเมื่อ: 24 กย. 2005
ตอบ: 3

ตอบตอบ: ส. กย. 24, 2005 10:02 am    ชื่อกระทู้: อยากได้โค้ด vb6 ด่วนมาก ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: ส. กย. 24, 2005 1:39 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

ขอบคุรมากครับ Rolling Eyes
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: ส. กย. 24, 2005 4:01 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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


เคยทำ multi chatโดยใช้ winsock มันก็ใช้งานได้ดีครับ แต่ที่ผมทำมันคอมเครื่องเดียวครับแต่ใช้การ simulation เวลามันแสดง IP ก็จะแสดงแค่ IP เดียว ไม่รู้ว่าหลายเครื่องมันจะ workรึเปล่า(ร้านเนตต้องมีคอมมากกว่า 2 ตัวอยู่แล้ว)เคยยืมคอมเพื่อนมาทำมันก็ OK นะครับแต่มันแค่ 2 เครื่องจะใช้ sure ต้อง 3 เครื่องขึ้นไป(ตรวจสอบดูว่า server มันยอมรับ client อื่น ๆอีกรึเปล่า)แต่ถ้าส่งอาจารย์ใช้คอม 2 เครื่องก็พอ ผมจะลองดัดแปลง code แล้วมา post ให้วันหลัง ส่วนต้องการให้มัน run ทันทีเมื่อเปิดเครื่องก็ไปเพิ่มใน startup และ run โปรแกรมจาก Form_load แต่เครื่อง server ต้องเปิดไว้ตลอดด้วยนะครับ
กลับไปข้างบน
sodium



เข้าร่วมเมื่อ: 21 สค. 2005
ตอบ: 3

ตอบตอบ: อาทิตย์ กย. 25, 2005 1:45 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: อาทิตย์ กย. 25, 2005 11:15 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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


ถ้าเรื่อง technical ถามจากคนอื่น ๆ นะครับ



ใช้ MSchart(Add "Microsoft chart control6.0") รับค่า data มาจาก Text box โดย check ผ่าน timer 100 mS

Private Sub Form_Load()
With MSChart1
.chartType = 1
.RowCount = 1
.ColumnCount = 3
.RowLabel = "Get Data"
End With
End Sub

Private Sub Timer1_Timer()
For Column = 1 To 3
DoEvents
MSChart1.Column = Column
MSChart1.Data = Val(Text1(Column).Text)
Next Column
End Sub
Embarassed Embarassed Embarassed
กลับไปข้างบน
นู๋อ้อจ้า
บุคคลทั่วไป





ตอบตอบ: อาทิตย์ กย. 25, 2005 2:01 pm    ชื่อกระทู้: ถามเรื่องขยายพอร์ทปริ๊นเตอร์ค่ะ ไอซี 8255 อ่า ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: จ. กย. 26, 2005 1:59 pm    ชื่อกระทู้: ถามเรื่อง delay ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: อ. กย. 27, 2005 6:34 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ได้ 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 Embarassed
กลับไปข้างบน
นู๋ไม่รู้
บุคคลทั่วไป





ตอบตอบ: อ. กย. 27, 2005 9:32 pm    ชื่อกระทู้: ขยายพอร์ตขนาน ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: อ. กย. 27, 2005 10:48 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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


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

http://www.thaiio.com/Hardware-cgi/hardware.cgi?0017

http://www.boondog.com/\tutorials\dlltutor\dlltutor.htm
กลับไปข้างบน
323club :P
บุคคลทั่วไป





ตอบตอบ: พ. กย. 28, 2005 9:42 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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

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





ตอบตอบ: พ. กย. 28, 2005 1:28 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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
บุคคลทั่วไป





ตอบตอบ: พ. กย. 28, 2005 4:20 pm    ชื่อกระทู้: รบกวนหน่อยนะครับ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

คือ ตอนนี้ผมทำโปรเจคเกี่ยวกับเครื่องชาร์จถ่าน (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
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: พ. กย. 28, 2005 5:35 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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


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

http://industrial.se-ed.com/itr115/itr115_128.asp
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: พ. กย. 28, 2005 5:50 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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



เข้าร่วมเมื่อ: 13 กย. 2005
ตอบ: 13

ตอบตอบ: พฤ. กย. 29, 2005 9:51 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ขอบคุณพี่แมงเม่ามากครับ
_________________
Design by 323club
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: พฤ. กย. 29, 2005 7:42 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

http://www.geocities.com/ezy_math/GPS.zip
กลับไปข้างบน
Rs232
บุคคลทั่วไป





ตอบตอบ: ศ. กย. 30, 2005 2:51 am    ชื่อกระทู้: .. ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: ศ. กย. 30, 2005 8:24 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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




'Module
Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Public Type POINTAPI
x As Long
y As Long
End Type

'Form
Option Explicit
Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Dim tPOS As POINTAPI
Dim sTmp As String
Dim lColor As Long
Dim lDC As Long
lDC = GetWindowDC(0)
Call GetCursorPos(tPOS)
lColor = GetPixel(lDC, tPOS.x, tPOS.y)
Label2.BackColor = lColor
sTmp = Right$("000000" & Hex(lColor), 6)
Label1.Caption = "R:" & Right$(sTmp, 2) & " G:" & Mid$(sTmp, 3, 2) & " B:" & Left$(sTmp, 2)
Label5.Caption = Right$("000000" & (lColor), Cool
Form1.Caption = "Color picker" & " X : " & tPOS.x & " , Y : " & tPOS.y
End Sub
Embarassed Embarassed
กลับไปข้างบน
Rs232
บุคคลทั่วไป





ตอบตอบ: ศ. กย. 30, 2005 12:16 pm    ชื่อกระทู้: ... ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: ส. ตค. 01, 2005 9:53 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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



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

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



เข้าร่วมเมื่อ: 13 กย. 2005
ตอบ: 13

ตอบตอบ: ส. ตค. 01, 2005 4:20 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ขอบคุณมากครับ
_________________
Design by 323club
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
aha



เข้าร่วมเมื่อ: 02 ตค. 2005
ตอบ: 5

ตอบตอบ: อาทิตย์ ตค. 02, 2005 7:49 pm    ชื่อกระทู้: ช่วยเรื่องการเขียนควบคุม stepping motor ด้วยคะ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: อาทิตย์ ตค. 02, 2005 10:42 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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


ไม่ใช่เรื่องเล่นๆ เลยนะครับเนี่ย เพราะว่าการทำโปรแกรม control มักจะต้องทำตาม Hardware ไม่ใช่การทำ hardware ตาม software อย่างน้อยต้องรู้ concept คร่าว ๆ เช่น แนวทางของโปรเจคจะเป็นรูปแบบไหน,ต้องรู้ว่าการขับสเตปมอเตอร์ต้องทำอย่างไร,ต่อวงขับ(Driver circuit)ยังไง

ตัวอย่างวงจร

http://202.8.85.164/~adisak51/board04.html

เมื่อวงจร OK ก็ลอง simulate รันโดยไม่ใช้ software(ถ้ายังไม่ถนัด)เพื่อความชัวร์

เมื่อตัวเดียว OK แล้วก็ลองหลาย ๆ ตัว แน่นอนว่าวงจรก็ต้องแตกต่างออกไปต้องขยายพอร์ตเพิ่มขึ้น

จนทุกอย่างราบรื่นก็ค่อยไปถึงโปรแกรม ต้องเลือกว่าจะใช้โปรแกรมแบบไหน ความต้องการมีอะไรบ้าง เช่น MSC51 ASM ก็ต้องต่อวงจรของ MCU ได้

ตัวอย่างวงจร MCU

http://202.8.85.164/~adisak51/board05.html

ตัวอย่างโปรแกรม

http://202.8.85.164/~adisak51/lab/step.pdf

ถึงจะเขียนโปรแกรมเก่งแค่ไหนแต่ถ้าไม่เข้าใจวงจรก็จะทำให้ยุ่งยากมากขึ้น

ข้อมูลการเขียนโปรแกรม
MCU:http://www.adisak51.com/
VB:http://www.thaiio.com/Hardware-cgi/hardware.cgi?0031
กลับไปข้างบน
balloon.com



เข้าร่วมเมื่อ: 28 กย. 2005
ตอบ: 5

ตอบตอบ: จ. ตค. 03, 2005 11:58 pm    ชื่อกระทู้: ขอบคุณนะครับ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ขอบคุณพี่แมงเม่ามากนะครับ
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
azuki



เข้าร่วมเมื่อ: 24 กย. 2005
ตอบ: 3

ตอบตอบ: อ. ตค. 04, 2005 12:52 pm    ชื่อกระทู้: โปรเจคจบครับ ๆๆๆๆ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: อ. ตค. 04, 2005 4:00 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: อ. ตค. 04, 2005 6:38 pm    ชื่อกระทู้: เรื่องโปรแกรมจำลองกระบวนการ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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

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





ตอบตอบ: อ. ตค. 04, 2005 7:06 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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


ช่วงนี้งานค่อนข้างยุ่งครับเลยไม่มีเวลาทำให้ ลองเอา code multi chat ไปดัดแปลงดูนะครับ

http://www.geocities.com/ezy_math/multiwinsock.zip
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: อ. ตค. 04, 2005 7:22 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ส่ง 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



เข้าร่วมเมื่อ: 13 กย. 2005
ตอบ: 13

ตอบตอบ: พ. ตค. 05, 2005 10:28 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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

ลองดูนะครับ
_________________
Design by 323club
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
323club



เข้าร่วมเมื่อ: 13 กย. 2005
ตอบ: 13

ตอบตอบ: พ. ตค. 05, 2005 10:59 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

http://www.codeproject.com/vbscript/Stepper_Motor_Control.asp
_________________
Design by 323club
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
323club



เข้าร่วมเมื่อ: 13 กย. 2005
ตอบ: 13

ตอบตอบ: พ. ตค. 05, 2005 12:34 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

http://www.intel.com/intelpress/usb/examples/ZipFiles/steppermVB.htm
_________________
Design by 323club
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
putzaci



เข้าร่วมเมื่อ: 05 ตค. 2005
ตอบ: 5

ตอบตอบ: ศ. ตค. 07, 2005 2:42 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: ส. ตค. 08, 2005 10:29 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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

ทดสอบ

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

Embarassed Embarassed
กลับไปข้างบน
t1Mc
บุคคลทั่วไป





ตอบตอบ: อาทิตย์ ตค. 09, 2005 9:59 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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

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

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





ตอบตอบ: จ. ตค. 10, 2005 9:49 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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

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

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



เข้าร่วมเมื่อ: 02 ตค. 2005
ตอบ: 5

ตอบตอบ: อ. ตค. 11, 2005 12:26 am    ชื่อกระทู้: Re: ช่วยเรื่องการเขียนควบคุม stepping motor ด้วยคะ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

ขอเพิ่มนะคะ ต้องการติดต่อกับ parrel port ไม่ใช่ไปต่อกับ พวกไม่โครคอนโทรลเลอร์นะคะ ต้องการควบคุมจาก pc โดยตรงเลยนะคะ แต่ไม่รู้เกี่ยวกับวงจร เคยได้ยินมาว่าใช้ ULN2003 หรืออะไรนี่แหละ ช่วยเสริมให้หน่อยนะคะ
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: อ. ตค. 11, 2005 9:18 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: อ. ตค. 11, 2005 10:06 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

การควบคุมมอเตอร์ 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



เข้าร่วมเมื่อ: 02 ตค. 2005
ตอบ: 5

ตอบตอบ: อ. ตค. 11, 2005 1:04 pm    ชื่อกระทู้: งงคะ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: อ. ตค. 11, 2005 10:21 pm    ชื่อกระทู้: ช่วยหน่อยคราบ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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
บุคคลทั่วไป





ตอบตอบ: อ. ตค. 11, 2005 10:35 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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






ตอบตอบ: พ. ตค. 12, 2005 9:51 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ผมเองก็ไม่เคยทำพวก 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
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: พ. ตค. 12, 2005 10:56 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

เกม 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
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: พ. ตค. 12, 2005 5:24 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

Embarassed Embarassed
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: ศ. ตค. 14, 2005 5:30 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ถาม

ผมทำโปรเจค 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 Sad
กลับไปข้างบน
worapon



เข้าร่วมเมื่อ: 11 สค. 2005
ตอบ: 8

ตอบตอบ: ส. ตค. 15, 2005 12:52 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

เขียนโปรแกรมติดต่อรับสัญญาณจากกับโทรศัพท์
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



เข้าร่วมเมื่อ: 11 สค. 2005
ตอบ: 8

ตอบตอบ: ส. ตค. 15, 2005 12:53 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

อีกข้อครับ ต้องเป็น โมเด็มแบบ serial เท่านั้นหรอครับ คือผมมีแต่แบบ usb ครับ
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
นิ้ม
บุคคลทั่วไป





ตอบตอบ: อาทิตย์ ตค. 16, 2005 8:46 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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

กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: จ. ตค. 17, 2005 11:28 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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
กลับไปข้างบน
นิ้ม
บุคคลทั่วไป





ตอบตอบ: จ. ตค. 17, 2005 2:07 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

ขอบคุณคับ Very Happy
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: จ. ตค. 17, 2005 5:19 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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 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 Embarassed
กลับไปข้างบน
นิ้ม
บุคคลทั่วไป





ตอบตอบ: จ. ตค. 17, 2005 6:39 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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

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

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

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

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

ขอบคุณสำหรับคำตอบนะคับ
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: จ. ตค. 17, 2005 11:36 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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



เข้าร่วมเมื่อ: 02 ตค. 2005
ตอบ: 5

ตอบตอบ: อ. ตค. 18, 2005 12:42 pm    ชื่อกระทู้: รบกวนพี่แมงเม่าสอนวิธิใช้ vb ติดต่อฐานข้อมูล mysql หน่อยคะ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: อ. ตค. 18, 2005 1:36 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ไม่เคยใช้ 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



เข้าร่วมเมื่อ: 02 ตค. 2005
ตอบ: 5

ตอบตอบ: พ. ตค. 19, 2005 10:57 am    ชื่อกระทู้: ขอบคุณพี่แมงเม่ามากคะ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ขอบคุณพี่แมงเม่ามากเลยนะคะ
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
รัต



เข้าร่วมเมื่อ: 17 ตค. 2005
ตอบ: 8
ที่อยู่: 57 ม.1 ต.โขมง อ.ท่าใหม่ จ.จันทบุรี

ตอบตอบ: พ. ตค. 19, 2005 3:09 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: พ. ตค. 19, 2005 5:37 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: พ. ตค. 19, 2005 7:40 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

source code wave analyzer





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

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



เข้าร่วมเมื่อ: 17 ตค. 2005
ตอบ: 8
ที่อยู่: 57 ม.1 ต.โขมง อ.ท่าใหม่ จ.จันทบุรี

ตอบตอบ: พฤ. ตค. 20, 2005 11:24 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ขอคุณพี่มากเลยครับ ผมคงต้องปรึกษาพี่อีกเยอะเลยครับ Razz
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
shymk
บุคคลทั่วไป





ตอบตอบ: ศ. ตค. 21, 2005 12:04 am    ชื่อกระทู้: ต้องการนำภาพแบบ mpeg4 มาวิเคราะห์ทีละเฟรม ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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

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





ตอบตอบ: ศ. ตค. 21, 2005 11:07 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

Embarassed Embarassed
กลับไปข้างบน
GlobalSign
บุคคลทั่วไป





ตอบตอบ: ศ. ตค. 21, 2005 12:36 pm    ชื่อกระทู้: ขอเสนอเกี่ยวกับการวิเคราะห์ภาพ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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



เข้าร่วมเมื่อ: 12 กย. 2005
ตอบ: 4
ที่อยู่: 167 ถ.เพชรเกษม จ.พังงา

ตอบตอบ: ศ. ตค. 21, 2005 6:44 pm    ชื่อกระทู้: รบกวนด้วย ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: ศ. ตค. 21, 2005 9:32 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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


การทำ Timer แบบ Interval มหาศาลส่วนใหญ่ที่เป็นทางการก็จะใช้ User control เอามาเขียน property เอง เมื่อคอมไฟล์แล้วก็จะได้ไฟล์ ocx แต่พวกนี้เขาเอาไว้ขายกันครับ จุดประสงค์คือสะดวกและไม่ยุ่งยาก ถ้าจะส่งอาจารย์พวกนี้คงไม่เหมาะ ผมจะเขียนง่าย ๆ ให้แล้วกันครับ

Public SetMinute As Integer

Private Sub Form_Load()

Timer1.Interval = 60000 'กำหนด interval 1 นาที
SetMinute = 5 'กำหนด วนลูป 5 รอบ

End Sub

Private Sub Timer1_Timer()

SetMinute = SetMinute - 1
If SetMinute <= 0 Then
Timer1.Enabled = False
MsgBox "On Time" 'ครบ 5 นาที
End If

End Sub

Embarassed Embarassed
กลับไปข้างบน
sodium



เข้าร่วมเมื่อ: 21 สค. 2005
ตอบ: 3

ตอบตอบ: ศ. ตค. 21, 2005 10:39 pm    ชื่อกระทู้: ห้องVBส่วนตัวของแมงเม่า ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

Embarassed คือพี่แมงเม่าค่ะหนูต้องการส่งข้อมูลจาก 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
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: ส. ตค. 22, 2005 12:52 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ผมเองก็ไม่ได้ใช้ 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 ลองถามคนอื่น ๆ น่าจะดีกว่าครับ
กลับไปข้างบน
นิ้ม
บุคคลทั่วไป





ตอบตอบ: อาทิตย์ ตค. 23, 2005 12:13 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

ขอบคุณคับ Very Happy
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: จ. ตค. 24, 2005 6:58 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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


พื้นฐานเลยก็มีอยู่ 2 ตัวคือ Internet control และ Winsock control และก็จะมี control สำเร็จรูปที่โปรแกรมเมอร์ทำขาย ลองหาอินเตอร์เนตน่าจะมีให้ดาวน์โหลด
ผมลองใช้ Inet control และ upload/download ผ่าน thcity server ก็ OK ดีครับ



ผมใช้ XP theme controlกับ XP control เพื่อให้ดูสวย ดังนั้น code ที่ดาวน์โหลดไปจะถาม ocx 2 ตัวนี้ให้ skip ทิ้งไปเลย หน้าตาก็จะเป็น Theme ปกติของ VB

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

Embarassed Embarassed
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: พ. ตค. 26, 2005 1:42 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ช่วงนี้งานยุ่ง ๆ แต่ก็ยังดีที่เลื่อน 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
บุคคลทั่วไป





ตอบตอบ: พ. ตค. 26, 2005 10:54 pm    ชื่อกระทู้: จะเอาเฟรมแต่ละเฟรมของ mpeg4 มาได้อย่างไรคับ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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

พอมีทางทำได้บ้างไหม
กลับไปข้างบน
McCA1414
บุคคลทั่วไป





ตอบตอบ: พฤ. ตค. 27, 2005 8:49 pm    ชื่อกระทู้: รบกวนพี่ช่วยตอบด้วยนะครับ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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





ตอบตอบ: ศ. ตค. 28, 2005 1:08 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: ศ. ตค. 28, 2005 1:39 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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


ไม่รู้ว่าผมทำหายที่ไหนหาไม่เจอเลยครับ จะลองหาอีกที
กลับไปข้างบน
บุคคลทั่วไป






ตอบตอบ: ศ. ตค. 28, 2005 1:41 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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


Private Sub Form_Load()
inten = 25
Tolerance = 35
Tppx = Screen.TwipsPerPixelX
Tppy = Screen.TwipsPerPixelY
ReDim POn(640 / inten, 480 / inten)
ReDim P(640 / inten, 480 / inten)
Call start
End Sub
Sub start()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
SendMessage mCapHwnd, GET_FRAME, 0, 0 'รับภาพ
SendMessage mCapHwnd, Copy, 0, 0
Picture1.Picture = Clipboard.GetData
Clipboard.Clear
Ri = 0
Wo = 0
LastTime = GetTickCount
For i = 0 To 640 / inten - 1
For j = 0 To 480 / inten - 1
c = Picture1.Point(i * inten * Tppx, j * inten * Tppy)
R = c Mod 256
c2 = P(i, j)
R2 = c2 Mod 256
If Abs(R - R2) < Tolerance Then
Ri = Ri + 1
POn(i, j) = True
Else
Wo = Wo + 1
P(i, j) = Picture1.Point(i * inten * Tppx, j * inten * Tppy)
Picture1.PSet (i * inten * Tppx, j * inten * Tppy), vbRed
POn(i, j) = False
End If
Next j
Next i
End If
End Sub

Embarassed Embarassed
กลับไปข้างบน
McCA1414
บุคคลทั่วไป





ตอบตอบ: ศ. ตค. 28, 2005 1:48 pm    ชื่อกระทู้: รบกวนพี่แมงเม่าอีกหน่อยนะครับ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: ศ. ตค. 28, 2005 1:50 pm    ชื่อกระทู้: รบกวนต่อนะครับ อิอิ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: ศ. ตค. 28, 2005 3:18 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: ศ. ตค. 28, 2005 11:29 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

อยากให้ใครก็ได้ที่มีความรู้ช่วยดูโปรแกรมนี้หน่อย ว่าทำไมผมไม่สามารถส่งเสียงไปยังปลายทางได้
จะเขียนโปรแกรมตอบรับโทรศัพท์อัตโนมัติ แต่ตอนนี้ไม่สามารถส่งเสียงได้ ไม่ทราบว่าเขียนโปรแกรมผิดรึเปล่า
ช่วยแนะนำหน่อยครับ ต้องการใช้ด่วนครับ
--------------------------------------------------------------
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
บุคคลทั่วไป





ตอบตอบ: ส. ตค. 29, 2005 12:30 pm    ชื่อกระทู้: รบกวนด้วยนะครับ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: ส. ตค. 29, 2005 6:09 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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


ไม่จบแน่ แฮะๆ.....ล้อเล่น
บอกตรง ๆ ว่าการส่งภาพ(clipboard)โดยตรงนั้นไม่ง่ายเลยปกติก็จะส่งเป็นไฟล์(xx.jpg,xx.bmp)แล้วให้ Auto view บน picture box ของอีกฝั่งเมื่อภาพ(ไฟล์)ไปถึงแล้วโดยอาศัยการอ่านจาก directory ของโปรเจคหรือdirectory ที่กำหนด

พี่คิดว่าน้องเขียนโปรแกรมส่งไฟล์ระหว่าง client กับ server ได้แล้ว จะเสริมเรื่องการเอาภาพมาแสดงบน pixture box แล้วกัน



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

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

Embarassed Embarassed
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: ส. ตค. 29, 2005 6:16 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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


ไม่ Declare แล้วมันจะรู้จักได้ไงละครับ

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 capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long

Private mCapHwnd As Long

Private Const CONNECT As Long = 1034
Private Const DISCONNECT As Long = 1035
Private Const GET_FRAME As Long = 1084
Private Const COPY As Long = 1054

Embarassed Embarassed
กลับไปข้างบน
McCA1414
บุคคลทั่วไป





ตอบตอบ: ส. ตค. 29, 2005 7:16 pm    ชื่อกระทู้: ขอบคุณพี่แมงเม่ามากนะครับ แล้วผมจะลองพยายามดู นะครับ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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



เข้าร่วมเมื่อ: 17 ตค. 2005
ตอบ: 8
ที่อยู่: 57 ม.1 ต.โขมง อ.ท่าใหม่ จ.จันทบุรี

ตอบตอบ: ส. ตค. 29, 2005 9:20 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: อาทิตย์ ตค. 30, 2005 2:48 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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


Record เสียงจาก sound card ก็ไม่ยากนิครับ

Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" _
(ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
Private Declare Function mciGetErrorString Lib "winmm.dll" _
Alias "mciGetErrorStringA" _
(ByVal dwError As Long, _
ByVal lpstrBuffer As String, _
ByVal uLength As Long) As Long

ลองเอาไป search หาใน google น่าจะมี code อยู่เยอะ
กลับไปข้างบน
เด็กตาดำๆ
บุคคลทั่วไป





ตอบตอบ: อาทิตย์ ตค. 30, 2005 4:01 pm    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

ด้วยความนับถือครับ พี่แมงเม่า
กลับไปข้างบน
รัต



เข้าร่วมเมื่อ: 17 ตค. 2005
ตอบ: 8
ที่อยู่: 57 ม.1 ต.โขมง อ.ท่าใหม่ จ.จันทบุรี

ตอบตอบ: จ. ตค. 31, 2005 12:45 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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





ตอบตอบ: จ. ตค. 31, 2005 1:37 am    ชื่อกระทู้: ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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


ลองดู
------Module------
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Declare Function sndStopSound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszNull As Long, ByVal uFlags As Long) As Long

Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10
Public Const SND_NOWAIT = &H2000
Public Const SND_FILENAME = &H20000
Public Const SND_RESOURCE = &H40004

----------Form----------------

Private Sub cmdBrowse_Click()
On Error GoTo Err
cdOpen.Filter = "Wav Files (*.wav)|*.wav"
cdOpen.ShowOpen
txtSound.Text = cdOpen.FileName
txtNumber.Text = ""
txtNumber.SetFocus
Err:
Exit Sub
End Sub

--------------------------
Private Sub cmdDial_Click()
On Error Resume Next
Dim cBuffer$
Dim WaitTime As Single, StartTime As Single, FinalTime As Single
WaitTime = 30
If cmdDial.Caption = "Dial" Then
cmdDial.Caption = "Hang up"
With MSComm1
.CommPort = 1
.Settings = "9600,N,8,1"
.InputLen = 0
.PortOpen = True
.Output = "ATDT" & txtNumber.Text & Chr$(13)
StartTime = Timer
cmdPlay.Enabled = True
Do
Me.Caption = Str(Int(Timer - StartTime))
DoEvents
Loop Until cmdDial.Caption = "Dial"
Me.Caption = "Dialer"
End With
Else
cmdDial.Caption = "Dial"
MSComm1.PortOpen = False
cmdPlay.Enabled = False
End If
End Sub

------------------------------
Private Sub cSoundPlay(cpath As Variant)
Variable = sndPlaySound(cpath, SND_ASYNC)
End Sub

-----------------------------
Private Sub cSoundStop()
Variable = sndStopSound(0, SND_ASYNC)
End Sub

----------------------------
Private Sub cmdPlay_Click()
On Error Resume Next
If cmdPlay.Caption = "Play Sound" Then
cSoundPlay txtSound.Text
cmdPlay.Caption = "Stop Sound"
Else
cSoundStop
cmdPlay.Caption = "Play Sound"
End If
End Sub
กลับไปข้างบน

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

ปรับเวลา GMT + 7 ชั่วโมง
ดูกระทู้นี้สำหรับการตอบ
 
ลบกระทู้นี้ ย้ายกระทู้นี้ ปิดใช้งานกระทู้นี้ แบ่งกระทู้นี้ 
ไปยัง:  
คุณ สามารถ ตั้งกระทู้ใหม่ในกระดานนี้
คุณ สามารถ ตอบกระทู้ในกระดานนี้
คุณ สามารถ แก้ไขการตอบกระทู้ของคุณในกระดานนี้
คุณ สามารถ ลบการตอบกระทู้ของคุณในกระดานนี้
คุณ สามารถ ลงคะแนนในแบบสำรวจในกระดานนี้
คุณ สามารถ ตรวจทานในกระดานนี้

ไปที่ส่วนของการควบคุมระบบ


Us Web Relation :  Logic Ladder  |   Controller Motion  |   Cylinder Hydraulic  |   Fisher Valve  |   RFID Implementation  |   Smart Card Link  |   Electric Rise  |   Fabrication PCB  |   Motor Stepper  |   Sensor Motion  |   Robot Project  |   Acquisition Data  | 
Powered by phpBB 2.0.6 © 2001, 2002 phpBB Group