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

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





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

ขอแนะนำ เว็บที่รวม วงจร โปรเจค อิเล็ก ไมโคร น่าสนใจมาก
มีแลป ไมโคร ให้ทดลอง 16F628

http://www.elec-micro.com/

มีทั้งวงจร อิเล็กทรอนิกส์ โปรเจคอิเล็กทรอนิกส์ การทดลองไมโคร 16F628 โครงงานไมโคร ที่สำคัญ ข้อมูลฟรี อ้อ ภาษาอังกฤษ ครับ
กลับไปข้างบน
jai
บุคคลทั่วไป





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

ผมกำลังศึกษาเกี่ยวกับการคำนวณเรื่องของวันเดือนปี
เช่น
1. วันนี้วันที่ 11/04/2549 นับไปอีก 2 ปี 2 เดือน 2 วัน จะไปครบวันที่อะไร เดือนอะไร พ.ศ.อะไร จะต้องเขียนcode อย่างไร
2. วันนี้วันที่ 11/04/2549 นับถึงวันที่ 15/05/2550 จะได้จำนวนกีปีกี่เดือนกี่วัน ต้องเขียนcode อย่างไร
ขอคุณที่ช่วยแนะนำล่วงหน้าครับ
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

ใช้ datediff function

iSecond = DateDiff("s", Now, "13 April")
'iMinute = DateDiff("n", Now, "13 April")
'iHour = DateDiff("h", Now, "13 April")
'iDay = DateDiff("d", Now, "13 April")
'iMonth = DateDiff("m", Now, "13 April")
'iYear = DateDiff("y", Now, "13 April")

ลอง search ใน google "DateDiff" มี code ตัวอย่างเยอะ
กลับไปข้างบน
kathi
บุคคลทั่วไป





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

ขอบคุณพี่แมงเม่าและNon มากๆ เลยคับ ได้ผลยังไงแล้วจะมาบอกคับ Very Happy
กลับไปข้างบน
โอม
บุคคลทั่วไป





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

ผมขอโค้ด motion detect คับ ผมจะนำไปจับบาร์โค้ดด้วย webcam คับ
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

Code of the day: Database ส่วนตัวกับ widow registry

เอาไว้เก็บ setting ได ๆ โดยไม่ต้องสร้างไฟล์ database ให้ยุ่งยาก

Option Explicit
Dim i As Integer
Private Sub Command2_Click()
Randomize
i = Int(15 * Rnd) + 1
Me.BackColor = QBColor(i)
End Sub
Private Sub Form_Load()
Call loadsetting
End Sub
Private Sub Command1_Click()
Call save
End Sub
Sub loadsetting()
Form1.Top = GetSetting("VB", "FormSettings", "FormTop", Form1.Top)
Form1.Left = GetSetting("VB", "FormSettings", "FormLeft", Form1.Left)
Form1.BackColor = GetSetting("VB", "FormSettings", "Backcolor", Form1.BackColor)
Option1.Value = GetSetting("VB", "FormSettings", "Value1", Option1.Value)
Option2.Value = GetSetting("VB", "FormSettings", "Value2", Option2.Value)
Option3.Value = GetSetting("VB", "FormSettings", "Value3", Option3.Value)
Text1.Text = GetSetting("VB", "FormSettings", "Text", Text1.Text)
End Sub
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
Unload Me
End Sub

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





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

ขอลิสโค้ด motion detection คับ ผมจะลองใช้จับภาพบาร์โค้ด แล้วใข้ qsbarcode39
แปลงภาพเป็นรหัส ผม download thaiwara ไม่ได้ ผมอยากขอโค้ดพี่แมงเม่าด้วยคับ

http://www.9down.com/
15 most read stories

· 1: Microsoft Windows Genuine Advantage Cracked! - (515508 reads)
· 2: Hiren's BootCD v7.2 With keyboard Patch + Boot Fix - (335830 reads)
· 3: NERO 7 Premium + KeyGen - (333846 reads)
· 4: Hiren's BootCD 6.0 + Keyboard Patch - (269029 reads)
· 5: Adobe Photoshop CS2 9.0 Final + keygen & acitvater - (253473 reads)
· 6: Symantec System 2005 Download - (246376 reads)
· 7: Style XP 2.0 final + Keygen - (175591 reads)
· 8: Nero Burning Rom v7.0.1.2 Final + ORiON's KEYGEN - (132752 reads)
· 9: Alcohol120% v1.9.2.1705 Retail iNCL *wORKiNG Key* - (130797 reads)
· 10: Internet Explorer 7.0 Beta 1 for Windows XP - (126699 reads)
· 11: K-Lite v2.6 PR1 - (126200 reads)
· 12: WinRAR 3.51 + Working Key!!! - (125562 reads)
· 13: Google Earth Free/Pro/Plus v3.0.0395.0 - (116568 reads)
· 14: WinDVD Platinum 6 v6.0.6.42 + KeyGen - (115253 reads)
· 15: Ahead Nero v7.0 Ultra Edition Incl Keymaker (RiPED) - (113126 reads)

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





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

