人気ブログランキング |


マチナカでリモート天文台やってます。


by makkachi

画像一覧
更新通知を受け取る

S M T W T F S
1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30

メモ帳


カテゴリ

全体
GOTOドライブ
DSIオートガイダー
CCD
New Device
パソコン
望遠鏡
フォーカーサー
観測・撮像
コラム・つぶやき
おすすめサイト
遠隔撮像ソフト
ONSTEP
天文台
ドームコントローラ
遠征
機材レビュー
未分類

最新の記事

マチナカから見る アトラス彗..
at 2020-03-27 14:51
自宅ドーム リモート天文台は..
at 2020-03-26 15:33

最新のコメント

リミットOFFでも地平線..
by makkachi at 12:05
回答ありがとうございます..
by タカヒロ at 10:58
お問い合わせありがとうご..
by makkachi at 09:44

以前の記事

2020年 03月
2020年 02月
2020年 01月
more...

ブログパーツ

記事ランキング

ファン

画像一覧

今度はいたわりCool offです。

今度はいたわりCool offです。_c0061727_23465710.gif

いたわり冷却をしたのだったら今度はいたわり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)