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
Voice
บุคคลทั่วไป





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

อยากให้ใครก็ได้ที่มีความรู้ช่วยดูโปรแกรมนี้หน่อย ว่าทำไมผมไม่สามารถส่งเสียงไปยังปลายทางได้
จะเขียนโปรแกรมตอบรับโทรศัพท์อัตโนมัติ แต่ตอนนี้ไม่สามารถส่งเสียงได้ ไม่ทราบว่าเขียนโปรแกรมผิดรึเปล่า
ช่วยแนะนำหน่อยครับ ต้องการใช้ด่วนครับ
--------------------------------------------------------------
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
บุคคลทั่วไป





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

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





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

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


ไม่จบแน่ แฮะๆ.....ล้อเล่น
บอกตรง ๆ ว่าการส่งภาพ(clipboard)โดยตรงนั้นไม่ง่ายเลยปกติก็จะส่งเป็นไฟล์(xx.jpg,xx.bmp)แล้วให้ Auto view บน picture box ของอีกฝั่งเมื่อภาพ(ไฟล์)ไปถึงแล้วโดยอาศัยการอ่านจาก directory ของโปรเจคหรือdirectory ที่กำหนด

พี่คิดว่าน้องเขียนโปรแกรมส่งไฟล์ระหว่าง client กับ server ได้แล้ว จะเสริมเรื่องการเอาภาพมาแสดงบน pixture box แล้วกัน



ลองเอาไปดัดแปลง เช่น เมื่อมีไฟล์ภาพใหม่ถูกส่งเข้ามา ก็ให้เอาภาพนั้นไปแสดงบน picture box ทันที แล้วมันก็จะดูเหมือนว่าภาพถูกส่งไปโดยตรงจริง ๆ

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

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





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

คำพูด:
พี่ครับ ผมต้องสร้างฟอร์มยังไงบ้างครับถึงจะรัน sourcecode ของพี่ได้อ่า คือผมรันแล้วมันไม่มีภาพเลย มีแต่ฟอร์มสีเทาๆ


ไม่ Declare แล้วมันจะรู้จักได้ไงละครับ

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

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





ตอบตอบ: ส. ตค. 29, 2005 7:16 pm    ชื่อกระทู้: ขอบคุณพี่แมงเม่ามากนะครับ แล้วผมจะลองพยายามดู นะครับ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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



เข้าร่วมเมื่อ: 17 ตค. 2005
ตอบ: 8
ที่อยู่: 57 ม.1 ต.โขมง อ.ท่าใหม่ จ.จันทบุรี

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

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





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

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


Record เสียงจาก sound card ก็ไม่ยากนิครับ

Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" _
(ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
Private Declare Function mciGetErrorString Lib "winmm.dll" _
Alias "mciGetErrorStringA" _
(ByVal dwError As Long, _
ByVal lpstrBuffer As String, _
ByVal uLength As Long) As Long

ลองเอาไป search หาใน google น่าจะมี code อยู่เยอะ
กลับไปข้างบน
เด็กตาดำๆ
บุคคลทั่วไป





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

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

ด้วยความนับถือครับ พี่แมงเม่า
กลับไปข้างบน
รัต



เข้าร่วมเมื่อ: 17 ตค. 2005
ตอบ: 8
ที่อยู่: 57 ม.1 ต.โขมง อ.ท่าใหม่ จ.จันทบุรี

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

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





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

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

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





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

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

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


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

-----------------------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)

STARTCAM
-------------------

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

-------------------------------------

code ก็มีแค่นี้แหละ
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

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

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


ลองดู
------Module------
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Declare Function sndStopSound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszNull As Long, ByVal uFlags As Long) As Long

Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10
Public Const SND_NOWAIT = &H2000
Public Const SND_FILENAME = &H20000
Public Const SND_RESOURCE = &H40004

----------Form----------------

Private Sub cmdBrowse_Click()
On Error GoTo Err
cdOpen.Filter = "Wav Files (*.wav)|*.wav"
cdOpen.ShowOpen
txtSound.Text = cdOpen.FileName
txtNumber.Text = ""
txtNumber.SetFocus
Err:
Exit Sub
End Sub

--------------------------
Private Sub cmdDial_Click()
On Error Resume Next
Dim cBuffer$
Dim WaitTime As Single, StartTime As Single, FinalTime As Single
WaitTime = 30
If cmdDial.Caption = "Dial" Then
cmdDial.Caption = "Hang up"
With MSComm1
.CommPort = 1
.Settings = "9600,N,8,1"
.InputLen = 0
.PortOpen = True
.Output = "ATDT" & txtNumber.Text & Chr$(13)
StartTime = Timer
cmdPlay.Enabled = True
Do
Me.Caption = Str(Int(Timer - StartTime))
DoEvents
Loop Until cmdDial.Caption = "Dial"
Me.Caption = "Dialer"
End With
Else
cmdDial.Caption = "Dial"
MSComm1.PortOpen = False
cmdPlay.Enabled = False
End If
End Sub

------------------------------
Private Sub cSoundPlay(cpath As Variant)
Variable = sndPlaySound(cpath, SND_ASYNC)
End Sub

-----------------------------
Private Sub cSoundStop()
Variable = sndStopSound(0, SND_ASYNC)
End Sub

----------------------------
Private Sub cmdPlay_Click()
On Error Resume Next
If cmdPlay.Caption = "Play Sound" Then
cSoundPlay txtSound.Text
cmdPlay.Caption = "Stop Sound"
Else
cSoundStop
cmdPlay.Caption = "Play Sound"
End If
End Sub
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

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



http://www.geocities.com/ezy_math/YamahaPiano.zip
กลับไปข้างบน
Luxu_lary



เข้าร่วมเมื่อ: 14 สค. 2005
ตอบ: 2

ตอบตอบ: จ. ตค. 31, 2005 8:49 pm    ชื่อกระทู้: ปัญหาการเขียนโปรแกรมเชื่อมต่อHardware ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

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

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


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





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

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





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

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

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


อ่านแล้วก็งง ๆ นะ
1. กดปุ่มคีย์บอร์ดเลข1 คีย์บอร์ดจะส่ง ascii"1"

ใช้ GetKeyState หรือ GetAsyncKeyState มีข้อดีคือมันจะทำงานเสมอไม่ว่า window ไดจะ Active อยู่

'---------------Module--------------------
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Public Function GetNumLock() As Boolean

GetNumLock = CBool(GetKeyState(vbKeyNumlock) And 1)

End Function


'----------------Form------------------

KeyResult = GetAsyncKeyState(97)
If KeyResult = -32767 Then
If GetNumLock = True Then MsgBox "Key num1 was pressed", , "Pressed" 'ให้ check numlock ด้วย

End If

2. แล้วโปรแกรมสามารถรับค่า ascii"1"เมื่อVB รับค่าascii"1"ได้แล้ว ก็ให้แสดงคำว่า "รับได้แล้ว"


รับมาจากอะไรจากภายนอกหรือจากตัวมันเอง ลอง simulate โดยการ sendkeys เหมือนกับ 1 ถูกส่งมาจาก source ไดๆ

Private Sub Timer1_Timer()
SendKeys "1"
End Sub


Private Sub Form_KeyPress(KeyAscii As Integer)
Label1.Caption = KeyAscii
Label2.Caption = Chr(KeyAscii)
If Chr(KeyAscii) = 1 Then MsgBox "Num:" & Chr(KeyAscii) & "was detected", , "Detect"
Timer1.Enabled = False
End Sub
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

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


Sub startcam =>>Timer1.enabled
กลับไปข้างบน
บุคคลทั่วไป






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

พี่แมงเม่า

ทำไม 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
กลับไปข้างบน
เด็กตาดำๆ
บุคคลทั่วไป





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

โค้ดทั้งหมดเป็นแบบนี้เปล่าครับใน 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
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

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





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

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


ผมลองแล้วใช้ได้ 100% ให้ jump ขา Tx กับ Rx เข้าด้วยกันด้วย

-----Initialize-----------

Private Sub Form_Load()
MSComm1.Settings = "9600,N,8,1"
MSComm1.CommPort = 1
MSComm1.InputLen = 1
MSComm1.PortOpen = True
MSComm1.RThreshold = 1

End Sub

------รับค่า variant---------

Private Sub MSComm1_OnComm()
Dim StrData As Variant
StrData = MSComm1.Input
RXText.Text = StrData
End Sub

------ส่งค่า-----------------
Private Sub SendKey_Click()
MSComm1.Output = TextSEND.Text
End Sub


Embarassed Embarassed
กลับไปข้างบน
เด็กตาดำๆ
บุคคลทั่วไป





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

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





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

เอาอีเมลล์มาจะส่งให้
กลับไปข้างบน
เด็กตาดำๆ
บุคคลทั่วไป





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

ghostza@hotmail.com

ขอบคุณพี่มากครับ ถ้าไม่มีพี่ผมไม่รู้จะทำไง คงอาจจะไม่จบกะเพื่อนเค้าแน่ๆเลย
ขอบคุณมากครับ
กลับไปข้างบน
GlobalSign
บุคคลทั่วไป





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

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

คุณแมงเม่า ขอ Code Motion control ด้วยนะครับ

