Serial Port RS232/USB timing control
Hi All,
New user to Basic4ppc
I'm designing an app for Windows Mobile to Control via RS232/USB
The shutter speed for a digital camera DSLR through the Bulb port
Problem I'm having is with in the loop to for shots I'm
1) only getting one shot
2) every shot is for 1 second only.
I need it to do each shot with in the loop and have
the shutter stay open for the selected time.
Any ideas what might be the problem?
Many thanks
DrStrangeLv
See code below
' ***Do Suhtter Routine Below***
Begin_Exposure_Speed = 125 '***1/125 of a second***
Total_Exposures = 5 ' *** 5 shots to be done***
This_Exposure = Begin_Exposure_Speed
dly = 1 '***shutter delay between shot time in seconds***
Shot_Count = 1
Computed_Time = 1/This_Exposure
Do While Shot_Count =< Total_Exposures
serial.PortOpen = True '***open shutter***
serial.Output("F") '***fire***
Sleep(Computed_Time * 1000) '***keep shutter open for selected time***
serial.PortOpen = False '***close shutter***
Sleep((dly * 1000)) '***delay between shots***
This_Exposure = This_Exposure * 2
'*** compute next shutter speed***
Computed_Time = 1/This_Exposure
Shot_Count = Shot_Count + 1
Loop
Hi All,
New user to Basic4ppc
I'm designing an app for Windows Mobile to Control via RS232/USB
The shutter speed for a digital camera DSLR through the Bulb port
Problem I'm having is with in the loop to for shots I'm
1) only getting one shot
2) every shot is for 1 second only.
I need it to do each shot with in the loop and have
the shutter stay open for the selected time.
Any ideas what might be the problem?
Many thanks
DrStrangeLv
See code below
' ***Do Suhtter Routine Below***
Begin_Exposure_Speed = 125 '***1/125 of a second***
Total_Exposures = 5 ' *** 5 shots to be done***
This_Exposure = Begin_Exposure_Speed
dly = 1 '***shutter delay between shot time in seconds***
Shot_Count = 1
Computed_Time = 1/This_Exposure
Do While Shot_Count =< Total_Exposures
serial.PortOpen = True '***open shutter***
serial.Output("F") '***fire***
Sleep(Computed_Time * 1000) '***keep shutter open for selected time***
serial.PortOpen = False '***close shutter***
Sleep((dly * 1000)) '***delay between shots***
This_Exposure = This_Exposure * 2
'*** compute next shutter speed***
Computed_Time = 1/This_Exposure
Shot_Count = Shot_Count + 1
Loop
Last edited: