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
กลับไปข้างบน
ถัง



เข้าร่วมเมื่อ: 02 มีค. 2006
ตอบ: 3
ที่อยู่: 404 อ.พหลโยธินเซ็นเตอร์ ชั้น7 ถ.พหลโยธิน สามเสนใน พญาไท กทม. 10400

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

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





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

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


ถามยากๆ ก็ตอบไม่ได้นะ ลองเข้าไปดูลิ้งค์นี้ดู

Intro:

http://www.gweep.net/~rocko/Moment/paper.html

Theory:

http://www.gweep.net/~rocko/Moment/node2.html
กลับไปข้างบน
kipo



เข้าร่วมเมื่อ: 04 มิย. 2006
ตอบ: 1

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

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





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

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

Source code คาราโอเกะเล่นไฟล์ *.kar ผมลองดัดแปลงให้เล่น *.mid ก็ OK เสียอย่างเดียวคอมเม้นเป็นภาษาBrazilian Cool Cool

http://www.vbcode.com/asp/showzip.asp?ZipFile=http%3A%2F%2Fwww%2Evbcode%2Ecom%2Fcode%2FKaraoke%2Ezip&theID=3294
กลับไปข้างบน
ลูกแก้ว
บุคคลทั่วไป





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

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

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





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

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

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


จริง ๆ แล้วมันก็มีชุด kit นะเรียกว่า level sensor ลองถามร้านอิเล็กทรอนิกส์น่าจะมีขาย แต่อย่างไรซะอยากให้ทดลองแบบนี้หน่อย จากสมการ

pure water the resistivity r = 2.5 x 10^5 ohm/cm

ดังนั้นถ้าใช้ probe วัดที่ระดับปริ่มน้ำกับระดับที่ค่าความต้านทานของน้ำอ่านได้ 900k ก็จะได้ระดับน้ำลึก 45 cm ลองดูนะ

นอกจากนี้ก็มีวิธีบ้าน ๆ ที่ผมคิดว่าน่าจะใช้ได้เช่น
1. วัดระดับ voltage ของ probe ในน้ำและ bias resistor แล้วใช้ comparator เป็นเกณฑ์วัด
2. ใช้เงา อันนี้ประหลาดหน่อย โดยใช้โฟมวางบนระดับน้ำแล้วเอาเอา LDR เป็นตัว detector โดย LDR แต่ละตัวก็จะเป็นตัวแทนของระดับน้ำ

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






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

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





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

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





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

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

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

ขอบคุณล้วงหน้าครับ
กลับไปข้างบน
บุคคลทั่วไป






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

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






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

ทำไมใช้ Speech recognition engine ไม่ค่อย work เลยอะครับ
กลับไปข้างบน
ลูกแก้ว
บุคคลทั่วไป





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

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

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






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

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





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

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





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

คำพูด:
Update Email และ MSN ครับ


journey_buzz@hotmail.com
กลับไปข้างบน
เด็กใหม่
บุคคลทั่วไป





ตอบตอบ: พ. มิย. 21, 2006 6:56 pm    ชื่อกระทู้: มีปัญหาเกี่ยวกับ Line Printer ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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





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

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





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

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

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

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

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

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

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

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

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

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

Private Sub Form_Unload(Cancel As Integer)
If cmdStop.Enabled Then
ClosePreviewWindow
End If
End Sub
กลับไปข้างบน
dos_exe



เข้าร่วมเมื่อ: 01 กค. 2006
ตอบ: 2
ที่อยู่: uikikik

ตอบตอบ: ส. กค. 01, 2006 1:43 am    ชื่อกระทู้: ขอ code VB6 ที่ end processes ที่เราต้องการหน่อยครับ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ขอ code ครับ Crying or Very sad
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ AIM Yahoo MSN
iceman1234
บุคคลทั่วไป





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

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





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

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





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

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


บทความการใช้ VDO OCX ผม post ใน wara.com

http://www.wara.com/modules.php?name=News&file=article&sid=426
กลับไปข้างบน
Keng_Keta



เข้าร่วมเมื่อ: 07 กค. 2006
ตอบ: 3

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

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





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

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

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


Panel View



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

กลับไปข้างบน
ขอความช่วยเหลือ
บุคคลทั่วไป





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

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





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

It's just a simple control, You can learn from its methods and properties.
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

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


อันนี้น่าจะใช้ได้ ลองเปลี่ยน date and time properties ของคอม มันก็จะเปลี่ยนตาม
Private Sub Form_Activate()
Calendar1.Today
End Sub
กลับไปข้างบน
แมงม่า
บุคคลทั่วไป





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

Code of the day: ทำ shareware อย่างง่าย

เอาเรื่อง savesetting และ getsetting ที่ผมเคย post ไว้เก็บ password ของ share ware ที่เราทำขึ้นมา

จุดประสงค์

1. หากไม่มีการลงทะเบียน(register) เมื่อเปิดโปรแกรมจะมี popup แสดงเตือน
2. ถ้ามีการลงทะเบียนถูกต้อง การเข้าโปรแกรมครั้งต่อ ๆ ไปจะไม่มี popup เตือนและสามารถเข้า option อื่น ๆ ได้

หลักการ
1. บันทึก password ใน registry
2. เปรียบเทียบทุกครั้งที่มีการ load โปรแกรม

Dim password 'ตัวแปลเก็บ password

Private Sub Form_Load()
Call loadpassword 'โหลด password จาก registry
If password = "1234" Then 'ตรวจสอบ password ว่าใช่ 1234 หรือไม่
nmuregister.Enabled = False 'ถ้าใช่ให้ disable ปุ่ม register เพื่อไม่ต้องลงซ้ำอีกต่อไป
Else
MsgBox "You are avaiable on evaluation mode", vbInformation, "Unregistered" 'ถ้าไม่ใช่ให้แสดง popup เตือน
End If
End Sub

Private Sub nmuregister_Click() 'ปุ่มเมนูสำหรับ Register
Dim resp
resp = InputBox("Pls enter registration code", "Register", "")
password = resp
If resp = "1234" Then
MsgBox "Thank you for registered", vbInformation, "Registerd"
Else
MsgBox "In valid register code", vbInformation, "Register fail"
End If
Call setpassword 'บันทึก password
End Sub
Sub setpassword()
SaveSetting "VB", "password", "Text", password
End Sub
Sub loadpassword()
password = GetSetting("VB", "password", "Text", password)
End Sub

Laughing
กลับไปข้างบน
หมูอาร์ม
บุคคลทั่วไป





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

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





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

ลืมเมล์คับ oxjo@hotmail.com ขอบคุณอีกครั้งนะคับ
กลับไปข้างบน
แมงม่า
บุคคลทั่วไป





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

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