id4_maxnum@yahoo.com
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

คงต้องมีมาขออีกหลายคนแน่ Post ไปเลยดีกว่า

Option Explicit
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 Declare Function GetTickCount Lib "kernel32" () 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
Dim P() As Long
Dim POn() As Boolean
Dim inten As Integer
Dim i As Integer, j As Integer
Dim k As Integer
Dim Ri As Long, Wo As Long
Dim c As Long, c2 As Long
Dim R As Integer, G As Integer, B As Integer
Dim R2 As Integer, G2 As Integer, B2 As Integer
Dim Tppx As Single, Tppy As Single
Dim Tolerance As Integer
Dim Counter As Integer
Dim LastTime As Long

-------------------------

Private Sub Command1_Click()
Static i As Integer
i = i + 1
i = i Mod 2
If i <> 0 Then
STOPCAM
command1.Caption = "&agrave;&Aring;&egrave;&sup1;"
Else
STARTCAM
command1.Caption = "&Euml;&Acirc;&Oslash;&acute;"
End If
End Sub

-----------------------------------

Private Sub Form_Load()
Timer2.Enabled = False
Timer3.Enabled = False
Label1.Alignment = 2
Label1.Caption = vbCrLf & ".....Waiting while initialize....."
inten = 25
Tolerance = 35
Tppx = Screen.TwipsPerPixelX
Tppy = Screen.TwipsPerPixelY
ReDim POn(640 / inten, 480 / inten)
ReDim P(640 / inten, 480 / inten)
STARTCAM
End Sub

-------------------------

Private Sub Timer1_Timer()
SendMessage mCapHwnd, GET_FRAME, 0, 0
SendMessage mCapHwnd, COPY, 0, 0
Picture1.Picture = Clipboard.GetData
Clipboard.Clear

Ri = 0
Wo = 0

LastTime = GetTickCount

For i = 0 To 640 / inten - 1
For j = 0 To 480 / inten - 1
c = Picture1.Point(i * inten * Tppx, j * inten * Tppy)
R = c Mod 256
c2 = P(i, j)
R2 = c2 Mod 256
If Abs(R - R2) < Tolerance Then
Ri = Ri + 1
POn(i, j) = True

Else
Wo = Wo + 1
P(i, j) = Picture1.Point(i * inten * Tppx, j * inten * Tppy)
Picture1.PSet (i * inten * Tppx, j * inten * Tppy), vbRed
POn(i, j) = False
End If

Next j

Next i
Timer3.Enabled = True
End Sub

---------------------------

Sub STOPCAM()
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
Timer1.Enabled = False
End Sub

--------------------------

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

----------------------------

Private Sub Timer2_Timer()
Label1.Caption = vbCrLf & " &agrave;&raquo;&Iacute;&Atilde;&igrave;&agrave;&laquo;&sup1;&micro;&igrave;&iexcl;&Ograve;&Atilde;&agrave;&curren;&Aring;&times;&egrave;&Iacute;&sup1;&auml;&Euml;&Ccedil;(PCDR): " & Int(Wo / (Ri + Wo) * 100) & " % "
End Sub

----------------------------

Private Sub Timer3_Timer()
k = k + 1
Label1.Caption = vbCrLf & ".....Ready....."
If k = 2 Then
Label1.Caption = ""
Label1.Alignment = 0
Timer2.Enabled = True
Timer3.Enabled = False
End If
End Sub




Embarassed Embarassed จบเรื่อง Motion detection แค่นี้
กลับไปข้างบน
GlobalSign
บุคคลทั่วไป





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

ขอบคุณครับ คุณแมงเม่า
กลับไปข้างบน
เด็กตาดำๆ
บุคคลทั่วไป





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

ขอบคุณครับพี่แมงเม่า

ช่วยเช็ค PM ด้วยนะครับ
กลับไปข้างบน
yeen



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

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

อยากจะทราบว่าต่อ vb.net กับ scanner ยังไงคับ พอจะมี code ไหมคับ
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
แมงเม่า
บุคคลทั่วไป





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

คำพูด:
เด็กตาดำๆ


Check your inbox e-mail.

MSN: voyager_hazy@hotmail.com
Email: ezy_math@yahoo.com

Embarassed Embarassed
กลับไปข้างบน
Death2u



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

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

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





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

ข้างบนนั้นผมเองนะครับ พี่แมงเม่าสบายดีนะครับ ทุกอย่างโอเคแล้วครับ ขอบคุณอีกครั้งครับ
กลับไปข้างบน
นิ้ม
บุคคลทั่วไป





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

อยากทราบว่าใน Vb สามารถอ่านค่า Assemby ของโปรแรกมสักโปรแรกมได้ไหมคับ
เช่นพวก Seach ค่าไรพวกเนี้ยอะคับ
ช่วยแนะนำด้วยนะคับพี่แมงเม่า
กลับไปข้างบน
Luxu
บุคคลทั่วไป





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

พี่แมงเม่าค่ะ

คือว่า ที่พี่ให้ทำการ jump ขา tx กะ rx เข้าด้วยกันนะ jumpที่ serier port หรือว่าที่ rs232 ค่ะ หนูทำการ jumpที่ serier port ค่ะ แล้วใช้โคดที่พี่ให้มา เมื่อพิมพ์ที่ TextSEND.Text ไม่มีตัวอักษรปรากฏขึ้นที่ RXText.Text เลยค่ะ
ทั้งๆที่ ลอง test กับ hyper terminal ก็มีการส่งข้อมูลได้ ไม่รู้ว่ามันจะผิดที่ตรงไหนหรือเปล่า
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

คำพูด:
พี่แมงเม่าค่ะ

คือว่า ที่พี่ให้ทำการ jump ขา tx กะ rx เข้าด้วยกันนะ jumpที่ serier port หรือว่าที่ rs232 ค่ะ หนูทำการ jumpที่ serier port ค่ะ แล้วใช้โคดที่พี่ให้มา เมื่อพิมพ์ที่ TextSEND.Text ไม่มีตัวอักษรปรากฏขึ้นที่ RXText.Text เลยค่ะ
ทั้งๆที่ ลอง test กับ hyper terminal ก็มีการส่งข้อมูลได้ ไม่รู้ว่ามันจะผิดที่ตรงไหนหรือเปล่า


Crying or Very sad ก็เพราะว่าน้อง set default ของ hyper terminal เป็น com2 น่ะสิ ให้เปลี่ยน code VB ใน Form_Load

จาก

MSComm1.CommPort = 1

เป็น

MSComm1.CommPort = 2

การเขียนมักจะมีปัญหาจุก ๆ จิกเสมอ ลองดัดแปลงนู่นนิดนี่หน่อยจะเป็นการฝึกตัวเอง ตอนผมเขียนโปรแกรมใหม่ ๆ ก็มีปัญหาแบบนี้ พยายามถามข้อมูลตามบอร์ด programmer,electronic ในอินเตอร์เนตแต่ 90% ไม่เคยได้ความช่วยเหลือ(ที่ดี)เลย ก็เลยต้องมาหัดลองผิดลองถูกเอง ลองทำให้ดีที่สุดเมื่อไม่ได้แล้วลองถามผู้รู้ จะทำให้เรามั่นใจมากขึ้น
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

คำพูด:
อยากทราบว่าใน Vb สามารถอ่านค่า Assemby ของโปรแรกมสักโปรแรกมได้ไหมคับ
เช่นพวก Seach ค่าไรพวกเนี้ยอะคับ
ช่วยแนะนำด้วยนะคับพี่แมงเม่า


ไม่เข้าใจครับ
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

คำพูด:
ถึงน้องที่โทรมาเรื่องรถกระป๋อง


พี่ว่ามาถามในบอร์ดนี่แหละครับไม่เปลืองตังค์ดี
ตามที่ให้ไป wiring สายไฟจากรีโมทของรถกระป๋องออกมา ให้เอา 2 เส้นนี้ไปต่อเข้ากับขา common และ NO ของรีเลย์ได้เลยนะครับ เมื่อกด ปุ่มที่โปรแกรม relay จะทำงาน(สวิตซ์ไปที่ NO) เหมือนกับการกดสวิตซ์แต่ใช้ relay เป็นตัวตัดต่อแทน




Embarassed Embarassed
กลับไปข้างบน
Nea!!



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

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

ไห้ต่อ no ทั้ง2 ฟั่งเลยใช้ไหม ครับ แล้ว nc ต่อลง กราวน์ปะ
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
แมงเม่า
บุคคลทั่วไป





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

คำพูด:
ไห้ต่อ no ทั้ง2 ฟั่งเลยใช้ไหม ครับ แล้ว nc ต่อลง กราวน์ปะ


1. wiring สายไฟออกมาจาก contact ของ remote
2. เอาสายเส้นแรกต่อเข้ากับ NO ส่วนอีกเส้นต่อเข้ากับ Common โดยไม่สนใจ NC
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

รู้ได้ไงว่าสองภาพจะเหมือนหรือต่างกันมากแค่ไหน