โค๊ด Motion detection

เอา component มาวาง เสียบกล้องแล้วใช้ได้เลย

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

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

Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim LastTime As Long

Option Explicit

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 detex_Click()
Check1.Value = Checked

End Sub

Private Sub exitja_Click()
STOPCAM
Unload Me
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 shot_Click()
STOPCAM
SavePicture Picture1.Image, App.Path & "\img1\image" & Counter & ".bmp"
Counter = Counter + 1
End Sub

Private Sub startja_Click()
STARTCAM
End Sub

Private Sub stopja_Click()
STOPCAM
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
Timer2.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

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





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

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





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

คือ อยากทราบว่า วิธีเขียน โปรแรกม แบบ ว่า ดึงภาพหน้าจอ ของคอม พิวเตอร์ระยะไกลอะครับ

ที่เค้าเรียกกัน ว่า Remote Desktop อะครับ พี่ แมงเม่า พอมีโปรแกรมอย่างว่าไหมครับ

ถ้ายังไง ช่วย แนะนำผม ด้วยน้ะครับ ขอบคุณมากครับ
กลับไปข้างบน
00
บุคคลทั่วไป





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

คือต้องการทำโปรเจคที่มีการเรียกflie จาก excel แล้วมาเก็บลงaccess แต่ยังไม่แนวทางเลยครับ ช่วยแนะนำด้วยครับ หรือมีโค้ดตัวอย่างด้วยยิ่งดีครับ ส่งมาที่ lukplarnoi@hotmail.com ขอบคุณครับ
กลับไปข้างบน
justyola
บุคคลทั่วไป





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

พอจะมีวิธีทีจะเลือกport LPT1 หรือ LPT2 ใช้ส่งข้อมูลออก โดยเราจะใช้ combo box
เลื่อก ช่วยpost source code ให้ด้วยนะครับ คือวากําลังเพิ่งหัด การinterface หรือชวยลงเบอร์โทรด้วยนะครับจะได้โทรไปปรึกษาปัญหาVB6.0 ครับ จะเป็นพระคูณอยางยิ่ง
กลับไปข้างบน
คนทำโปรเจค
บุคคลทั่วไป





ตอบตอบ: ส. พค. 06, 2006 2:40 pm    ชื่อกระทู้: อยากรู้การเขียน ซอสโค๊ต ของโปรแกรมแสดงผลสัญญาณ ECG ตอบกระทู้ด้วยเครื่องหมายคำพูด(quote) แก้ไข/ลบคำตอบนี้ ลบคำตอบนี้ แสดง IP

Sad ผมทำโปรเจค กำลังจะจบการศึกษา ต้องการทราบการเขียนโปรแกรม vb ในการแสดงผลสัญญาณคลื่นไฟฟ้าหัวใจครับ
กลับไปข้างบน
Xion
บุคคลทั่วไป





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

พี่แมงเม่าครับ ช่วยเขียนcode พวกปุ่ม Find Replace Goto และการเปิดไฟล์จากการOpen With ทั้งหมดนี่แบบNotepadเลยนะครับ

*หมายเหตุ ปุ่มพวกนี่ผมจะทำไปใช้ในtextboxนะครับ ขอย้ำว่าtextbox

รบกวนมากไปหน่อยไม่ได้ทั้งหมดไม่เป็นไรครับ ขอคุณอย่างสูงครับ
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

ง่ายๆ เลยก็

Text1 = Replace(Text1, Text2, Text3)