ผม post ใน wara.com อีก 2-3 วันเวปมาสเตอร์คง update ครับ
กลับไปข้างบน
หมูอาร์ม
บุคคลทั่วไป





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

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





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

ความสามารถอีกอย่างหนึ่งของ Agilent VEE คือการใช้ ActiveXAutomation ติดต่อกับ Labview จากรูปเป็นการดึงไฟล์ตัวอย่างของ labview และ control ผ่าน VEE

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






ตอบตอบ: จ. กค. 31, 2006 10:41 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
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

Code of the day: ตั้งเวลา zip ไฟล์แบบง่ายสุด ๆ



Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub WinZipSub(ByVal source As String, ByVal target As String, ByVal zip_it As Boolean)
Const ZIP_EXE As String = """C:\Program Files\WinZip\winzip32"""
If zip_it = True Then
' Zip ไฟล์จาก source
Shell ZIP_EXE & " -a " & target & " " & source, vbHide
End If
End Sub

Sub WinZip()
Dim next_file As String
Dim target As String
Dim source As String
' วนลูปตรวจไฟล์

next_file = Dir(m_AppPath & "*.*", vbNormal)
Do While next_file <> ""
source = Text1.Text 'กำหนด source path
target = Text2.Text & "\Project.zip" 'ตั้งชื่อ Project.zip
WinZipSub source, target, True
next_file = Dir
Loop

End Sub

Private Sub Timer1_Timer()
Text4.Text = Time
If Text3.Text = Text4.Text Then WinZip 'ตรวจสอบเวลา
End Sub
กลับไปข้างบน
mo jung
บุคคลทั่วไป





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

พี่ค่ะ คือว่าหนูอยาก ใช้vbทำงานร่วมกับkeyboad กับ port ขนาน ค่ะ
ex นะค่ะ ถ้าหนูกดปุ่ม a,w,d,s ก็จะส่ง output ออกที่ port ขนาน อาจจะเป็น
H01,H02,H04,H08 ช่วยสอนหน่อยนะค่ะ ขอบคุณค่ะ
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

คำพูด:
พี่ค่ะ คือว่าหนูอยาก ใช้vbทำงานร่วมกับkeyboad กับ port ขนาน ค่ะ
ex นะค่ะ ถ้าหนูกดปุ่ม a,w,d,s ก็จะส่ง output ออกที่ port ขนาน อาจจะเป็น
H01,H02,H04,H08 ช่วยสอนหน่อยนะค่ะ ขอบคุณค่ะ


ใช้ Get Keystate สำหรับการตรวจค่าการกดคีย์บอร์ด มีข้อดีคือถึงแม้ไม่ active โปรเจคก็สามารถตรวจการกดคีย์ได้

'สร้างโมดูล
Option Explicit
Public Declare Function Inp Lib "DllPort.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "DllPort.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
Public PortAddress As Integer
Private Keystate As Long
Public Const VK_A = &H41
Public Const VK_D = &H44
Public Const VK_S = &H53
Public Const VK_W = &H57

'ฟอร์ม

Option Explicit
Private Sub Form_Load()
PortAddress = &H378
Out PortAddress, &H0
End Sub

Private Sub CmdStart_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
CheckKeys
End Sub

Sub CheckKeys()
Select Case Keystate
Case GetKeyState(VK_A)
Out PortAddress, &H1
Case GetKeyState(VK_D)
Out PortAddress, &H2
Case GetKeyState(VK_S)
Out PortAddress, &H4
Case GetKeyState(VK_W)
Out PortAddress, &H8
End Select
End Sub
กลับไปข้างบน
casanova
บุคคลทั่วไป





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

พี่ครับช่วยผมด้วยครับ คือว่าคอมผมหา พอท เครื่องพิมไม่เจออ่ะครับ(พอท ขนานอ่ะครับ)
ผมเข้าไปดูในsystemแล้วมีแต่ พอท com1 ครับไม่เห็นมี พอท lpt1 เลยครับ
ทั้งที่หลังเครื่องผมก็มี พอท 25DB pin อยู่อ่ะครับ ไม่ทราบว่ามีวิธีเซท พอท หรือทำ
ให้พอท ออกมาได้ไหมครับ ผมกลัวว่าเมนบอทมันเจ๋งหรือปล่าวครับ
กลับไปข้างบน
iceman
บุคคลทั่วไป





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

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





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

เวลาเขียนโปรแกรมใน VB6 แล้ว ผมจะนำค่าตัวเลขใน textbox ส่งให้ Micro PIC ทาง serial port(RS232) เช่น ใน textbox = 99 จะเอาค่าตัวเลข 99 ส่งให้ Micro PIC ยังไงครับ
แล้วไมโครจะรับเป็นเลขอะไร ใช่ 63 รึเปล่า (99 = &H63)
Embarassed Embarassed
กลับไปข้างบน
บุคคลทั่วไป






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

24 Aug, The anniversary of this topic.
กลับไปข้างบน
nani



เข้าร่วมเมื่อ: 21 พย. 2005
ตอบ: 12

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

อยากทราบโค้ดสำหรับเรียกโปรแกรมให้มาขึ้นที่หน้าเวบเพจน่ะค่ะ

เวบที่ใช้เป็น asp โปรแกรมเขียนด้วย vb6 ค่ะ

เป็นโปรแกรมสำหรับดูภาพเคลื่อนไหวจากกล้องเวบแคม

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





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

พี่คับ ผมมีเรื่องจะรบกวนหน่อยอ่ะคับ
พอจะมีวิธีให้ form ใน vb แสดง scoll bar เวลาหน้าจอมันขยายได้ไม่เต็มจออ่ะคับ

ผมลองไปค้นในเนท เค้าให้เอา control ต่างๆ ไปใส่ใน picture box แต่ผมอ่าน code ไม่ค่อยเข้าใจอ่ะคับ พอจะมีวิธีอื่นที่ง่ายกว่านี้ไหมคับ ขอบคุณมากคับ

ปล.อย่างใน java มันจะมี scollbar ให้ add ได้เลย แต่ใน vb มันก็มี scollbar แต่มันไม่ได้เอาไว้ใช้เลื่อนขึ้น-ลงสำหรับใน form
กลับไปข้างบน
Mr.CrAzy



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

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

มี code ของโปรแกรมที่ รันกับเกมมั้ยครับ
ที่แบบว่า รันก่อนเปิดเกม พอเปิดเกมเข้ามา จามีหน้า debug ซึ่งบอกว่า ตอนนี้ในเกมเรากำลังจาทำอาไรอยู่ ให้เราสามารถสั่งคำสั่งผ่านในเกมได้ด้วยอะครับ
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
Mr.CrAzy



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

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

