| ดูกระทู้ก่อนนี้
:: ดูกระทู้ถัดไป
|
| ผู้ส่ง |
ข้อความ |
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
 ตอบ: พ. สค. 24, 2005 2:17
pm ชื่อกระทู้:
ห้องVBส่วนตัวของแมงเม่า |
    |
|
กระทู้เกี่ยวกับ visual basic 6.0 ทั้งที่เป็น hardware
interface หรือ miscellaneous ถ้าไม่มีใคร post ก็จะมา post เอง
555555 มีเรื่องราวหลากหลายทิป เทคนิคที่เพื่อนๆสามารถนำไปประยุกต์ใช้ในการพัฒนาโปรแกรมได้ไม่ว่าจะเป็นด้าน vision,webcam, การเขียนโปรแกรมติดต่อ Hardware และ Network โดยใช้VB,VC+ รวมถึง โครงงาน คอมพิวเตอร์เชื่อมต่ออุปกรณ์ภายนอกการเขียนโปรแกรมด้วย วิชวลเบสิก(visual basic),วิชวลซี(visual C++assembly และ ไมโครคอนโทรลเลอร์ เพื่อ ควบคุม หรือ เชื่อมต่อสื่อสาร ฮาร์ดแวร์ รวมถึงการเขียนโปรแกรมผ่าน winsock,API
| |
| กลับไปข้างบน |
|
 |
baby_step
เข้าร่วมเมื่อ: 17 กย. 2006
ตอบ:
12
ที่อยู่: 47 ม. 3 คลองแห
|
| ตอบ: จ. กย. 25, 2006
10:30 pm ชื่อกระทู้:
|
|
|
ขอบคุณมากครับ
ผมขอถามเพิ่มเติมหน่อยนะครับ
ผมเห็นโปรแกรมสั่งงานด้วยเสียงที่เอามาให้ดูตัวอย่างผมลองทำตามดูแล้ว
แต่ผมยังสงสัยว่าจะตรวจสอบได้อย่างไรครับว่าโปรแกรมใช้งานได้
คือว่าตอน run โปรแกรมก็ run
ได้แต่ตอนลองพูดดูโปรแกรมกลับไม่มีอะไรเกิดขึ้นเลย
ผมจึงไม่แน่ใจว่าเป็นเพราะโปรแกรมไม่ทำงานหรือผมพูดไม่ชัดเอง
พอจะมีวิธีตรวจสอบบ้างไหมครับ
และขอถามอีกอย่างนะครับผมเห็นใน window
มีโปรแกรมที่เมื่อพิมพ์แล้วโปรแกรมจะออกเสียงให้ตามคำที่เราพิมพ์ลงไป
อยากรู้ว่าโปรแกรมแบบนี้จะเขียนอย่างไรครับ
ผมเพิ่งหัดใช้ vb เขียนโปรแกรมแต่ก็จะพยายามครับ
ผมคงต้องขอคำปรึกษาอีกเยอะเลยคับ 
_________________
Hi | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: อ. กย. 26, 2006
11:24 am ชื่อกระทู้:
|
|
|
| คำพูด: |
ขอบคุณมากครับ
ผมขอถามเพิ่มเติมหน่อยนะครับ
ผมเห็นโปรแกรมสั่งงานด้วยเสียงที่เอามาให้ดูตัวอย่างผมลองทำตามดูแล้ว
แต่ผมยังสงสัยว่าจะตรวจสอบได้อย่างไรครับว่าโปรแกรมใช้งานได้
คือว่าตอน 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 | |
| กลับไปข้างบน |
|
|
ravenclaw
เข้าร่วมเมื่อ: 26 กย. 2006
ตอบ:
1
|
| ตอบ: อ. กย. 26, 2006 4:01
pm ชื่อกระทู้:
|
|
|
ผมกำลังเริ่มศึกษาเขียนโปรแกรมอ่ะครับ
อยากจะถามว่าโปรแกรมของราเวลาทำเสร็จมันจะเปงไฟล์ .exe
หรือเปล่าครับ | |
| กลับไปข้างบน |
|
|
tikky
เข้าร่วมเมื่อ: 01 กย. 2006
ตอบ:
11
|
| ตอบ: อ. กย. 26, 2006 4:28
pm ชื่อกระทู้:
|
|
|
ผมกำลังเริ่มศึกษาเขียนโปรแกรมอ่ะครับ
อยากจะถามว่าโปรแกรมของราเวลาทำเสร็จมันจะเปงไฟล์ .exe
หรือเปล่าครับ
----------------------------------------------
ต้องไปที่เมนู File น่ะครับ แล้วไปที่ Make
(ชื่อโปรเจ็คเรา).exe | |
| กลับไปข้างบน |
|
|
tikky
เข้าร่วมเมื่อ: 01 กย. 2006
ตอบ:
11
|
| ตอบ: อ. กย. 26, 2006 4:38
pm ชื่อกระทู้:
|
|
|
มีใครพอจะทราบไหมครับว่า
เราจะโค้ดยังไงให้สามารถเปรียบเทียบค่ารีจิสตรี้ในเครื่องเราว่า
มีค่าไหนถูกเพิ่ม/ลบ/แก้ไข ไปบ้าง แล้ว export ออกมาเป็น log
ไฟล์ น่ะครับ
ป.ล. ผมจะเอามาทำเป็น software deploy
น่ะครับ | |
| กลับไปข้างบน |
|
|
baby_step
เข้าร่วมเมื่อ: 17 กย. 2006
ตอบ:
12
ที่อยู่: 47 ม. 3 คลองแห
|
| ตอบ: พ. กย. 27, 2006 6:48
pm ชื่อกระทู้:
|
|
|
ขอบคุณมากครับ พี่ voyager
(หวังว่าคงเรียกพี่ได้นะครับ ผมกำลังศึกษาอยู่ปี 1 )
ที่ช่วยตอบคำถามต่างๆ
ผมเพิ่งจะหัดเขียนอาจจะเข้าใจบ้างไม่เข้าใจบ้างแต่ก็จะพยายามต่อไปครับ
ถ้ามีคำถามอะไรจะขอคำปรึกษาอีกนะครับ
_________________
Hi | |
| กลับไปข้างบน |
|
|
wta
เข้าร่วมเมื่อ: 28 กย. 2006
ตอบ:
2
|
| ตอบ: พฤ. กย. 28, 2006
1:50 pm ชื่อกระทู้:
|
|
|
สวัสดีครับพี่ๆทุกคน
ผมเพิ่งเข้ามาบอร์ดนี้เป็นครั้งแรก ฝากเนื้อฝากตัวด้วยนะครับ
(มาปุ๊ปก็ถามปั๊ปเลย) ถ้าผมต้องการ block
การติดตั้งโปรแกรมในเครื่อง ผมต้องทำยังไงครับ(ประมาณว่า เครื่อง
client ห้ามติดตั้งดปรแกรมเองน่ะครับ) รบกวนด้วยนะครับ | |
| กลับไปข้างบน |
|
|
เอ๊กส์
เข้าร่วมเมื่อ: 24 กย. 2006
ตอบ:
19
|
| ตอบ: จ. ตค. 02, 2006 3:58
pm ชื่อกระทู้: Re:
แมงเม่า |
|
|
| 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
ตัวไหนครับ ขอบคุณคับ | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: อ. ตค. 03, 2006 8:09
am ชื่อกระทู้:
mangmao |
|
|
| โค้ด: |
เรียนถาม พี่แมงเม่า
พี่พอจะช่วยลงขั้นตอนการเขียนโปรแกรมโดยเมื่อเราพูดคำอะไรไป
ตัวฟอร์มก็จะแสดงข้อความนั้นขึ้นมาได้ปะคับ
เช่นเมื่อผมพูดว่า 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 | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: อ. ตค. 03, 2006 1:34
pm ชื่อกระทู้:
|
|
|
| คำพูด: |
| **ขอถามนิดหน่อยคับ ถ้าจะควบคุมการ 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
แมงเม่า | |
| กลับไปข้างบน |
|
|
เอ๊กส์
เข้าร่วมเมื่อ: 24 กย. 2006
ตอบ:
19
|
| ตอบ: พ. ตค. 04, 2006
10:39 am ชื่อกระทู้:
|
|
|
ขอขอบคุณพี่แมงเม่าสำหรับทุกคำตอบนะครับ
ดีใจจิงๆที่มีคนแบบพี่อยู่
ขอบคุณครับ  | |
| กลับไปข้างบน |
|
|
wta
เข้าร่วมเมื่อ: 28 กย. 2006
ตอบ:
2
|
| ตอบ: พ. ตค. 04, 2006
12:48 pm ชื่อกระทู้:
Get DateTime on Win98Se |
|
|
ผมใช้ wmi...
CreateObject("WbemScripting.SWbemDateTime")
บน XP
ใช้ได้ปกติครับ
แต่พอมารันบน 98 ไม่ได้ครับ
มีคนแนะนำให้โหลดตัว wmicore.exe มา เพื่อที่จะให้ wmi ทำงานบน
98 ได้ ก็ลองแล้ว ปรากฎว่าใช้ได้หลายส่วน แต่ติดตรงที่
WbemScripting.SWbemDateTime น่ะครับ มัน get datetime ไม่ได้
มีใครพอจะแนะนำได้บางครับผม ต้องการด่วนเลย
(ขอโทษครับที่ร่ายซะยาวเลย) | |
| กลับไปข้างบน |
|
|
baby_step
เข้าร่วมเมื่อ: 17 กย. 2006
ตอบ:
12
ที่อยู่: 47 ม. 3 คลองแห
|
| ตอบ: ศ. ตค. 06, 2006 1:27
pm ชื่อกระทู้:
|
|
|
ขอถามหน่อยนะครับ
ใน VB
เมื่อจะส่งค่าปุ่ม a ก็ใช่คำสั่ง sendkey = "a" (ถ้าจำไม่ผิด
)
แต่ถ้าต้องการส่งปุ่มพวก F1 หรือ ปุ่ม Enter
หรือปุ่มต่างๆที่ไม่ใช่ตัวอักษรต้องทำยังไงเรอครับ
_________________
Hi | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: ศ. ตค. 06, 2006 3:43
pm ชื่อกระทู้:
|
|
|
| คำพูด: |
ขอถามหน่อยนะครับ
ใน 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 | |
| กลับไปข้างบน |
|
|
aunsunyo
เข้าร่วมเมื่อ: 08 กย. 2006
ตอบ:
3
|
| ตอบ: ส. ตค. 07, 2006
11:47 pm ชื่อกระทู้:
|
|
|
รบกวนถามหน่อยคับ
ว่าถ้าเราจาทำให้โปรแกรมที่เราเขียนรันอัตโนมัตเมื่อวินโดว์สตาร์ทต้องเขียนยังคับ
ขอบคุณคับ
_________________
 | |
| กลับไปข้างบน |
|
|
baby_step
เข้าร่วมเมื่อ: 17 กย. 2006
ตอบ:
12
ที่อยู่: 47 ม. 3 คลองแห
|
| ตอบ: อาทิตย์ ตค. 08, 2006
5:13 pm ชื่อกระทู้:
|
|
|
ขอบคุณมากครับที่ช่วยตอบคำถาม
ขอถามเพิ่มเติมอีกหน่อยนะครับ
ถ้าต้องการนำภาพจาก
PictureBox มาตรวจสอบหาตำแหน่ง
ของจุดสี
อย่างเช่นต้องการจะรู้ว่าจุดสีแดงที่อยู่ในภาพอยู่ ณ ตำแหน่งใด
ต้องเขียนโปรแกมยังไงเหรอครับ ขอแบบละเอียดหน่อยนะครับ
ผมมือใหม่ไม่ค่อยรู้เรื่องช่วยแนะนำหน่อยนะครับ
ขอบคุณล่วงหน้าครับ
_________________
Hi | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: จ. ตค. 09, 2006
10:57 am ชื่อกระทู้:
|
|
|
| คำพูด: |
ถ้าต้องการนำภาพจาก 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 | |
| กลับไปข้างบน |
|
|
baby_step
เข้าร่วมเมื่อ: 17 กย. 2006
ตอบ:
12
ที่อยู่: 47 ม. 3 คลองแห
|
| ตอบ: จ. ตค. 09, 2006 1:23
pm ชื่อกระทู้:
|
|
|
ขอบคุณมากครับ
_________________
Hi | |
| กลับไปข้างบน |
|
|
baby_step
เข้าร่วมเมื่อ: 17 กย. 2006
ตอบ:
12
ที่อยู่: 47 ม. 3 คลองแห
|
| ตอบ: จ. ตค. 09, 2006 2:01
pm ชื่อกระทู้:
|
|
|
ขอบคุณมากครับ
แต่ที่จริงผมไม่ได้เอาไปทำโปรเจคหรอกครับผมกำลังหัดเขียน
VB
แล้วก็ไม่ทราบด้วยครับว่า code การหาจุดสีเขียนอย่างไร
ก็เลยอยากจะขอ code พอคร่าวๆ ให้เป็นแนวทางครับ
เพิ่งหัดเขียนได้ไม่กี่วันเองครับเลยจะขอคำแนะนำหน่อย
พี่เป็นคนดีมากครับผมมาอ่านกระทู้ตั้งแต่ต้นได้ความรู้มากมาย
พี่เป็นคนที่ไม่หวงความรู้น่านับถือมากๆ
_________________
Hi | |
| กลับไปข้างบน |
|
|
aunsunyo
เข้าร่วมเมื่อ: 08 กย. 2006
ตอบ:
3
|
| ตอบ: จ. ตค. 09, 2006 6:05
pm ชื่อกระทู้:
|
|
|
| aunsunyo
บันทึก: |
รบกวนถามหน่อยคับ
ว่าถ้าเราจาทำให้โปรแกรมที่เราเขียนรันอัตโนมัตเมื่อวินโดว์สตาร์ทต้องเขียนยังคับ
ขอบคุณคับ |
ทำไม่ได้เหรออคับ
คือโปรเจคที่ผมทำมันต้องใช้คอมพิวเตอร์สั่งงานมินิเมนบอร์ดซึ่งจะเป็นคอมพิวเตอร์ขนาดเล็กซึ่งติดตั้งอยู่บนรถ
ควบคุมผ่านไวเลสแลน ตอนแรกที่ทำใช้โปรแกรมรีโมทควบคุมเอา
แต่อาจารย์บอกไม่ให้ใช้
ก็เลยต้องใช้วินซ๊อคแต่ผมไม่รู้ว่าจะรันโปรแกรมที่อยู้บนรถได้ยังไงเพราะว่ามันไม่มีจอมอนิเตอร์
ถ้าใช้โปรแกรมรีโมทจะมารถดึงหน้าจอมาควบคุมได้เลย
พอจะมีวิธีไหมคับบ
ขอบคุณคับ
_________________
| |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: จ. ตค. 09, 2006
10:59 pm ชื่อกระทู้:
|
|
|
Code of the day: Mask form
My home's pc does really not support thai font, May
need re-stall new window  . 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. | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: อ. ตค. 10, 2006 8:30
am ชื่อกระทู้:
|
|
|
| คำพูด: |
ทำไม่ได้เหรออคับ
คือโปรเจคที่ผมทำมันต้องใช้คอมพิวเตอร์สั่งงานมินิเมนบอร์ดซึ่งจะเป็นคอมพิวเตอร์ขนาดเล็กซึ่งติดตั้งอยู่บนรถ
ควบคุมผ่านไวเลสแลน ตอนแรกที่ทำใช้โปรแกรมรีโมทควบคุมเอา
แต่อาจารย์บอกไม่ให้ใช้
ก็เลยต้องใช้วินซ๊อคแต่ผมไม่รู้ว่าจะรันโปรแกรมที่อยู้บนรถได้ยังไงเพราะว่ามันไม่มีจอมอนิเตอร์
ถ้าใช้โปรแกรมรีโมทจะมารถดึงหน้าจอมาควบคุมได้เลย
พอจะมีวิธีไหมคับบ
ขอบคุณคับ |
1. สร้าง shortcut ของโปรแกรม
2. นำ
shortcut ไปวางใน C:\Documents and Settings\All Users\Start
Menu\Programs\Startup
3. ที่ปุ่ม start==>run ให้พิมพ์
msconfig
4. ไปดูที่ tab "startup" จะเห็น shortcut
ของโปรแกรม
5. Restart คอมพิวเตอร์ | |
| กลับไปข้างบน |
|
|
baby_step
เข้าร่วมเมื่อ: 17 กย. 2006
ตอบ:
12
ที่อยู่: 47 ม. 3 คลองแห
|
| ตอบ: อ. ตค. 10, 2006
10:12 pm ชื่อกระทู้:
|
|
|
ขอถามเรื่องการติดต่อจอยสติกส์หน่อยครับ
ถ้าจะเขียนโปรแกรมรับค่าจากจอยสติกส์ต้องทำยังไงครับ
_________________
Hi | |
| กลับไปข้างบน |
|
|
baby_step
เข้าร่วมเมื่อ: 17 กย. 2006
ตอบ:
12
ที่อยู่: 47 ม. 3 คลองแห
|
| ตอบ: พ. ตค. 11, 2006
12:54 pm ชื่อกระทู้:
|
|
|
ผมลองทำคีย์บอดเพื่อเล่นเกมส์โดยรับค่าผ่านพอทพริ้นเตอร์
แล้วเมือกดปุ่มก็ส่งคำสั่ง
SendKeys
เพื่อใช้แทนปุ่มกดบนคีย์บอดและใช้ SetCursorPos API กับ
GetCursorPos API ในการควบคุม mouse
เมื่อลองใช้ก็สามารถเลื่อน mouse ได้
และส่งค่า key ลง
notepad ได้
แต่เมื่อเอามาใช้กับเกมส์กลับเจอปัญหาคือม่สามารถใช้ได้
ผมคิดว่าเป็นเพราะในเกมส์ใช้คำสั่ง keydown
ในการตรวจสอบการรับค่าของปุ่มกด เมื่อใช้คำสั่ง sendkeys
จึงใช้ไม่ได้ และ ฟังก์ชัน SetCursorPos API , GetCursorPos API
ก็ใช้ควบคุมแค่ตำแหน่งของ cursor mouse
แต่ในเกมส์ใช้คำสั่งในการตรวจสอบการเลื่อน mouse
ขอถามหน่อยครับว่าพอมีวิธีอื่นในการส่งค่าของการกดปุ่มบนคีย์บอดและการเลื่อน
mouse
ไหมครับ
_________________
Hi | |
| กลับไปข้างบน |
|
|
Pobas
เข้าร่วมเมื่อ: 12 ตค. 2006
ตอบ:
4
|
|
| กลับไปข้างบน |
|
|
sittiporn
เข้าร่วมเมื่อ: 10 กย. 2006
ตอบ:
22
ที่อยู่: ท่าทอง
|
| ตอบ: พฤ. ตค. 12, 2006
5:19 pm ชื่อกระทู้:
บัตรคิว |
|
|
อยากทราบเกี่ยวกับเสียงเรียกบัตรคิวอะคับ
_________________
นาย
000000 | |
| กลับไปข้างบน |
|
|
K.Romeo
เข้าร่วมเมื่อ: 13 ตค. 2006
ตอบ:
8
ที่อยู่: 98/15
|
| ตอบ: ศ. ตค. 13, 2006 3:34
pm ชื่อกระทู้:
ติดต่อกับเสียงด้วยไมโครโฟน |
|
|
คือผมต้องการเขียน vb
ติดต่อไมโครโฟนโดยโปรแกรมจะรับเสียงที่พูดเข้ามาแล้วมาแปลงเป็นข้อความจะต้องเขียนอย่างไรครับ
รบกวนพี่แมงเม่าช่วยชี้ทางให้ด้วยครับ singha2166@gmail.com
_________________
ฝากเนื้อฝากตัวด้วยครับ | |
| กลับไปข้างบน |
|
|
เอ๊กส์
เข้าร่วมเมื่อ: 24 กย. 2006
ตอบ:
19
|
| ตอบ: อาทิตย์ ตค. 15, 2006
2:02 pm ชื่อกระทู้:
ช่วยหน่อยครับ |
|
|
| voyager
บันทึก: |
| คำพูด: |
สวัสดีคับ
อยากจะถามว่าถ้าต้องการควบคุม 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 |
เรียนถามพี่แมงเม่า
หรือว่าคนที่ทำโปรแกรมนี้แล้วใช้งานได้ครับ
ผมลองทำตามนี้แล้วแต่ไม่เกิดอะไรขึ้นเลย
พอลองรันดูก็เห็นแต่ฟอร์มเปล่าๆครับ
อยากทราบว่าผมทำผิดพลาดตรงไหนหรือต้องใช้คำสั่งอะไรเพิ่มเติม
**ผมเพิ่งหัดVB ครับ
-อันนี้เขียนใน Form
-อันนี้เขียนใน Module
-พอรันออกมา
มันไม่ฟ้อง error
นะครับแต่พอกดลูกศรดูปรากฎณ์ว่าเม้าส์ไม่ขยับเลยครับ | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: อาทิตย์ ตค. 15, 2006
3:43 pm ชื่อกระทู้:
|
|
|
| คำพูด: |
เรียนถามพี่แมงเม่า
หรือว่าคนที่ทำโปรแกรมนี้แล้วใช้งานได้ครับ
ผมลองทำตามนี้แล้วแต่ไม่เกิดอะไรขึ้นเลย
พอลองรันดูก็เห็นแต่ฟอร์มเปล่าๆครับ
อยากทราบว่าผมทำผิดพลาดตรงไหนหรือต้องใช้คำสั่งอะไรเพิ่มเติม
**ผมเพิ่งหัดVB ครับ |
You can see the code is started
from sub main procedure. So you need set the startup object to
submain instead the form.
1. Click on "project"menu.
2. Select "Project1 properties"(If your project name is
project1).
3. On the statup object, Select "Sub main"
4. Run program
That all!.
Note: I no need
to write in Eng, But my PC does not support Thai font.
mangmao | |
| กลับไปข้างบน |
|
|
Bastardder69
เข้าร่วมเมื่อ: 15 ตค. 2006
ตอบ:
2
|
|
| กลับไปข้างบน |
|
|
เอ๊กส์
เข้าร่วมเมื่อ: 24 กย. 2006
ตอบ:
19
|
| ตอบ: อาทิตย์ ตค. 15, 2006
6:00 pm ชื่อกระทู้:
|
|
|
| voyager
บันทึก: |
| คำพูด: |
เรียนถามพี่แมงเม่า
หรือว่าคนที่ทำโปรแกรมนี้แล้วใช้งานได้ครับ
ผมลองทำตามนี้แล้วแต่ไม่เกิดอะไรขึ้นเลย
พอลองรันดูก็เห็นแต่ฟอร์มเปล่าๆครับ
อยากทราบว่าผมทำผิดพลาดตรงไหนหรือต้องใช้คำสั่งอะไรเพิ่มเติม
**ผมเพิ่งหัดVB ครับ |
You can see the code is
started from sub main procedure. So you need set the
startup object to submain instead the form.
1.
Click on "project"menu.
2. Select "Project1
properties"(If your project name is project1).
3. On
the statup object, Select "Sub main"
4. Run program
That all!.
Note: I no need to write in
Eng, But my PC does not support Thai font.
mangmao |
ลองทำตามแล้วครับ ปรากฎณ์ว่าโปรแกรมแจ้ง
error ตามนี้ครับ
-เปลี่ยน statup object เป็น "Sub
main"
-แจ้ง error
![]()
 | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: อาทิตย์ ตค. 15, 2006
7:01 pm ชื่อกระทู้:
|
|
|
| คำพูด: |
| ลองทำตามแล้วครับ ปรากฎณ์ว่าโปรแกรมแจ้ง
error ตามนี้ครับ |
If you are really newbie. I think, it's
better that you start from the basic sample. This example's
quite moderate level and this error very simple to fix if you
know the basic.
1. First error is the object could not
be found. This case, You need to rename your form's name to
"OutPUtFORM"
2. The second error will be occurred from
below
OutPUtFORM.Xposition.Caption = "X : " &
XandY.x
OutPUtFORM.Yposition.Caption = "Y : " &
XandY.y
You need create 2 labels object, name its to
"Xposition" and "Yposition" respectively. This 2 label will be
displayedthe current cursor's position.
Mangmao | |
| กลับไปข้างบน |
|
|
เอ๊กส์
เข้าร่วมเมื่อ: 24 กย. 2006
ตอบ:
19
|
| ตอบ: อาทิตย์ ตค. 15, 2006
9:06 pm ชื่อกระทู้:
|
|
|
ขอบคุณพี่แมงเม่าครับ
ที่ช่วยตอบทุกคำถาม
พี่ครับถ้าไม่รบกวนเกินไปผมขอเบอร์พี่ได้ปะครับไว้โทรไปปรึกษาครับ
นี่เมลล์ผมครับ xophia14@hotmail.com
**ถ้าไม่ได้เบอร์ขอเมลล์ที่ใช้ติดต่อพี่ก็ได้ครับ | |
| กลับไปข้างบน |
|
|
abella
เข้าร่วมเมื่อ: 03 กย. 2006
ตอบ:
12
|
| ตอบ: จ. ตค. 16, 2006
10:46 pm ชื่อกระทู้:
|
|
|
ขอถามพี่แมงเม่าหน่อยค่ะ คือหนูจะทำให้โปรแกรมมานขึ้นเป็น 2 เพจ
อ่ะค่ะ แต่มานเข้าไปแก้ในเพจ 2 ไม่ได้อ่ะค่ะต้องทำอย่างไรคะ
ถึงจะไปที่ page หรือ tab 2 ได้ แล้วเวลาลาก text box
มาวางที่หน้า page 1
มานจะไปขึ้นข้างหลังเลยอ่ะค่ะต้องทำอย่างไรคะ
ตอนนี้มะรู้จะแก้อย่างไรเลยใช้ tab แทน page ก่อนอ่ะค่ะ
หนูมีรูปจะให้พี่ดูนะคะเผื่อพี่จะไม่เข้าใจที่หนูถาม
แต่คือหนูไม่รู้ว่าจะเอาขึ้นหน้าบอร์ดอย่างไรอ่ะค่ะ -
-" | |
| กลับไปข้างบน |
|
|
เอ๊กส์
เข้าร่วมเมื่อ: 24 กย. 2006
ตอบ:
19
|
| ตอบ: อ. ตค. 17, 2006 5:56
pm ชื่อกระทู้:
ช่วยหน่อยครับพี่แมงเม่า |
|
|
| voyager
บันทึก: |
| โค้ด: |
เรียนถาม พี่แมงเม่า
พี่พอจะช่วยลงขั้นตอนการเขียนโปรแกรมโดยเมื่อเราพูดคำอะไรไป
ตัวฟอร์มก็จะแสดงข้อความนั้นขึ้นมาได้ปะคับ
เช่นเมื่อผมพูดว่า 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 |
ตอนนี้ผมทำโปรแกรม
เลื่อนเคอร์เซอร์สำเร็จแล้วเลยลองทำ โปรแกรมรู้จำเสียงอันนี้ต่อ
แต่ติดปัญหาอีกแล้วครับ พอผมทำเสร็จลองรันดู แล้วลองพูดไต่ไม่มี
message box ขึ้นมาเลยครับ ผมทำตามนี้ครับ
-อันนี้เป็นฟอร์มที่ผม แอดคอมโพเนนท์ของ speech
recognition เข้ามาแล้ว
![]()
-รูปนี้สร้าง gramma file เพื่อเก็บค่าคำสั่ง save
ไว้ในไดเรกทอรี่เดียวกันกับตัวโปรเจค ชื่อ file "grammars.txt"
![]()
-เขียนโปรแกรมลงบนฟอร์ม
![]()
-ลองรันดู
ผ่านฉลุยแต่ทำไมเวลาพูดแล้วไม่มีอะไรเกิดขึ้นเลยอะครับ
![]()
ช่วยหน่อยครับผมต้องทำไรเพิ่มอีกป่าว หรือผิดพลาดตรงไหน
โปรแกรมนี้ถ้าผมทำได้จะช่วยในการทำโปรเจคผมอย่างมาก
ยังไงก็กรุณาหน่อยนะครับ พี่แมงเม่า | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: อ. ตค. 17, 2006 6:40
pm ชื่อกระทู้:
|
|
|
| คำพูด: |
| ตอนนี้ผมทำโปรแกรม
เลื่อนเคอร์เซอร์สำเร็จแล้วเลยลองทำ
โปรแกรมรู้จำเสียงอันนี้ต่อ แต่ติดปัญหาอีกแล้วครับ
พอผมทำเสร็จลองรันดู แล้วลองพูดไต่ไม่มี message box
ขึ้นมาเลยครับ ผมทำตามนี้ครับ |
Did you ever train the voice?. If yes,
It should work. Other you may need to check your microphone.
Mangmao | |
| กลับไปข้างบน |
|
|
Jodick7
เข้าร่วมเมื่อ: 18 ตค. 2006
ตอบ:
3
|
|
| กลับไปข้างบน |
|
|
Sterenceterjobas2
เข้าร่วมเมื่อ: 18 ตค. 2006
ตอบ:
5
|
|
| กลับไปข้างบน |
|
|
เอ๊กส์
เข้าร่วมเมื่อ: 24 กย. 2006
ตอบ:
19
|
| ตอบ: พ. ตค. 18, 2006 8:14
am ชื่อกระทู้:
|
|
|
| voyager
บันทึก: |
| คำพูด: |
| ตอนนี้ผมทำโปรแกรม
เลื่อนเคอร์เซอร์สำเร็จแล้วเลยลองทำ
โปรแกรมรู้จำเสียงอันนี้ต่อ แต่ติดปัญหาอีกแล้วครับ
พอผมทำเสร็จลองรันดู แล้วลองพูดไต่ไม่มี message box
ขึ้นมาเลยครับ
ผมทำตามนี้ครับ |
Did you ever train the voice?. If
yes, It should work. Other you may need to check your
microphone.
Mangmao |
ยังไม่ได้ครับ
ผมต้องเพิ่มตรงส่วนของโปรแกรมอะไรรึป่าวครับ
ผมลองเทศไมค์โดยลองเล่น โปรแกรม ezy_control
ของพี่ดูแล้วก็ใช้ได้ดีครับไม่มีปัญหา
ถ้าไม่ได้จิงๆ
พี่พอมีโค๊ดอื่นป่าวครับที่ใช้เพื่อทดสอบว่าโปรแกรมสามารถรับค่าเสียงเราพูดผ่านไมค์ได้จิงๆ
ขอบคุณครับ | |
| กลับไปข้างบน |
|
|
เอ๊กส์
เข้าร่วมเมื่อ: 24 กย. 2006
ตอบ:
19
|
| ตอบ: พ. ตค. 18, 2006
12:23 pm ชื่อกระทู้:
|
|
|
**จากกระทุ้ข้างบน
ถ้าไม่รบกวนพี่เกินไปช่วยส่งตัว project
ที่พี่เขียนมาให้หน่อยได้ป่าวคับ
ผมไม่ทราบจิงๆว่าที่ผมทำทำไมมันใช้การไม่ได้อะคับ
xophia14@hotmail.com | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: พ. ตค. 18, 2006 2:15
pm ชื่อกระทู้:
|
|
|
'Form
| คำพูด: |
Private Sub Form_Load()
reco.GrammarFromFile App.Path & "\Grammars.txt"
reco.Activate
End Sub
Private Sub
reco_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'", vbExclamation,
"OK"
Case "Cancel"
MsgBox "You say 'Cancel'",
vbExclamation, "Cancel"
Case "Help"
MsgBox "You
say 'Help'", vbExclamation, "Help"
Case "Exit"
MsgBox "Created: journey_buzz@hotmail.com",vbInformation,
"Exit"
End
Case "Enter"
SendKeys "{ENTER}"
End Select
End Sub |
gramma ไฟล์
[Grammer]
| คำพูด: |
type=cfg
[<start>]
<start>=OK
<start>=Cancel
<start>=Help
<start>=Exit
<start>=Enter |
1. น้องตั้งชื่อไฟล์เก็บคำสั่งถูกรึเปล่า
คำสั่งจะเอามาจากไฟล์นี้
reco.GrammarFromFile App.Path
& "\Grammars.txt"
2. path ที่เก็บไฟล์ต้องเป็นที่เดียวกับโปรแจค
reco.GrammarFromFile App.Path & "Grammars.txt"
3. โค๊ดมีแค่นี้แหละ ผมทดลองแล้วมันก็ใช้ได้ดี
แมงเม่า | |
| กลับไปข้างบน |
|
|
เอ๊กส์
เข้าร่วมเมื่อ: 24 กย. 2006
ตอบ:
19
|
| ตอบ: พ. ตค. 18, 2006 5:12
pm ชื่อกระทู้:
|
|
|
| voyager
บันทึก: |
'Form
1.
น้องตั้งชื่อไฟล์เก็บคำสั่งถูกรึเปล่า
คำสั่งจะเอามาจากไฟล์นี้
reco.GrammarFromFile
App.Path & "\Grammars.txt"
2. path ที่เก็บไฟล์ต้องเป็นที่เดียวกับโปรแจค
reco.GrammarFromFile App.Path &
"Grammars.txt"
3. โค๊ดมีแค่นี้แหละ
ผมทดลองแล้วมันก็ใช้ได้ดี
แมงเม่า |
ขอบคุณมากครับผมจะลองทำดูครับ เออพี่ครับ
ตามโค๊ดใหม่นี้ เราต้องแอดคอมโพเนนท์ตัวไหนเข้ามารึป่าวครับ
ผมเคยลองตามนี้ แล้วมันจะขึ้นสีแดงที่ reco.GrammarFromFile App.Path & "\Grammars.txt"
ในส่วนของ From อะครับ
รู้สึกว่าตอนนี้รบกวนพี่หลายเรื่องเหลือเกินยังไงก็ขอโทษด้วยนะครับ | |
| กลับไปข้างบน |
|
|
sittiporn
เข้าร่วมเมื่อ: 10 กย. 2006
ตอบ:
22
ที่อยู่: ท่าทอง
|
| ตอบ: พ. ตค. 18, 2006 5:48
pm ชื่อกระทู้:
บัตรคิว |
|
|
อยากทราบเกี่ยวกับเสียงเรียกคิวคับการบันทึกเสียงเรียกคิวคับ
_________________
นาย
000000 | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: พ. ตค. 18, 2006 9:27
pm ชื่อกระทู้:
|
|
|
| คำพูด: |
| ขอบคุณมากครับผมจะลองทำดูครับ |
Yes, U need adding "DirectSR" control
DirectSR1.GrammarFromFile App.Path &
"grammars.txt" | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: พ. ตค. 18, 2006 9:39
pm ชื่อกระทู้:
|
|
|
| คำพูด: |
| อยากทราบเกี่ยวกับเสียงเรียกคิวคับการบันทึกเสียงเรียกคิวคับ |
I really don't know for this concept.
It may use Thai TTS(text to speech). I know that NECTEC
already developped this technology but I also don't know why
they don't distribute to public. They created the complete
package name "SA-LEE-KA" but that for sale. How ever you can
try in other way( may be you use this software as guide).
1. Download Thai TTS trail software.
2. Read the
number.
3. Save to mid(midi)file.
4. Call mid
file. | |
| กลับไปข้างบน |
|
|
thraipop
เข้าร่วมเมื่อ: 18 ตค. 2006
ตอบ:
2
|
| ตอบ: พฤ. ตค. 19, 2006
10:39 am ชื่อกระทู้:
ใครรู้ช่วยตอบหน่อยครับ |
|
|
| อยากทราบเกี่ยวกับการใช้ VB
ในการ ดักจับข้อมูลของ พอร์ตขนานนะครับ
ก่อนที่จะส่งข้อมูลออกไปนะครับ ถ้าทำไม่ได้ พอจะมีทางสร้างเป็น
virsual parallel port ไหมครับ ทำอย่างไรครับ
หามานานแล้วทำไม่ได้สักทีครับ | |
| กลับไปข้างบน |
|
|
tikky
เข้าร่วมเมื่อ: 01 กย. 2006
ตอบ:
11
|
| ตอบ: พฤ. ตค. 19, 2006
4:57 pm ชื่อกระทู้:
|
|
|
สอบถามเกี่ยวกับ TreeView
หน่อยครับ...
TreeView1 ผมแอด ไดร์ไว้ครับ
My
Computer
-c:
-d:
-e:
ถ้าผมส่ง path ไปให้
TreeView เช่น d:\folder1\folder2\folder3\
TreeView
จะแอดโนดยังไงครับให้เป็นรูปแบบนี้น่ะ
My Computer
-c:
-d:
-folder1
-folder2
-folder3
-e:
รบกวนด้วยครับผม | |
| กลับไปข้างบน |
|
|
tikky
เข้าร่วมเมื่อ: 01 กย. 2006
ตอบ:
11
|
| ตอบ: พฤ. ตค. 19, 2006
5:00 pm ชื่อกระทู้:
|
|
|
แก้ไขคำถามข้างบนครับ...
My Computer
-c:
-d:
-----folder1
-------------folder2
---------------------folder3
-e: | |
| กลับไปข้างบน |
|
|
sittiporn
เข้าร่วมเมื่อ: 10 กย. 2006
ตอบ:
22
ที่อยู่: ท่าทอง
|
| ตอบ: พฤ. ตค. 19, 2006
6:25 pm ชื่อกระทู้:
บัตรคิว |
|
|
พอมีแนวโค๊ดไม่คับเกี่ยวกับเรียกคิวนะคับ
_________________
นาย
000000 | |
| กลับไปข้างบน |
|
|
Sterencejo7
เข้าร่วมเมื่อ: 19 ตค. 2006
ตอบ:
14
|
|
| กลับไปข้างบน |
|
|
sittiporn
เข้าร่วมเมื่อ: 10 กย. 2006
ตอบ:
22
ที่อยู่: ท่าทอง
|
| ตอบ: พฤ. ตค. 19, 2006
9:51 pm ชื่อกระทู้:
บัตรคิว |
|
|
ตอนนี้ผมงงอยู่เกียวกับโปรแกรมเรียกคิวขอคำแนะนำหน่อยแล้วกันนะคับยิงมากยิงหลายเหตุผลก็นะคับ(ถ้าขอแนวโค๊ดด้วยกันนะคับ)
_________________
นาย
000000 | |
| กลับไปข้างบน |
|
|
Potertedtardan
เข้าร่วมเมื่อ: 20 ตค. 2006
ตอบ:
5
|
|
| กลับไปข้างบน |
|
|
sittiporn
เข้าร่วมเมื่อ: 10 กย. 2006
ตอบ:
22
ที่อยู่: ท่าทอง
|
| ตอบ: ศ. ตค. 20, 2006
11:59 am ชื่อกระทู้:
บัตรคิว |
|
|
ซอร์ดโค๊ดมีบ้างไม่คับ
vb
_________________
นาย 000000 | |
| กลับไปข้างบน |
|
|
sittiporn
เข้าร่วมเมื่อ: 10 กย. 2006
ตอบ:
22
ที่อยู่: ท่าทอง
|
| ตอบ: ศ. ตค. 20, 2006
12:01 pm ชื่อกระทู้:
บัตรคิว |
|
|
ซอร์ดโค๊ดบัตรคิวอ vb อะคับ
มีบ้างไม่คับ เป็นแนว
_________________
นาย
000000 | |
| กลับไปข้างบน |
|
|
เอ๊กส์
เข้าร่วมเมื่อ: 24 กย. 2006
ตอบ:
19
|
| ตอบ: ศ. ตค. 20, 2006 8:37
pm ชื่อกระทู้:
ขอบคุณพี่แมงเม่ามากๆครับ |
|
|
| เอ๊กส์
บันทึก: |
| voyager
บันทึก: |
'Form
1.
น้องตั้งชื่อไฟล์เก็บคำสั่งถูกรึเปล่า
คำสั่งจะเอามาจากไฟล์นี้
reco.GrammarFromFile
App.Path & "\Grammars.txt"
2. path
ที่เก็บไฟล์ต้องเป็นที่เดียวกับโปรแจค
reco.GrammarFromFile App.Path &
"Grammars.txt"
3. โค๊ดมีแค่นี้แหละ
ผมทดลองแล้วมันก็ใช้ได้ดี
แมงเม่า |
ขอบคุณมากครับผมจะลองทำดูครับ
เออพี่ครับ ตามโค๊ดใหม่นี้
เราต้องแอดคอมโพเนนท์ตัวไหนเข้ามารึป่าวครับ
ผมเคยลองตามนี้ แล้วมันจะขึ้นสีแดงที่ reco.GrammarFromFile App.Path &
"\Grammars.txt"
ในส่วนของ From อะครับ
รู้สึกว่าตอนนี้รบกวนพี่หลายเรื่องเหลือเกินยังไงก็ขอโทษด้วยนะครับ |
หลังจากงงอยู่นาน และรบกวนพี่อยู่นาน
ในที่สุดก็ทำได้สักทีครับ มันไม่ยากเลย
และโค๊ดของพี่ก็ดียอดอยู่แล้ว เพียงแต่ผมพลาดลืมดูแค่นิดหน่อยเอง
ยังไงตอนนี้ก็ทำได้แล้วต้องขอขอบคุณ
พี่แมงเม่ามากๆครับที่อุตส่าห์ตอบผมทุกคำถาม
ขอบคุณจิงๆครับ  | |
| กลับไปข้างบน |
|
|
sittiporn
เข้าร่วมเมื่อ: 10 กย. 2006
ตอบ:
22
ที่อยู่: ท่าทอง
|
| ตอบ: ศ. ตค. 20, 2006
10:36 pm ชื่อกระทู้:
บัตรคิว |
|
|
ซอร์ดโค๊ดบัตรคิวอ vb อะคับ
มีบ้างไม่คับ เป็นแนว
ตอนนี้ผมทำโปรแจ็คอยู่คับคิดได้แล้วประติดประตอไม่ได้ที่นะคับ
ขอแนวหน่อยนะคับจะไม่ทันส่งแล้วนะคับ
_________________
นาย
000000 | |
| กลับไปข้างบน |
|
|
chayen
เข้าร่วมเมื่อ: 25 กย. 2005
ตอบ:
2
|
|
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: อาทิตย์ ตค. 22, 2006
9:49 am ชื่อกระทู้:
|
|
|
| คำพูด: |
| ซอร์ดโค๊ดบัตรคิวอ vb อะคับ มีบ้างไม่คับ
เป็นแนว
ตอนนี้ผมทำโปรแจ็คอยู่คับคิดได้แล้วประติดประตอไม่ได้ที่นะคับ
ขอแนวหน่อยนะคับจะไม่ทันส่งแล้วนะคับ |
As I guided last day, I really have no
idea for this project. But you can try other way, Eg play from
the recored file.
Here is some way to control WM
player,
Private Sub Command1_Click()
WindowsMediaPlayer1.URL = App.Path & "\Track1.mid"
WindowsMediaPlayer1.Controls.play
End Sub
Private Sub Command2_Click()
WindowsMediaPlayer1.Controls.stop
End Sub | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: อาทิตย์ ตค. 22, 2006
9:53 am ชื่อกระทู้:
|
|
|
| คำพูด: |
รบกวนช่วยโพสต์ ezycontrol
อีกครั้งด้วยคับ เพราะ url ด้านบน มันใช้ไม่ได้แล้ว
อยากนำไปศึกษาเป็นแนวทาง
ขอบคุณคับ |
I could not remember what this project
was, Does it is the voice control?. If yes, you can learn from
the previous posting. | |
| กลับไปข้างบน |
|
|
เอ๊กส์
เข้าร่วมเมื่อ: 24 กย. 2006
ตอบ:
19
|
| ตอบ: จ. ตค. 23, 2006 8:16
am ชื่อกระทู้:
|
|
|
| chayen
บันทึก: |
[url]
รบกวนช่วยโพสต์ ezycontrol
อีกครั้งด้วยคับ เพราะ url ด้านบน มันใช้ไม่ได้แล้ว
อยากนำไปศึกษาเป็นแนวทาง
ขอบคุณคับ |
ผมเคยโหลดโปรแกรมนี้จาก Thaiware.com
คิดว่ายังอยู่นะ คุณลองเข้าไปดูนะครับ
ตาม url
ด้านล่างเลยครับ
http://www.thaiware.com/main/info.php?id=6341 | |
| กลับไปข้างบน |
|
|
chayen
เข้าร่วมเมื่อ: 25 กย. 2005
ตอบ:
2
|
| ตอบ: จ. ตค. 23, 2006 3:56
pm ชื่อกระทู้:
|
|
|
| อ่าคับ
ขอบคุณมาก | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: จ. ตค. 23, 2006
10:20 pm ชื่อกระทู้:
|
|
|
Hollow ween day is coming.
To update trend, I create sample form by using skinkrafter
active control, See picture, It's cool.
You
can download trial from http://www.skincrafter.com/ | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
|
| กลับไปข้างบน |
|
|
baby_step
เข้าร่วมเมื่อ: 17 กย. 2006
ตอบ:
12
ที่อยู่: 47 ม. 3 คลองแห
|
| ตอบ: พ. ตค. 25, 2006
12:49 am ชื่อกระทู้:
|
|
|
| baby_step
บันทึก: |
ผมลองทำคีย์บอดเพื่อเล่นเกมส์โดยรับค่าผ่านพอทพริ้นเตอร์
แล้วเมือกดปุ่มก็ส่งคำสั่ง
SendKeys
เพื่อใช้แทนปุ่มกดบนคีย์บอดและใช้ SetCursorPos API กับ
GetCursorPos API ในการควบคุม mouse
เมื่อลองใช้ก็สามารถเลื่อน mouse ได้
และส่งค่า key ลง
notepad ได้
แต่เมื่อเอามาใช้กับเกมส์กลับเจอปัญหาคือม่สามารถใช้ได้
ผมคิดว่าเป็นเพราะในเกมส์ใช้คำสั่ง keydown
ในการตรวจสอบการรับค่าของปุ่มกด เมื่อใช้คำสั่ง sendkeys
จึงใช้ไม่ได้ และ ฟังก์ชัน SetCursorPos API ,
GetCursorPos API
ก็ใช้ควบคุมแค่ตำแหน่งของ cursor
mouse แต่ในเกมส์ใช้คำสั่งในการตรวจสอบการเลื่อน mouse
ขอถามหน่อยครับว่าพอมีวิธีอื่นในการส่งค่าของการกดปุ่มบนคีย์บอดและการเลื่อน
mouse
ไหมครับ
|
ตอนนี้ผมสามารถสั่ง mouse ได้แล้วโดยใช้
API mouse_event แต่ยังติดปัญหาเรื่องของ keyboard
ใครทราบรบกวนตอบด้วยนะครับ | |
| กลับไปข้างบน |
|
|
sittiporn
เข้าร่วมเมื่อ: 10 กย. 2006
ตอบ:
22
ที่อยู่: ท่าทอง
|
| ตอบ: พ. ตค. 25, 2006 3:29
pm ชื่อกระทู้:
บัตรคิว |
|
|
กาใช้เสียงในการติดต่อระหว่างเครื่อง 2
เครื่องในการเรียกคิว Clinet sever
มีแนวเขียนโค๊ดอย่างไงคับและการให้หมายเลขโชว์ขึ้นจากเครื่อง
sever แล้ว Clinet
เป็นคนสังแล้วนับหมายเลขถัดไปให้มันสอดคล้องกันคับพอดีผมทำยัง
Eror อยู่คับ
พอจะบอกได้ไม่คับเกี่ยวกับโซ๊ดโค๊ดนะคับ
_________________
นาย
000000 | |
| กลับไปข้างบน |
|
|
nProtect
เข้าร่วมเมื่อ: 26 ตค. 2006
ตอบ:
3
|
| ตอบ: พฤ. ตค. 26, 2006
12:50 pm ชื่อกระทู้:
|
|
|
น่าสนใจดีครับ
ขอโค้ดด้วยครับ | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: พฤ. ตค. 26, 2006
4:05 pm ชื่อกระทู้:
|
|
|
| คำพูด: |
| น่าสนใจดีครับ
ขอโค้ดด้วยครับ |
โค๊ดตามลิงค์เลยครับ | |
| กลับไปข้างบน |
|
|
sittiporn
เข้าร่วมเมื่อ: 10 กย. 2006
ตอบ:
22
ที่อยู่: ท่าทอง
|
| ตอบ: พฤ. ตค. 26, 2006
5:25 pm ชื่อกระทู้:
เรียกคิว |
|
|
กาใช้เสียงในการติดต่อระหว่างเครื่อง 2
เครื่องในการเรียกคิว Clinet sever
มีแนวเขียนโค๊ดอย่างไงคับและการให้หมายเลขโชว์ขึ้นจากเครื่อง
sever แล้ว Clinet
เป็นคนสังแล้วนับหมายเลขถัดไปให้มันสอดคล้องกันคับพอดีผมทำยัง
Eror อยู่คับ พอจะบอกได้ไม่คับเกี่ยวกับโซ๊ดโค๊ดนะคับ
_________________
_________________
นาย
000000 | |
| กลับไปข้างบน |
|
|
atlove09
เข้าร่วมเมื่อ: 27 ตค. 2006
ตอบ:
2
|
| ตอบ: ศ. ตค. 27, 2006 1:18
pm ชื่อกระทู้:
|
|
|
พี่แมงเม่าช่วยหน่อยนะค่ะคือ
อยากทราบว่ามีวิธีดึงเสียงออกมาจากsound card
แล้วเอามาวิเคราะห์ความถี่โดยตรงเลยไหมค่ะ ช่วยด้วยนะค่ะ
กำลังจาตายอยู่แล้วหาทางไปไม่เจอเลย
_________________
atlove | |
| กลับไปข้างบน |
|
|
K.Romeo
เข้าร่วมเมื่อ: 13 ตค. 2006
ตอบ:
8
ที่อยู่: 98/15
|
| ตอบ: ส. ตค. 28, 2006 6:58
pm ชื่อกระทู้:
แปลงเสียงเป็นข้อความ |
|
|
รบกวนพี่แมงเม่าหน่อยครับ
คือผมทำโปรเจคเกี่ยวกับเรื่องเสียงอ่ะครับคืออยากทราบว่าเราจะมีวิธีทำอย่างไรให้รับเสียงที่ได้จากไมโครโฟนแล้วแปลงเป็นข้อความครับ
_________________
ฝากเนื้อฝากตัวด้วยครับ | |
| กลับไปข้างบน |
|
|
sittiporn
เข้าร่วมเมื่อ: 10 กย. 2006
ตอบ:
22
ที่อยู่: ท่าทอง
|
| ตอบ: ส. ตค. 28, 2006
11:16 pm ชื่อกระทู้:
บัตรคิว |
|
|
ผมขอโค๊ดเรียกคิวหน่อยนะคับจะทำโปรแจ็คตอนนี้ผมงงมากเลยรบกวนพี่แมงเม่าหน่อยนะคับ
_________________
นาย
000000 | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: พ. พย. 01, 2006 9:56
am ชื่อกระทู้:
|
|
|
ขอตอบหลาย ๆ คำถามครับ จริง
ๆ
ไม่ใช่ไม่อยากจะตอบนะครับแต่บางคำถามอ่านดูเหมือนไม่ได้ตั้งใจจะถามซะงั้น
เช่น
1. "ผมไม่เข้าใจเลย ขอโค๊ดหน่อยสิ" ==> ง่ายเกิน
ไม่ตอบ
2. "ผมไม่เข้าใจเลย ทำมาตั้งนานแล้ว แนะนำหน่อย"
==> อันนี้จะแนะแนวให้ถ้ามีรายละเอียดและถ้าผมรู้
ปัญหาน่าจะเป็นประมาณนี้ จะได้ตอบให้เช่น
1.
"ผมไม่เข้าใจเลยครับ ผม post
โค๊ดมาให้แต่มันรันแล้วติดตรงนู้นตรงนี้ ช่วยแนะนำหน่อย" ==>
แบบนี้ดีถ้ามีโค๊ดคล้าย ๆ กันก็จะได้แนะนำให้
เมื่อก่อนผมก็เคยเข้ามาขอความช่วยเหลือในเวป
แต่น้อยครับที่จะมีใครตอบให้ | |
| กลับไปข้างบน |
|
|
sittiporn
เข้าร่วมเมื่อ: 10 กย. 2006
ตอบ:
22
ที่อยู่: ท่าทอง
|
| ตอบ: พฤ. พย. 02, 2006
3:01 pm ชื่อกระทู้:
บัตรคิว |
|
|
ขอบคุณมากคับ
ผมเอามาให้ดูนะคับที่ผมเขียน error อยู่คับ
ไม่รู้ว่าแนวทางถูกป่าวคับแนะนำด้วยนะคับ
_________________
นาย
000000 | |
| กลับไปข้างบน |
|
|
sittiporn
เข้าร่วมเมื่อ: 10 กย. 2006
ตอบ:
22
ที่อยู่: ท่าทอง
|
| ตอบ: พฤ. พย. 02, 2006
3:05 pm ชื่อกระทู้:
บัตรคิว |
|
|
ขอเบอร์ได้ไม่คับ หรือ
อีเมล์คับก็ได้คับ เพราะผมยังน้อยผมก็มีที่ปรึกษานะคับ
เพระผมจับคูกับเพื่อน
พอดีเพือนก็ไม่รู้เรื่องนะคับไม่รู้จะไปปรึกษาใคร
ส่วนตอนนี้ผมก็พอจะเขียนได้บ้างแล้วนะคับ
_________________
นาย
000000 | |
| กลับไปข้างบน |
|
|
sittiporn
เข้าร่วมเมื่อ: 10 กย. 2006
ตอบ:
22
ที่อยู่: ท่าทอง
|
| ตอบ: พฤ. พย. 02, 2006
10:58 pm ชื่อกระทู้:
|
|
|
ผมใช้ เป็น Sever
ไว้แสดงผลของหน้าจอ ส่วน Client ไว้กดคำสั่ง F12 และ F5
กดซ้ำหมายเลขอีกครั้ง
โค๊ดนี้ส่วนของ Client
\\ส่วนนี้ผมใช้คลิกที่หน้าจอ Clinent แล้วให้ +1
'Private Sub Command2_Click()
Dim i As Integer '
If i = 300 Then i =300'
For i = 0 To i + 1 i + 1
End If
End Sub
\\ส่วนนี้ผมใช้ F12 หน้าจอ
Clinent แล้วให้ +1
Private Sub Command2_KeyDown(KeyCode As
Integer, Shift As Integer)
Dim i As Integer
If KeyCode
= F12 Then
For i = 0 To i + 1
i = 300 i = 300
Exit For
End If
End Sub
\\ให้
F5 ทำซ้ำหมายเลขที่ทวนใหม่อีกครั้ง
Private Sub
Command3_KeyDown(KeyCode As Integer, Shift As Integer)
Dim
i As Integer
If KeyCode = "F5" Then
retrun i
End
If
End Sub
Private Sub
Command4_Click()
End
End Sub
Private Sub
QList_Click()
End Sub
\\ผมใช้ Winsock
ในการติดต่อ
Private Sub tcpClient_DataArrival(ByVal
bytesTotal As Long)
Dim sdata As String
tcpClient.GetData sdata
QList.Text = sdata
showstatus "Byes received:" & bytesTotal
End Sub
Private Sub tcpClient_Error(ByVal Number As Integer,
Description As String, ByVal Scode As Long, ByVal Source As
String, ByVal HelpFile As String, ByVal HelpContext As Long,
CancelDisplay As Boolean)
End Sub
Private Sub
tcpClient_SendComplete()
showstatus "Bytes sent:" &
lByteNum
End Sub
Private Sub
tcpClient_SendProgress(ByVal bytesSent As Long, ByVal
bytesRemaining As Long)
IByteNum = bytesSent
End Sub
------------------------------------------------------------------
ส่วนตรงนี้ยังคิดไม่ออก
\\การเล่นเสียงพูดอีกเช่น
หมายเลข 1 ช่องบริการ 2
\\การเช็คระหว่างเครื่อง Client
ว่ามาจากช่องบริการไหน
------------------------------------------------------------------
\\ส่วนตรงนี้เป็นการบันทึก prot ip ช่องบริการ
Option Explicit
Dim lByteNum As Long
Private
Sub cmdadd_Click()
Dim sRemoteHost As String
Dim
SremotePort As String
Dim SremoteServic As String
SremoteServic = Combo1.Text
sRemoteHost = txtip.Text
SremotePort = txtportsever.Text
SremotePort =
txtportClient.Text
End Sub
//ผมเอา ฮับต่อกัน
โปรแกรมยังไม่ทำงานอะไรเลยนิ่ง
ผมจะ post
เป็นครั้งสุดท้ายแล้วครับ ถ้ามีใครมีข้อเสนอแนะดี ๆ
พอที่จะปรึกษาได้ ขอขอบคุณมากคับ
_________________
นาย
000000 | |
| กลับไปข้างบน |
|
|
Teenbasan45
เข้าร่วมเมื่อ: 03 พย. 2006
ตอบ:
28
|
|
| กลับไปข้างบน |
|
|
Teenbasan45
เข้าร่วมเมื่อ: 03 พย. 2006
ตอบ:
28
|
|
| กลับไปข้างบน |
|
|
sittiporn
เข้าร่วมเมื่อ: 10 กย. 2006
ตอบ:
22
ที่อยู่: ท่าทอง
|
| ตอบ: ศ. พย. 03, 2006
12:55 am ชื่อกระทู้:
บัตรคิว |
|
|
ผมขอชัดเจนกว่านี้ได้ไม่คับ
ผมไม่ทันส่งแล้วคับ
_________________
นาย
000000 | |
| กลับไปข้างบน |
|
|
Uptertedteen33
เข้าร่วมเมื่อ: 07 พย. 2006
ตอบ:
2
|
|
| กลับไปข้างบน |
|
|
romio
เข้าร่วมเมื่อ: 08 พย. 2006
ตอบ:
1
|
| ตอบ: พ. พย. 08, 2006 9:07
pm ชื่อกระทู้:
Control Keybord |
|
|
อยากถามพี่แมงเม่าคะว่าถ้าจะเขียน VB6
โดยการควบคุมคีย์บอร์ดแบบว่า
ถ้ากดปุ่ม Enter
แล้วจะให้ปุ่มอื่นทำงานอัตโนมัติโดนที่เรากดปุ่มEnter
เพียงปุ่มเดียว
เช่น ถ้านู๋กดปุ่ม Enter 1 ครั้ง
>>>>ปุ่มลูกศรลงจะทำงาน1ครั้งแล้วต่อด้วยปุมEnter
อีก 3 ครั้ง (ตั่งแต่ปุ่มลูกศรลงจนถึงปุ่ม Enter
จะทำงานอัตโนมัติ)
>>>>
เรียนขอโค๊ดพี่แมงเม่าด้วยค๊ะ ขอบคุณมากนะค๊ะ | |
| กลับไปข้างบน |
|
|
tee2523
เข้าร่วมเมื่อ: 12 พย. 2006
ตอบ:
2
|
| ตอบ: อาทิตย์ พย. 12, 2006
10:25 pm ชื่อกระทู้:
ผมทำโปรเจ็ค การจับภาพเคลื่อนไหวด้วยกล้องเว็บแคม
ช่วยด้วยครับ |
|
|
| ผมทำโปรเจ็คนี้อยู่และเห็นว่าคุณแมงเม่าเก่งเรื่องนี้
ซึ่งผมได้ติดตามผลงานของคุณแมงเม่ามาซักระยะ
จึงอยากจะขอเปเปอร์ของคุณแมงเม่ามาดูเพื่อเป็นแนวทางในการทำ
หรือคุณแมงเม่ามีเวบที่น่าสนใจเกี่ยวกับทฤษฏีหรือบทความต่างๆ
เทอมนี้อาจารย์ไห้ทำเปเปอร์อย่างเดียว เทอมหน้าโค๊ดดิ้ง
ช่วยผมหน่อยครับ ภาษาไทยนะครับ อ่อนภาษาอังกฤษมากครับ tee2523@hotmail.com | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: จ. พย. 13, 2006 8:58
am ชื่อกระทู้:
|
|
|
| คำพูด: |
| ผมทำโปรเจ็คนี้อยู่และเห็นว่าคุณแมงเม่าเก่งเรื่องนี้
ซึ่งผมได้ติดตามผลงานของคุณแมงเม่ามาซักระยะ
จึงอยากจะขอเปเปอร์ของคุณแมงเม่ามาดูเพื่อเป็นแนวทางในการทำ
หรือคุณแมงเม่ามีเวบที่น่าสนใจเกี่ยวกับทฤษฏีหรือบทความต่างๆ
เทอมนี้อาจารย์ไห้ทำเปเปอร์อย่างเดียว เทอมหน้าโค๊ดดิ้ง
ช่วยผมหน่อยครับ ภาษาไทยนะครับ อ่อนภาษาอังกฤษมากครับ tee2523@hotmail.com |
มันคือเรื่องอะไรอะครับ | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
|
| กลับไปข้างบน |
|
|
tee2523
เข้าร่วมเมื่อ: 12 พย. 2006
ตอบ:
2
|
| ตอบ: อ. พย. 14, 2006 1:27
am ชื่อกระทู้:
|
|
|
| เรื่องการจับภาพเคลื่อนไหวด้วยกล้องเวบแคม
คือผมอยากรู้เรื่อง eadge detection ครับ
เป็นการจับภาพจากขอบของภาพอ่ะครับ ประมานนี้ มีเปเปอร์ไหมครับ
รบกวนหน่อยนะครับ ขอบคุณครับ ผมใช้ วีบีเขียน
แต่อยากได้เรื่องของทฤษฎีหน่อยอ่ะครับ | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
|
| กลับไปข้างบน |
|
|
pigpoj
เข้าร่วมเมื่อ: 29 สค. 2006
ตอบ:
8
|
| ตอบ: พ. พย. 15, 2006
12:31 am ชื่อกระทู้:
|
|
|
สวัสดีครับพี่ๆ
พอดีผมสนใจเรื่อง การเขียน VB เพื่อรับข้อมูล จาก serial
port RS232
คล้ายๆ hyper terminal
เป็นข้อมูลจาก sensor
วัดอุณหภูมิ
ที่ส่งมา ทุกๆ 1 นาที
แล้วจัดเก็บ
ลงฐานข้อมูล MySQL ครับ
เคยลองๆอ่าน
ที่เคยโพสไว้แต่ยังไมค่อยตรงเท่าไหร่
พี่ๆช่วยผมหน่อยนะครับ
ขอบคุณมากครับ | |
| กลับไปข้างบน |
|
|
pigpoj
เข้าร่วมเมื่อ: 29 สค. 2006
ตอบ:
8
|
| ตอบ: พ. พย. 15, 2006
12:32 am ชื่อกระทู้:
|
|
|
สวัสดีครับพี่ๆ
พอดีผมสนใจเรื่อง การเขียน VB เพื่อรับข้อมูล จาก serial
port RS232
คล้ายๆ hyper terminal
เป็นข้อมูลจาก sensor
วัดอุณหภูมิ
ที่ส่งมา ทุกๆ 1 นาที
แล้วจัดเก็บ
ลงฐานข้อมูล MySQL ครับ
เคยลองๆอ่าน
ที่เคยโพสไว้แต่ยังไมค่อยตรงเท่าไหร่
พี่ๆช่วยผมหน่อยนะครับ
ขอบคุณมากครับ | |
| กลับไปข้างบน |
|
|
pigpoj
เข้าร่วมเมื่อ: 29 สค. 2006
ตอบ:
8
|
| ตอบ: พ. พย. 15, 2006
12:33 am ชื่อกระทู้:
|
|
|
สวัสดีครับพี่ๆ
พอดีผมสนใจเรื่อง การเขียน VB เพื่อรับข้อมูล จาก serial
port RS232
คล้ายๆ hyper terminal
เป็นข้อมูลจาก sensor
วัดอุณหภูมิ
ที่ส่งมา ทุกๆ 1 นาที
แล้วจัดเก็บ
ลงฐานข้อมูล MySQL ครับ
เคยลองๆอ่าน
ที่เคยโพสไว้แต่ยังไมค่อยตรงเท่าไหร่
พี่ๆช่วยผมหน่อยนะครับ
ขอบคุณมากครับ | |
| กลับไปข้างบน |
|
|
pigpoj
เข้าร่วมเมื่อ: 29 สค. 2006
ตอบ:
8
|
| ตอบ: พ. พย. 15, 2006
12:34 am ชื่อกระทู้:
|
|
|
สวัสดีครับพี่ๆ
พอดีผมสนใจเรื่อง การเขียน VB เพื่อรับข้อมูล จาก serial
port RS232
คล้ายๆ hyper terminal
เป็นข้อมูลจาก sensor
วัดอุณหภูมิ
ที่ส่งมา ทุกๆ 1 นาที
แล้วจัดเก็บ
ลงฐานข้อมูล MySQL ครับ
เคยลองๆอ่าน
ที่เคยโพสไว้แต่ยังไมค่อยตรงเท่าไหร่
พี่ๆช่วยผมหน่อยนะครับ
ขอบคุณมากครับ | |
| กลับไปข้างบน |
|
|
peerazuche
เข้าร่วมเมื่อ: 23 มค. 2006
ตอบ:
3
|
| ตอบ: ศ. พย. 17, 2006
12:38 am ชื่อกระทู้:
Registry read |
|
|
| พี่แมงเม่าพอจะทร่บมั้ยครับว่าเราจะสามารถอ่านค่า
registry ของ PC เครื่องอื่นได้มั้ยครับ หรือไป get มาก็ได้ครับ
....ขอบคุณกั๊บ (ก่อนเลย ขอโทษที่ถามเรื่องที่ไม่ใช่
interface) | |
| กลับไปข้างบน |
|
|
alexray
เข้าร่วมเมื่อ: 17 พย. 2006
ตอบ:
2
|
| ตอบ: ศ. พย. 17, 2006 2:11
pm ชื่อกระทู้:
|
|
|
| อยากรู้ว่า กระแส ไฟ
ที่มันส่ง ออกมา จาก port printer เนี้ย มัน จ่าย ไฟ ออก มา 5v
เลย เหรอ ครับ เราสามารถ ไปกำหนด ให้ มันมี ค่า ตั้งแต่ 0-5v
ได้หรือเปล่า เขียน โปรแกรม กำหนด ยัง ไง ครับ หรือ ว่า ต้อง ใช้
วงจรอะไรเข้ามาช่วย ครับ ช่วย อธิบายหน่อย ครับ ไม่เข้าใจ
เขียนโค้ด ยัง ไงครับ งง | |
| กลับไปข้างบน |
|
|
K.Romeo
เข้าร่วมเมื่อ: 13 ตค. 2006
ตอบ:
8
ที่อยู่: 98/15
|
| ตอบ: ศ. พย. 17, 2006 3:02
pm ชื่อกระทู้:
|
|
|
รบกวนพี่แมงเม่าหน่อยครับ
อยากทราบว่าเราจะคอนโทรลคอมโพเนนท์ DirectSR
ได้อย่างไรบ้างเพื่อที่จะไม่ทำให้เสียงที่รับมามีความเพี้ยนน้อยที่สุด
แล้วคอมโพเนนท์ตัวนี้มันมีหลัการทำงานอย่างไรถึงได้แปลงเสียงที่ได้มาเป็นข้อความเลยครับ
_________________
ฝากเนื้อฝากตัวด้วยครับ | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: ส. พย. 18, 2006 8:01
am ชื่อกระทู้:
|
|
|
| โค้ด: |
| พี่แมงเม่าพอจะทร่บมั้ยครับว่าเราจะสามารถอ่านค่า
registry ของ PC เครื่องอื่นได้มั้ยครับ หรือไป get
มาก็ได้ครับ ....ขอบคุณกั๊บ (ก่อนเลย
ขอโทษที่ถามเรื่องที่ไม่ใช่
interface) |
ไม่ทราบครับ แต่ว่าอยากรู้ว่ามี
registry อะไรบ้างก็เข้าไปดูที่ start -- run พิมพ์ regedit
ตัวอย่างผมสร้างบันทึก registry ใหม่
Sub save()
SaveSetting "VB", "FormSettings", "FormTop", Form1.Top
SaveSetting "VB", "FormSettings", "FormLeft", Form1.Left
SaveSetting "VB", "FormSettings", "Backcolor",
Form1.BackColor
SaveSetting "VB", "FormSettings",
"Value1", Option1.Value
SaveSetting "VB", "FormSettings",
"Value2", Option2.Value
SaveSetting "VB", "FormSettings",
"Value3", Option3.Value
SaveSetting "VB", "FormSettings",
"Text", Text1.Text
End Sub
มันก็จะไปอยู่ตรงนี้
 | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: ส. พย. 18, 2006 8:04
am ชื่อกระทู้:
|
|
|
| คำพูด: |
| อยากรู้ว่า กระแส ไฟ ที่มันส่ง ออกมา จาก
port printer เนี้ย มัน จ่าย ไฟ ออก มา 5v เลย เหรอ ครับ
เราสามารถ ไปกำหนด ให้ มันมี ค่า ตั้งแต่ 0-5v
ได้หรือเปล่า เขียน โปรแกรม กำหนด ยัง ไง ครับ หรือ ว่า
ต้อง ใช้ วงจรอะไรเข้ามาช่วย ครับ ช่วย อธิบายหน่อย ครับ
ไม่เข้าใจ เขียนโค้ด ยัง ไงครับ
งง |
ครับมันจะออกมาใกล้ ๆ 5 โวลต์
ถ้าจะเขียนโปรแกรมควบคุมคิดว่าไม่น่าได้ครับ | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: ส. พย. 18, 2006 8:10
am ชื่อกระทู้:
|
|
|
| คำพูด: |
| รบกวนพี่แมงเม่าหน่อยครับ
อยากทราบว่าเราจะคอนโทรลคอมโพเนนท์ DirectSR
ได้อย่างไรบ้างเพื่อที่จะไม่ทำให้เสียงที่รับมามีความเพี้ยนน้อยที่สุด
แล้วคอมโพเนนท์ตัวนี้มันมีหลัการทำงานอย่างไรถึงได้แปลงเสียงที่ได้มาเป็นข้อความเลยครับ |
1. ต้อง training เยอะ ๆ ผมโพสต์ในเวปวรา
http://www.wara.com/modules.php?name=News&file=article&sid=493
2. เท่าที่รู้มาคือการสังเคราะห์เสียง(Text-to-Speech
Synthesis)ครับ ของไทยก็มีครับพัฒนาโดย nectec | |
| กลับไปข้างบน |
|
|
mcmaster
เข้าร่วมเมื่อ: 16 พย. 2006
ตอบ:
6
|
| ตอบ: ส. พย. 18, 2006 4:58
pm ชื่อกระทู้:
|
|
|
คือว่าผมทำโปรเจ็คเกี่ยวกับกล้อง 2 ตา
แล้วจะจับภาพโดยใช้กล้อง 2 ตัว
(กล้องwebcam)ไม่ทราบว่าจะเขียน vb รับภาพและแสดงทั้ง 2
ตัวยังไงอ่ะครับ
และก็สามารถเซฟได้ด้วย
ช่วยหน่อยนะครับ..... | |
| กลับไปข้างบน |
|
|
K.Romeo
เข้าร่วมเมื่อ: 13 ตค. 2006
ตอบ:
8
ที่อยู่: 98/15
|
| ตอบ: ส. พย. 18, 2006 6:34
pm ชื่อกระทู้: 1.
ต้อง training เยอะ ๆ ผมโพสต์ในเวปวรา |
|
|
ขอบคุณพี่ voyager
คือถ้าเราไม่ใช้การโหลดไฟล์จาก grammar
โดยเราจะทำลงฐานข้อมูลจะได้ไหมแล้วต้องทำอย่างไรบ้างครับ 
_________________
ฝากเนื้อฝากตัวด้วยครับ | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: อาทิตย์ พย. 19, 2006
8:31 am ชื่อกระทู้:
แมงเม่า |
|
|
| คำพูด: |
คือว่าผมทำโปรเจ็คเกี่ยวกับกล้อง 2 ตา
แล้วจะจับภาพโดยใช้กล้อง 2 ตัว
(กล้องwebcam)ไม่ทราบว่าจะเขียน vb รับภาพและแสดงทั้ง
2 ตัวยังไงอ่ะครับ
และก็สามารถเซฟได้ด้วย
ช่วยหน่อยนะครับ..... |
ถ้าคุณทำ 1 กล้องได้แล้วก็ให้สร้าง
instant ของฟอร์มนั้นขึ้นมาอีกแต่เลือกไดว์เวอร์ของกล้องอีกตัว
ที่นี้คุณก็จะได้กล้อง 2 ตัว(หรือกี่ตัวก็ได้) และตัว instant
ฟอร์มที่สร้างขึ้นมาก็จะมีคุณสมบัติเหมือนกันทุกประการกับฟอร์มต้นแบบ
Private Sub cmdnew_Click()
Dim frmnew As New
frmchild
frmnew.Show
End Sub
ผมลองทำแล้วก็
okay ดี
 | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: อาทิตย์ พย. 19, 2006
8:32 am ชื่อกระทู้:
แมงเม่า |
|
|
| คำพูด: |
| ขอบคุณพี่ voyager
คือถ้าเราไม่ใช้การโหลดไฟล์จาก grammar
โดยเราจะทำลงฐานข้อมูลจะได้ไหมแล้วต้องทำอย่างไรบ้างครับ |
ได้ครับ
แต่ว่าทำมาได้ถึงขนาดนี้แล้วลองศึกษาเองดูก็ดีนะครับ | |
| กลับไปข้างบน |
|
|
mcmaster
เข้าร่วมเมื่อ: 16 พย. 2006
ตอบ:
6
|
| ตอบ: อาทิตย์ พย. 19, 2006
1:37 pm ชื่อกระทู้:
Re: แมงเม่า |
|
|
| voyager
บันทึก: |
| คำพูด: |
คือว่าผมทำโปรเจ็คเกี่ยวกับกล้อง 2
ตา แล้วจะจับภาพโดยใช้กล้อง 2 ตัว
(กล้องwebcam)ไม่ทราบว่าจะเขียน vb
รับภาพและแสดงทั้ง 2 ตัวยังไงอ่ะครับ
และก็สามารถเซฟได้ด้วย
ช่วยหน่อยนะครับ..... |
ถ้าคุณทำ 1 กล้องได้แล้วก็ให้สร้าง
instant
ของฟอร์มนั้นขึ้นมาอีกแต่เลือกไดว์เวอร์ของกล้องอีกตัว
ที่นี้คุณก็จะได้กล้อง 2 ตัว(หรือกี่ตัวก็ได้) และตัว
instant
ฟอร์มที่สร้างขึ้นมาก็จะมีคุณสมบัติเหมือนกันทุกประการกับฟอร์มต้นแบบ
Private Sub cmdnew_Click()
Dim frmnew As New
frmchild
frmnew.Show
End Sub
ผมลองทำแล้วก็ okay ดี
|
ถ้าเกิดว่าเป็นกล้องตัวเดียวเหมือนกันทั้ง
2 ตัวละครับ ไดร์ฟเวอร์ตัวเดียวกัน ต้องเขียนยังไงครับ
ขอเป็นตัวอย่างโค๊ดมาด้วยก็ดีนะครับ พอดีเพิ่งจะเริ่มศึกษา
VB น่ะครับ ยังไม่ค่อยจะรู้เรื่องเลย
ขอความกรุณาด้วยครับ
ขอบคุณครับ..... | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: อาทิตย์ พย. 19, 2006
7:58 pm ชื่อกระทู้:
แมงเม่า |
|
|
| ผมคิดว่าโปรแกรมมันน่าจะแยกเป็น index ให้นะ
ไม่แน่ใจเหมือนกันต้องทดลองดูครับ โดยตรวจจาก format ของกล้อง
ส่วนโค้ดเหมือนกับกล้องตัวเดียว
เอาเป็นว่าผมจะเขียนแล้วไปโพสต์ในเวปวรา(www.wara.com)ให้แล้วกัน | |
| กลับไปข้างบน |
|
|
pigpoj
เข้าร่วมเมื่อ: 29 สค. 2006
ตอบ:
8
|
| ตอบ: จ. พย. 20, 2006
11:01 am ชื่อกระทู้:
|
|
|
ขอโทษกับที่โพสไว้อันก่อน
เนตที่หอไม่ค่อยดี กดไปแล้วมันยอมไป
เลยกดซะมันเลย
ไม่ได้เรียกร้องความสนใจนะครับ
ขอโทษจริงๆ
----------------------------------------------------------
พี่ๆ ครับ
มี โปรแกรม แบบว่าเป็นคล้ายๆ hyper terminal
คือรับค่า
จาก Serial port (RS232) แล้วจดเก็บลง ฐานข้อมูล
MySQL
realtime คืออ่านปุ้ป เก็บลงเลย
ขอบคุณมากครับ | |
| กลับไปข้างบน |
|
|
mcmaster
เข้าร่วมเมื่อ: 16 พย. 2006
ตอบ:
6
|
| ตอบ: พ. พย. 22, 2006 2:05
am ชื่อกระทู้:
|
|
|
ผมทดลองดูแล้วยังไม่ได้เลยอ่ะครับ
![]()
มันขึ้นยังงี้อ่ะครับ
พอดีมือใหม่น่ะครับ
อาจจะผิดตรงไหนผมก็ไม่รู้น่ะครับ
แค่ตัวเดียวยังทำไม่ได้เลย
แล้ว 2 ตัว ตายแน่ๆ
แล้วก็ผมจะส่งโปรเจควันศุกร์นี้แล้วยังไม่ได้เลย
ตายแน่ๆเลย 
โปรเจคโผ้มมมมมมมมมม !!!!! อ๊ากกก | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: พ. พย. 22, 2006 1:56
pm ชื่อกระทู้:
|
|
|
| คำพูด: |
พอดีมือใหม่น่ะครับ
อาจจะผิดตรงไหนผมก็ไม่รู้น่ะครับ
แค่ตัวเดียวยังทำไม่ได้เลย แล้ว 2 ตัว ตายแน่ๆ
แล้วก็ผมจะส่งโปรเจควันศุกร์นี้แล้วยังไม่ได้เลย
ตายแน่ๆเลย
โปรเจคโผ้มมมมมมมมมม !!!!!
อ๊ากกก |
ดูจาก eorror
เกิดเนื่องจากโมดูลไม่สามารถสร้าง instantiate(Auto-instancing
variable)ของ class reference ได้เป็นไปได้ว่าการอ้างอิงตำแหน่ง
class ไม่ถูกต้องให้ตรวจดูว่าชื่อ class กับชื่อที่เรียก
reference ตรงกันหรือไม่
ชื่อ class ==>
clsCapture
ชื่อที่เรียก ==> clsCapture
แมงเม่า | |
| กลับไปข้างบน |
|
|
phuttisit
เข้าร่วมเมื่อ: 28 สค. 2006
ตอบ:
30
|
| ตอบ: พฤ. พย. 23, 2006
10:48 am ชื่อกระทู้:
|
|
|
| พี่แมงเม่าครับ
ผมขอนอกเรื่องเวบแคมหน่อยนะ ผมอยากรู้วิธีการเขียน Msg
เมสเซตบอก(เขียนมั่วนะ)ให้ออกภาษาไทยนะครับ
มันเขียนภาษาอะรัยมาก็ไม่รู้ แต่เวลาเขียนที่ caption
ปุ่ม(button)ดันเขียนได้
\วานรบกวนพี่ๆบอกหน่อยได้มั้ยครับ | |
| กลับไปข้างบน |
|
|
mcmaster
เข้าร่วมเมื่อ: 16 พย. 2006
ตอบ:
6
|
| ตอบ: พฤ. พย. 23, 2006
11:29 am ชื่อกระทู้:
|
|
|
| phuttisit
คุณตั้งให้เป็นภาษาไทย หรือยัง ครับ.... | |
| กลับไปข้างบน |
|
|
mcmaster
เข้าร่วมเมื่อ: 16 พย. 2006
ตอบ:
6
|
| ตอบ: พฤ. พย. 23, 2006
11:33 am ชื่อกระทู้:
|
|
|
| voyager
บันทึก: |
| คำพูด: |
พอดีมือใหม่น่ะครับ
อาจจะผิดตรงไหนผมก็ไม่รู้น่ะครับ
แค่ตัวเดียวยังทำไม่ได้เลย แล้ว 2 ตัว ตายแน่ๆ
แล้วก็ผมจะส่งโปรเจควันศุกร์นี้แล้วยังไม่ได้เลย
ตายแน่ๆเลย
โปรเจคโผ้มมมมมมมมมม !!!!!
อ๊ากกก |
ดูจาก eorror
เกิดเนื่องจากโมดูลไม่สามารถสร้าง
instantiate(Auto-instancing variable)ของ class reference
ได้เป็นไปได้ว่าการอ้างอิงตำแหน่ง class
ไม่ถูกต้องให้ตรวจดูว่าชื่อ class กับชื่อที่เรียก
reference ตรงกันหรือไม่
ชื่อ class ==>
clsCapture
ชื่อที่เรียก ==> clsCapture
แมงเม่า |
ทำได้แล้วครับ
แต่....
ไม่แค่เป็นการจับภาพแล้วหยุดไปทั้ง 2 กล้องเลยครับ
ไม่เคลื่อนไหวเลยอ่ะครับ
ไม่ทราบเหมือนกันว่าผิดตรงไหน
ช่วยด้วยครับ
ขอบคุณครับ... | |
| กลับไปข้างบน |
|
|
phuttisit
เข้าร่วมเมื่อ: 28 สค. 2006
ตอบ:
30
|
| ตอบ: พฤ. พย. 23, 2006
3:24 pm ชื่อกระทู้:
|
|
|
| ขอบคุณคับที่เตือน
พึ่งรู้ก่อนมาอ่นแป็บเด๋วเอง โง่ตั้งนานเหนะ | |
| กลับไปข้างบน |
|
|
mcmaster
เข้าร่วมเมื่อ: 16 พย. 2006
ตอบ:
6
|
| ตอบ: ศ. พย. 24, 2006 5:27
am ชื่อกระทู้:
|
|
|
ผมลองกลับไปเขียนใหม่โดยใช้
Active X control ezvidc60 อ่ะครับ
แล้วมันติดปัญหาอยู่ที่.....
ผมอยากจะเซฟไฟล์ avi ทั้ง 2
ไฟล์พร้อมๆกันเลย ทั้งกล้องซ้ายและขวาอ่ะครับ
จะต้องใช้คำสั่งอะไรหรอครับ
![]()
![]()
มีใครพอจะช่วยผมได้มั่งครับ....
ขอบคุณมากๆ
ครับ | |
| กลับไปข้างบน |
|
|
Sterhated
เข้าร่วมเมื่อ: 26 พย. 2006
ตอบ:
2
|
|
| กลับไปข้างบน |
|
|
baby_step
เข้าร่วมเมื่อ: 17 กย. 2006
ตอบ:
12
ที่อยู่: 47 ม. 3 คลองแห
|
| ตอบ: อาทิตย์ พย. 26, 2006
10:58 pm ชื่อกระทู้:
|
|
|
ขอถามพี่แมงเม่าหน่อยคับ
ผมไปอ่านบทความเรื่อง เทคนิคการเขียน Visual Basic แบบ
Multi-Thread
ในเวปของ wara อ่าคับ
ตอนรันบน VB ก็รันได้
แต่พอทำออกมาเป็นไฟล์ .exe แล้วมัน error
ไม่สามารถรันโปรแกรมได้
_________________
Hi | |
| กลับไปข้างบน |
|
|
baby_step
เข้าร่วมเมื่อ: 17 กย. 2006
ตอบ:
12
ที่อยู่: 47 ม. 3 คลองแห
|
| ตอบ: อาทิตย์ พย. 26, 2006
11:00 pm ชื่อกระทู้:
|
|
|
ต่อจากด้านบนนะคับ
เมื่อกี้กดผิด
ไม่ทราบว่าเมื่อเกิดอาการแบบนี้
ต้องแก้ไขยังไงคับ ถึงจะให้รันบนไฟล์
.exe ได้
รบกวนด้วยนะคับ
_________________
Hi | |
| กลับไปข้างบน |
|
|
maya
เข้าร่วมเมื่อ: 27 พย. 2006
ตอบ:
7
|
| ตอบ: พ. พย. 29, 2006 9:49
am ชื่อกระทู้:
usb |
|
|
พี่แมงเม่าคะ
พอดีว่าฟ้ากำลังทำโปรเจ็ค เกี่ยวกับการส่งข้อมูลเข้าออกผ่านพอร์ต
USB ค่ะ
พี่พอจะมีแนวทางในการทำหรือว่าแนะนำหน่อยได้มั้ยค่ะ
จะเขียนโปรแกรมด้วย VB ค่ะ
ขอเมล์พี่แมงเม่าด้วยค่ะ moo_may_1@hotmail.com | |
| กลับไปข้างบน |
|
|
sittiporn
เข้าร่วมเมื่อ: 10 กย. 2006
ตอบ:
22
ที่อยู่: ท่าทอง
|
| ตอบ: ศ. ธค. 01, 2006
10:50 pm ชื่อกระทู้:
บัตรคิว |
|
|
ผมใช้ เป็น Sever
ไว้แสดงผลของหน้าจอ ส่วน Client ไว้กดคำสั่ง F12 และ F5
กดซ้ำหมายเลขอีกครั้ง
โค๊ดนี้ส่วนของ Client
\\ส่วนนี้ผมใช้คลิกที่หน้าจอ Clinent แล้วให้ +1
'Private Sub Command2_Click()
Dim i As Integer '
If i = 300 Then i =300'
For i = 0 To i + 1 i + 1
End If
End Sub
\\ส่วนนี้ผมใช้ F12 หน้าจอ
Clinent แล้วให้ +1
Private Sub Command2_KeyDown(KeyCode As
Integer, Shift As Integer)
Dim i As Integer
If KeyCode
= F12 Then
For i = 0 To i + 1
i = 300 i = 300
Exit For
End If
End Sub
\\ให้
F5 ทำซ้ำหมายเลขที่ทวนใหม่อีกครั้ง
Private Sub
Command3_KeyDown(KeyCode As Integer, Shift As Integer)
Dim
i As Integer
If KeyCode = "F5" Then
retrun i
End
If
End Sub
Private Sub
Command4_Click()
End
End Sub
Private Sub
QList_Click()
End Sub
\\ผมใช้ Winsock
ในการติดต่อ
Private Sub tcpClient_DataArrival(ByVal
bytesTotal As Long)
Dim sdata As String
tcpClient.GetData sdata
QList.Text = sdata
showstatus "Byes received:" & bytesTotal
End Sub
Private Sub tcpClient_Error(ByVal Number As Integer,
Description As String, ByVal Scode As Long, ByVal Source As
String, ByVal HelpFile As String, ByVal HelpContext As Long,
CancelDisplay As Boolean)
End Sub
Private Sub
tcpClient_SendComplete()
showstatus "Bytes sent:" &
lByteNum
End Sub
Private Sub
tcpClient_SendProgress(ByVal bytesSent As Long, ByVal
bytesRemaining As Long)
IByteNum = bytesSent
End Sub
------------------------------------------------------------------
ส่วนตรงนี้ยังคิดไม่ออก
\\การเล่นเสียงพูดอีกเช่น
หมายเลข 1 ช่องบริการ 2
\\การเช็คระหว่างเครื่อง Client
ว่ามาจากช่องบริการไหน
------------------------------------------------------------------
_________________
นาย
000000 | |
| กลับไปข้างบน |
|
|
thaiio
เข้าร่วมเมื่อ: 07 มีค. 2004
ตอบ:
17
|
| ตอบ: พ. ธค. 13, 2006 9:46
am ชื่อกระทู้:
|
|
|
แมงเม่า และ เพื่อนๆ ครับ
สำหรับห้องนี้พี่จะคอยตามล้างตามลบมันให้ครับ
ไม่เละครับ
พี่ไม่ยอมหรอก | |
| กลับไปข้างบน |
|
|
tikky
เข้าร่วมเมื่อ: 01 กย. 2006
ตอบ:
11
|
| ตอบ: พฤ. ธค. 14, 2006
4:41 pm ชื่อกระทู้:
ขอความช่วยเหลือด้วยครับ...Auto Backup File |
|
|
ถ้าผมต้องการทำระบบ auto
backup file ควรเริ่มยังไงครับ
เอาง่ายๆนะครับสมมติว่า
backup *.* ที่อยู่ใน folder ที่เลือกไว้
ถ้ามีการ
แก้ไขไฟล์ที่อยู่ในโฟลเดอร์นั้น ให้ backup
ไฟล์นั้นไปยังที่ที่ต้องการเก็บน่ะครับ | |
| กลับไปข้างบน |
|
|
Pittaya
เข้าร่วมเมื่อ: 20 ธค. 2006
ตอบ:
2
ที่อยู่: 232/8
|
| ตอบ: พ. ธค. 20, 2006
10:13 pm ชื่อกระทู้:
อยากได้ Code ที่ใช้เปิดลิ้นชักเก็บเงินแบบ 7-11
นะครับ |
|
|
| อยากได้ Code
ที่ใช้เปิดลิ้นชักเก็บเงินแบบ 7-11 นะครับ ผ่านทาง comport
นะครับ พอดีมีลิ้นชักเก็นเงินมากับชุดโปรแกรม POS ที่ซื้อมา
อยากจะลองเขียนโปรแกรมประยุกต์ใช้อย่างอื่นบ้างนะครับ
ใครเคยเขียนรบกวนขอ Code หน่อยนะครับหามานานแล้ว
ทั้งซื้อหนังสือมาอ่านก็แล้ว หาตามเน็ตก็แล้ว ยังไม่ได้เลยครับ
ช่วยด้วยนะครับ | |
| กลับไปข้างบน |
|
|
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
| ตอบ: พฤ. ธค. 28, 2006
3:34 pm ชื่อกระทู้:
|
|
|
แนะนำลิงค์ที่ผม post ใน
wara "แปลงโฉม VB ในรูปแบบ XP"
| โค้ด: |
อีก 3 วันก็จะเข้าสู่ปีใหม่ 2550 แล้วเย้ว
ๆๆๆ
แต่วันนี้ผมก็ยังมาทำงานอยู่(คนอื่นเค้าลากันไปหมดแล้ว('
*|) ว่าง(มาก)เลยลองค้นโปรเจคเก่า ๆ
ดูในคอมจะเอามาโพสต์ก็เจอคอนโทรล 2
ตัวที่น่าสนใจ(แต่ยังมีอีกเยอะนะ5555) เป็นคอนโทรลที่ทำให้
VB ที่ไร้เดียงหน้าตาแบบ window เก๋ากึ๊กให้ upgrade
ขึ้นมาเป็น WinXP ซึ่งดูดีกว่ากันเยอะ คอนโทรล 2
ตัวนี้ผมคอมไพล์มาจากไฟล์ ctl แล้วก็เอามาสับ ๆ หั่น ๆ
รวมกัน
ตัวแรก: WinXPC Engine.ocx
คอนโทรลตัวนี้มันจะ map คอนโทรล Win9x ให้เป็น XP
อีกต่อเมื่อมีการรันโปรเจค แต่มันไม่ map ฟอร์ม
ดังนั้นผมก็เลยหาอีกตัวมาช่วย
ตัวสอง: SENXPCTL.ocx
ตัวนี้สำหรับฟอร์มและปุ่ม(button) ซึ่งทำเป็น XP
แล้วดังนั้นแค่แดรกลงบนฟอร์มก็จะแสดงเป็น XP เลย
ผมฝากไฟล์ คอนโทรล 2
ตัว(ผมรีเนมเป็น *.oca กันพลาด) + โปรเจค source code
ไว้ที่
http://www.uploadtoday.com/download.php?06a485a10d34c01cb5e32bfca2df7bbc
ไฟล์ฝากได้ 3 เดือนแค่นั้นนะครับเกินกว่านั้นจะถูกลบทิ้ง
การใช้คอนโทรล |
http://www.wara.com/modules.php?name=News&file=article&sid=544
แมงเม่า | |
| กลับไปข้างบน |
|
|
sittiporn
เข้าร่วมเมื่อ: 10 กย. 2006
ตอบ:
22
ที่อยู่: ท่าทอง
|
| ตอบ: พฤ. ธค. 28, 2006
8:44 pm ชื่อกระทู้:
บัตรคิวครับ |
|
|
พี่แมงเมาบอกตัวอย่างทำบัตรคิวโดยใช้ vb
ครับ
_________________
นาย 000000 | |
| กลับไปข้างบน |
|
|
|
|
หน้าแรก Thaiio.com
คำถามถามบ่อยของกระดานข่าว
ค้นหา
รายนามสมาชิก
กลุ่มผู้ใช้งาน
ข้อมูลส่วนตัว
คุณไม่มีข่าวสารใหม่
