1° Forum di Astronomia Amatoriale Italiano

Dim cam
Dim ho
Dim tel


Const StepTime = 10   'Interval for warm-up (seconds)
Const StepTemp = 3   'Interval (dg Celcius)
Const AmbientTemp = 2   'Target temprature




'
' ---------------parte telescopio --------------------
'
'

'Set tel = CreateObject("ScopeSim.Telescope")    'simulatore ASCOM
Set tel = CreateObject("Celestron.Telescope")    'sostituire questa linea con il driver del proprio telescopio.
tel.Connected = True
tel.Tracking = False
wscript.echo "Telescope tracking stopped.."
'
' ---------------end parte telescopio ----------------
'




Set cam = CreateObject("MaxIm.CCDCamera")



cam.LinkEnabled = True

if Not cam.LinkEnabled Then
   MsgBox "Failed to start camera."
   wscript.Quit
End If


cam.DisableAutoShutdown = True
cam.CoolerOn = True

'
'----------------fermare la guida---------------------
'
cam.GuiderStop()
wscript.echo "Guide stopped.."


'
'----------------inizio warm up cooler ---------------
'

Set ho = CreateObject("DriverHelper.Util")

wscript.echo "Starting Warm-UP : Camera temprature : " & cam.Temperature
Do While (cam.Temperature < AmbientTemp)
   ho.WaitForMilliseconds(StepTime*1000)
        wscript.echo "10 sec : temperature = " & cam.Temperature
   
   if (cam.CameraStatus = 1) or (cam.CoolerOn = False) Then
         MsgBox "X Camera communication/cooler problem!"
         wscript.Quit
   End If

   'check if temprature is stabilized, then increase, else wait another StepTime seconds
   if (cam.TemperatureSetpoint - cam.Temperature) <= 1 then
      cam.TemperatureSetpoint = cam.Temperature + StepTemp
                wscript.echo "new set point =" & cam.TemperatureSetpoint
   end if
Loop
wscript.echo "Warm up eneded : Camera Temperature " & cam.Temperature


cam.TemperatureSetpoint = AmbientTemp
cam.CoolerOn = False    
wscript.echo "CCD cooler OFF.."

'
'------------------End Warm up--------------------------
'

'MsgBox "Target temperature threshold reached! CCD  Cooler OFF"

'------------------Spegnere il telescopio e CCD ---------------
Dim WSHShell
Dim WSHShell2
Set WSHShell = WScript.CreateObject("WScript.Shell")

' open normal and do not wait
WSHShell.Run chr(34) & "C:\Programmi\Power Manager\pm.exe" & chr(34) & "-off -telescopio -ccd", 1, false
Set WSHShell = Nothing

wscript.echo "ccd spento"
Set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.Run chr(34) & "C:\Programmi\Power Manager\pm.exe" & chr(34) & "-off -telescopio -montatura", 1, false
Set WSHShell = Nothing
wscript.echo "ccd spento"
'

MsgBox "all command done"





wscript.Quit