หรือไม่ก็ code สำหรับ ทำ trainer ของเกมก็ได้ครับ อยากทำเป็นอะคับ
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
voyager



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

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



เห็นคำถามเรื่อง game emulator ก็เลยนึกขึ้นได้สมัยเด็ก ๆ เคยเล่นเกม famicom เช่น contra,mario,Adventure Island,มอเตอร์ใซต์เป็ดใครอยากดาวน์โหลด emulator และ rom เก่า ๆ เข้าไปที่ http://www.webroon.com/~emulism/emulator/mainemulator.html

ส่วนโค๊ด VB ก็มีอันนึงลองเข้าไป DL ดูครับแต่ไม่รู้ว่าจะใช้ได้รึเปล่า

http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=48588&lngWId=1
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
tikky



เข้าร่วมเมื่อ: 01 กย. 2006
ตอบ: 11

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

ทำโปรเจ็คเกี่ยวกับ voice/video chat ครับ ผมอยากจะได้แบบว่า Server ส่ง เสียงไปให้ client แล้ว client ก็ส่งกลับมาได้ด้วย แบบ fullduplex น่ะครับ ไม่ใช่ผลัดกันส่งแบบวิทยุนะครับ งมมาหลายวันแล้วครับ please....
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
abella



เข้าร่วมเมื่อ: 03 กย. 2006
ตอบ: 12

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

คำพูด:
พี่คะมีใครพอจะรู้วิธีเขียน VB6.0 ติดต่อกับ LAN บ้างไหมคะ คือมันใช้คำสั่งอะไรหรอคะ กำลังทำโปรเจคจบอยู่อ่ะค่ะ รบกวนด้วยนะคะ

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



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

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

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



เข้าร่วมเมื่อ: 01 กย. 2006
ตอบ: 11

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

ไม่ทราบว่ามีโมดูลหรือ API อะไรที่ใช้สแกนรีจิสตรี้ในเครื่องไหมครับ(ซึ่งสามารถเก็ท type ได้วยนะครับ) แบบที่ windows เอามาทำเป็น regedit น่ะครับ
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
abella



เข้าร่วมเมื่อ: 03 กย. 2006
ตอบ: 12

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

ขอบคุณนะคะ ขอรบกวนอีกอย่างค่ะ คือ พี่ๆพอจะมี ตัวอย่างโปรแกรมดูแลร้านอาหาร ที่เขียนจาก VB ไหมคะ จะเอามากเป็นตัวอย่างโปรเจคอ่ะค่ะ รบกวน ด้วยนะคะ
Embarassed Question
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
voyager



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

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

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


ทำโปรเจคต้องทำด้วยตัวเองนะครับน้อง ถ้าคิดไม่ออกก็ลองเป็นขั้นตอนแบนี้
1. โฟล์ว,ออกแบบ ==> ถ้าไม่รู้จะว่าจะเริ่มต้นยังไงก็เอาโปรแกรมคนอื่นมาดูก่อน(copy layout) http://www.nanosoft.co.th/cafescr.htm

2. เมื่อได้คร่าว ๆ แล้วก็มาออกแบบ database โดยเริ่มจากพื้นฐานเลย ลิ้งนี้เป็นโค๊ด DB ของ inforpress ที่ถือว่าดีเยี่ยมเลย http://www.infopress2000.com/download/dbvb6_v2.zip

โปรเจคนักศึกษาประมาณนี้น่าจะได้ครับ
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
tikky



เข้าร่วมเมื่อ: 01 กย. 2006
ตอบ: 11

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

แง...voice/video chat ไม่มีใครตอบเลยอ่ะ...
ไม่ทราบว่าถ้าผมทำตามขั้นตอนนี้ เสียงที่ส่งไปจะฟังรู้เรื่องไหมครับ
* กระบวนการทั้งหมดทำในช่วง 1 sec.
1. record sound ด้วย mciSendString มาเก็บไว้ใน memory
2. save เป็นไฟล์ wav
3. convert to mp3
4. send to client

ส่วนภาค client ก็ทำเช่นเดียวกัน แต่ตรง ฝั่งรับดาต้า ก็ เล่นไฟล์ mp3 ที่ส่งมา
โดยใช้ mciSendString เล่นไฟล์

พอจะได้ไหมครับ หรือใครมีข้อเสนอแนะอื่นบ้างครับ
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
abella



เข้าร่วมเมื่อ: 03 กย. 2006
ตอบ: 12

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

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



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

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

คำพูด:
แง...voice/video chat ไม่มีใครตอบเลยอ่ะ...


ใช่ครับปกติก็จะทำกันแบบนี้แหละ ผมทำโปรแกรมส่ง Vedio ผ่านเครื่อข่าย LAN ก็ใช้หลักการนี้คือส่งเป็น picture เมื่อแสดงเสร็จก็ให้ kill ไฟล์ทิ้ง

แต่ยังมีอีกวิธีที่น่าจะเวอร์ค(แต่ยังไม่ได้ลองนะ)โดยใช้หลักการเหมือนการ upload คือให้ตัว server บันทึกไฟล์ที่ local แต่ client เข้าไปเล่นไฟล์ที่ server แทน เช่น

WindowsMediaPlayer1.URL = "http://" & 194.10.10.154 & ":" & 8000

ให้ control Window Media ไปเล่นไฟล์ที่กำหนดที่เครื่อง server(194.10.10.154) ผ่านพอร์ต 8000
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
tikky



เข้าร่วมเมื่อ: 01 กย. 2006
ตอบ: 11

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

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



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

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

กำลังจะทำเวปครับลองเข้าไปดู draft คร่าว ๆ ได้ที่ลิงค์ครับ

http://vee.thaisociety.org/index.htm

ขอบคุณ yes hosting ที่เอื้อเฟื้อเนื้อที่ครับ ใครที่ทำเวปอยากหา host ผมแนะนำให้ใช้ Yes hoting ครับ เค้ามีลูกค้าที่มีชื่อเสียงหลายเจ้า เช่น



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



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

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

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

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



เข้าร่วมเมื่อ: 21 พย. 2005
ตอบ: 12

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

หนูไปปรึกษาอาจารย์มาเรื่องเอาโปรแกรมขึ้นหน้าเวบน่ะค่ะ

อาจารย์บอกว่าให้แปลงจากวีบีเป็น activeX

แปลงได้แล้ว

แต่ทีนี้จะดึง activeX ขึ้นหน้าเวบต้องทำยังไงหรอคะพี่

เห็นอาจารย์เค้าอธิบายคร่าวๆว่า

ให้เอา embeded code ของ activeX ไปแปะที่หน้าเวบที่ต้องการใช้

เข้าใจในระดับหนึ่งแต่มันทำไม่ได้นี่จิ่

รบกวนตอบด้วยนะคะ จะสอบโปรเจคจบวันศุกร์นี้แว้ว

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



เข้าร่วมเมื่อ: 03 กย. 2006
ตอบ: 12

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

พี่ๆคะ ช่วยนู๋ หน่อยนะคะ คือนู๋จะทำ vb ติดต่อกับ LAN อ่ะค่ะ แต่ไม่รู้ว่าใช้ control ตัวไหนอ่ะค่ะ ช่วยหน่อยนะคะ หาไม่เจออ่ะค่ะ ไม่เห็นหนังสือเล่มไหนเขียนเกี่ยวกับสัญลักษณ์ control ที่ใช้ติดต่อกับ LAN เลยอ่ะค่ะ
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
voyager



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

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

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

ขอบคุณคับ


ใช้ API getkeystate ของ keyboard สามารถตรวจการกดคีบอร์ดได้ครับ จำได้ว่า post เรื่อง visual keyboard ลองหาดูในกระทู้นี้ครับ
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
Sutenm



เข้าร่วมเมื่อ: 29 พค. 2006
ตอบ: 2
ที่อยู่: xchange.teenee.com

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

สวัสดีครับ พี่แมงเม่าคับ


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

ผมต้องการส่งข้อความเสียงนะคับ ผมมีโปรแกรมแล้วนะคับ แต่ปรากฏว่าคนที่รับโทรศัทพ์ ไม่สามารถรับเสียงที่ส่งไปได้นะคับ มันดังเป็นเสียงติ๊ดๆ แทนนะคับ ผมจะต้องแก้ไขตรงไหนบ้างหรอคับ ไฟล์ที่ผมส่งไปเป็นไฟล์ .wav ถูกแล้วใช่ไหมคับ แล้วขนาดของไฟล์นี้เกี่ยวไหมคับ
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ เข้าชมเว็บไซต์ MSN
Sutenm



เข้าร่วมเมื่อ: 29 พค. 2006
ตอบ: 2
ที่อยู่: xchange.teenee.com

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

เอ่อ อีกข้อนะคับ

คือถ้าผมต้องการทำโปรแกรมสอบถามยอดเงินนะคับ ต้องเขียนยังไงหรอคับ อย่างที่กด *123# แล้วยอดเงินก็ขึ้นมา อะไรประมาณนี้อ่ะคับ ผมต้องเขียนยังไงหรอคับ

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



เข้าร่วมเมื่อ: 03 กย. 2006
ตอบ: 12

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

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



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

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

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


โดยทั่วไปการก็จะใช้ control ชือว่า Winsock(Ctrl+T ==> Control ==> Microsoft winsock control)หลักการการติดต่อแบบง่ายที่สุดคือใช้คอมพิวเตอร์ 2 เครื่อง(หรือเครื่องเดียวกันก็ได้) เครื่องหนึ่งกำหนดให้เป็น server จะมีหน้าที่ standby(listen)รอการร้องขอการติดต่อจากคอมพิวเตอร์อีกเครื่องที่เรียกว่า client การติดต่อจะผ่านทางพอร์ตได ๆ ที่กำหนดขึ้น

เช่น

*****Server
Private Sub Form_Load()
w1.LocalPort = 188 'กำหนดพอร์ต 188
w1.Listen 'รอการติดต่อจาก client
End Sub

*****Client
Private Sub Command2_Click()
w1.Close
w1.Connect 194.10.10.154, "188" 'ติดต่อ server(ตัวอย่าง IP 194.10.10.154) ผ่านพอร์ต 188
DoEvents
End Sub

เมื่อติดต่อได้ให้แสดง event ซักอย่าง

*****Server
Private Sub w1_ConnectionRequest(ByVal requestID As Long)
If w1.State <> sckClosed Then w1.Close
w1.Accept requestID
MsgBox "Connected"
End Sub

ดาวน์โหลด chat ไฟล์แบบง่าย ๆ ครับมีส่วนที่เพิ่มเข้ามาคือการรับส่งข้อมูล text(string)

http://www.geocities.com/chaiwat_thaweechan/client.zip
http://www.geocities.com/chaiwat_thaweechan/server.zip
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
arcutino



เข้าร่วมเมื่อ: 11 กย. 2006
ตอบ: 1

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

พี่คับ ผมอยากได้ Code ของโปรแกรมคำนวณทางฟิสิกส์หน่อยคับ ทำโปรแกรมคำนวณทางฟิสิกส์อยู่อ่ะคับ
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
abella



เข้าร่วมเมื่อ: 03 กย. 2006
ตอบ: 12

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

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





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

คำพูด:
พี่คับ ผมอยากได้ Code ของโปรแกรมคำนวณทางฟิสิกส์หน่อยคับ ทำโปรแกรมคำนวณทางฟิสิกส์อยู่อ่ะคับ


ก็ใช้คำสั่งทางคณิตศาสตร์ทั่วไปก็ได้นิครับ เช่น

Dim current As Integer, resistance As Integer, voltage As Integer

Private Sub cmdInput_Click()
current = InputBox("Input Value of current", "Input Data", 0)
resistance = InputBox("Input Value of resistance", "Input Data", 0)
voltage = calVoltage(current, resistance) 'เรียกใช้ฟังก์ชัน calVoltage
MsgBox "Voltage is " & voltage, , "Output voltage"
End Sub

Function calVoltage(x, y As Integer) As Integer
calVoltage = x * y
End Function
กลับไปข้างบน
keng_khum



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

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

พี่ครับคือผมจะใช้กล้องwebcamทำระบบที่จอดรถโดยใช้กล้องwebcamตรวจจับค่าการเปลี่ยนแปลงของสีเทียบกับพื้นที่ในกล้องแต่ยังเขียนโปรแกรมอ่านค่สีเทียบกับตำแหน่งยังไม่ได้ขอให้พี่ช่วยด้วยคับ แล้วควรใช้vdo ocxจะดีมั้ยคับ Crying or Very sad Crying or Very sad Crying or Very sad Very Happy Very Happy Very Happy
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
แมงเม่า
บุคคลทั่วไป





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

คำพูด:
พี่ครับคือผมจะใช้กล้องwebcamทำระบบที่จอดรถโดยใช้กล้องwebcamตรวจจับค่าการเปลี่ยนแปลงของสีเทียบกับพื้นที่ในกล้องแต่ยังเขียนโปรแกรมอ่านค่สีเทียบกับตำแหน่งยังไม่ได้ขอให้พี่ช่วยด้วยคับ แล้วควรใช้vdo ocxจะดีมั้ยคับ


