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

voyager

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

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

โค๊ด 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 = "àÅè¹"
Else
STARTCAM
command1.Caption = "ËÂØ´"
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

โอม · บุคคลทั่วไป

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

นิ้มครับ · บุคคลทั่วไป

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

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

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

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

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

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

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

คนทำโปรเจค · บุคคลทั่วไป

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

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

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

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

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

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

ง่ายๆ เลยก็

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

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

Slayer · ตอบ: อ. พค. 09, 2006 4:01 pm ชื่อกระทู้:

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

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

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

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

ไม่ทราบว่าต้องทำอย่างไรเหรอครับ Question

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

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

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

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

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

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

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

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

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

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

ถ้าให้ดีกระรุนาแอดมาหาผมหน่อยนะครับpanotza_ja@hotmail.com

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

ถ้าเปิดไฟล์จาก 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 · บุคคลทั่วไป

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

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

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

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

ลูกแก้ว · บุคคลทั่วไป

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

ส่งมาทางเมล์ก้อได้ครับ

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

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

ลูกแก้ว · บุคคลทั่วไป

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

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

' จัดขนาด 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

ลูกแก้ว · บุคคลทั่วไป

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

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

ด้วยความที่สนใจอ่ะนะ

ลูกแก้ว · บุคคลทั่วไป

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

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

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 มือใหม่มากๆ · บุคคลทั่วไป

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

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

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

ลูกแก้ว · บุคคลทั่วไป

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

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