Lowyat.NET: Latest topics by xanseviera

Motion Detection using VB6

xanseviera — Mon, 10 Jan 2011 13:22:13 +0800

cam sum1 help me regarding motion detection using VB6?

load software inside vb6

xanseviera — Sat, 08 Jan 2011 22:49:15 +0800

can sum1 tell me hw to load software from computer to vb?

TQ

Image processing using VB6

xanseviera — Thu, 16 Dec 2010 19:07:52 +0800

hello evry1,

who knows how to doing image processing using VB6?
if u have any examples, let me know ya...

TQ

C++ error

xanseviera — Mon, 30 Aug 2010 21:54:23 +0800

CODE

virtual long Compress(const void* pInBuffer, long inBufferSize, void** ppOutBuffer, long outBufferSize)
{
int result = 0;
result = lzo1x_1_compress((unsigned char*)pInBuffer, inBufferSize, (unsigned char*)(*ppOutBuffer), &maxOutBufferSize, g_pLZOWorkMemory);
if(result != LZO_E_OK)
{
return ERROR_COMPRESS_FAIL;
}
return maxOutBufferSize;
}

i got an error during compile this code... the error is 'lzo1x_decompress' : cannot convert parameter 4 from 'long *' to 'lzo_uint *'
can sum1 help me on this?

TQ

wrapper class

xanseviera — Sat, 21 Aug 2010 16:31:44 +0800

im doing data compression using ZLIB using C++.
how to create wrapper class for ZLIB software lib?
please help me.

TQ.

Programming problems.

xanseviera — Wed, 18 Aug 2010 01:17:35 +0800

CODE