คือ motion detection รึเปล่าครับ ผม post ใน wara ลิ้งค์นี้ครับ
http://www.wara.com/modules.php?name=News&file=article&sid=439

ใช้ activeX ก็ดีครับง่ายและสะดวก
กลับไปข้างบน
Jung-Jung
บุคคลทั่วไป





ตอบตอบ: พ. กย. 13, 2006 9:45 pm    ชื่อกระทู้: ขอ code การรับส่งค่าผ่าน port usbด้วยค่ะ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

พี่ๆคนไหนเขียน VB6.0 ในการรับ-ส่งค่าผ่านport usb ได้ช่วยกรุณาเอาcode ให้ด้วยนะคะ
คือว่าทำโปรเจคอยู่แล้วติดตรงนี้ค่ะ หรือcode ที่เกี่ยวกับdetect ว่ามีค่าอะไรผ่านเข้ามาทาง port usbมั้ย หรือcheckว่า USB Bluetoothที่ต่อกับคอม เปิดหรือปิดอยู่
zavoury@gmail.com
กลับไปข้างบน
เด็กน้อย
บุคคลทั่วไป





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

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






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

ขอบคุณมากครับผมจะลองไปทำดู
ได้ผลไงเดี๋ยวจะแจ้งให้ทราบอีกทีครับ
ขอบคุณครับ Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy
กลับไปข้างบน
p_q จัง
บุคคลทั่วไป





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

เมื่อเขียนไฟล์โปรเจ็คใน VB6 แล้วจะทำเป็นไฟล์ ที่ใช้ install ได้ต้องทำไงคะ ช่วยที Rolling Eyes
กลับไปข้างบน
บุคคลทั่วไป






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

พี่ครับในโปรแกรมของพี่ตรงที่บอกพิกัดตำแหน่งของจุดสีแดงหนะมันอยู่ตรงไหนครับผมดูไม่ออก
พี่ครับถ้าไม่รบกวนจนเกินไปช่วยติดต่อหรือตอบที่ http://www.keng_enubu@hotmail.com/
ให้ด้วยครับขอบคุณครับ Very Happy Very Happy Very Happy
กลับไปข้างบน
บุคคลทั่วไป






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

คำพูด:
Jung-Jung เด็กน้อย บุคคลทั่วไป




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

1. Load รูปมาที่ picture box แล้วจำกัดขนาดด้วยการ resize ให้เท่ากัน
2. อ่านค่ารหัสสีที่จุด x,y

p1 = Picture1.Point(x, y)
p2 = Picture2.Point(x, y)

3. แปลงรหัสสีที่ได้เป็น RGB

Function RGB(ByVal CVal As Long, R As Long, B As Long, G As Long) As COLORRGB
G = Int(CVal / 65536)
B = Int((CVal - (65536 * G)) / 256)
R = CVal - (65536 * G + 256 * B)
End Function

4. เก็บค่าสี RGB
RGB p1, R1, B1, G1
RGB p2, R2, B2, G2

5. เอาค่าสีของแต่รูปที่จุดเดียวกันมาเปลียบเทียบ(กำหนด resolution ด้วย Tolerence)

Function RGBDiff(Result As Integer, R1 As Long, R2 As Long, B1 As Long, B2 As Long, G1 As Long, G2 As Long, Tol As Long)
If R1 > R2 + Tol Or B1 > B2 + Tol Or G1 > G2 + Tol Or _
R1 < R2 - Tol Or B1 < B2 - Tol Or G1 < G2 - Tol Then
Result = 0
Else
Result = 1
End If
End Function

RGBDiff R, R1, R2, B1, B2, G1, G2, t

6. หาผลต่างจุดสีโดยเทียบจำนวนจุดสีที่ scan ทั้งหมดเทียบกับจุดสีที่ต่างไป
7. กำหนดผลต่างที่ 95% กำลังดี
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

คำพูด:
เมื่อเขียนไฟล์โปรเจ็คใน VB6 แล้วจะทำเป็นไฟล์ ที่ใช้ install ได้ต้องทำไงคะ ช่วยที


start==>all program==>Microsoft Visual studio6==>Microsoft Visual studio 6.0 Tool ==> Package&Deployment wizard
กลับไปข้างบน
adfsfasfas
บุคคลทั่วไป





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

ต้องการติดต่อคุณมิวที่เชียงใหม่ครับต้องการติดต่อร่วมงานด้วยเกี่ยวกับการเขียนโปรแกรมติดต่อ 061959495
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

แนะนำเพจ ActiveX control สำหรับ developer ครับ ส่วนใหญ่เป็น shareware ชอบอันไหน อยากได้แบบถูกกฎหมายก็หาซื้อได้ครับ

http://www.download.com/3120-20_4-0.html?tg=dl-20&qt=activeX&tag=srch


http://www.freedownloadscenter.com/Search/activeX.html
กลับไปข้างบน
thaiio



เข้าร่วมเมื่อ: 07 มีค. 2004
ตอบ: 17

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

คุณ แมงเม่า ครับ สิ่งที่คุณขอไว้ แล้วผมก็เปิดให้ผู้ตอบโฟสได้นั้น

มันมีคนมาก่อกวนอีกแล้ว ดังนั้นผมคงต้องจำกัดสิทธิผูที่เป็นสมาชิกนะครับ
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ เข้าชมเว็บไซต์
voyager



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

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

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



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

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

เมื่อวานเห็นข่าวว่ารัฐสนับสนุนให้ประชาชนติด CCTV ตามบ้าน สำหรับตรวจตราความเรียบร้อย(หากบังเอินรูปผู้ก่อการร้ายติดมาในกล้องเราก็ได้ตังค์มาใช้ฟรี ๆ อีก) เมื่อวานเย็นก็เลยทำโปรแกรม cam security

1. ต่อกล้องได้ 4 ตัว(webcam หรือ cctv ก็ได้)
2. สามารถแยกบันทึกไฟล์VDOของกล้องแต่ละตัว( C:\..)
3. Motion detection ของกล้องแต่ละตัว เมื่อพบว่ามีการเคลื่อนไหวจะให้บันทึกไฟล์VDO 10 วินาที( C:\..)

เนื่องจากเป็น version แรกจึงไม่ได้เพิ่มการตั้งค่าต่าง ๆ ให้ แต่ก็ใช้ได้ครับ



http://www.geocities.com/chaiwat_thaweechan/Setup.zip
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
tikky