หรือทำฟังก์ชัน
'Find:
Public Function FindAndHighlight(txt1 As TextBox, SearchString As String, CaseSensitive As Boolean, Optional StartIndex As Integer)
Dim x As Integer
On Error GoTo err
Dim xSelStart As Integer
Dim xSelLength As Integer
If StartIndex <= 0 Then x = 1 Else x = StartIndex
If CaseSensitive = True Then
xSelStart = InStr(x, txt1.Text, SearchString) - 1
Else
xSelStart = InStr(x, LCase(txt1.Text), LCase(SearchString)) - 1
End If
xSelLength = Len(SearchString)
txt1.SelStart = xSelStart
txt1.SelLength = xSelLength
err:
End Function

Replace:
Public Function ReplaceAndHighLight(txt1 As TextBox, ReplaceWith As String)
Dim xSelStart As Integer
Dim xSelLength As Integer
On Error GoTo err
xSelStart = txt1.SelStart
xSelLength = Len(ReplaceWith)
txt1.SelText = ReplaceWith
txt1.SelStart = xSelStart
txt1.SelLength = xSelLength
err:
End Function
กลับไปข้างบน
Xion
บุคคลทั่วไป





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

แล้ว การเปิดไฟล์จากการOpen With ละครับเปิดไฟล์พวกtxtอะแล้วมาอยู่ในtextboxของเราเลย
กลับไปข้างบน
Slayer



เข้าร่วมเมื่อ: 09 พค. 2006
ตอบ: 1

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

พี่แมงเม่าครับคือว่าผมใช้ CommonDialog ในการให้เลือกสีและแสดงออกมาเป็นรหัสสีอ่าครับแต่ว่าสีมันออกมาเป็นพวกตัวเลขอย่างเดียวเช่น

สีส้ม = 33023
สีแดง = 255
สีดำ = 0

แต่ผมต้องการให้มันออกมาเป็นอีกแบบเช่น

สีขาว = FFFFFF
สีแดง = FF0000
สีดำ = 000000

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





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

convert RGB เป็น HEX

ตรง ๆ เลยก็

HEX = HEX(RGB code)

เช่น HEX = HEX(Text1.Text)

หรือจะเขียนในรูปแบบฟังก์ชัน

Function RgbToHex(ByVal Red As Integer, ByVal Green As Integer, ByVal Blue As Integer) As Integer
txtHex.Text = ""
If Len(Hex(Red)) = 1 Then
txtHex.Text = txtHex.Text & "0"
End If
txtHex.Text = txtHex.Text & Hex(Red)
If Len(Hex(Green)) = 1 Then
txtHex.Text = txtHex.Text & "0"
End If
txtHex.Text = txtHex.Text & Hex(Green)
If Len(Hex(Blue)) = 1 Then
txtHex.Text = txtHex.Text & "0"
End If
txtHex.Text = txtHex.Text & Hex(Blue)
End Function
กลับไปข้างบน
Xion
บุคคลทั่วไป





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

แล้ว การเปิดไฟล์จากการOpen With ละครับเปิดไฟล์พวกtxtอะแล้วมาอยู่ในtextboxของเราเลย

งืมขอปุ่มGotoด้วยก็ดีนะครับ

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





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

Open CommonDialog1.FileName For Input As #1
While Not EOF(1)
Line Input #1, aa
bb = bb & aa & vbCrLf
Wend
Text1.Text = bb
Close #1
Exit Sub

แต่ถ้าเป็น RichTextBox1 ก็จะง่ายกว่า

RichTextBox1.LoadFile CommonDialog1.FileName
กลับไปข้างบน
Xion
บุคคลทั่วไป





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

ผมว่าพี่เข้าจัยผิดรึป่าวครับ

การOpenWithแบบนี่นะครับ ผมลองทำแล้วมันเปิดโปรแกรมผมขึ้นมาแต่ข้อมูลในไฟล์textมันไม่มาอยู่ในtextboxของผมน่ะครับ

หรือพี่ให้codeมาถูกแล้ว โปรดชี้แจงด้วยครับว่ามันต้องใส่ในEventไหน

ถ้าให้ดีกระรุนาแอดมาหาผมหน่อยนะครับpanotza_ja@hotmail.com
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

ถ้าเปิดไฟล์จาก Cmdlg มันก็ถูกแล้วนะครับ

1. คลิก open file
2. เลือกไฟล์ *.* หรือ *.txt ==> FileName
CommonDialog1.Filter = "Text files|*.txt|HTML Files (*.html)|*.html|All Files (*.*)|*.*"
CommonDialog1.ShowOpen
3. Load ชื่อไฟล์เพื่อดึงข้อมูลลง textbox
Open CommonDialog1.FileName For Input As #1
While Not EOF(1)
Line Input #1, aa
bb = bb & aa & vbCrLf
Wend
Text1.Text = bb
Close #1
Exit Sub

ถ้าเป็นแบบอื่นผมก็ไม่รู้เหมือนกัน
กลับไปข้างบน
Xion
บุคคลทั่วไป





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

หงะมันไม่ใช่ปุ่มOpenครับ พี่เคยใช้notepadใช่มะละ ปกติพี่จะตั้งให้notepadเป็นโปรแกรมเปิดtextfileถูกมั้ยแล้วผมลองเปลี่ยนจากnotepadเป็นโปรแกรมผมดูปรากดว่ามันเปิดขึ้นมาแล้วมันเป็นโปรแกรมว่างๆ ไม่มีการopentextfileเข้ามาแบบในnotepadอะครับ

อยากทราบว่าเราจะเขียนcodeยังไงให้มันopentextfileเข้ามาแบบnotepadบ้าง
กลับไปข้างบน
Xion
บุคคลทั่วไป





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

ไม่เปงไรครับงั้นขอปุ่ม Redo Undo และ Gotoก็ได้ครับ - -"
กลับไปข้างบน
ลูกแก้ว
บุคคลทั่วไป





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

Question อยากถามพี่เรื่องการใช้VBเขียนกราพอ่ะครับ ว่าหลักการมันเป็นยังไง ช่วยชี้แนะด้วยครับ หาตัวอย่างcode แล้วอธิบายให้ด้วยนะครับ เดะใหม่ฮะ
หรือเมล์ rit_net_666@hotmail.com

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





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

Option Explicit

Private Sub Form_Load()
Dim i As Integer
Dim x As Single
Dim y As Single

' จัดขนาด scale
Picture1.Scale (-10, 10)-(10, -10)

' สร้างแกน X.
Picture1.Line (-10, 0)-(10, 0)
For i = -9 To 9
Picture1.Line (i, -0.5)-(i, 0.5)
Next i

' สร้างแกน Y.
Picture1.Line (0, -10)-(0, 10)
For i = -9 To 9
Picture1.Line (-0.5, i)-(0.5, i)
Next i

' plot สมการ y = 4 * sin(x).
Picture1.ForeColor = vbRed
x = -10
y = 4 * Sin(x)
Picture1.CurrentX = x
Picture1.CurrentY = y
For x = -10 To 10 Step 0.25
y = 4 * Sin(x)
Picture1.Line -(x, y)
Next x

' plot สมการ y = x ^ 3 / 5 - 3 * x + 1.
Picture1.ForeColor = vbBlue
x = -10
y = x ^ 3 / 5 - 3 * x + 1
Picture1.CurrentX = x
Picture1.CurrentY = y
For x = -10 To 10 Step 0.25
y = x ^ 3 / 5 - 3 * x + 1
Picture1.Line -(x, y)
Next x
End Sub
กลับไปข้างบน
ลูกแก้ว
บุคคลทั่วไป





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

ขอบคุณสำหรับcodeครับพี่แมงเม่า แต่รบกวนอีกนิดนะ ช่วยอธิบายการใช้ให้อีกทีนะครับ
ขอบคุณล้ำหน้า เลย : (ล่วงหน้าจิ); Wink
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

' จัดขนาด scale ของ picture box จาก X(-10 ==>10), Y(-10==>10)
Picture1.Scale (-10, 10)-(10, -10)

สร้างแกน X.
Picture1.Line (-10, 0)-(10, 0) สร้างแกน X
For i = -9 To 9
Picture1.Line (i, -0.5)-(i, 0.5) สร้างช่อง scale ของแกน X
Next i

option เสริม ลอง plot สมการลงบนตาราง

' plot สมการ y = 4 * sin(x).
Picture1.ForeColor = vbRed
x = -10
y = 4 * Sin(x)
Picture1.CurrentX = x
Picture1.CurrentY = y
For x = -10 To 10 Step 0.25
y = 4 * Sin(x)
Picture1.Line -(x, y)
Next x
กลับไปข้างบน
ลูกแก้ว
บุคคลทั่วไป





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

