| ดูกระทู้ก่อนนี้
:: ดูกระทู้ถัดไป
|
| ผู้ส่ง |
ข้อความ |
voyager
เข้าร่วมเมื่อ: 18 สค. 2005
ตอบ:
68
ที่อยู่: เชียงใหม่
|
 ตอบ: พ. สค. 24, 2005 2:17
pm ชื่อกระทู้:
ห้องVBส่วนตัวของแมงเม่า |
    |
|
| ใครอยาก post
กระทู้เกี่ยวกับ visual basic 6.0 ทั้งที่เป็น hardware
interface หรือ miscellaneous ถ้าไม่มีใคร post ก็จะมา post เอง
555555 | |
| กลับไปข้างบน |
|
| กลับไปข้างบน |
|
 |
แมงเม่า
บุคคลทั่วไป
|
| ตอบ: จ. มค. 23, 2006 8:32
pm ชื่อกระทู้:
|
|
|
เมื่อวันอาทิตย์ที่ผ่านมาได้ไปจัดงานวันเด็กให้น้อง
ๆ ที่โรงเรียนตำรวจตระเวนชายแดนที่แม่แจ่มก็เลยขอเอารูปมาลง
ออกจากหอพักบริษัท
พักเติมพลังที่ปตท.แม่แจ่ม
ถึงซะที
ทั้งโรเรียนก็มีอยู่แค่นี้แหละ
ได้เวลาหม่ำ
แม่งานที่แสนดี
แกล้งน้อง
ธิดาดอย
บ้องแบ๊ว
| |
| กลับไปข้างบน |
|
|
piggyครับ
บุคคลทั่วไป
|
| ตอบ: พฤ. มค. 26, 2006
7:12 pm ชื่อกระทู้:
ใช้VBติดต่อODBCยังไงครับ |
|
|
ผมต้องการใช้Comboboxเพื่อเรียกดูข้อมูลทั้งหมดผ่านODBCที่เขียนโดยMySQLครับ
ผมใช้DbDataเป็นตัวเรียกข้อมูลแต่ในช่องconnectมันไม่มีSQLครับไม่ทราบว่าจะดึงข้อมูลยังไงครับ(Accessมันใช้ได้นะครับ)จะใช่objectตัวใหนครับ | |
| กลับไปข้างบน |
|
|
komate
เข้าร่วมเมื่อ: 01 พค. 2004
ตอบ:
4
|
| ตอบ: อาทิตย์ มค. 29, 2006
7:17 pm ชื่อกระทู้:
remote ควบคุมแทนคีย์บอร์ด |
|
|
คือรับทางrs232
ได้มาแล้วเป็นเลข2ตัว จะทำอย่างไรครับให้มันทำงานแทนคีย์บอร์ด
และรันตลอดเวลาแม้จะเปิดโปรแกรมอื่นอย่างงัยครับ | |
| กลับไปข้างบน |
|
|
แมงเม่า
บุคคลทั่วไป
|
| ตอบ: อาทิตย์ มค. 29, 2006
9:59 pm ชื่อกระทู้:
|
|
|
แนะนำเวปฟังเพลง online
ขอผ่าน MSN
http://www.sawasdeejj.com/
ถ้าใครไม่เข้าไม่ต้องตอบคำถามให้(DJ เค้า
requestมา) | |
| กลับไปข้างบน |
|
|
parapata
เข้าร่วมเมื่อ: 13 มค. 2006
ตอบ:
2
|
| ตอบ: จ. มค. 30, 2006 3:52
pm ชื่อกระทู้: ขอโค๊ด
vb ควบคุม portprinter คุมไฟ led |
|
|
พี่ครับครั้งที่แนะนำผมครั้งนั้น
ผมนำโค๊ดที่แนะนำไป แก้ไขใช้ได้ครับ
แต่ผมก็ยังติดที่หนึ่งครับเป็นส่วนของสวิตซ์ครับ คือว่า
เมื่อ กดสวิตซ์ไฟแล้ว ไฟที่หลอด LED มันติด
แต่ถ้าหากปล่อยก็จะดับ และถ้าหากกดสวิตซ์พร้อมกันหลายตัว
ไฟที่หลอด LED มันก็จะไม่ติด ไม่รู้จะทำยังไงครับเพื่อที่จะทำให้
เวลาที่กดสวิตซ์ลงไปแล้วไฟที่หลอด LED จะติด
และเวลาปล่อยก็ยังติด
แต่ถ้าหากเรากดที่สวิตซ์ตัวเดิมหลอดไฟก็จะดับ และที่สำคัญคับ
จะทำยังไงให้หลอดแต่ละตัวแยกการทำงานกันเป็นอิสระ
ไม่ว่าจะกดสวิตซ์ที่ 1 ติด ที่ 3 ติด และที่ 4 ติด และเวลากดปิด
หลอดที่ 3 ดับ หลอดที่4 ดับ เป็นต้นคับ
ช่วยหาให้ผมที่นะครับ
ขอบคุมครับพี่แมงเม่า | |
| กลับไปข้างบน |
|
|
HusPlus
เข้าร่วมเมื่อ: 07 สค. 2005
ตอบ:
9
|
| ตอบ: จ. มค. 30, 2006
10:01 pm ชื่อกระทู้:
|
|
|
รบกวนพี่แมงเม่าอีกรอบครับ
จากคำถามที่ผมถามไว้ในความเห็นที่ http://thaiio.com/forum/viewtopic.php?p=3313#3313
และที่พี่ช่วยเข้ามาตอบ http://thaiio.com/forum/viewtopic.php?p=3338#3338
ตอนนี้ผมพอจะเข้าใจเกี่ยวกับการตั้งชื่อเป็นวันที่แล้ว
ที่ยังไม่เข้าใจคือ
1. การเซฟรูปภาพครับ
ต้องใช้คำสั่งอะไรถึงจะเซฟรูปภาพได้
เพราะจากที่ผมเอาโค้ดของพี่ไปลอง
ปรากฏว่าไม่มีส่วนคำสั่งการเซฟรูป
แต่มีปุ่มสำหรับเซฟไว้ด้วย
2. การเซฟที่เอาเวลาที่เซฟมาเป็นชื่อไฟล์ใช้หลักการเดียวกับ
คำตอบที่พี่มาตอบไว้รึป่าวครับ ช่วยอธิบายที
รบกวนพี่ช่วยตอบคำถามผมอีกซักรอบนะครับ
ขอบคุณมากครับผม | |
| กลับไปข้างบน |
|
|
แมงเม่า
บุคคลทั่วไป
|
| ตอบ: อ. มค. 31, 2006 1:35
pm ชื่อกระทู้:
|
|
|
| คำพูด: |
| กดสวิตซ์ลงไปแล้วไฟที่หลอด LED จะติด
และเวลาปล่อยก็ยังติด
แต่ถ้าหากเรากดที่สวิตซ์ตัวเดิมหลอดไฟก็จะดับ |
1. กำหนดให้ caption ของปุ่มกดเป็น "ON"
และ "OFF" ให้เปลี่ยนสลับกันทุกครั้งที่มีการกด เช่น
Static i As Integer
i = i + 1
i = i Mod 2
With Cmd1
If i <> 0 Then
.Caption = "ON"
Else
.Caption = "OFF"
End If
แล้ว select
case ของ caption
เช่นถ้า "ON" ให้ out 01 และ "OFF" ให้ out
00
| คำพูด: |
| และที่สำคัญคับ
จะทำยังไงให้หลอดแต่ละตัวแยกการทำงานกันเป็นอิสระ
ไม่ว่าจะกดสวิตซ์ที่ 1 ติด ที่ 3 ติด และที่ 4 ติด
และเวลากดปิด หลอดที่ 3 ดับ หลอดที่4 ดับ
เป็นต้นคับ |
2. ใช้ตรรกะ AND เพื่อเปรียบเทียบ output
ให้เอา output มาเปรียบเทียบบิตต่อบิต
Bit1 =
Inp(PortAddress) And &H1
Bit2 = Inp(PortAddress) And
&H2
Bit3 = Inp(PortAddress) And &H4
Bit4 =
Inp(PortAddress) And &H8
เมื่อมา And
กันแล้วค่าที่ได้ก็จะไม่มีผลกับ output อื่น ๆ
If Bit1 =
&H1 Then
led0.BackColor = vbRed
Else
led0.BackColor = vbWhite
End If
'++++++++++++++++++
If Bit2 = &H2 Then
led1.BackColor = vbRed
Else
led1.BackColor =
vbWhite
End If
'++++++++++++++++++
If Bit3 =
&H4 Then
led2.BackColor = vbRed
Else
led2.BackColor = vbWhite
End If
'++++++++++++++++++
If Bit4 = &H8 Then
led3.BackColor = vbRed
Else
led3.BackColor =
vbWhite
End If | |
| กลับไปข้างบน |
|
|
บุคคลทั่วไป
|
| ตอบ: อ. มค. 31, 2006 1:40
pm ชื่อกระทู้:
|
|
|
| คำพูด: |
1. การเซฟรูปภาพครับ
ต้องใช้คำสั่งอะไรถึงจะเซฟรูปภาพได้
เพราะจากที่ผมเอาโค้ดของพี่ไปลอง
ปรากฏว่าไม่มีส่วนคำสั่งการเซฟรูป
แต่มีปุ่มสำหรับเซฟไว้ด้วย |
SavePicture imgsrc.Picture,
SystemDirectory & "\Pic_name.jpg"
| คำพูด: |
2.
การเซฟที่เอาเวลาที่เซฟมาเป็นชื่อไฟล์ใช้หลักการเดียวกับ
คำตอบที่พี่มาตอบไว้รึป่าวครับ
ช่วยอธิบายที" |
ใช่แล้ว | |
| กลับไปข้างบน |
|
|
แมงเม่า
บุคคลทั่วไป
|
| ตอบ: อ. มค. 31, 2006 1:43
pm ชื่อกระทู้:
|
|
|
Save ใน Location เดียวกับ
Project
SavePicture imgsrc.Picture, App.path &
"\Pic_name" & counter & ".jpg" | |
| กลับไปข้างบน |
|
|
birdcom13
บุคคลทั่วไป
|
| ตอบ: อ. มค. 31, 2006 7:51
pm ชื่อกระทู้:
ถามเรื่อง Data Report โชว์กระดาษ A4 |
|
|
:wink: ผมทำเรื่องระบบ
Barcode ห้องสมุด โปรเจ็คนะครับ
ให้ทำ barcode output
หลายตัวๆนะครับ
ขอขอบคุณล่วงหน้านะครับ :oops: | |
| กลับไปข้างบน |
|
|
HusPlus
เข้าร่วมเมื่อ: 07 สค. 2005
ตอบ:
9
|
| ตอบ: ส. กพ. 04, 2006 6:57
am ชื่อกระทู้:
|
|
|
ต้องกลับมาอีกรอบครับ
คือผมตามที่พี่แนะนำนะครับ
โดยเขียนโค้ดแบบนี้
| คำพูด: |
Private Sub cmdSave_Click()
SavePicture imgsrc.Picture, App.path &
"\Pic_name" & counter & ".jpg"
Counter =
Counter + 1
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|JPEG |*.jpeg"
On Error GoTo NoSave
CommonDialog1.ShowSave
SavePicture picCapture.Image, CommonDialog1.FileName
NoSave:
cmdStop.Enabled = False
cmdSave.Enabled = False
cmdStart.Enabled = True
End Sub |
ก็ไม่ได้อีกเช่นกัน
พี่ๆ
ช่วยดูโค้ดให้ผมหน่อยนะครับ
ผมไม่ค่อยมีความรู้ด้านเขียนโปรแกรมซักเท่าไหร่
รบกวนพี่ๆ แนะนำให้ทีนะครับ | |
| กลับไปข้างบน |
|
|
แมงเม่า
บุคคลทั่วไป
|
| ตอบ: ส. กพ. 04, 2006
11:40 am ชื่อกระทู้:
|
|
|
| น้องติดต่อกล้องได้รึเปล่า
ถ้าได้ ทั้ง 2 วิธีก็ใช้ได้ | |
| กลับไปข้างบน |
|
|
HusPlus
เข้าร่วมเมื่อ: 07 สค. 2005
ตอบ:
9
|
| ตอบ: ส. กพ. 04, 2006 9:03
pm ชื่อกระทู้:
|
|
|
ผมติดต่อกล้องได้ครับพี่
กดปุ่ม Start ภาพก้อมา
กด Stop ภาพก้อหาย
แต่กดปุ่มเซฟแล้ว debug ขึ้นทุกที
เด่วผมเอาโค้ดที่ผมทำให้ดูนะครับ
| คำพูด: |
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 '
Device ID
Dim hHwnd As Long ' Handle to preview
window
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 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 cmdStart_Click()
iDevice =
lstDevices.ListIndex
OpenPreviewWindow
OpenPreviewWindow
End Sub
Private Sub
OpenPreviewWindow()
hHwnd =
capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD,
0, 0, 320, 240, picCapture.hwnd, 0)
If
SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0)
Then
SendMessage hHwnd, WM_CAP_SET_SCALE, True,
0
SendMessage hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0
SendMessage hHwnd, WM_CAP_SET_PREVIEW, True, 0
cmdSave.Enabled = True
cmdStop.Enabled =
True
cmdStart.Enabled = False
Else
DestroyWindow hHwnd
cmdSave.Enabled = False
End If
End Sub
Private Sub
ClosePreviewWindow()
SendMessage hHwnd,
WM_CAP_DRIVER_DISCONNECT, iDevice, 0
DestroyWindow
hHwnd 'ÍÍ¡¨Ò¡ window
End Sub
Private Sub
cmdStop_Click()
ClosePreviewWindow
cmdStop.Enabled = False
cmdSave.Enabled = False
cmdStart.Enabled = True
End Sub
Private
Sub cmdSave_Click()
ส่วนนี้คือที่ทดลองใส่โค้ดแล้วมันไม่ได้ครับ
End Sub
| | |
| กลับไปข้างบน |
|
|
แมงเม่า
บุคคลทั่วไป
|
| ตอบ: อาทิตย์ กพ. 05, 2006
8:28 am ชื่อกระทู้:
|
|
|
งั้นก็แบบนี้
1. ใช้
Timer ส่งภาพจาก picCapture.Picture มาที่ PicSave.Picture
แล้วให้ save ทุก 100 mS
2. ใน sub timmer ให้ใช้ code
นี้
PicSave.Picture = picCapture.Picture
DoEvents
SavePicture PicSave.Picture, App.path & "\Pic_name"
& counter & ".jpg"
Counter = Counter + 1
แบบนี้น่าจะได้ | |
| กลับไปข้างบน |
|
|
แมงเม่า
บุคคลทั่วไป
|
| ตอบ: อาทิตย์ กพ. 05, 2006
3:22 pm ชื่อกระทู้:
|
|
|
วันอาทิตย์สบายๆ
ก็อยากงดเรื่องปวดหัว เอาเรื่องแปลก ๆมาให้อ่านเล่น
The Mike the Headless
Chicken Days(17 พฤษภา, วัน MIke ไก่ไร้หัว)
นี่คือเรื่องจริง! ไก่ไม่มีหัวแต่ใช้ชีวิตได้นานถึง 18
เดือน!
ไก่ตัวนี้มีชื่อว่า ไมค์(Mike) ครับ.
เรื่องมันมีอยู่ว่าเจ้าของฟาร์มคิดจะทำไก่ย่างในวันขอบคุณพระเจ้า
เลยเลือกเจ้าไมค์จะมาทำไก่ย่าง
ซึ่งในตอนที่เอาขวานฟันลงไปที่คอของเจ้าไมค์(อึ๋ย)หัวของมันขาดลงมาสงบนิ่งอยู่ที่พื้น
แต่ตัวมันน่ะซิครับมันกลับกระโดดลงมาจากเขียงแล้ววิ่งพล่านไปทั่ว
เล้าจนหายไปไหนก็ไม่รู้ เลยต้องเอาไก่อีกตัวมาทำ
ในวันรุ่งขึ้นเจ้าของกลับว่าเจ้าไมค์กลับมาอยู่เล้าทั้งๆที่ไม่มีหัว
แล้วยังทำท่าคุ้ยเขี่ยหาอาหารเหมือนกับไก่ทั่วๆไปผิดแต่ว่ามันไม่มีหัวเท่านั้นเอง!
เจ้าของเลยสงสัยว่ามันอยู่ไปได้อีกนานเท่าไหร่ก็เลยเลี้ยงไปเรื่อยๆ
โดยให้อาหารด้วยที่หยอดตาผ่านทางหลอดอาหาร
แน่ละครับเรื่องนี้ไปเข้าหูพวกสื่อมวลชนโดยนิตรสารTIME
มาขอทำเรื่องนี้ทำให้เจ้าไมค์ดังเป็นพลุแตกเลย
ยังผลทำให้มีคนเลียนแบบทั่วประเทศก็เลยทำให้ทุกบ้านมีไก่ย่างกินเป็นอาหารเย็นกันทุกวันแต่ก็ไม่มีใครทำได้สำเร็จ
และในช่วงสุดท้ายของชีวิตของไมค์ตายโดยเมล็ดข้าวโพดเข้าไปติดหลอดลมตายซึ่งนับจากวันที่หัวขาดจนวันตายนับได้ประมาณ
18 เดือนพอดี
พอเจ้าไมค์ตายเจ้าของก็เสียใจมากเลยจัดตั้งวัน
ไมค์ไก่ไร้หัว (Mike the headless Chicken Day) ขึ้นมาทุกๆปี
เดี๋ยวนี้ก็ยังมีอยู่จนถึงปัจจุบัน
ฟังดูมันจะเป็นไปได้อย่างไรแต่วิทยาศาสตร์เค้าก็อธิบายเอาไว้ด้วยครับว่า
"So how was Mike able to survive? Scientists examined him
and determined that Mr. Olsen had not done a very good job at
chopping Mike's head off. Most of the head was actually
removed, but one ear remained intact. The slice actually
missed the jugular vein and a clot prevented him from bleeding
to death. Apparently, most of a chicken's reflex actions are
located in the brain stem, which was also largely untouched.
Mike was also examined by the officers of several humane
societies and was declared to have been free from suffering."
แปลกจริง ๆ เรยยยย
 | |
