2008年 04月 18日
今度はいたわりCool offです。 |
いたわり冷却をしたのだったら今度はいたわりCool offです。
どちらにしてもCool offのほうがカメラには優しくないといけません。
結構いきなり切ってCCDに筋を入れっちゃったなんて良く聞きますからね
これらにドームのホームポジションの移動、カメラの電源OFFの動作を
UWSCで繋げていくと自動化が出来ます。一歩リモート天文台に近づいたかな
ソースはここから
'deceleration of vairables
Dim cam
Dim gentemp
Dim settemp
Dim ichtemp
Set cam = CreateObject("MaxIm.CCDCamera")
cam.LinkEnabled = True
cam.FastReadout = False
ichtemp = int(cam.Temperature)
cam.TemperatureSetPoint = ichtemp
settemp = InputBox("現在温度を入力してください。", "現在温度")
wscript.echo "Camera is ready."
cam.CoolerOn = True
wscript.sleep 2000
'start camera properties
Do While ichtemp < int(settemp) -5
cam.TemperatureSetPoint = ichtemp
wscript.sleep 2000
wscript.echo "冷却温度--- " & cam.Temperature & "℃"
Do While int(cam.Temperature) > ichtemp
wscript.sleep 1000
wscript.echo "冷却温度--- " & cam.Temperature & "℃"
Loop
ichtemp = ichtemp +5
'WScript.Sleep 1800
wscript.echo " 待機中 "
WScript.Sleep 120000
Loop
cam.CoolerOn = False
wscript.echo "冷却温度--- " & cam.Temperature & "℃"
wscript.echo "完了しました"
cam.LinkEnabled = False
wscript.sleep 240000
by makkachi
| 2008-04-18 00:00
| CCD
|
Comments(0)