Rolling Eyesขอบคุณครับพี่แมงเม่าIdea ขอลองก่อน อิอิ คือช่วงนี้ผมต้องเขียนโปรแกรมส่งอาจารย์จาก vb6 ให้สั่งงานพอร์ตได้ทั้ง seria &parallel เลยต้องค้นคว้าหนักเลย เพราะไม่เคยทำมาก่อนเลย
Evil or Very Mad ด้วยความที่สนใจอ่ะนะ
กลับไปข้างบน
ลูกแก้ว
บุคคลทั่วไป





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

พี่แมงเม่าครับ การเขียนกราฟโดยใช้microsoft chart control6.0ที่มีในvbอ่ะครับ จะเขียนอย่างไรเพื่อให้กราพที่ออกมา เราสามารถป้อนค่าที่เราต้องการเองลงไป และให้มันแสดงค่าออกมาได้เมื่อเราต้องการอ่ะครับ ช่วยเขียนรูปแบบฟอร์ม และโค๊ดพร้อมอธิบายให้ทีนะครับ
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

Private Sub Form_Load()
Dim data(5, 0)
data(0, 0) = 3
data(1, 0) = 9
data(2, 0) = 6
data(3, 0) = 15
data(4, 0) = 2
MSChart1.chartType = 3
MSChart1.ChartData = data
End Sub
กลับไปข้างบน
cd7 มือใหม่มากๆ
บุคคลทั่วไป





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

เรื่อง การใช้ WebCam ดึงภาพนะคับ
บังเอิญจริงๆตรงกับที่หามากๆ พอดีมี Project เกี่ยวกับ WebCam ในการดึงภาพเข้ามาเก็บเมื่อกด Save
ตรงกับที่หาอยู่เลย
ปัญหาก็คือ ได้ทดลอง Copy Code มาแล้วทดลองปรากฏว่า Error FromLode
Varliable noe Defined
istDevives นะคับ
ไม่รู้เกิดจากอะไร หรือต้อง Dowsload ไฟล์อะไรเข้าไปเก็บก่อนหรือเป่า ขอความกรุณาีคุณแม่งเม่าด้วยตอบกระทู้นี้ด้วยคับ
กลับไปข้างบน
ถึงคุณ แมงเม่า
บุคคลทั่วไป





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

ทำได้แล้ว คับ เข้าใจแล้วคับ Wedcam
ขอบคุณคุณ แมงเม่า มากเลยครับ สุดยอด..
นอกจาก Code VB ทำ WebCam แล้ว มี Code vb ใช้กับ กล้อง Digital คลิกปุ่มที่หน้าจอ ให้ ชัตเตอรทำงานถ่ายภาพได้ มีมั้ยคับ
กลับไปข้างบน
ลูกแก้ว
บุคคลทั่วไป





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

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





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

ขอรบกวน ช่วยบอกว่าทีทำปุ่มUndo Redo Gotoด้วยนะขอรับ Razz
กลับไปข้างบน
บุคคลทั่วไป






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

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





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

คำพูด:
ขอรบกวน ช่วยบอกว่าทีทำปุ่มUndo Redo Gotoด้วยนะขอรับ


เดาว่าคงใช้ในโปรแกรม notepad มี 2 วิธีคือ
1. Search ใน google ==> notepad vb
2. เอาคำสั่งกด keyboard มาใช้ เช่น

Private Sub Undo_Click()
SendKeys ("^z")
End Sub

Private Sub Redo_Click()
SendKeys ("^y")
End Sub
กลับไปข้างบน
kennn
บุคคลทั่วไป





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

มีคำถาม 3 ข้อครับ

1. เกี่ยวกับ Inet ครับ ผมใช้ code ข้างล่างนี้ รับค่า HTML มาแสดงที่ TextBox ด้วย URL: http://www.google.com/search?hl=en&q=web+hosting&gl=us
แต่ HTML ที่ออกมามันไปขึ้นหน้า Error 404 นะครับ จะแก้ไขอย่างไรให้ HTML ขึ้นตาม URL ที่ถูกต้องครับ

Code :

Private Sub cmdGet_Click()
txtOutput.Text = inetGet.OpenURL(txtURL.Text, icString)
End Sub


2. HTMLViewer1.LoadURL เป็น Components ของตัวไหนครับ

3. ค่าสูงสุดในการรับ Data ของ Winsock คือ 8192 characters ถ้าเราจะรับค่าที่มากกว่า 8192 characters แบบต่อเนื่องจาก Data เดิมจะต้องทำไงครับ
กลับไปข้างบน
ลูกแก้ว
บุคคลทั่วไป





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