do{

if(kbhit())
{mydata=getch();
mystat=1;}

if(mystat==1)
{

if(mydata=='a' || mydata=='A') // Junction 1
{
//green at junction 1
output_high(PIN_D5);
output_low(PIN_D6);
output_low(PIN_D7);

output_low(PIN_E2); //<--- how to terminate this during execution of mydata=='a'
}

mystat=0;
}

else if (mystat==0)
{
//junction 1
if(input(PIN_E2)==0)
{
//green
output_high(PIN_D5);
output_low(PIN_D6);
output_low(PIN_D7);
junction2();
delay_ms(2000);
//yellow
output_high(PIN_D6);
output_low(PIN_D7);
output_low(PIN_D5);
delay_ms(2000);
//red
output_high(PIN_D7);
output_low(PIN_D6);
}
}
while(1);

guys,

my problem is... when 'mydata=='a'' is running, at the same time PIN_E2 have an input, PIN_E2 will execute the task.
i need help in my programming, during 'mydata=='a'' is running, i want to make sure that PIN_E2 didn't work even it has an input.
but PIN_E2 can work outside 'if statement'.

TQ.

auto detect comm port in vb6.

xanseviera — Tue, 17 Aug 2010 17:47:43 +0800

i want to make my vb can auto detect comm port use by PC.
how to do?
i have 3 port to be detect which are:

CODE

MSComm1.CommPort = 3
MSComm1.CommPort = 2
MSComm1.CommPort = 1

delay in VB6.

xanseviera — Tue, 17 Aug 2010 09:51:26 +0800

how to put delay inside VB?
i want to make delay between 2 operation.
i try it before using "Sleep(3000)", but it need declaration... sum1 help me.

TQ

reset comm port in VB6.

xanseviera — Sat, 14 Aug 2010 23:33:00 +0800

how to reset comm port in VB6?

CODE

Private Sub Command6_Click()
MSComm1.PortOpen = True
MSComm1.Output = "a"
MSComm1.Output = "b"
MSComm1.Output = "c"
MSComm1.PortOpen = False 'Close the COMM port
End Sub

Private Sub Command4_Click()
MSComm1.PortOpen = True
MSComm1.Output = "g"
MSComm1.Output = "h"
MSComm1.Output = "i"
MSComm1.PortOpen = False 'Close the COMM port
End Sub

i want to reset port from command6 to command4.
how to do? can sum1 help me.
TQ.

serial port using vb6

xanseviera — Fri, 13 Aug 2010 18:25:57 +0800

im doing simulation traffic light project using VB whereby hardware can be controlled by VB using serial port.
my project consist of 4 junction... any changes in VB can cause changes in my hardware as well.
im already program my PIC as follows:

Junction 1
"a"=green
"b"=yellow
"c"=red

Junction 2
"d"=green
"e"=yellow
"f"=red

Junction 3
"g"=green
"h"=yellow
"i"=red

Junction 4
"j"=green
"k"=yellow
"l"=red

"m"=all light turn off

Below is coding regarding my project...

CODE

Private Sub LampuMerahNyala(Index As Integer)
Select Case Index
Case 0
MSComm1.Output = "c"
Case 1
MSComm1.Output = "f"
Case 2
MSComm1.Output = "i"
Case 3
MSComm1.Output = "l"
End Select

shpLampuMerah(Index).BackColor = vbRed
End Sub

Private Sub LampuMerahMati(Index As Integer)
Select Case Index
Case 0
MSComm1.Output = "m"
Case 1
MSComm1.Output = "m"
Case 2
MSComm1.Output = "m"
Case 3
MSComm1.Output = "m"
End Select
shpLampuMerah(Index).BackColor = RGB(50, 0, 0)
End Sub

Private Sub LampuKuningNyala(Index As Integer)
Select Case Index
Case 0
MSComm1.Output = "b"
Case 1
MSComm1.Output = "e"
Case 2
MSComm1.Output = "h"
Case 3
MSComm1.Output = "k"
End Select
shpLampuKuning(Index).BackColor = vbYellow
End Sub

Private Sub LampuKuningMati(Index As Integer)

Select Case Index
Case 0
MSComm1.Output = "m"
Case 1
MSComm1.Output = "m"
Case 2
MSComm1.Output = "m"
Case 3
MSComm1.Output = "m"
End Select
shpLampuKuning(Index).BackColor = RGB(50, 50, 0)
End Sub

Private Sub LampuHijauNyala(Index As Integer)
Select Case Index
Case 0
MSComm1.Output = "a"
idxLampuHijau = 0
Case 1
MSComm1.Output = "d"
idxLampuHijau = 1
Case 2
MSComm1.Output = "g"
idxLampuHijau = 2
Case 3
MSComm1.Output = "j"
idxLampuHijau = 3
End Select
shpLampuHijau(Index).BackColor = vbGreen
tmrArah.Enabled = True
End Sub

Private Sub LampuHijauMati(Index As Integer)
tmrArah.Enabled = False
ResetArahAnim

Select Case Index
Case 0
MSComm1.Output = "m"
Case 1
MSComm1.Output = "m"
Case 2
MSComm1.Output = "m"
Case 3
MSComm1.Output = "m"
End Select
shpLampuHijau(Index).BackColor = RGB(0, 50, 0)
End Sub

Private Sub tmrLampu_Timer()
Static Index As Integer
Static intLampu As Integer
Dim intNum As Integer

Select Case intLampu
Case 0 'Hijau
LampuMati
tmrLampu.Interval = Val(txtHijau(Index).Text) * 1000
LampuHijauNyala Index
For intNum = 0 To 3
If intNum <> Index Then LampuMerahNyala intNum
Next
intLampu = 1
Case 1 'Kuning
LampuMati
tmrLampu.Interval = 3000
LampuKuningNyala Index
For intNum = 0 To 3
If intNum <> Index Then LampuMerahNyala intNum
Next
intLampu = 0
Index = Index + 1
If Index = 4 Then Index = 0
End Select
End Sub

Private Sub cmdRun_Click(Index As Integer)
Dim intNum As Integer
LampuMati
tmrLampu.Interval = 1
tmrLampu.Enabled = True

' Fire Rx Event Every single Bytes
MSComm1.RThreshold = 1

' When Inputting Data, Input 1 Byte at a time
MSComm1.InputLen = 1

' 9600 Baud, No Parity, 8 Data Bits, 1 Stop Bit
MSComm1.Settings = "9600,N,8,1"
' Disable DTR
MSComm1.DTREnable = False

' Open COM3
MSComm1.CommPort = 3
MSComm1.PortOpen = True

End Sub

can sum1 help me out..
TQ

VB6 msg box problems.

xanseviera — Wed, 11 Aug 2010 16:07:56 +0800

CODE

Private Sub cmdExit_Click(Index As Integer)

Dim iResponse As Integer

iResponse = MsgBox("Close the program down?", vbOKCancel + vbQuestion, "Exit Program!") = vbOK
MsgBox "Thank you for using this program.", vbOKOnly, "Traffic Light Control Simulation"
Unload Me

End Sub

Im working on msg box where if i press exit button msg box will appear "Close program down?" There is to option will popup which is choose OK or CANCEL.
my problem when i press CANCEL button, it still go to msg box "Thank you for using this program." and terminate the program instead of do nothing and return back to main program.

can some1 help me on this...

TQ

help me in VB6...

xanseviera — Sat, 07 Aug 2010 13:41:42 +0800

CODE

Private Sub Form_Load()
hCap = capCreateCaptureWindow("Surveillience Camera", WS_CHILD Or WS_VISIBLE, 0, 0, PicWebCam.Width, PicWebCam.Height, PicWebCam.hWnd, 0)
If hCap <> 0 Then
Call SendMessage(hCap, WM_CAP_DRIVER_CONNECT, 0, 0)
Call SendMessage(hCap, WM_CAP_SET_PREVIEWRATE, 66, 0&)
Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&)
End If
End Sub