เข้าร่วมเมื่อ: 01 กย. 2006
ตอบ: 11

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

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



เข้าร่วมเมื่อ: 17 กย. 2006
ตอบ: 12
ที่อยู่: 47 ม. 3 คลองแห

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

สวัสดีคับ อยากจะถามว่าถ้าต้องการควบคุม mouse ด้วย คีย์บอดร์จะต้องทำอย่างไรคับ
อย่างเช่น กดปุ่มขึ้นแล้ว mouse ก็เลื่อนขึ้นด้วย

รบกวนตอบด้วยนะครับ
ขอขอบคุณล่วงหล้าครับ Very Happy
_________________
Hi
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
keng_khum



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

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

พี่ครับโปรแกรม motion detection มันรันไม่ได้คับ โดยเฉพาะที่แสดงผลของภาพต้องใช้ contol ตัวไหนหรือเปล่าคับ ติดมา 2สัปดาแล้วคับ ช่วยหน่อยนะคับพี่ Very Happy Very Happy
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
เอ๊กส์



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

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

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

ตอนนี้ผมทำโปรเจคควบคุมเคาร์เซอร์โดยใช้เสียงเหมือนที่พี่ทำ แต่จนแต้มแล้วคับ
ถ้าไม่รบกวนอยากให้ช่วยส่งโค๊ด Ezycontrol ได้ปะคับ

รับรองว่าเพื่อการศึกษาคับ

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



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

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

คำพูด:
สวัสดีคับ อยากจะถามว่าถ้าต้องการควบคุม mouse ด้วย คีย์บอดร์จะต้องทำอย่างไรคับ
อย่างเช่น กดปุ่มขึ้นแล้ว mouse ก็เลื่อนขึ้นด้วย


แบบนี้ค่อนข้าง advanceกว่าที่เคยทำมาครับ แต่ก็ไม่ยากจนเกินไป

'Form

Private Sub Form_Click()

TimeToClose = True

End Sub

'Module

Public Declare Function GetCursorPos Lib "user32" (lpPoint As MouseC) As Long
Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public theTimeNow
Public TimeToClose As Boolean
Const TheTimeToPause = 0.01
Public Type MouseC
x As Long
y As Long
End Type
Public XandY As MouseC

Sub Main()

DoEvents
OutPUtFORM.Top = 0
OutPUtFORM.Left = 0
OutPUtFORM.Show

TimeToClose = False
While Not TimeToClose
On Error GoTo ErrorNowClose
theTimeNow = Timer

Do While Timer - theTimeNow < Val(TheTimeToPause)
DoEvents
Loop

If GetAsyncKeyState(vbKeyUp) Then Call SetCursorPos(XandY.x, XandY.y - 1)
If GetAsyncKeyState(vbKeyDown) Then Call SetCursorPos(XandY.x, XandY.y + 1)
If GetAsyncKeyState(vbKeyLeft) Then Call SetCursorPos(XandY.x - 1, XandY.y)
If GetAsyncKeyState(vbKeyRight) Then Call SetCursorPos(XandY.x + 1, XandY.y)
Call GetCursorPos(XandY)
OutPUtFORM.Xposition.Caption = "X : " & XandY.x
OutPUtFORM.Yposition.Caption = "Y : " & XandY.y

Wend

Unload OutPUtFORM
Exit Sub
ErrorNowClose:
On Error Resume Next
MsgBox "Error code : " & Error
Unload OutPUtFORM
End Sub
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
voyager



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

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

คำพูด:
พี่ครับโปรแกรม motion detection มันรันไม่ได้คับ โดยเฉพาะที่แสดงผลของภาพต้องใช้ contol ตัวไหนหรือเปล่าคับ ติดมา 2สัปดาแล้วคับ ช่วยหน่อยนะคับพี่


post ไปแล้วครับ

http://www.wara.com/modules.php?name=News&file=article&sid=439
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
voyager



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

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

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

ตอนนี้ผมทำโปรเจคควบคุมเคาร์เซอร์โดยใช้เสียงเหมือนที่พี่ทำ แต่จนแต้มแล้วคับ
ถ้าไม่รบกวนอยากให้ช่วยส่งโค๊ด Ezycontrol ได้ปะคับ

รับรองว่าเพื่อการศึกษาคับ

ขอร้องล่ะคับ


โปรเจคต้องควรจะทำเองนะครับ ให้เป็นไกด์ไปแล้วกัน

ขั้นตอนการทำโปรเจค voice engine
1. ลง MS speech engine(sapi4.0)
2. Training(setup microphone,speaker,ฝึกอ่านตาม dialog)
3. เขียนโปรแกรม
- สร้างแกรมมาไฟล์
- ทดสอบคำสั่งตามแกรมมาไฟล์

ให้ตัวง่าย ๆ ไปทดลองดูครับ

Private Sub Form_Load()
recog.GrammarFromFile App.Path & "\Grammars.txt" recog.Activate 'Activate speech recognition engine
End Sub

Private Sub recog_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)
On Local Error Resume Next
Debug.Print Phrase
Select Case Phrase
Case "OK"
MsgBox "You say 'OK'"
Case "Hello"
MsgBox "You say 'Hello'"
Case "Help"
MsgBox "You say 'Hello world'"
End Select
End Sub
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
baby_step



เข้าร่วมเมื่อ: 17 กย. 2006
ตอบ: 12
ที่อยู่: 47 ม. 3 คลองแห

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

ขอบคุณมากครับ ผมขอถามเพิ่มเติมหน่อยนะครับ

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

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

ผมเพิ่งหัดใช้ vb เขียนโปรแกรมแต่ก็จะพยายามครับ
ผมคงต้องขอคำปรึกษาอีกเยอะเลยคับ Very Happy
_________________
Hi
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
voyager



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

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

คำพูด:
ขอบคุณมากครับ ผมขอถามเพิ่มเติมหน่อยนะครับ

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

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

ผมเพิ่งหัดใช้ vb เขียนโปรแกรมแต่ก็จะพยายามครับ


โปรเจควอยซ์คอนโทรลเป็นโปรแจคทดสอบความอดทนของคนทำจริง ๆ ครับ ถ้าไม่ลงมือทำรับรองไม่สำเร็จแน่นอน 100 % เหมือนการเลี้ยงทามากอจิน่ะครับต้องเข้าใจมันก่อนแล้วมันจะเข้าใจเรา

>>1. install program sapi4.0 แล้วทำตาม training ก็จะเข้าใจการทำงานทั้งหมดของโปรแกรม MS voice


>>2. ที่ VB เลือกคอมโพเนนท์ Microsoft voice text เป็น text to speech(TTS)รูปปากเขียนโค๊ดตามนี้