Confused พี่แมงเม่าครับ ช่วยชี้แนะด้วย คือตอนนี้ผมกำลังหาข้อมูลเกี่ยวกับ การใช้vb ให้วัดระดับสัญญาณที่เป็นอนาลอกได้ หรือ ใช้เป็นเครื่องวัดระดับน้ำอ่ะครับ จะสามารถใช้componentsตัวไหน แล้วcodeจะเขียนยังไง
Sadคือตอนนี้ผมรับ-ส่งเป็นแต่แบบดิจิตอ่ะครับ เลยทำให้ Inp/outเป็น0,1 ผมเลยต้องหาข้อมูลเพิ่มในส่วนนี้ รบกวนหน่อยนะครับ
กลับไปข้างบน
Xion
บุคคลทั่วไป





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

พี่ช่วยเขียน เทกนิกเกี่ยวกับการใช้คอนโทลWinsockหน่อยครับ ขอทุกmethos ถ้าให้ดีช่วยอธิบายมาด้วยครับ (เริ่มศึกษานะครับ)
กลับไปข้างบน
ลูกแก้ว
บุคคลทั่วไป





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

สามารถวัดระดับหรือ ปรับค่าได้อ่ะครับ ที่ส่ง หรือ รับทางo/p port และแสดงบนฟอร์ม หรือปรับค่าที่ฟอร์มได้เลยอ่ะครับ ขอรบกวนตอบด้วยครับ
กลับไปข้างบน
ถัง



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

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

รบกวนคุณแมงเม่าช่วยเขียน code ที่นำเอา webcam ทั่วๆไปมาจับภาพวงกลมดำขนาดตั้งแต่ 0.5-3.0 เซ็นติเมตร มาเก็บไว้ก่อนเพื่อเป็นต้นแบบในการค้นหาภาพลักษณะเดียวกัน
(ซึ่งผมจะให้มันวิ่งบน plate x-y กว้าง ยาว ขนาด กระดาษ A4 ครับ วงกลมดำอยู่บริเวณไหนของ A4 จะให้บอกเป็น ต่ำแหน่งออกมา) รบกวนเกินไปรึเปล่า ขอบคุณครับ
_________________
dpc
กลับไปข้างบน
แสดงข้อมูลส่วนตัวของสมาชิก ส่งข่าวสารส่วนตัว ส่งอีเมล์
แมงเม่า
บุคคลทั่วไป





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

คำพูด:
พี่แมงเม่าครับ ช่วยชี้แนะด้วย คือตอนนี้ผมกำลังหาข้อมูลเกี่ยวกับ การใช้vb ให้วัดระดับสัญญาณที่เป็นอนาลอกได้ หรือ ใช้เป็นเครื่องวัดระดับน้ำอ่ะครับ จะสามารถใช้componentsตัวไหน แล้วcodeจะเขียนยังไง
คือตอนนี้ผมรับ-ส่งเป็นแต่แบบดิจิตอ่ะครับ เลยทำให้ Inp/outเป็น0,1 ผมเลยต้องหาข้อมูลเพิ่มในส่วนนี้ รบกวนหน่อยนะครับ


ลองดูในเวปนี้ใช้ Active X
http://www.mvps.org/rgrier/parallel.htm
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

คำพูด:
พี่ช่วยเขียน เทกนิกเกี่ยวกับการใช้คอนโทลWinsockหน่อยครับ ขอทุกmethos ถ้าให้ดีช่วยอธิบายมาด้วยครับ (เริ่มศึกษานะครับ)


หลักการใช้ 4 ขั้นตอนดังนี้ครับ
1. Client ร้องขอการติดต่อผ่าน server โดยผ่าน IP address ใช้ method connect

Winsock1.Connect "194.10.10.154", "188" 'พอร์ตใช้เลขอะไรก็ได้แต่ต้องตรงกันทั้ง client และ server

2. Server ยอมรับการติดต่อ

If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID

3. ส่ง message เหมือนกันทั้ง client และ server

Winsock1.SendData Text1

4. รับ message เหมือนกันทั้ง client และ server

Dim dat As String
Winsock1.GetData dat


ตัวอย่าง chat แบบสั้นสุด ๆ แล้วครับ
Client:

Private Sub Connect_Click()
Winsock1.Connect "194.10.10.154", "188"
End Sub