above is camera coding in VB6 which is showing picture from webcam.
can sum1 help me how to load multiple picture from different webcam?
attachment is the picture shown by my webcam... i need to add up more picture in empty box.

VB6 problem... help me

xanseviera — Wed, 14 Jul 2010 02:39:53 +0800

this is some part of my code:

CODE

some1 please help me on this...
im doing my project... once i run it...
error pop out as below:

VB6 problems.

xanseviera — Fri, 09 Jul 2010 22:50:49 +0800

Hi everyone... im doing camera interfacing with vb6.
this code is for 1 camera setting in VB.. i would like to add few more camera setting...
can someone help me?

CODE

Option Explicit

Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" ( _
ByVal lpszWindowName As String, _
ByVal dwStyle As Long, _
ByVal x As Long, ByVal Y As Long, _
ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal hWndParent As Long, _
ByVal nID As Long) As Long
Private Declare Function DestroyWindow Lib "user32" ( _
ByVal hWnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByRef lParam As Any) As Long

Private Const WS_CHILD As Long = &H40000000
Private Const WS_VISIBLE As Long = &H10000000
Private Const WM_USER As Long = &H400
Private Const WM_CAP_START As Long = WM_USER
Private Const WM_CAP_DRIVER_CONNECT As Long = WM_CAP_START + 10
Private Const WM_CAP_DRIVER_DISCONNECT As Long = WM_CAP_START + 11
Private Const WM_CAP_FILE_SAVEDIB As Long = WM_CAP_START + 25
Private Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_CAP_START + 41
Private Const WM_CAP_DLG_VIDEOSOURCE As Long = WM_CAP_START + 42
Private Const WM_CAP_SET_PREVIEW As Long = WM_CAP_START + 50
Private Const WM_CAP_SET_PREVIEWRATE As Long = WM_CAP_START + 52
Private hCap As Long

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub cmdSettings_Click()
Call SendMessage(hCap, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&)
PicWebCam.BackColor = &HE0E0E0
End Sub

Private Sub cmdGetPicture_Click()
On Error GoTo ErrHandler

Dim sFileName As String
Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(False), 0&)
sFileName = App.Path & "\pic.jpg"
Call SendMessage(hCap, WM_CAP_FILE_SAVEDIB, 0&, ByVal CStr(sFileName))
DoFinally:
Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&)
Unload Me
Exit Sub
ErrHandler:
If Err.Number <> 32755 Then
MsgBox Err.Description
End If
Resume DoFinally
End Sub

Private Sub cmdSource_Click()
Call SendMessage(hCap, WM_CAP_DLG_VIDEOSOURCE, 0&, 0&)
End Sub

Private Sub Form_Load()
hCap = capCreateCaptureWindow("Take a Camera Shot", WS_CHILD Or WS_VISIBLE, 0, 0, PicWebCam.Width, PicWebCam.Height, PicWebCam.hWnd, 0)
If hCap <> 0 Then
Call SendMessage(hCap, WM_CAP_DRIVER_CONNECT, 0, 0)
Call SendMessage(hCap, WM_CAP_SET_PREVIEWRATE, 66, 0&)
Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&)
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Call SendMessage(hCap, WM_CAP_DRIVER_DISCONNECT, 0, 0)
If hCap <> 0 Then DestroyWindow (hCap)
Set frmCapPic = Nothing
End Sub

Private Sub PicWebCam_Click()

End Sub

Screenshot of camera interfacing is been attached below.

TQ.