Private Sub Command1_Click()
TextToSpeech1.Speak Text1.Text
End Sub

แต่ถ้าอยากให้เป็น animation ให้เลือก Microsoft Agent ดาวน์โหลดตามนี้ครับ มีโปรแกรมตัวอย่างด้วย

http://www.msagentring.org/chars.htm
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
ravenclaw



เข้าร่วมเมื่อ: 26 กย. 2006
ตอบ: 1

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

ผมกำลังเริ่มศึกษาเขียนโปรแกรมอ่ะครับ
อยากจะถามว่าโปรแกรมของราเวลาทำเสร็จมันจะเปงไฟล์ .exe หรือเปล่าครับ
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
tikky



เข้าร่วมเมื่อ: 01 กย. 2006
ตอบ: 11

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

ผมกำลังเริ่มศึกษาเขียนโปรแกรมอ่ะครับ
อยากจะถามว่าโปรแกรมของราเวลาทำเสร็จมันจะเปงไฟล์ .exe หรือเปล่าครับ
----------------------------------------------

ต้องไปที่เมนู File น่ะครับ แล้วไปที่ Make (ชื่อโปรเจ็คเรา).exe
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
tikky



เข้าร่วมเมื่อ: 01 กย. 2006
ตอบ: 11

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

มีใครพอจะทราบไหมครับว่า เราจะโค้ดยังไงให้สามารถเปรียบเทียบค่ารีจิสตรี้ในเครื่องเราว่า มีค่าไหนถูกเพิ่ม/ลบ/แก้ไข ไปบ้าง แล้ว export ออกมาเป็น log ไฟล์ น่ะครับ
ป.ล. ผมจะเอามาทำเป็น software deploy น่ะครับ
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
baby_step



เข้าร่วมเมื่อ: 17 กย. 2006
ตอบ: 12
ที่อยู่: 47 ม. 3 คลองแห

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

ขอบคุณมากครับ พี่ voyager (หวังว่าคงเรียกพี่ได้นะครับ ผมกำลังศึกษาอยู่ปี 1 Very Happy )
ที่ช่วยตอบคำถามต่างๆ

ผมเพิ่งจะหัดเขียนอาจจะเข้าใจบ้างไม่เข้าใจบ้างแต่ก็จะพยายามต่อไปครับ Smile

ถ้ามีคำถามอะไรจะขอคำปรึกษาอีกนะครับ
_________________
Hi
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
wta



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

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

สวัสดีครับพี่ๆทุกคน ผมเพิ่งเข้ามาบอร์ดนี้เป็นครั้งแรก ฝากเนื้อฝากตัวด้วยนะครับ
(มาปุ๊ปก็ถามปั๊ปเลย) ถ้าผมต้องการ block การติดตั้งโปรแกรมในเครื่อง ผมต้องทำยังไงครับ(ประมาณว่า เครื่อง client ห้ามติดตั้งดปรแกรมเองน่ะครับ) รบกวนด้วยนะครับ Very Happy
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
เอ๊กส์



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

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

voyager บันทึก:
คำพูด:
ตามที่ผมอ่านในกระทู้พี่ พี่บอกว่าเคยลงการเขียนโปรแกรมให้ทำคำสั่งด้วยเสียง
แต่ผมหาไม่เจออะครับ พี่ช่วยลงโค๊ดให้หน่อยได้ปะคับ

ตอนนี้ผมทำโปรเจคควบคุมเคาร์เซอร์โดยใช้เสียงเหมือนที่พี่ทำ แต่จนแต้มแล้วคับ
ถ้าไม่รบกวนอยากให้ช่วยส่งโค๊ด Ezycontrol ได้ปะคับ

รับรองว่าเพื่อการศึกษาคับ

ขอร้องล่ะคับ


โปรเจคต้องควรจะทำเองนะครับ ให้เป็นไกด์ไปแล้วกัน

ขั้นตอนการทำโปรเจค voice engine
1. ลง MS speech engine(sapi4.0)
2. Training(setup microphone,speaker,ฝึกอ่านตาม dialog)
3. เขียนโปรแกรม
- สร้างแกรมมาไฟล์
- ทดสอบคำสั่งตามแกรมมาไฟล์

ให้ตัวง่าย ๆ ไปทดลองดูครับ

Private Sub Form_Load()
recog.GrammarFromFile App.Path & "\Grammars.txt" recog.Activate 'Activate speech recognition engine
End Sub

Private Sub recog_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)
On Local Error Resume Next
Debug.Print Phrase
Select Case Phrase
Case "OK"
MsgBox "You say 'OK'"
Case "Hello"
MsgBox "You say 'Hello'"
Case "Help"
MsgBox "You say 'Hello world'"
End Select
End Sub


ขอบคุณมากครับ พอดีผมเพิ่งหัดใช้ VB เลยอาจจะขอมากไป ยังไงผมจะพยายามทำต่อไปคับถ้ามีปัญหาอะไร หวังว่าพี่จะให้คำแนะนำผมนะคับ

**ขอถามนิดหน่อยคับ ถ้าจะควบคุมการ cliclk ,doubleclick ของเมาส์ต้องใช้ API ตัวไหนครับ ขอบคุณคับ Smile
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
voyager



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

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

โค้ด:
เรียนถาม พี่แมงเม่า
พี่พอจะช่วยลงขั้นตอนการเขียนโปรแกรมโดยเมื่อเราพูดคำอะไรไป ตัวฟอร์มก็จะแสดงข้อความนั้นขึ้นมาได้ปะคับ

เช่นเมื่อผมพูดว่า Hello ก็จะปรากฏข้อความ Hello ขึ้นมาบนฟอร์มอะคับ

รบกวนด้วยครับ


I don't know why I can not write in thai word, may be something wrong on my IE, don't mind whether I need write in English.

As you question, Let say that you already installed MS speech engine and other training session.

1. In the project window, You need to open component window. Then finding for "Microsoft direct speech recognition"control.
2. Drag and drop this control to your design form. Noted that this control look like an ear.





Now, We need to create gramma file. All voice command are store here.

3. Select start ==> programs ==> Accessories ==> notepad
4. Copy below code then paste into notepad window.

[Grammer]
type=cfg
[<start>]
<start>=Hello
<start>=Yes
<start>=No


5. Save file name "gramas.txt" to the same directory of your project.
6. Next, Let start programming. Copy below code and paste into form window.

Private Sub Form_Load()

DirectSR1.GrammarFromFile App.Path & "grammars.txt"
DirectSR1.Activate ' Active component

End Sub

Private Sub DirectSR1_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)