Private Sub Winsock1_Connect()
Me.Caption = "Connected"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dat As String
Winsock1.GetData dat
List1.AddItem "Server : " & dat
End Sub

Private Sub Send_Click()
Winsock1.SendData Text1
End Sub

Server:

Private Sub Form_Load()
Winsock1.LocalPort = 188
Winsock1.Listen
End Sub

Sub Send_Click()
Winsock1.SendData Text1
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
Me.Caption = "Connected"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dat As String
Winsock1.GetData dat
List1.AddItem "Client : " & dat
End Sub
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

คำพูด:
รบกวนคุณแมงเม่าช่วยเขียน code ที่นำเอา webcam ทั่วๆไปมาจับภาพวงกลมดำขนาดตั้งแต่ 0.5-3.0 เซ็นติเมตร มาเก็บไว้ก่อนเพื่อเป็นต้นแบบในการค้นหาภาพลักษณะเดียวกัน
(ซึ่งผมจะให้มันวิ่งบน plate x-y กว้าง ยาว ขนาด กระดาษ A4 ครับ วงกลมดำอยู่บริเวณไหนของ A4 จะให้บอกเป็น ต่ำแหน่งออกมา) รบกวนเกินไปรึเปล่า ขอบคุณครับ


ผมว่ามันไม่ง่ายเลยนะครับ คร่าวๆ ที่ต้องการ
1. ระยะของกล้องกับระนาบต้องแน่นอน
2. รูปที่ได้ต้อง calibration ก่อนเพื่อให้มีมาตรฐานเดียวกันทั้งขนาดและโทนสี
3. นำรูปที่เป็น standard มาเทียบกับรูปที่ calibration

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



ส่วนโปรเจคนี้ผมไม่ทราบแนวทางครับ ลองดูรายละเอียดอื่น ๆ ในเวปนี้เกี่ยวกับ machine vision system

http://www.machinevisiononline.org/public/faq/index.cfm?allanswers=on

หรือ search ใน google เช่น vb inspection measurement webcam
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

Code of the day: การวัดค่าทางไฟฟ้าผ่าน GPIB BUS

โปรเจคนี้สำหรับใครที่มีเครื่องมือวัดทางไฟฟ้าของ Keithley,Hewlett packad, Agilent และ GPIB card ถ้ามีครบก็เล่นได้เลย แต่ถ้าไม่มีอ่านเล่น ๆ ก็ได้

สิ่งที่ต้องเตรียมในโปรเจคนี้:
1. Digital multimeter ของ Agilent Tech โมเดล HP34401A
2. Source Meter ของ Keithley โมเดล 2400 Source meter
3. GPIB card ของ NI
4. GPIB cable 3 เส้น
5. Agt3494A.ocx

ติต่างว่าใครที่จะทำโปรเจคนี้ได้ติดตั้ง GPIB card เรียบร้อยแล้ว(ไม่ขอพูดรายละเอียดนะ) ส่วน OCX ไฟล์ให้ download จาก www.agilent.com/find/iolib เมื่อติดตั้งแล้วให้ add ocx ไฟล์จาก C:\Program Files\Common Files\Agilent\IOLibraries

โปรเจคนี้ง่าย ๆ คือ
1. ใน Form load ให้ Equipment แสดง IDN ของตัวเอง
2. เมื่อกดปุ่ม Setvolts ให้ 2400 Source meter จ่ายแรงดันไฟฟ้าแบบ linear 1-10 โวลต์
3. ขณะเดียวกันให้ Digital multimeter เป็นตัวอ่านค่า voltage ที่ได้

Private Sub Form_Load()
On Error GoTo UnexpectedError
Keithley.Output "*IDN?"
Keithley.Enter reply
MsgBox reply
DMM.Output "*IDN?"
DMM.Enter reply
MsgBox reply
Exit Sub
UnexpectedError:
error = Err.Number
End Sub

Private Sub SetVolts_Click()
Timer1.Enabled = True
End Sub
Private Sub Disconnect_Click()
Keithley.Disconnect
DMM.Disconnect
End Sub

Private Sub Timer1_Timer()
i = i + 1
voltage = i
Keithley.Output "SOURCE:VOLTAGE " & voltage
Keithley.Output "MEASURE:VOLTAGE?"
Keithley.Enter Source_reading
List1.AddItem Source_reading
DMM.Output "MEASURE:VOLTAGE?"
DMM.Enter DMM_reading
List2.AddItem DMM_reading
If i > 9 Then
Timer1.Enabled = False
Keithley.Output "*RST"
DMM.Output "*RST"
i = 0
End If
End Sub



