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

voyager

ใครอยาก post กระทู้เกี่ยวกับ visual basic 6.0 ทั้งที่เป็น hardware interface หรือ miscellaneous ถ้าไม่มีใคร post ก็จะมา post เอง 555555

Voice · บุคคลทั่วไป

อยากให้ใครก็ได้ที่มีความรู้ช่วยดูโปรแกรมนี้หน่อย ว่าทำไมผมไม่สามารถส่งเสียงไปยังปลายทางได้
จะเขียนโปรแกรมตอบรับโทรศัพท์อัตโนมัติ แต่ตอนนี้ไม่สามารถส่งเสียงได้ ไม่ทราบว่าเขียนโปรแกรมผิดรึเปล่า
ช่วยแนะนำหน่อยครับ ต้องการใช้ด่วนครับ
--------------------------------------------------------------
Option Explicit
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Public Speak As Variant
Public Ring As Boolean
Dim buff As Variant
Dim temp As Variant
--------------------------------------------------------------
Private Sub Command1_Click()
Command1.Caption = "RING"
MSComm1.Output = "ATH0" + Chr(13)
End Sub
--------------------------------------------------------------
Private Sub Form_Load()
Ring = False
MSComm1.Settings = "9600,N,8,1"
MSComm1.CommPort = 1
MSComm1.InputLen = 0
MSComm1.PortOpen = True
MSComm1.RThreshold = 1
MSComm1.Output = "AT+FCLASS=8" + Chr(13)
End Sub
--------------------------------------------------------------
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
buff = MSComm1.Input
Text2.Text = Text2.Text + buff + vbCrLf
If InStr(1, buff, "RING") Then
Ring = True
Command1.Caption = "HANK UP"
End If
If Ring = True Then
MSComm1.Output = "ATA" + Chr(13)
MSComm1.Output = "AT+VIT=6" + Chr(13)
MSComm1.Output = "AT+VSL=1" + Chr(13)
Speak = mciExecute("play C:\VMGreet.wav")
Ring = False
Else
If InStr(1, buff, "~") Then
DTMF (temp)
Else
temp = buff
End If
End If
End Select
End Sub
--------------------------------------------------------------
Private Sub DTMF(numdtmf As Variant)
Text1.Text = Text1.Text + "<<"
If InStr(numdtmf, "1") Then
Text1.Text = Text1.Text + "1"
ElseIf InStr(1, numdtmf, "2") Then
Text1.Text = Text1.Text + "2"
ElseIf InStr(1, numdtmf, "3") Then
Text1.Text = Text1.Text + "3"
ElseIf InStr(1, numdtmf, "4") Then
Text1.Text = Text1.Text + "4"
ElseIf InStr(1, numdtmf, "5") Then
Text1.Text = Text1.Text + "5"
ElseIf InStr(1, numdtmf, "6") Then
Text1.Text = Text1.Text + "6"
ElseIf InStr(1, numdtmf, "7") Then
Text1.Text = Text1.Text + "7"
ElseIf InStr(1, numdtmf, "8") Then
Text1.Text = Text1.Text + "8"
ElseIf InStr(1, numdtmf, "9") Then
Text1.Text = Text1.Text + "9"
ElseIf InStr(1, numdtmf, "*") Then
Text1.Text = Text1.Text + "*"
ElseIf InStr(1, numdtmf, "0") Then
Text1.Text = Text1.Text + "0"
ElseIf InStr(1, numdtmf, "#") Then
Text1.Text = Text1.Text + "#"
End If
Text1.Text = Text1.Text + ">>" + vbCrLf
End Sub
--------------------------------------------------------------

McCA1414 · บุคคลทั่วไป

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

แมงเม่า · บุคคลทั่วไป

แมงเม่า · บุคคลทั่วไป

McCA1414 · บุคคลทั่วไป

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

รัต · ตอบ: ส. ตค. 29, 2005 9:20 pm ชื่อกระทู้:

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

แมงเม่า · บุคคลทั่วไป

เด็กตาดำๆ · บุคคลทั่วไป

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

ด้วยความนับถือครับ พี่แมงเม่า

รัต · ตอบ: จ. ตค. 31, 2005 12:45 am ชื่อกระทู้:

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

น๊อต · บุคคลทั่วไป

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

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

แมงเม่า · บุคคลทั่วไป

แมงเม่า · บุคคลทั่วไป

แมงเม่า · บุคคลทั่วไป

คิดว่าใครเป็นนักดนตรีน่าจะชอบโปรแกรมนี้ เพราะรวมเอา piano + drum และ sound effect มากกว่า 1000(เท่า ๆ ที่ดูด้วยสายตา) ผมเองไม่ใช่นักดนตรีแต่เห็นแล้วก็ชอบมาก ว่าง ๆ จะเอาไปฝึก
โปรแกรมตัวนี้เขียนด้วย Visual basic 6.0 สงวนลิขสิทธ์โดย YAMAHA ผมก็ไม่กล้าจะไปดัดแปลง code เค้า เพื่อไม่ให้เป็นปัญหาผมจะไม่เอามา post ครับแต่จะ upload ตัว exe เป็นโปรแกรมที่เป็นประโยชน์ดีทีเดียว

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