On Local Error Resume Next
Select Case Phrase
Case "Hello"
MsgBox "You said Hello"
Case "Yes"
MsgBox "You said Yes"
Case "No"
MsgBox "You said No"
End Select

End Sub

7. Finally, Try say some command in gramma file.





MangMao 2 oct 2006
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
voyager



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

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

คำพูด:
**ขอถามนิดหน่อยคับ ถ้าจะควบคุมการ cliclk ,doubleclick ของเมาส์ต้องใช้ API ตัวไหนครับ ขอบคุณคับ


ใช้ mouse event

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10

ตัวอย่าง

การ drag:

mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0

การ drop:

mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

คลิกซ้าย:

mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

คลิกขวา:

mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0

ดับเบิลคลิก:

mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0


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



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

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

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



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

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

ผมใช้ wmi...
CreateObject("WbemScripting.SWbemDateTime")
บน XP ใช้ได้ปกติครับ
แต่พอมารันบน 98 ไม่ได้ครับ มีคนแนะนำให้โหลดตัว wmicore.exe มา เพื่อที่จะให้ wmi ทำงานบน 98 ได้ ก็ลองแล้ว ปรากฎว่าใช้ได้หลายส่วน แต่ติดตรงที่ WbemScripting.SWbemDateTime น่ะครับ มัน get datetime ไม่ได้ มีใครพอจะแนะนำได้บางครับผม ต้องการด่วนเลย (ขอโทษครับที่ร่ายซะยาวเลย) Very Happy
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
baby_step



เข้าร่วมเมื่อ: 17 กย. 2006
ตอบ: 12
ที่อยู่: 47 ม. 3 คลองแห

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

ขอถามหน่อยนะครับ
ใน VB เมื่อจะส่งค่าปุ่ม a ก็ใช่คำสั่ง sendkey = "a" (ถ้าจำไม่ผิด Very Happy )
แต่ถ้าต้องการส่งปุ่มพวก F1 หรือ ปุ่ม Enter หรือปุ่มต่างๆที่ไม่ใช่ตัวอักษรต้องทำยังไงเรอครับ
_________________
Hi
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
voyager



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

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

คำพูด:
ขอถามหน่อยนะครับ
ใน VB เมื่อจะส่งค่าปุ่ม a ก็ใช่คำสั่ง sendkey = "a" (ถ้าจำไม่ผิด )
แต่ถ้าต้องการส่งปุ่มพวก F1 หรือ ปุ่ม Enter หรือปุ่มต่างๆที่ไม่ใช่ตัวอักษรต้องทำยังไงเรอครับ


SendKeys "{F1}" 'F1
SendKeys "{BS}" 'Backspace
SendKeys "{DEL}" 'Delete
SendKeys "{ENTER}" 'Enter
SendKeys "{UP}" 'Up arrow
SendKeys "{CAPSLOCK}" 'Caps lock
SendKeys "+F2" 'Shift + F2
SendKeys "^C" 'Ctrl + C
SendKeys "%{F4}" 'Alt + F4
SendKeys "A" 'A
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
aunsunyo



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

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

รบกวนถามหน่อยคับ ว่าถ้าเราจาทำให้โปรแกรมที่เราเขียนรันอัตโนมัตเมื่อวินโดว์สตาร์ทต้องเขียนยังคับ

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



เข้าร่วมเมื่อ: 17 กย. 2006
ตอบ: 12
ที่อยู่: 47 ม. 3 คลองแห

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

ขอบคุณมากครับที่ช่วยตอบคำถาม
ขอถามเพิ่มเติมอีกหน่อยนะครับ

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

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



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

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

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


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

ให้ไกด์ไป 2 ข้อ

1. ตรวจหาจุดสีโดยใช้ API getpixel

Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

code สีหลัก

Color==> RGB==> DEC
RED==> FF0000==> 00000255
GREEN==> 00FF00==> 00065280
BLUE==> 0000FF==> 16711680

2. การ scan picture จากบนซ้ายถึงล่างขวา

Do Until y > Picture1.Height

.
.
เงื่อนไขหาจุดสี
.
.

Picture2.PSet (x, y), vbRed

If x > Picture1.Width Then x = 0: y = y + 15 'เว้นไป 15 pixel
Loop
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
baby_step



เข้าร่วมเมื่อ: 17 กย. 2006
ตอบ: 12
ที่อยู่: 47 ม. 3 คลองแห

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

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



เข้าร่วมเมื่อ: 17 กย. 2006
ตอบ: 12
ที่อยู่: 47 ม. 3 คลองแห

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

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

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

เพิ่งหัดเขียนได้ไม่กี่วันเองครับเลยจะขอคำแนะนำหน่อย Very Happy

พี่เป็นคนดีมากครับผมมาอ่านกระทู้ตั้งแต่ต้นได้ความรู้มากมาย
พี่เป็นคนที่ไม่หวงความรู้น่านับถือมากๆ
_________________
Hi
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
aunsunyo



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

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

aunsunyo บันทึก:
รบกวนถามหน่อยคับ ว่าถ้าเราจาทำให้โปรแกรมที่เราเขียนรันอัตโนมัตเมื่อวินโดว์สตาร์ทต้องเขียนยังคับ

ขอบคุณคับ


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

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



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

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

Code of the day: Mask form

My home's pc does really not support thai font, May need re-stall new window Crying or Very sad . Last few day I found mask activeX from http://www.download.com,/ It's so cool but damned it is a shareware. Therefore, I try finding some examples from internet. I found a few code but not exact. I combine many projects and breift to simple one. Here is I got and some I had done

1. Download picture from internet



2. Mask only part which I need then insert to design form



3. Add code, My result show as below.



4. My more example.

Mangmao's phone



Goku and his son



Luffy



I'll post project code in next day.
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
voyager



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

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

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

ขอบคุณคับ


1. สร้าง shortcut ของโปรแกรม
2. นำ shortcut ไปวางใน C:\Documents and Settings\All Users\Start Menu\Programs\Startup
3. ที่ปุ่ม start==>run ให้พิมพ์ msconfig
4. ไปดูที่ tab "startup" จะเห็น shortcut ของโปรแกรม
5. Restart คอมพิวเตอร์
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
baby_step



เข้าร่วมเมื่อ: 17 กย. 2006
ตอบ: 12
ที่อยู่: 47 ม. 3 คลองแห

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

ขอถามเรื่องการติดต่อจอยสติกส์หน่อยครับ

ถ้าจะเขียนโปรแกรมรับค่าจากจอยสติกส์ต้องทำยังไงครับ Embarassed
_________________
Hi
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
แสดงการตอบก่อนนี้:   

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

หน้า 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