รูปนี้ผมเอาค่าแรงดันไฟฟ้าที่อ่านได้มา plot กราฟจะได้ดูง่ายขึ้น ส่วนโค๊ดหลักเหมือนกัน
กลับไปข้างบน
ลูกแก้ว
บุคคลทั่วไป





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

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



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

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

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





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

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


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

Intro:

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

Theory:

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



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

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

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





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

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

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

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





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

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

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





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

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

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


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

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

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

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

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






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

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





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

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





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

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

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

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






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

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






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

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





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

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

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






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

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





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

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





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

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


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





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

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

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





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

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





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

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

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

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

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

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

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

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

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

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

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



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

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

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





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

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





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

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





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

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


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

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



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

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

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





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

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

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


Panel View



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

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





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

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





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

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





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

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


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





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

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

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

จุดประสงค์

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

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

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

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

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

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





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

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





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

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





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

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


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





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

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





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

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

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






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

แมงเม่า บันทึก:
ยังไม่ได้อ่านละเอียดนะนู๋ แต่ดูผ่านๆ ตา มันคือการควบคุมการทำงานของมือถือตาม AT command ไม่ใช่การเขียนโปรแกรมส่ง sms เหมือนที่พี่เข้าใจ จาก link ที่ 2ของน้อง ให้ดูหัวข้อ 7 กับ 8 น่าจะช่วยได้เยอะ

ลองใช้ keyword หาดูใน google พี่ลองดูแล้ว free source code มีเยอะมั๊กๆ copy มาใช้ได้เรยย Embarassed

MSComm1.Output = "AT+CMGS"
MSComm1.Output = "AT+CMGL"
MSComm1.Output = "AT+CMGR"
MSComm1.Output = "AT+CMGS"
MSComm1.Output = "AT+CMSS"
MSComm1.Output = "AT+CMGW"
MSComm1.Output = "AT+CMGD"


SMS AT command

AT+CMGL List Messagese
AT+CMGR Read Message
AT+CMGS Send Message
AT+CMSS Send Message from Storage
AT+CMGW Write Message to Memory
AT+CMGD Delete Message

จบ forum นี้ครับ(ห้ามกลับมาถามอีก) Cool
กลับไปข้างบน
แมงเม่า
บุคคลทั่วไป





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

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



Option Explicit

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

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

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

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

End Sub

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





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

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





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

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


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

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

'ฟอร์ม

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

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

Private Sub Timer1_Timer()
CheckKeys
End Sub

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





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

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





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

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





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

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






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

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



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

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

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

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

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

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





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

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

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

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



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

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

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



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

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

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



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

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



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

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

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



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

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

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



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

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

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

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



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

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

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



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

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

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



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

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

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



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

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

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


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

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

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



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

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

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

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

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



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

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

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



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

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

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


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

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

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

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



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

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

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



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

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

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

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

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



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



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

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

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

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



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

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

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

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

แปลงได้แล้ว

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

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

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

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

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

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



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

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

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



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

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

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

ขอบคุณคับ


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



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

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

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


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

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



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

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

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

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

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



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

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

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



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

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

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


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

เช่น

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

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

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

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

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

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



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

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

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



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

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

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





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

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


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

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

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

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



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

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

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





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

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


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

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





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

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





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

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






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

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





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

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






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

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






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

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




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

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

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

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

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

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

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

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

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

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





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

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


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





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

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





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

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

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


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



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

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

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

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



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

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

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



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

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

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

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

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



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



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

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

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



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

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

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

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



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

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

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



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

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

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

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

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

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



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

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

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


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

'Form

Private Sub Form_Click()

TimeToClose = True

End Sub

'Module

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

Sub Main()

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

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

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

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

Wend

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



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

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

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


post ไปแล้วครับ

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



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

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

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

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

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

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


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

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

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

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

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



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

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

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

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

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

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

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

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

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


Us Web Relation :  Logic Ladder  |   Controller Motion  |   Cylinder Hydraulic  |   Fisher Valve  |   RFID Implementation  |   Smart Card Link  |   Electric Rise  |   Fabrication PCB  |   Motor Stepper  |   Sensor Motion  |   Robot Project  |   Acquisition Data  | 
Powered by phpBB 2.0.6 © 2001, 2002 phpBB Group