v www.thaiio.com :: ดูกระทู้ - ห้องVBส่วนตัวของแมงเม่า
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
แมงเม่า
บุคคลทั่วไป





ตอบตอบ: อาทิตย์ กย. 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 ของพี่ได้อ่า คือผมรันแล้วมันไม่มีภาพเลย มีแต่ฟอร์มสีเทาๆ
กลับไปข้างบน
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
แสดงการตอบก่อนนี้:   

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

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

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


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