人気ブログランキング |


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


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...

ブログパーツ

記事ランキング

ファン

画像一覧

冷却CCDカメラの いたわり冷却

冷却CCDカメラの いたわり冷却_c0061727_2317139.gif

さすがに冷却するとき新しい冷却CCDカメラでも、結露やCCDのダメージを
考えるとちょっと心配です。
現在温度から、いっきに目的温度まで冷やすのではなく、
-5℃毎にインターバル時間を設けて下げていけばCCD室内の結露や
ダメージを防ぐことが出来ます。
MaxImDLには除冷機能がなくて、ちょっと不便でした。
ということでVBスクリプトを作ってみました。Run Scriptで実行すればOKです。
これでゆっくり冷やすことが出来ます。

以下はソースです。
テストはしてますが使ってみたい方は、あくまでも自己責任で。

Option Explicit

'deceleration of vairables
Dim cam
Dim gentemp
Dim settemp
Dim ichtemp

Set cam = CreateObject("MaxIm.CCDCamera")

cam.LinkEnabled = True
cam.FastReadout = False

settemp = InputBox("冷却温度を入力してください。", "冷却温度")

wscript.echo "Camera is ready."
cam.CoolerOn = True
wscript.sleep 2000
ichtemp = int(cam.Temperature)
cam.TemperatureSetPoint = ichtemp

'start camera properties
Do While ichtemp > int(settemp)
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 60000
Loop
wscript.echo "冷却温度--- " & cam.Temperature & "℃"
wscript.echo "完了しました"
wscript.sleep 2000
by makkachi | 2008-04-15 23:24 | CCD | Comments(0)