ก็ทำแบบนี้ไง:
1. เปรียบเทียบ pixcel ของภาพ A ต่อ pixcel ของภาพ B
2. ถ้าเหมือนกัน 1 pixcel ให้พล๊อตสีแดง(R) 1 จุด
3. ถ้าต่างกัน 1 pixcel ให้พล๊อตสีน้ำเงิน(B) 1 จุด
4. scan จากมุมซ้ายบนของ picture box ไปถึง มุมขวาล่างของ picture box
5. นำจำนวน pixcel มาเปรียบเทียบกับจำนวน pixcel ที่ตรวจทั้งหมดคูณด้วย 100 จะได้เปอร์เซนต์ที่เหมือนกัน

รู้ไหมว่า2ภาพนี้ต่างกันถึง 15 %



จำนวน pixcel scan = 47524
จำนวน pixcel ที่เหมือนกัน = 40169

Embarassed Embarassed
กลับไปข้างบน
ทาเคชิ



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

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

โดยแผนที่ได้จากการสแกน โดยตัวโปรแกรมต้องการ ย่อ-ขยาย และเลื่อนได้...ถ้าใช้ VB6.0 จะต้องทำอย่างไรบ้างครับ
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
Toomerlalu
บุคคลทั่วไป





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

แมงเม่า บันทึก:
รู้ได้ไงว่าสองภาพจะเหมือนหรือต่างกันมากแค่ไหน

ก็ทำแบบนี้ไง:
1. เปรียบเทียบ pixcel ของภาพ A ต่อ pixcel ของภาพ B
2. ถ้าเหมือนกัน 1 pixcel ให้พล๊อตสีแดง(R) 1 จุด
3. ถ้าต่างกัน 1 pixcel ให้พล๊อตสีน้ำเงิน(B) 1 จุด
4. scan จากมุมซ้ายบนของ picture box ไปถึง มุมขวาล่างของ picture box
5. นำจำนวน pixcel มาเปรียบเทียบกับจำนวน pixcel ที่ตรวจทั้งหมดคูณด้วย 100 จะได้เปอร์เซนต์ที่เหมือนกัน

รู้ไหมว่า2ภาพนี้ต่างกันถึง 15 %



จำนวน pixcel scan = 47524
จำนวน pixcel ที่เหมือนกัน = 40169

Embarassed Embarassed


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





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

ผมก็เอา motion control code ที่เคย post ไว้มาดัดแปลงแหละแต่ให้มัน scan ทุก pixcel แทนที่จะสุ่มมา
กลับไปข้างบน
323club



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

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

พี่แมงเม่านี่เก่งจิงๆๆ นับถือๆๆ

ผมจบได้ก็เพราะพี่นี่แหละ ขอบคุณมากครับ
_________________
Design by 323club
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
323club



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

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


_________________
Design by 323club
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
แมงเม่า
บุคคลทั่วไป





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

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


ผม add XP theme activeX control ดังนั้นมันจะถามหา control 2 ตัว แต่ไม่เกี่ยวกับโปรแกรม ดังนั้นให้ลบทิ้งแล้วใส่ command button และ set form ปกติ



Code:


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

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





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

http://thaiio.com/prog-cgi/programing.cgi?0030
http://thaiio.com/prog-cgi/programing.cgi?0031
http://thaiio.com/prog-cgi/programing.cgi?0032
http://thaiio.com/prog-cgi/programing.cgi?0033

ใน หน้า ที่ขึ้น ไว้หนะครับ คือผมลองทำดูแล้วมันไม่ได้หนะครับ ลองเชคค่า ว่า VB ส่งค่าออกมาได้แล้วครับ แต่ ตัว micro ไม่ยอมส่ง ค่ากลับ มาเลย ทำให้ vb ไม่แสดง ผล LED ครับ ไม่ทราบ ว่าจะเชค ได้ อย่างไร ใครเคยลองทำ รึ พี่ที่โพส เอาไว้ รบกวน ช่วย ด้วยนะครับ ผม ตัน แล้ว เนี่ย เพิ่ง หัดเล่น หนะครับ รบกวย พี่ ๆ ด้วยนะครับ
รึ ตอบ ทาง Trinbah@hotmail.con รึ จะโพส ไว้ก็ได้นะครับ รบกวนหน่อย นะครับ
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

เรื่องนี้มีคนเคยถามมาแล้ว link เดียวกันนี่แหละ ให้ลองตามนี้

1. ส่ง Ascii ระหว่าง MCS-51 ติดต่อกับ Hyper-terminal
2. เมื่อได้แล้วค่อยติดต่อกับ VB

Code assemble และ VB เคย post ไปแล้วแต่จำไม่ได้ว่าอยู่หน้าไหน
กลับไปข้างบน
Nea!!



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

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

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



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

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

[img]http://ecguild.5u.com/rey.gif[img]

พี่แม่งเม่า ช่วยดู รีเลย์ไห้หน่อย คือตัวนี้่ที่ผม มีคือ 8ขา 2contact ผมงงว่า จะทำยังไงไห้ เปิด 2สวิชพร้อมกันใน รีเลย์ตัวเดีี่ยว ก็เวลาจะ บังคับ รถไห้เลียว ซ้ายกับ เดิน หน้า พร้อมกัน อะคับ ผมไม่รู้จะ ต่อ เข้าขาไหน รู้แค่ว่า ฝั่ง นึงก็ contact นึง อี้ก ฝั่งก็อักอันนั้น แต่ถ้าจะ ป้อนไฟ พร้อมกัน ทั้ง2 เนี่ยอะสิ งง ตึบ Shocked [/img]
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
Nea!!



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

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




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





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

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


ใช้ Relay 4 ตัวไปควบคุม remote (โดยไม่สนใจอีก contact มันทำงานพร้อมกันอยู่แล้ว)

