 |
| |
ช่วยผมด้วยครับ VB6 ครับ ... ตอนนี้ ผมมีตัวโปรแกรมนี้ครับ ซึ่งเป็นโปรแกรม ตรวจจับการเคลื่อนไหวโดยเปรียบเทียบภาพ |
| |
 |
|
|
 |
 |
|
ตอนนี้ ผมมีตัวโปรแกรมนี้ครับ
ซึ่งเป็นโปรแกรม ตรวจจับการเคลื่อนไหวโดยเปรียบเทียบภาพ ผมต้องการพัฒนามันให้อยู่ในขอบเขตโปรเจคนะครับ
โปรเจคผมจะ ให้ตรวจจับแล้วเซฟภาพ อัพโหลดขึ้นไปฝากไว้ในเซิฟเวอร์ หรือเว็บ แล้วก็ส่ง sms ไปแจ้งเตือน
ผมติดปัญหาอยู่ 3 อย่างนะครับ
1. ตัวโปรแกรมจะเซฟภาพตลอด ที่มีการเคลื่อนไหว ผมอยากให้มันเซฟทุก ๆครึ่งนาทีได้ไหมครับ ต้องเขียนยังไงครับ เพราะงานตัวนี้ จะได้ตรวจจับการบุกรุกของขโมยนะครับ พี่ๆคิดว่า ครึ่งนาทีต่อการบันทึกมันนานไปไหม
2.ผมอยากให้ภาพที่เซฟไปส่งไปยังเซิฟเวอร์ ต้องเขียนยังไงหรอครับ เพราะผมจะเข้าไปดูภาพผ่านอินเทอร์เน็ตนะครับ หรือว่าจำลองเซิฟที่เครื่องผมเองง่ายกว่าครับ
3.ผมจะเขียนยังไงให้ ต่อกับอุปกรณ์โมดุลGSM ภายนอกให้ส่ง sms ได้บ้างครับ
รบกวนด้วยนะครับพี่ ๆ
----------------------------------------------------------------------------------------------------------
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 Sub Command1_Click()
Picture2.Picture = Picture1.Picture
End Sub
Private Sub Command2_Click()
STARTCAM
Load Progress
Progress.Show
Progress.start
Unload Progress
Command2.Enabled = False
Command3.Enabled = True
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Command3_Click()
STOPCAM
ProgressBar1.Value = 0
Command3.Enabled = False
Command2.Enabled = True
Picture1.Picture = LoadPicture("nosignal.bmp")
Picture2.Picture = LoadPicture("nosignal.bmp")
Label1.Caption = "0%"
End Sub
Private Sub Command4_Click()
List1.Clear
End Sub
Private Sub Form_Load()
Picture1.Width = 320 * Screen.TwipsPerPixelX
Picture1.Height = 240 * Screen.TwipsPerPixelY
Picture2.Width = 320 * Screen.TwipsPerPixelX
Picture2.Height = 240 * Screen.TwipsPerPixelY
Picture1.Picture = LoadPicture("nosignal.bmp")
Picture2.Picture = LoadPicture("nosignal.bmp")
End Sub
Private Function Different(ByVal a As Long, ByVal b As Long) As Boolean
'Checks different of two colors
ar = a Mod 256: a = a \ 256
ag = a Mod 256: a = a \ 256
ab = a Mod 256: a = a \ 256
br = b Mod 256: b = b \ 256
bg = b Mod 256: b = b \ 256
bb = b Mod 256: b = b \ 256
sense = 255 - Slider1.Value * 5
Different = (Sqr((ar - br) * (ar - br) + (ag - bg) * (ag - bg) + (ab - bb) * (ab - bb)) > sense) 'formula for counting different
End Function
Private Sub Form_Unload(Cancel As Integer)
STOPCAM
SaveSetting "MotionDetect", "Param", "s1", Str(Slider1.Value)
SaveSetting "MotionDetect", "Param", "s2", Str(Slider2.Value)
End Sub
Private Sub Timer1_Timer()
'getting picture from camera
SendMessage mCapHwnd, GET_FRAME, 0, 0
SendMessage mCapHwnd, COPY, 0, 0
Picture1.Picture = Clipboard.GetData: Clipboard.Clear
stepp = 3 'Grid dense
Dim qan, qann As Long
qan = 0
qann = 0
For i = 1 To Picture1.Width / Screen.TwipsPerPixelX Step stepp
For j = 1 To Picture1.Height / Screen.TwipsPerPixelY Step stepp
If Different(Picture1.Point(i * stepp * Screen.TwipsPerPixelX, j * stepp * Screen.TwipsPerPixelY), Picture2.Point(Screen.TwipsPerPixelX * i * stepp, j * stepp * Screen.TwipsPerPixelY)) Then
Picture1.Circle (i * stepp * Screen.TwipsPerPixelX, Screen.TwipsPerPixelY * j * stepp), 1, RGB(255, 0, 0)
qann = qann + 1
End If
Next
Next
Label1.Caption = Int(qann * 100 / 910) & "%" 'Counting motion in pracentes
ProgressBar1.Value = Int(qann * 100 / 910)
End Sub
Sub STOPCAM()
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
Timer1.Enabled = False
Timer2.Enabled = False
End Sub
Sub STARTCAM()
'Getting handle of camera window
mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, Me.hwnd, 0)
DoEvents
SendMessage mCapHwnd, CONNECT, 0, 0 'connecting to camera
SendMessage mCapHwnd, WM_CAP_DLG_VIDEOFORMAT, 0, 0 'Calling video format dialog
DoEvents
Slider1.Value = GetSetting("MotionDetect", "Param", "s1", "0")
Slider2.Value = GetSetting("MotionDetect", "Param", "s2", "0")
End Sub
Private Sub Timer2_Timer()
If ProgressBar1.Value > 100 - Slider2.Value * 2 Then
Beep
SavePicture Picture1.Picture, App.Path + "\Detected\" + Format(Date, "ddmmyyyy") + "__" + Format(Time, "hhmmss") + ".bmp"
List1.AddItem "Saved in " + Str(Time) + " " + Str(ProgressBar1.Value) + "% --> " + Format(Date, "ddmmyyyy") + "__" + Format(Time, "hhmmss") + ".bmp"
End If
End Sub
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
2010-01-18 23:43:44 |
By :
สนน์ |
View :
2291 |
Reply :
8 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ดูเหมือนโปรเจค ป.ตรี เลยทำไมใช้ vb6 ซะล่ะ ใช้ vb.net ง่ายกว่ามั้ง
อันนี้ขอบอกแบบใช้ vb.net นะ
1. ตัวโปรแกรมจะเซฟภาพตลอด ที่มีการเคลื่อนไหว ผมอยากให้มันเซฟทุก ๆครึ่งนาทีได้ไหมครับ ต้องเขียนยังไงครับ เพราะงานตัวนี้ จะได้ตรวจจับการบุกรุกของขโมยนะครับ พี่ๆคิดว่า ครึ่งนาทีต่อการบันทึกมันนานไปไหม
- ใช้ thread เลยครับ
2.ผมอยากให้ภาพที่เซฟไปส่งไปยังเซิฟเวอร์ ต้องเขียนยังไงหรอครับ เพราะผมจะเข้าไปดูภาพผ่านอินเทอร์เน็ตนะครับ หรือว่าจำลองเซิฟที่เครื่องผมเองง่ายกว่าครับ
- share full folder ที่ server แล้วให้ตัว client ที่ต่อกล้องสามารถเข้าไปเขียนข้อมูลใน server ได้ และ server ให้เป็น web server ด้วย
3.ผมจะเขียนยังไงให้ ต่อกับอุปกรณ์โมดุลGSM ภายนอกให้ส่ง sms ได้บ้างครับ
- .net มี system.io ที่ใช้สำหรับเชื่อมต่ออุปกรณ์ภายนอก โมดุล GSM ต่อกับ port อะไรล่ะ แต่ถ้าแค่ส่ง sms ใช้พวกส่ง sms ผ่านเครื่องคอมดีกว่าไหม ลองปรึกษาพวก smart sms (tot) ว่าจะทำอย่างให้สามารถใช้ web ส่ง sms ได้ (อันนี้คงต้องใช้ระบบของผู้ใช้บริการ และคงเสียเงินด้วย) ถามเขาว่ามี web service ให้ใช้ไหม ถ้ามีก็ง่ายเลย 
|
| |
|
|
| |
| Date :
2010-01-19 08:58:00 |
By :
tungman |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
+ 1 ให้คุณเสก ขอบคุณครับ
|
| |
|
|
| |
| Date :
2010-01-19 09:42:49 |
By :
tungman |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ใช่ครับ เป้นโปรเจค ป.ตรีนะครับ
พอดีผมไม่เคยใช้ วีบีมาก่อน เลยเริ่มจากพวก วีบี6 ก่อนเลย ยาวมาถึงตอนนี้
ในส่วนของโมดูลsms ผมเขียนคุมได้แล้วครับ เทสแล้วใช้งานได้ดี
ตอนนี้เลยสับสนเรื่องนำขึ้นเว็บไซด์อยู่
ตอนนี้ผมมองแนวทางไว้เป็นแบบนี้ครับ
ใช้ PHP เขียน โดยติดต่อกับ ดาต้าเบส
ผมอยากเขียนให้ VB เซฟช ื่อของรูปที่เซฟไว้ในไฟล์ txt
แล้วผมจะเรียกไฟล์ผ่านดาต้าเบส มาโชว์ในเว็บเพจนะครับ
ผมต้องเขียนยังไงบ้างหรอครับ
|
| |
|
|
| |
| Date :
2010-01-19 19:38:45 |
By :
สนน์ |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
แล้วทำไมไม่เขียน วีบี เซฟชื่อลง ดาต้าเบสเลย แล้วใช้ php แสดงรูปตามที่เก็บไว้
|
| |
|
|
| |
| Date :
2010-01-19 19:44:14 |
By :
Sek-Artdrinker |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
คือ ปัญหามันเกิดที่ว่า เครื่องจากภายนอก จะเข้ามาดูผ่านอินเทอร์เน็ตยังไงหรอครับ
|
| |
|
|
| |
| Date :
2010-01-19 20:15:50 |
By :
สนน์ |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
คุณ Guest ค่ะ ไม่ทราบว่าทำได้หรือยังค่ะ
พอดีเรามีปัญหาคล้ายๆๆนาย ไงช่วยติดต่อกับที่เมล [email protected] ขอบคุณค่ะ
|
| |
|
|
| |
| Date :
2010-06-19 22:32:56 |
By :
์ีMylove |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
gเด็กสมัยนี้จับต้นชนปลายยังไม่ถูก มั่วไปได้เฉย เทพกันจริงแล้วมันจะจบเหรอนั้น
|
| |
|
|
| |
| Date :
2010-11-10 14:34:12 |
By :
ext |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