Luxu_lary

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

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

ขอขอบคุณพี่แมงเม่าล่วงหน้ามากๆนะค่ะ
[/img]

เด็กตาดำๆ · บุคคลทั่วไป

พี่แมงเม่าครับ Sub Start Cam นี่มันอยู่ใน Form ของอะไรครับ ของ Timer รึปล่าว แต่ผมลองทำดูไม่มีภาพของเว็บแคมอ่ะครับ มีแต่สีเทาเปล่าๆ ของ Form เรา -*-
แต่พอเปิดโปรแกรมของพี่ดูโปรแกรมก็ทำงานปกติดี เม็ดสีแดงก็ทำงานได้ดี เซฟภาพได้
อ่ะครับ

แมงเม่า · บุคคลทั่วไป

แมงเม่า · บุคคลทั่วไป

บุคคลทั่วไป · ตอบ: อ. พย. 01, 2005 11:05 pm ชื่อกระทู้:

พี่แมงเม่า

ทำไม Vb มันถึงฟ้อง error'8005'port already open พอเราคลิ๊กที่debugมันจะมีแถบสีเหลืองขึ้นที่ mscomm.PortOpen = True หนูได้ต่อ serial port กับคอมแล้ว ทำการเชื่อมต่อสายที่ขา Tx กับ Rx

หนูลองtest การเชื่อมต่อโดยใช้ hyper terminal เมื่อพิมพ์อักขระตัวใด อักขระตัวนั้นก็จะแสดงผลออกบนจอ แต่พอมาลองกับ VB โดยใช้form และโปรแกรมของ
http://www.dcs.napier.ac.uk/~bill/pdf/Io_ch26.PDF

ตัวอย่าง programที่ 26.4
codeที่หนูพิมพ์คือ

Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1"
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.InputLen = 0
End Sub

Private Sub form_keypress(keyascii As Integer)
MSComm1.Output = keyascii
Text1.Text = keyascii
End Sub

Private Sub mscomm1_oncomm()
If (MSComm1.CommEvent = comEvReceive) Then
Text2.Text = MSComm1.Input
End If
End Sub
End Sub

Private Sub Command1_Click()
End
End Sub

ลองเอาโปรแกรมนี้ไปtest อีกเครื่องหนึ่งปรากฏว่ารันได้แต่เราลองพิมพ์ลงบน text1 มีตัวอักขระตามที่เราพิมพ์แต่ที่ text2 ไม่มีตัวอักขระ ขึ้นตาม text1

เด็กตาดำๆ · บุคคลทั่วไป

โค้ดทั้งหมดเป็นแบบนี้เปล่าครับใน form ผมมี Timer ตัวเดียวเอง นอกนั้นเป็นสีเทาล้วน
ต้องมีอะไรใน form อีกหรือเปล่าครับ ไม่เห็นมีถาพเลยอ่า -*-

Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long

Private mCapHwnd As Long

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

Private Sub Form_Load()
inten = 25
'The tolerance of recognizing the pixel change
tolerance = 35

Tppx = Screen.TwipsPerPixelX
Tppy = Screen.TwipsPerPixelY

ReDim POn(640 / inten, 480 / inten)
ReDim P(640 / inten, 480 / inten)
End Sub

Private Sub Timer1_Timer()
mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 640, 480, Me.hwnd, 0)
DoEvents
SendMessage mCapHwnd, CONNECT, 0, 0
Timer1.Enabled = True
End Sub

แมงเม่า · บุคคลทั่วไป

จำได้ว่า post ไป 2 ครั้ง(ครั้งแรกลืมประกาศตัวแปล)ให้เอาทั้งสองมารวมกัน

แมงเม่า · บุคคลทั่วไป

เด็กตาดำๆ · บุคคลทั่วไป

พี่แมงเม่าครับ สงสัยผมต้องหน้าด้านขอตัวโปรแกรมที่พี่เขียนที่เป็นซอดโค้ดตัว vb แล้วอ่าครับ ผมนั่งทำตามพี่บอก จะตี 5 แล้ว ยังไม่ได้เลย T_T ภาพไม่ขึ้น รันได้แต่ไหงไม่มีภาพ
แก้ไปแก้มา จนไม่ไหวแล้วอ่าพี่ครับ จึงอยากขอตัวโค้ดที่พี่เขียนเอาไว้อ่ะครับ มารันดูใน vb ว่าผมพลาดตรงไหน -/\- ขอบคุณค้าบ

แมงเม่า · บุคคลทั่วไป

เอาอีเมลล์มาจะส่งให้

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