1. เดินหน้า (D1)
2. เดินหลัง (D2)
3. เลี้ยวซ้าย (D4)
4. เลี้ยวขวา (DCool

ในโปรแกรม VB

1. ส่ง 01H ==> เดินหน้า
2. ส่ง 02H ==> เดินหลัง
3. ส่ง 04H ==> เลี้ยวซ้าย
4. ส่ง 08H ==> เลี้ยวขวา

ถ้าต้องการให้ไปหน้าซ้ายก็ส่ง 03H(ทำปุ่มเพิ่มอีกปุ่ม)
กลับไปข้างบน
Nea!!



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

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

ปร่าวคับพี่ คือ รีเลย์ผมมัน ทำงานได้2 อย่างในตัวเดี่ยวกัน คับ ตัวละ100 แนะ งงมาก รูป ก็ เอ๋อ อีก พี่ลอง เอาิลิงค์นี้ไปดู http://ecguild.5u.com/rey.gif
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
แมงเม่า
บุคคลทั่วไป





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

Today knowhow: รีเลย์

รีเลย์คือ: electrically operated switch



การทำงาน: เมื่อมีกระแสใหลผ่านคอยด์ทำให้เกิดสนามแม่เหล็กระดับหนึ่งที่เพียงพอให้ดึงสวิตซ์เปลี่ยนcontact

ชนิดรีเลย์: ชนิด 12V(นิยมที่สุด) 5V และ latching relay มีหลายคอยด์ทำให้ contact ทำงานต่างกันได้

โครงสร้าง:
1.1 คอยด์
1.2 COM: Common ปกติต้องต่อขานี้เสมอเป็นส่วนเคลื่อนที่ของสวิตซ์
1.3 NC: Normally Closed จะต่อกับ COM เสมอเมื่อ relay coil สถานะ off.
1.4 NO: Normally Open, จะต่อกับ COM เสมอเมื่อ relay coil สถานะ on.



การตรวจขา:
1.1 คอยด์: ใช้โอมห์มิเตอร์วัดความต้านทานจะได้ประมาณ 300โอห์ม
1.2 NC,COM,NO: ใช้โอมห์มิเตอร์วัดความต้านทานแล้วเปรียบเทียบขณะจ่ายไฟและไม่จ่ายไฟ
กลับไปข้างบน
นิ้ม
บุคคลทั่วไป





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

พี่แมงเม่าคับ

ผมอยากทราบถึง การสร้างค่า MD5 ใน VB ว่าทำได้หรือเปล่า
ผมทำได้แต่ใน php อะคับ
ตัวอย่างนะคับ

http://nimrag.boxchart.com/md5.php

นี่คับ ผมอยากทได้แบบนี้เลยแต่ใน VB อะคับ พี่พอรู้เรื่องเปล่าคับ ขอบคุณคับ
กลับไปข้างบน
บุคคลทั่วไป






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

พี่แมงเม่า ในการpost ถ้าเราต้องการจะเอารูปโชว์ในข้อความที่เราจะpostเราต้องทำอย่างไรอ่ะลองคลิ๊กที่ปุ่ม[img]แล้วทำไงต่ออ่ะพี่img
กลับไปข้างบน
Nea!!



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

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

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





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

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

Piya_2876@yahoo.com
กลับไปข้างบน
รัต



เข้าร่วมเมื่อ: 17 ตค. 2005
ตอบ: 8
ที่อยู่: 57 ม.1 ต.โขมง อ.ท่าใหม่ จ.จันทบุรี

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

ผมได้ code มาชุดนึงครับ มันเก็บเสียงที่รับเข้ามาไว้ใน memory ผมจะเก็บยังไงดีครับเพื่อให้มันสามารถหาความถี่ได้อ่ะครับ รบกวนหน่อยนะครับพี่แมงเม่า......ขอบคุณครับ

Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" _
( ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
Private Declare Function mciGetErrorString Lib "winmm.dll" _
Alias "mciGetErrorStringA" _
( ByVal dwError As Long, _
ByVal lpstrBuffer As String, _
ByVal uLength As Long) As Long

Sub CloseSound()

Dim Result&
Dim errormsg%
Dim ReturnString As String * 1024
Dim ErrorString As String * 1024

Result& = mciSendString("close mysound", ReturnString, 1024, 0)

End Sub
Sub RecordSound()
'records sound aliased as mysound to memory for six seconds
Dim Result&
Dim errormsg%
Dim ReturnString As String * 1024
Dim ErrorString As String * 1024

CloseSound

Result& = mciSendString("open new type waveaudio alias mysound", ReturnString, 1024, 0)
If Not Result& = 0 Then
errormsg% = mciGetErrorString(Result&, ErrorString, 1024)
MsgBox ErrorString, 0, "Error"
Exit Sub
End If

Result& = mciSendString("set mysound time format ms bitspersample 8 samplespersec 11025", ReturnString, 1024, 0)
If Not Result& = 0 Then
errormsg% = mciGetErrorString(Result&, ErrorString, 1024)
MsgBox ErrorString, 0, "Error"
Exit Sub
End If

'Record for 60000 milliseconds
Result& = mciSendString("record mysound to 60000", ReturnString, 1024, 0)
If Not Result& = 0 Then
errormsg% = mciGetErrorString(Result&, ErrorString, 1024)
MsgBox ErrorString, 0, "Error"
Exit Sub
End If
End Sub

Sub PlayRecSound()
'plays the recoreded sound aliased by mysound
Dim Result&
Dim errormsg%
Dim ReturnString As String * 1024
Dim ErrorString As String * 1024

Result& = mciSendString("stop mysound", ReturnString, 1024, 0)
If Not Result& = 0 Then
errormsg% = mciGetErrorString(Result&, ErrorString, 1024)
MsgBox ErrorString, 0, "Error"
End If

Result& = mciSendString("play mysound from 1 wait", ReturnString, 1024, 0)
If Not Result& = 0 Then
errormsg% = mciGetErrorString(Result&, ErrorString, 1024)
MsgBox ErrorString, 0, "Error"
End If

End Sub

Private Sub Command1_Click()
RecordSound
End Sub

Private Sub Command2_Click()
Call PlayRecSound
End Sub

Private Sub Form_Unload(Cancel As Integer)
CloseSound
End Sub[/code]
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
แมงเม่า
บุคคลทั่วไป





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

บันทึกเสียงกับวิเคราะห์เสียงต่างกันนะครับ ถ้าจะวิเคราะห์เสียง(ความถี่)คิดว่าน่าจะใช้ FFT analyzer(Fast Fourier Transform) ผมก็ไม่มีความรู้เรื่องนี้ครับ ลองหา code ใน internet ดูอาจจะมี

ลองแบบนี้นะครับ
1. Capture เสียงจาก sound card เอาแบบสั้น ๆ แล้วเอามาพล็อต (search ใน google "oscilloscope audio/sound vb, audio/sound capture vb, audio/sound analyzer vb)
2. นำสัญญาณที่ได้มาวิเคราะห์หาความถี่โดยใช้ FFT function( serch ใน google "FFT vb")

ต้องหัดลองทำเองครับ เพราะผมก็ไม่รู้เหมือนกัน

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





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

คำพูด:
พี่แมงเม่าครับ ขอความช่วยเหลือหน่อยนะครับ คือผมกำลังทำโปรเจคเกี่ยวกับการตรวจสอบลายนิ้วมือ ผมใช้เครื่องแสกน รุ่น U are U 4000 แล้วก็มีไฟล์ Biokey.ocx แล้ว แต่ไม่รู้ว่าจะเขียนโปรแกรมต่อต่อกับเครื่องอย่างไร ช่วยหน่อยนะครับ ถ้าเป็นไปได้ขอเป็น source code ตัวอย่างด้วยนะครับ ขอขอบคุณล่วงหน้านะครับ


ปกติเค้าจะมีโปรแกรมแถมให้มาแล้วนี่ครับ

ผมลองดัดแปลงภาพลายนิ้วมือนิดนึง คิดว่าไม่มีใครตรวจสอบด้วยตาเปล่าว่ามันแตกต่างกัน แล้วลองใช้โปรแกรมที่ทำไว้ scan pixcel

จำนวน Pixcel ที่ scan = 47524
จำนวนPixcel ที่ต่างกัน = 30
จำนวน Pixcel ที่เหมือนกัน = 47494
percent ที่เหมือนกัน = 99.936 %




ไม่จำเป็นต้องใช้ Hardware เลยนี่ครับ

Embarassed Embarassed
กลับไปข้างบน
TH.SAKURAGI



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

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

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





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

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





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

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


1. ต่อขา 19-25 ของ DB25 ลงกราวด์
2. ต่อขา 2-9 เข้ากับ load เช่น LED



Embarassed Embarassed
กลับไปข้างบน
<เอก>



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

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

ผมอยากจะนำสถานะของ LED ประมาณ 10 ดวงหรือมากกว่า นำไปแสดงในคอมผ่านทาง Serial(9DB)เท่านั้นนะครับ เพราะว่า Printer Port ทำพอได้แล้วแต่ได้แค่ 8 ดวง... และใช้ VB เขียนแสดงสถานะว่าตอนนี้หลอด LED กำลังแสดงถานะอะไรอยู่ได้มั้ยครับ ช่วยสอนด้วยครับมือใหม่(มันต้องใช้ Microprocessor มาควบคุมหรือไม่ งงมาก)[/img]
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
แมงเม่า
บุคคลทั่วไป





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

คำพูด:
ผมอยากจะนำสถานะของ LED ประมาณ 10 ดวงหรือมากกว่า นำไปแสดงในคอมผ่านทาง Serial(9DB)เท่านั้นนะครับ เพราะว่า Printer Port ทำพอได้แล้วแต่ได้แค่ 8 ดวง... และใช้ VB เขียนแสดงสถานะว่าตอนนี้หลอด LED กำลังแสดงถานะอะไรอยู่ได้มั้ยครับ ช่วยสอนด้วยครับมือใหม่(มันต้องใช้ Microprocessor มาควบคุมหรือไม่ งงมาก)[/img]


ใช้ตรรกะ AND(หรือแบบอื่นก็ได้)
เช่น

data_out = Inp(PortAddress)

If Inp(PortAddress) And &H1 = &H1 Then 'เปรียบเทียบ output กับ H1 ถ้าค่าเป็น 1 เหมือนเดิมแสดงว่าบิตที่ 1 ของ output เป็น 1 จริง
led0.BackColor = vbRed

Else
led0.BackColor = vbWhite
End If

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





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

คำพูด:
พี่แมงเม่าครับอยากทราบว่าอัดเสียงไว้แล้วการจะเรียกออกมาใช้จะทำยังไงครับและการทำคำสั่งเมื่้อคลิกหนึ่งครั้งคือ 1 คลิกอีกครั้งคือ 2 อยากทราบว่าทำยังไงช่วยบอกหน่อยนะครับ


เพราะว่ามันถูกเก็บไว้ใน memory ต้องดัดแปลงใน save ใน file.wav

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" _
(ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
Private Declare Function mciGetErrorString Lib "winmm.dll" _
Alias "mciGetErrorStringA" _
(ByVal dwError As Long, _
ByVal lpstrBuffer As String, _
ByVal uLength As Long) As Long
Dim RecdTime As Boolean
Private sBits As String
Private sBytes As String
Private sSample As String
Private lSeconds As Long
Private start As Long

-------------------------------
Private Sub Form_Load()
cmdStop.Enabled = False
sBits = "16"
sBytes = "172000"
sSample = "44100"
txtFileName.Text = App.Path & "\Recorded.wav"
End Sub

--------------------------------

Private Function RecordSound(FileName As String) As Boolean
'sound aliased by recsound
cmdRecord.Enabled = False
Dim Result&
Dim errormsg%
Dim ReturnString As String * 1024
Dim ErrorString As String * 1024
Dim mssg As String * 255
Dim i As Long

Result& = mciSendString("open new Type waveaudio Alias recsound", ReturnString, Len(ReturnString), 0)
If Not Result& = 0 Then
errormsg% = mciGetErrorString(Result&, ErrorString, 1024)
MsgBox ErrorString, 0, "Error"
End If
Result& = mciSendString("set recsound time format ms bitspersample " & CInt(sBits) & " channels 2 bytespersec 22500 samplespersec " & sSample, ReturnString, 1024, 0)
If Not Result& = 0 Then
errormsg% = mciGetErrorString(Result&, ErrorString, 1024)
MsgBox ErrorString, 0, "Error"
End If
Result& = mciSendString("record recsound", ReturnString, Len(ReturnString), 0)
If Not Result& = 0 Then
errormsg% = mciGetErrorString(Result&, ErrorString, 1024)
MsgBox ErrorString, 0, "Error"
End If
RecdTime = True
start = Timer
Do Until Not RecdTime
WaveStatus
DoEvents
Loop
Result& = mciSendString("save recsound " & FileName, ReturnString, Len(ReturnString), 0)
If Not Result& = 0 Then
errormsg% = mciGetErrorString(Result&, ErrorString, 1024)
MsgBox ErrorString, 0, "Error"
End If
Result& = mciSendString("close recsound", ReturnString, 1024, 0)
If Not Result& = 0 Then
errormsg% = mciGetErrorString(Result&, ErrorString, 1024)
MsgBox ErrorString, 0, "Error"
End If

End Function

-------------------------

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub cmdRecord_Click()
If txtFileName <> "" Then
If Dir(txtFileName) <> "" Then
Kill (txtFileName)
End If
cmdStop.Enabled = True
lSeconds = 1
Call RecordSound(txtFileName)
End If
End Sub

-------------------------------

Private Sub cmdStop_Click()
If cmdRecord.Enabled = False Then
RecdTime = False
End If
cmdRecord.Enabled = True
cmdStop.Enabled = False

End Sub

----------------------------

Private Sub Command1_Click()
cdg1.ShowSave
txtFileName.Text = cdg1.FileName
End Sub

----------------------------

Private Sub WaveStatus()

Dim mssg As String * 255
Dim i As Long
Dim elapsed As Long
Dim intSec As Integer
Dim sngMin As Single
Dim TotalTime As String

elapsed = Timer - start

If elapsed < 60 Then
TotalTime = "00:" & Format(elapsed, "00")
Else
intSec = elapsed Mod 60
sngMin = elapsed \ 60
TotalTime = Format(sngMin, "00") & ":" & Format(intSec, "00")
End If

lblTime.Caption = TotalTime

i = mciSendString("set recsound time format bytes", 0&, 0, 0)
If i <> 0 Then RecdTime = False

i = mciSendString("status recsound length", mssg, 255, 0)
If i <> 0 Then RecdTime = False

mssg = CStr(CLng(mssg) / 1024)
lblSize.Caption = Format(Str(mssg), "######.00") & " kb"

End Sub
กลับไปข้างบน
kureknight



เข้าร่วมเมื่อ: 15 มิย. 2005
ตอบ: 3

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

รบกวนพี่แมงเม่าหน่อยนะครับ
ปัญญหาของผมกระทู้คล้ายๆ นำ LED มาแสดงผลที่หน้าจอ
แต่ของผมใช้ port print โดยรับ input เป็น switch 16 ตัว กดติดปล่อยดับ
ให้แสดงผลบนหน้าจอ สามารถทำได้มั้ยครับ
เพราะจากที่อ่านเกี่ยวกับ port print มาเค้าบอกว่า รับได้แค่ 5 บิต แต่ที่ผมต้องการ
มัน 8 บิต ขอบคุณมากครับ
ปล. พี่ผมสอนไว้ว่า งกความรู้ยังไงก็ไม่เจริญหรอก แต่พี่นี่สุดยอดเลยอ่ะบอกหมดเปลือกเลย
สมน้ำหน้าพวกตั้งกระทู้รับทำโปรเจคจัง อิอิ :p
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
แมงเม่า
บุคคลทั่วไป





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

คำพูด:
รบกวนพี่แมงเม่าหน่อยนะครับ
ปัญญหาของผมกระทู้คล้ายๆ นำ LED มาแสดงผลที่หน้าจอ
แต่ของผมใช้ port print โดยรับ input เป็น switch 16 ตัว กดติดปล่อยดับ
ให้แสดงผลบนหน้าจอ สามารถทำได้มั้ยครับ
เพราะจากที่อ่านเกี่ยวกับ port print มาเค้าบอกว่า รับได้แค่ 5 บิต แต่ที่ผมต้องการ
มัน 8 บิต ขอบคุณมากครับ
ปล. พี่ผมสอนไว้ว่า งกความรู้ยังไงก็ไม่เจริญหรอก แต่พี่นี่สุดยอดเลยอ่ะบอกหมดเปลือกเลย
สมน้ำหน้าพวกตั้งกระทู้รับทำโปรเจคจัง อิอิ :p


ใช่ครับมันมี input 5 บิต แต่อย่าหมดหวัง ให้ใช้วิธีแบบบ้าน ๆ นี่แหละ

สมมุติว่า
สวิตซ์A = ส่ง 1(บิต 1)
สวิตซ์B = ส่ง 2(บิต 2)
สวิตซ์C = ส่ง 3(บิต 3)
สวิตซ์D = ส่ง 4(บิต 4)
สวิตซ์E = ส่ง 5(บิต 5)

สวิตซ์E = ส่ง 6(บิต 5+1)
สวิตซ์F = ส่ง 7(บิต 5+2)
สวิตซ์G = ส่ง 8(บิต 5+3)
สวิตซ์H = ส่ง 9(บิต 5+4)
สวิตซ์I = ส่ง 10(บิต 5+4+1)

สวิตซ์E = ส่ง 11(บิต 5+4+2)
สวิตซ์F = ส่ง 12(บิต 5+4+3)
สวิตซ์G = ส่ง 13(บิต 5+4+3+1)
สวิตซ์H = ส่ง 14(บิต 5+4+3+2)
สวิตซ์I = ส่ง 15(บิต 5+4+3+2+1)

ดังนั้นก็มา select case ในโปรแกรมเพื่อตรวจว่าสวิตซ์ไดถูกกด

Private Sub Timer1_Timer()
i = Inp(ReadPort)
Select Case i
Case i
txtDataIn.Text = "No Switch" & "i" & "Pressed"
End Select
If i = 16 Then
i = 1
Else
i = i + 1
End If

End Sub
Embarassed Embarassed
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

แก้ code..... LAB แห้งก็งี้แหละ Confused Confused

Private Sub TimerChk_Timer()

data = Inp(ReadPort) 'รับค่าจาก input H379
lblDataIn.Caption = "No Switch" & "data" & "Pressed" 'นำหมายเลขสวิตซ์มาแสดง

End Sub

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





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

พี่แมงเม่า พอมีตัวอย่างโปรแรกม พวก search url จาก google ไหมคับ

คือว่าผมไปเจอ คอมโพแน้นต์ตัวนึ่ง ชื่อ

Google search Control

ผมไช้ไม่เป็นอะคับ

พอที่จะมี โค้ดที่ไช้ เก็บค่า url ที่ search ได้ไหมคับ ผม ขอบคุณมากคับ

ปล.
คำถามสองคำถามก่อนน้านี้ คงจะทำไห้งง ก็ต้องขอโทดทีนะคับ

แต่คำถามนี้ ผม อยการู้จิงๆคับ Very Happy
กลับไปข้างบน
บุคคลทั่วไป






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

ขอบคุณมากครับพี่แมงเม่า วันนี้นั่งนึกตั้งนาน T T
เป้นพระคุณอย่างสูงครับ
กลับไปข้างบน
บุคคลทั่วไป






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

Anonymous บันทึก:
ขอบคุณมากครับพี่แมงเม่า วันนี้นั่งนึกตั้งนาน T T
แต่มันติดอีกนิดนึงอะครับ แล้วผมจะต่อ switch ยังไงอ่าครับ
ปล.ไม่ตอบก็ได้นะครับ อิอิ ถามไว้ก่อนนะครับ
กลับไปข้างบน
บุคคลทั่วไป






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

คิดออกแล้วครับ..แล้วผมจะลองทำดู หากมีปัญหาอะไร
เดี๋ยวจะกลับมาเยี่ยมเยียนอีกครั้งคับ...อิอิ...แล้วเจอกานพี่แมงเม่า Razz
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

คำพูด:
พี่แมงเม่า พอมีตัวอย่างโปรแรกม พวก search url จาก google ไหมคับ

คือว่าผมไปเจอ คอมโพแน้นต์ตัวนึ่ง ชื่อ

Google search Control

ผมไช้ไม่เป็นอะคับ

พอที่จะมี โค้ดที่ไช้ เก็บค่า url ที่ search ได้ไหมคับ ผม ขอบคุณมากคับ

ปล.
คำถามสองคำถามก่อนน้านี้ คงจะทำไห้งง ก็ต้องขอโทดทีนะคับ

แต่คำถามนี้ ผม อยการู้จิงๆคับ



ไม่รู้เหมือนครับสำหรับ google control แต่ที่ทั่วไปก็ search ตรง ๆ

1. เปิด url(ของ google)

Shell "C:\Program Files\Internet Explorer\IEXPLORE " & GDir & "?&q=" & GPreface, vbMaximizedFocus

2. เลือกว่าต้องการ search จากอะไร(web,Image,Web reference....)

Private Sub Option1_Click()
On Error Resume Next
Text2.SetFocus
GDir = "www.google.com/search" 'serch จาก web
GPreface = ""
End Sub

Private Sub Option2_Click()
On Error Resume Next
Text2.SetFocus
GDir = "www.google.com/images" 'serch จาก image
GPreface = ""
End Sub

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





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

แมงเม่า บันทึก:
คำพูด:
พี่แมงเม่า พอมีตัวอย่างโปรแรกม พวก search url จาก google ไหมคับ

คือว่าผมไปเจอ คอมโพแน้นต์ตัวนึ่ง ชื่อ

Google search Control

ผมไช้ไม่เป็นอะคับ

พอที่จะมี โค้ดที่ไช้ เก็บค่า url ที่ search ได้ไหมคับ ผม ขอบคุณมากคับ

ปล.
คำถามสองคำถามก่อนน้านี้ คงจะทำไห้งง ก็ต้องขอโทดทีนะคับ

แต่คำถามนี้ ผม อยการู้จิงๆคับ



ไม่รู้เหมือนครับสำหรับ google control แต่ที่ทั่วไปก็ search ตรง ๆ

1. เปิด url(ของ google)

Shell "C:\Program Files\Internet Explorer\IEXPLORE " & GDir & "?&q=" & GPreface, vbMaximizedFocus

2. เลือกว่าต้องการ search จากอะไร(web,Image,Web reference....)

Private Sub Option1_Click()
On Error Resume Next
Text2.SetFocus
GDir = "www.google.com/search" 'serch จาก web
GPreface = ""
End Sub

Private Sub Option2_Click()
On Error Resume Next
Text2.SetFocus
GDir = "www.google.com/images" 'serch จาก image
GPreface = ""
End Sub

Embarassed Embarassed


ขอบคุณมากคับที่แน้ะนำ
วันนี้มีไห้ช่วยอีกแล้วครับ คือผมไม่เข้าใจการทำงานของ For Each ..Next อะครับ
ช่วยอธิบาย กะตัวอย่างสักนิดได้ไหมคับ

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





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

For each....Next

http://winfx.msdn.microsoft.com/library/default.asp?url=/library/en-us/dv_vbalr/html/ebce3120-95c3-42b1-b70b-fa7da40c75e2.asp

http://www.a1vbcode.com/vbtip-81.asp
กลับไปข้างบน
111
บุคคลทั่วไป





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

111 บันทึก:
พี่แมงเม่าครับ ขอความช่วยเหลือหน่อยนะครับ ผมมีภาพขนาดใญ่มากเมื่อนำภาพมาใส่ในImge ต้องการZoomภาพตามขนาด 25%,50%,75%,100%,150%,200% และย่อภาพลงมาให้ได้ตามขนาดเดิมจะต้องเขียนคำสั่งอยางไร เมื่อกดปุ่ม command ขอขอบคุณล่วงหน้านะครับ
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

จำได้ว่า post ไปแล้ว ให้ดัดแปลงตรงนี้

picView.Width = picView.Width * 2 ====> เปลี่ยนเป็นรับค่าจาก textbox
picView.Height = picView.Height * 2
Call picView.PaintPicture(LoadPicture(strFileName), 0, 0, picView.Width, picView.Height)
กลับไปข้างบน
หนูอยากรู้
บุคคลทั่วไป





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

พี่แมงเม่าคับ ผมซื้อโน๊ทบุคมา มันไม่มีพอร์ตปริ้นเตอร์มาให้ ผมเลยไปซื้อตัวแปลง
จาก USB เป็น Parallel แต่พอผมลองใช้ โปรแกรม ควบคุมหลอด LED ผ่าน port print
มันใช้งานไม่ได้(ที่ทางเว็บสอนน่ะครับ) ไม่ทราบว่าพี่พอจะรู้วิธีแก้มั้ยครับ
ปล.ผมลองกับเครื่อง Desktop แล้วตัวโปรแกรมใช้งานได้ ไม่แน่ใจว่าเป็นที่ IRQ รึเปล่า
หรือ port ไม่ตรงกันอะครับ หรือไม่เกี่ยวกันเลย ขอบคุณมากครับ Razz
กลับไปข้างบน
บุคคลทั่วไป






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

พี่แม่งเม่าค่ะ

คือว่า เราสามารถใช้ microsoft access เป็น server กะ client ที่ใช้ได้หล่ายคนหลายเครืองได้อ่ะเปล่า ถ้าได้ เราต้องเขียนโคดเพิ่มยังไง จากที่เราใช้ แค่ เครื่องเดียวเป็นsever และ client ในตัว นะค่ะ
กลับไปข้างบน
NoteMUT



เข้าร่วมเมื่อ: 19 ตค. 2005
ตอบ: 5
ที่อยู่: ม.มหานคร

ตอบตอบ: พฤ. ธค. 01, 2005 1:47 am    ชื่อกระทู้: ควบคุมระดับน้ำโดยกาป้อนกลับด้วยข้อมูลภาพ ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

พี่แมงเม่าช่วยผมได้บ้างไหมครับ.

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

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



เข้าร่วมเมื่อ: 19 ตค. 2005
ตอบ: 5
ที่อยู่: ม.มหานคร

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

ใครช่วยผมได้บ้างครับ...แบบว่าจ้างครับ

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

รีบตอบกลับนะครับใกล้สอบแล้ว Laughing
_________________
Pongthep
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ Yahoo
แมงเม่า
บุคคลทั่วไป





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

คิดนอกกรอบจริง ๆ เลย มีเรื่อง(จริง) faward mail เรื่องนึงที่ฟังดูน่ารักดี




ต่อไปนี้เป็นโจทย์ในข้อสอบฟิสิกส์ของมหาวิทยาลัย Copenhagen โจทย์มีอยู่ว่า
"จงอธิบายว่าท่านจะใช้บารอมิเตอร์วัดความสูงของตึกระฟ้าได้อย่างไร"

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

ประการแรก ให้ เอาบารอมิเตอร์ขึ้นไปบนดาดฟ้าตึก ทิ้งลงมา จับเวลาจนถึงพื้น
ความสูงของตึกหาได้จากสูตร
H=0.5g*tกำลัง2 แต่น่าสงสารบารอมิเตอร์

หรือถ้าแดดดี ให้วัดความสูงบารอมิเตอร์
วางให้ตั้ง&copy;ากพื้นแล้ววัดความยาวของเงาบารอมอเตอร์ วัดความยาวของเงาตึก
แล้วคิดด้วยตรีโกณมิติก็จะได้ความสูงของตึกโดยไม่ต้องขึ้นไปบนตึกด้วยซ้ำ

ถ้าเกิดอยากโชว์ความสามารถด้านวิทยาศาสตร์มากกว่านี้
ก็เอาเชือกเส้นสั้นๆมาผูกกะบารอมิเตอร์แล้วแกว่งเหมือนลูกตุ้ม
ตอนแรกก็แกว่งระดับพื้นดิน แล้วก็ไปแกว่งอีกทีบนดาดฟ้า
ความสูงของตึกจะหาได้จาก
ความแตกต่างของคาบการแกว่งเนื่องจากความแตกต่างของแรงดึดดูดจากจุดศูนย์กลางขอ
งมวล คำนวนจากT=2พายกำลัง2รากที่2ของl/g

ถ้าตึกมีบันไดหนีไฟก็ง่ายๆ ก็เดินขึ้นไป
เอาบารอมิเตอร์ทาบแล้วก็ทำเครื่องหมายไปเรื่อยๆจนถึงยอดตึก
นับไว้คูณด้วยความสูงของบารอมิเตอร์ก็ได้ความสูงตึก

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

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

นศ.คนนั้นคือ นีล โบร์(Niels Bohr) ผูได้รางวัลโนเบลสาขาฟิสิกส์

Ref:
http://www.snopes.com/college/exam/barometer.asp


**************

ใช้ sensor อื่นไม่ดีกว่าหรอครับ ถ้าเป็นผมทำนะ
1. ใช้ sensor ตรวจจับ
2. หากว่าระดับเกิดการเปลี่ยนแปลงค่อยมีการจับภาพเข้ามา ดูดีกว่าแลยแม่นยำกว่าเยอะ

Embarassed Embarassed
กลับไปข้างบน
ผู้ใคร่อยากรู้
บุคคลทั่วไป





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

ผมจะ check ตำแหน่ง address ของ port printer ได้ยังไงครับ
ปล. เป็น port printer ที่ถูกแปลงมาจาก USB ( USB To Parallel )

ขอบคุณมากครับ ... บทความอ่านแล้ว ชอบจัง ... ไม่ต้องคิดให้ยากก็สำเร็จได้ ^^
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

คำพูด:
ผมจะ check ตำแหน่ง address ของ port printer ได้ยังไงครับ
ปล. เป็น port printer ที่ถูกแปลงมาจาก USB ( USB To Parallel )

ขอบคุณมากครับ ... บทความอ่านแล้ว ชอบจัง ... ไม่ต้องคิดให้ยากก็สำเร็จได้ ^^


ไม่รู้เลยครับ..... ทั่วไปถ้าเป็น XP ก็น่าจะ Plug and play เลย แต่ถ้าเป็น win98 อาจต้องลง USB driver
กลับไปข้างบน
ผู้ใคร่อยากรู้
บุคคลทั่วไป





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

มันก็ plug and play ให้แล้วครับ แต่ไม่ยอมขึ้นใน
Device Manager ตรงส่วนของ Ports(COM&LPT)
บอกแต่ในส่วนของ USB ว่า USB Printer Support ซึ่งใช้ใน IEEE-1284 controller
พี่พอจะมี source code หาตำแหน่ง address หรือว่าผมต้องตั้งใน Vb
ให้มันติดต่อ port IEEE เลย ขอบคุณมากครับ
ปล.ยุ่งยากนิดนึงเพราะ โน๊ตบุคเจ้ากรรมดันไม่มี parallel port มาให้นะครับ
กลับไปข้างบน
gotgi



เข้าร่วมเมื่อ: 01 ธค. 2005
ตอบ: 6

ตอบตอบ: ศ. ธค. 02, 2005 6:54 pm    ชื่อกระทู้: พี่แมงเม่าครับ ผมจะทำดีมั๊ย ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

คือตอนนี้ผมกำลังคิดหัวข้อ project อยู่ครับพอมาอ่านใน bord และจะไปลองเสนออาจารย์ดูเกี่ยวกับการควบคุมกล้องโดยให้หมุนซ้ายขวาได้ "แต่ไม่ขึ้นลงนะครับ"และแสดงผลได้ผ่าน
ทาง browser (ทั้งบังคับซ้ายขวาและแสดงผลในbrowserน่ะครับ) โดยใช้วงจร Stepping ที่มีคน post ไว้ใน board ไม่รู้ว่าจะได้ไหม ผมจะได้เปลี่ยน project ครับ
หรือถ้ามี project อะไรดีๆที่พี่ถนัดและน่าสนใจกว่า บอกผมด้วยนะครับ ยิ่งเกี่ยวกับ network ยิ่งดีครับ
ปล. Crying or Very sad ตอนแรกอาจารย์เสนอให้ทำโปรแกรมตรวจสอบ ServicePack ของแต่ละเครื่อง ถ้าเครื่องใดไม่ได้ติดตั้ง Service Pack 2 ก็ทำการปิดการเชื่อมต่อ Network เครื่องนั้น
ไม่ให้เล่น Net ได้ครับ ถ้าทำอันนี้ได้ก็ดีครับจาได้ไม่ต้องเปลี่ยน แหะๆ รบกวนเยอะหน่อย
นะครับพี่แมงเม่าครับ Very Happy
_________________
+-------GOTGI-------+
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ MSN
Projectเกี่ยวกับImage/VB
บุคคลทั่วไป





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

พี่แมงเม่าครับช่วยผมได้บ้างครับ...

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






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

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


:o) Well thats exactly what i thought.LaughingLaughing




Online poker software texas holdem poker
กลับไปข้างบน
san



เข้าร่วมเมื่อ: 03 ธค. 2005
ตอบ: 2

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

ผมอยากได้ โค้ด รับค่าจาก serial port ที่เป็นชุดข้อมูลเพื่อนำไปเขียนกราฟโดยใช้ MsChart ครับ

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



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

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

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

กำลังทำ PJ เกี่ยวกับ Stepper Motor อยู่อ่ะครับ
ผมใช้บอร์ดสำเร็จรูปอ่ะครับ แต่ว่ามันยังไม่มีโปรแกรมมาให้
ใช้บอร์ด S-Board (serial board) ต่อกับบอร์ดขับ Stepper Motor โดยผ่านทางคอนเน็กเตอร์ Data Bus (บอร์ดขับ Stepper ขับแบบ Unipolar)
S-Board ใช้ IC ตัว MAX232 กับ ICL232 ครับ
ไม่ทราบว่าต้องเขียนโค๊ดควบคุมมอเตอร์ยังไงครับ


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



เข้าร่วมเมื่อ: 07 ธค. 2005
ตอบ: 4

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

พี่แมงเม่า VB ป่วนผมอ่าครับ ช่วยที

คือว่า โปรแรกมในรูปคือโปรแรกม ดู Source Code ผมไช้ Inet น้ะครับ

พอนำมาเข้า text แล้วมันดันเรียงกันแบบนั้น ผมตั้ง mutiline เป้น True แล้วน้ะครับ
แต่พอนำมาเข้า label ดันเข้ารูปส้ะงั้น Shocked

คือผมจะถามว่า สามารถแก้ไง text ไห้มันเรียงตัวดีๆได้ไหมครับ
หรือถ้าไม่ได้ จะทำไงไห้ label มันเลื่อน ได้อะครับ

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





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

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

คือว่า โปรแรกมในรูปคือโปรแรกม ดู Source Code ผมไช้ Inet น้ะครับ

พอนำมาเข้า text แล้วมันดันเรียงกันแบบนั้น ผมตั้ง mutiline เป้น True แล้วน้ะครับ
แต่พอนำมาเข้า label ดันเข้ารูปส้ะงั้น

คือผมจะถามว่า สามารถแก้ไง text ไห้มันเรียงตัวดีๆได้ไหมครับ
หรือถ้าไม่ได้ จะทำไงไห้ label มันเลื่อน ได้อะครับ


ให้ตั้งค่าproperties multiline และ Scrollbar ของ textbox เป็น True
กลับไปข้างบน
นิ้ม



เข้าร่วมเมื่อ: 07 ธค. 2005
ตอบ: 4

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

อา Thank หลายๆครับ

คือว่า ไครพอมีไฟล์ ที่ชื่อ ieframe.dll ที่อยู่ใน windows/system32

ผมขอหน่อยมันเป้น component ของ microsoft internet control อะครับ

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





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

ในที่สุดก็ส่งภาพจาก webcam ผ่าน LAN/Internet จนได้

LAN:

Dim Bjp As String
If Winsock1.State = sckConnected Then
SavePicture Picture1.Picture, App.Path & "\image.bmp" ' save ภาพจากกล้องเป็น bmp format
Call ConvertBMPtoJPG(App.Path & "\image.bmp", App.Path & "\image.jpg", True, 100, False) 'contvert เป็น jpg
DoEvents
Bjp = GetFile(App.Path & "\image.jpg") 'Get picture
DoEvents
Winsock1.SendData Bjp 'send ผ่าน winsock
End If

Internet:

งานนี้ไม่ค่อย work เพราะมีปัญหาเวลาที่ใช้ upload(refresh) อย่างน้อย ~ 15 วินาทีต่อเฟรม(ผ่าน LAN ประมาณ1/100 วินาทีต่อเฟรม) ทำให้เหมือนการแสดงสไลด์มากกว่าจะเป็น VDO

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





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

ดัดแปลงจาก Motion detection

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





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

Stream ภาพจาก webcam online โดยใช้ winsock ตัวอย่าง Demo ให้ refresh ทุก ๆ 5 วินาที(ยังไม่ได้ต่อกับ webcam)

http://194.10.10.154:4040/

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





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

My demo streaming pic



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





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

Webcam to internet refresh ทุก ๆ 3 วินาที ใครว่าง ๆ ก็เข้ามาดูได้แต่ Webcam ผมเป็นอะไรไม่รู้มันเบลอมาก ๆ เคลมได้รึเปล่าเนี่ย

ผม serch google ได้ source code มาชุดนึงเกี่ยวกับการสร้าง ROBOT โดยการประมวลผลทางภาพโดยใช้ VB6.0
content คร่าว ๆ ดังนี้ครับ
1. Robot vision: Robot มองเห็นยังไง อันนี้ก็แล้วแต่คนเขียนโปรแกรมครับ ตัวอย่างมีอยู่ 3 แบบ

1.1 ประมวลผลและนำมาแสดงเป็น geometry lines ง่าย ๆ เช่น มุมของ boxes


1.2 แบบ 3 มิติ(กล้อง 2 ตัว)



1.3 เฉดสีที่ต่างออกไปจากเดิม



2. Face Detection: การ detect อารมณ์ที่แสดงออกทางใบหน้า



3. Body imitation: การเลียนแบบท่าทาง
















ทั้งหมดก็มี Code อยู่ 5 ชุดผมยังไม่ได้ทดลองซักอันเลย คิดว่าจะลองแก้ไขดัดแปลงเป็นชุด ๆ ไปเมือได้แล้วก็จะเอามา post ในบอร์ด

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





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

ช่วยบอกวิธีเขียน VB ติดต่อกับฐานข้อมูล SQL หน่อยสิคร้าบ pgroup@hotmail.com
กลับไปข้างบน
vichiern



เข้าร่วมเมื่อ: 17 ธค. 2005
ตอบ: 3

ตอบตอบ: ส. ธค. 17, 2005 9:58 pm    ชื่อกระทู้: ช่วยทำให้หน่อยนะครับไม่รู้จะไปพึ่งใครแล้ว C++ นะครับผม ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

ถ้าจะให้ สุดยอดส่งมาที่เมล์ vichiern@thaiizumi.co.th ขอบคุณมากนะครับสำหรับสิ่งที่มอบให้

เราจะมี Main Program ชื่อ Diver Program เป็น Output ส่วนตัวที่ีใช้ในการคำนวณหรือจัดการคื่อสิ่งที่ต้องทำอ่ะครับตามหัวข้อด้านล่างเลยนะครับ

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

//diver program

#include <iostream>
#include <string>
#include "Bank.h"
#include "Customer.h"
#include "Account.h"
using namespace std;
int main()
{
Bank scb;
scb.addCustomer("Sivakorn","Vashiravutthichai");
scb.addCustomer("Pramote","Rattamanee");
scb.addCustomer("Pongteap","Pitak");
int totalcus = scb.getNumberOfCustomers();
cout << "total Custumer is " << totalcus << endl;
Customer p = scb.getCustomer(0);
Customer b = scb.getCustomer(1);
Customer c = scb.getCustomer(2);
cout << "First customer name is " << p.getFirstname()<<" "<<p.getLastname()<< endl;
cout << "secound customer name is " << b.getFirstname()<<" "<<b.getLastname()<< endl;
cout << "Third customer name is " << c.getFirstname()<<" "<<c.getLastname()<< endl;
Account *acc1=new Account(10000);
Account *acc2=new Account(200);
Account *acc3=new Account(300);
p.setAccount(acc1);
b.setAccount(acc2);
c.setAccount(acc3);

cout <<"-----------------------------------------------------------------"<< endl;
cout << "Transaction of " << p.getFirstname()<<" "<<p.getLastname()<< endl;
cout << "Customer ID " << p.getId() +1 << endl;
Account *a1 = p.getAccount();
cout << "Balance is " << a1->getBalance()<< endl;
cout << "Deposite 1200 " << endl;
a1->deposit(1200);
cout << "Balance is " << a1->getBalance()<< endl;
cout << "widthDraw 2000000 " << endl;
if (a1->withdraw(2000000)==true)
{
cout << "Balance is " << a1->getBalance()<< endl;
}
else
{
cout << "You can not withdraw " << endl;
}
cout << "Balance is " << a1->getBalance()<< endl;
cout << "widthDraw 200 " << endl;
if (a1->withdraw(200)==true)
{
cout << "Balance is " << a1->getBalance()<< endl;
}
else
{
cout << "You can not withdraw " << endl;
}
cout << "Balance is " << a1->getBalance()<< endl;
cout <<"-----------------------------------------------------------------"<< endl;

cout <<"-----------------------------------------------------------------"<< endl;
cout << "Transaction of " << b.getFirstname()<<" "<<b.getLastname()<< endl;
cout << "Customer ID " << b.getId() +1 << endl;
Account *a2 = b.getAccount();
cout << "Balance is " << a2->getBalance()<< endl;
cout << "Deposite 1200 " << endl;
a2->deposit(1200);
cout << "Balance is " << a2->getBalance()<< endl;
cout << "widthDraw 2000000 " << endl;
if (a2->withdraw(2000000)==true)
{
cout << "Balance is " << a2->getBalance()<< endl;
}
else
{
cout << "You can not withdraw " << endl;
}
cout << "Balance is " << a2->getBalance()<< endl;
cout << "widthDraw 200 " << endl;
if (a2->withdraw(200)==true)
{
cout << "Balance is " << a2->getBalance()<< endl;
}
else
{
cout << "You can not withdraw " << endl;
}
cout << "Balance is " << a2->getBalance()<< endl;
cout <<"-----------------------------------------------------------------"<< endl;


cout <<"-----------------------------------------------------------------"<< endl;
cout << "Transaction of " << c.getFirstname()<<" "<<c.getLastname()<< endl;
cout << "Customer ID " << c.getId() + 1<< endl;
Account *a3 = c.getAccount();
cout << "Balance is " << a3->getBalance()<< endl;
cout << "Deposite 1200 " << endl;
a3->deposit(1200);
cout << "Balance is " << a3->getBalance()<< endl;
cout << "widthDraw 2000000 " << endl;
if (a3->withdraw(2000000)==true)
{
cout << "Balance is " << a3->getBalance()<< endl;
}
else
{
cout << "You can not withdraw " << endl;
}

cout << "widthDraw 200 " << endl;
if (a3->withdraw(200)==true)
{
cout << "Balance is " << a3->getBalance()<< endl;
}
else
{
cout << "You can not withdraw " << endl;
}
cout << "Balance is " << a3->getBalance()<< endl;
cout <<"-----------------------------------------------------------------"<< endl;

return 0;
}

-----------------------------------------------------------------------------------------------------------------------------------------

//Makefile

CC = g++
CFLAGS = -g

objects = project1.o Account.o Customer.o Bank.o

simplebank: $(objects)
$(CC) $(CFLAGS) $^ -o $@

$(objects): %.o: %.cpp
$(CC) -c $(CFLAGS) $< -o $@
clean:
rm *.o

---------------------------------------------------------------------------------------------------------------------------------------
//Description of Program

CS 401: Object Oriented Programming 1
Project 1: Banking Application
Objective
The objective of this project is to write a simple object-oriented banking program in C++.
NOTE: It is not acceptable to a submit any code for your project you find on the
Web (or anywhere). It is acceptable to look at any code and borrow ideas, but the
code you submit must be written by you. If you borrow specific ideas from code not
written by you, you must acknowledge this in your source code and in your report.
You may not share code (in any form) with anyone else in the class, or anyone who
has taken the class in previous years.
Project Description
Class Interface Specification
Here is a description of the classes you must define and the methods your objects must support.
When testing your code we will use a main program that declares variables of each class type
and calls the methods.
class Account
An Account object holds the current balance of the account. The Account class provides the
following methods.
• Account(double initBalance) sets initial balance to initBalance
• double getBalance() returns the current balance
• void deposit(double amount) adds the amount parameter to the current balance
• bool withdraw(double amount) removes the amount parameter from the current balance if
the amount being withdrawn is not greater than the current balance. It returns true on
successful. Otherwise, it returns false
class Customer
Class Customer stores information about the customer. This class must provide the following
methods.
• Customer(int customerId, string firstname, string lastname) initializes the object
CS 401: Object Oriented Programming 2
• int getId() returns the customer id
• string getFirstname() returns the firstname of the customer object
• string getLastname() returns the lastname of the customer object
• Account* getAccount() retrives the account attribute
• void setAccount(Account* acct) assigns the account attribute
class Bank
Class Bank stores customer objects. The Bank class must provide the following methods.
• Bank() is the default constructor
• void addCustomer(string firstname, string lastname) adds a customer
• int getNumberOfCustomers() returns number of the customers
• Customer& getCustomer(int customerId) returns the customer associated with the given
customerId parameter
Test Code
Sample Test Code is available. You should make sure that your objects work with this test
code!
Deliverables
You must submit all the source code to the TA. The files are Account.cpp, Account.h, Cus-
tomer.cpp, Customer.h, Bank.cpp, Bank.h. You must extensively comment your code. You
must also submit a report describing your program design.

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





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

ทำได้แล้วครับ
ใช้ winsock ส่ง image frame จาก client<====>server แบบ real time ผ่าน picture box
image frame จะปรากฎ(เกือบ)พร้อม ๆ กัน ระหว่าง client กับ server ถ้าใช้โปรแกรม screen capture หรือ web cam(post ไปแล้ว)รับภาพ picture boxจากเครื่องหนึ่งมันก็จะไปปรากฎที่อีกเครื่องได้ กระสุนนัดเดียวได้ 2 ต่อเรยย


รบกวนขอโคดโปรแกรมนี้ได้ไหมครับ อยากได้มากครับส่งมา ที่ Konua_net@hotmail.com รบกวนจริงๆครับ ขอบคุณครับ
กลับไปข้างบน
Monica9210



เข้าร่วมเมื่อ: 18 ธค. 2005
ตอบ: 9

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

แมงเม่า บันทึก:
ใช้ API "GetKeyState" นะครับ


I never knew that it could be done like that, really incredible. Evil or Very MadEvil or Very Mad
_________________
free money online casino online casino software
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ เข้าชมเว็บไซต์
Monica9210



เข้าร่วมเมื่อ: 18 ธค. 2005
ตอบ: 9

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

Lol, okay i get it now.
_________________
free money online casino online casino software
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์ เข้าชมเว็บไซต์
พายุ
บุคคลทั่วไป





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

พี่แมงเม่าคับ ช่วย ทีคับ คือผมเขียน VB6 รับข้อมูลจากฮาร์ทแวร์ ซื้อรับมาเป็นตัวเลขรหัสบาร์โค๊ด

Private Sub cmdIn_Click()
mscSender.Output = Chr(&H1E)
mscSender.Output = Chr(&H1)
mscSender.Output = Chr(&H0)
mscSender.Output = Chr(&H1F)
End Sub

Private Sub cmdOut_Click()
mscSender.Output = Chr(&H1E)
mscSender.Output = Chr(&H2)
mscSender.Output = Chr(&H0)
mscSender.Output = Chr(&H1F)
End Sub

Private Sub Form_Load()
mscSender.CommPort = 1
mscSender.Settings = "9600,n,8,1"
mscSender.PortOpen = True
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

คือผมต้องการรับข้อมูล เข้าจาก อุปกรณ์ ของผมอ่ะคับ ให้แสดงใน Text อ่ะ

แต่ผมเขียน โปรแกรมในการรับไม่เป็นอ่ะคับ ช่วยทีนะคับ
กลับไปข้างบน
พายุ
บุคคลทั่วไป





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

Laughing =ช่วยทีนะคับ จะสอบแว้ว
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

Private Sub MSComm1_OnComm()
Dim StrData As Variant
StrData = MSComm1.Input 'รับ input
RXText.Text = StrData
End Sub
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
แสดงการตอบก่อนนี้:   

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

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

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


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