| กลับไปข้างบน |
|
|
HusPlus
เข้าร่วมเมื่อ: 07 สค. 2005
ตอบ:
9
|
| ตอบ: อาทิตย์ กพ. 05, 2006
5:05 pm ชื่อกระทู้:
|
|
|
พี่คับผมทำให้เซฟได้แล้วครับ
ใช้โค้ดนี้ครับ
| คำพูด: |
Private Sub cmdSave_Click()
cmdStart.Enabled = False
Dim bm As Image
SendMessage hHwnd, WM_CAP_EDIT_COPY, 0, 0
picCapture.Picture = Clipboard.GetData
SavePicture picCapture.Image, App.Path &
"\Pic_name" & Counter & ".jpg"
Counter =
Counter + 1
End Sub |
แต่ยังมีอยู่จุดนึงคือ
เวลาเซฟภาพมันเซฟภาพชื่อ Pic_name.jpg
อย่างเดียวครับ
ไม่ยอมเซฟตาม Counter
เราต้องแก้ไขยังไงครับพี่
ผมกะว่าเดี๋ยวพอมันเซฟแล้วเพิ่มเรื่อยๆ ได้แล้ว
จะทดลองเขียนให้มันเซฟด้วยชื่อวันที่และเวลาที่เซฟตามที่พี่สอน
ยังไงรบกวนพี่ช่วยเป็นที่ปรึกษาผมหน่อยนะค๊าบ ^
^ | |
| กลับไปข้างบน |
|
|
แมงเม่า
บุคคลทั่วไป
|
| ตอบ: อาทิตย์ กพ. 05, 2006
5:54 pm ชื่อกระทู้:
|
|
|
ถามมาก
ๆจะทำให้น้องเสียความมั่นใจนะ
Dim counter As Integer
Private Sub cmdSave_Click()
SendMessage hHwnd,
WM_CAP_EDIT_COPY, 0, 0
picCapture.Picture =
Clipboard.GetData
SavePicture picCapture.Image, App.Path
& "\Pic_name" & counter & ".jpg"
counter =
counter + 1
End Sub
ข้อระวัง
เนื่องจากกำหนดให้ตัวแปร counter เป็น integer
ดังนั้นการโหลดโปรแกรมใหม่แต่ละครั้ง counter
เริ่มแรกจะมีค่าเป็น 0 ซึ่งจะทำให้ชื่อใหม่ไปซ้ำกับชื่อเก่า
ถ้าไม่ต้องการให้ซ้ำต้องใช้วันที่และ/หรือเวลามาตั้งชื่อร่วมด้วย
ส่วนการตั้งชื่อไม่น่ายาก ลองผิดลองถูกเองน่าจะได้ครับ
 | |
