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





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

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

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

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


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