| กลับไปข้างบน |
|
|
HusPlus
เข้าร่วมเมื่อ: 07 สค. 2005
ตอบ:
9
|
| ตอบ: อาทิตย์ กพ. 05, 2006
6:20 pm ชื่อกระทู้:
|
|
|
ไม่เสียความมั่นใจหรอกครับ
ถ้าจะให้พูดตรงๆ
ผมไม่มีความรู้ด้านการเขียนโปรแกรมเลย
ได้แต่ลองผิดลองถูกเอา
เพื่อนสอนมั่ง มั่วเองมั่ง
แต่ตอนนี้ผมมั่วการเซ็ทชื่อที่เซฟเป็นวันที่ได้ละครับ
| คำพูด: |
cmdStart.Enabled = False
Dim bm As
Image
SendMessage hHwnd, WM_CAP_EDIT_COPY, 0, 0
picCapture.Picture = Clipboard.GetData
Dim Fname
As String
dd = Day(Date)
mm = Month(Date)
yy
= Year(Date)
hh = Hour(Time)
mn = Minute(Time)
ss = Second(Time)
Fname = "Date" & yy &
"-" & mm & "-" & dd & "Time" & hh
& "." & mn & "." & ss
SavePicture
picCapture.Image, App.Path & "\Image\" & Fname
& ".jpg" |
แต่ถ้าผมต้องการให้เวลาที่กดปุ่มเซฟแค่ครั้งเดียว
อยากให้เซฟภาพออกมา 3 ภาพเลย เราต้องทำยังไงมั่งครับพี่
รบกวนพี่อีกรอบนะครับ | |
| กลับไปข้างบน |
|
|
HusPlus
เข้าร่วมเมื่อ: 07 สค. 2005
ตอบ:
9
|
| ตอบ: อาทิตย์ กพ. 05, 2006
6:54 pm ชื่อกระทู้:
|
|
|
ลองใช้ Loop
ครับแต่ไม่เป็นผล
เซฟได้แต่ออกมารูปเดียว
| คำพูด: |
Private Sub cmdSave_Click()
Dim i As Integer
For i = 1
To 3 Step 1
cmdStart.Enabled = False
Dim
bm As Image
.
.
.
.
.
.
Fname = "Date" & yy & "-" & mm & "-"
& dd & "Time" & hh & "." & mn &
"." & ss
SavePicture picCapture.Image, App.Path
& "\Image\" & Fname & ".jpg"
Next i
End
Sub | | |
| กลับไปข้างบน |
|
|
Toomerlalu
เข้าร่วมเมื่อ: 05 กพ. 2006
ตอบ:
5
|
| ตอบ: อาทิตย์ กพ. 05, 2006
10:41 pm ชื่อกระทู้:
|
|
|
จะต่อสวิตช์(1-4ตัว)กับคอม
เขียนโปรแกรมควบคุมด้วยVB
จำเป็นต้องใช้ร่วมกับไมโครฯ
ด้วยรึป่าวครับ
รึว่าวสามารถต่อกับคอมได้โดยตรง
ช่วยตอบคำถามหน่อยนะครับ
ถ้ามีตัวอย่างให้ดูจะดีมากๆ
เลยครับ | |
| กลับไปข้างบน |
|
|
แมงเม่า
บุคคลทั่วไป
|
| ตอบ: จ. กพ. 06, 2006
10:28 am ชื่อกระทู้:
|
|
|
ไม่จำเป็นครับ
378
output ==> ส่ง
379 input ==> รับค่าจาสวิตซ์
ควรวงจร optical separate กันระหว่างคอมพิวเตอร์และ
Hardware | |
| กลับไปข้างบน |
|
|
แมงเม่า
บุคคลทั่วไป
|
| ตอบ: จ. กพ. 06, 2006
11:28 am ชื่อกระทู้:
|
|
|
ผมเคยดาวน์โหลด AxtiveX(ocx)
มาเล่นดูเหมือนกัน เป็นฟรี control ที่สุดยอดมาก ๆ แต่
properties มันเยอะมากไปหน่อย ก็เลยไม่ค่อยมีใครเอาไปใช้
จะให้ดีต้องไปแก้ที่ไฟล์ .ctr เลยจะได้ถูกใจโจ๋
การกำหนดชื่อไฟล์,path,เวลาที่ capture สามารถกำหนดที่
properties ได้เลย
Private Sub Form_Load()
ezVidCap1.TimeLimitEnabled = True
ezVidCap1.TimeLimit
= 5 'หน่วยเป็นวินาทีอยู่แล้ว
End Sub
Private
Sub CmdSatart_Click()
ezVidCap1.CaptureFile = txtAVI.Text
End Sub
Private Sub CmdStop_Click()
ezVidCap1.CaptureEnd
End Sub
properties
สำคัญอื่น ๆ เช่น Audio, frame rate
ก็ลองเล่นดูละกัน | |
| กลับไปข้างบน |
|
|
หน้าแรก Thaiio.com
คำถามถามบ่อยของกระดานข่าว
ค้นหา
รายนามสมาชิก
กลุ่มผู้ใช้งาน
ข้อมูลส่วนตัว
คุณไม่มีข่าวสารใหม่
