Script MaximDL

salut les Jeun's

Voici un petit script pour les utilisateurs de MaximDL (Pouvez vous le tester et me dire si ça marche chez vous avec votre caméra ?)
Suffit avec le bloc note de copier les infos ci-dessous
et de nommer le fichier toto.vbs
(vous pouvez renommer toto "camera_baisse" ou ce qu'il vous plaira
Lancez Maxim normalement
cliquez sur "File" run script
chercher sur votre DD ou vous avez enregistré le script


Que fait ce script:
1.. il lance le cooler de maxim sur on
2.. il demande la température que vous souhaitez avoir
3.. il descend en vérifiant que le % du peltier est inférieur à 90% (vous pouvez le changer dans le script "do while ccd.CoolerPower>90 'while répete jusqu'a False"
Le but c'est de ne pas trop tirer sur la caméra, donc ne pas mettre 100,
4.. il descend de 1° toutes les 30 s (modifiable dans le paramètre "wscript.sleep 30000 'tempo entre les chutes de temp°"... 15000=15s; 60000 = 60s...etc)
donc par rapport à la température ambiante, de +10 à -20 il faut 15 minutes

Code:


Dim ccd
dim a    'température de consigne actuel
dim t    'température voulue


Set ccd = CreateObject( "MaxIm.CCDCamera" )
ccd.LinkEnabled = true
if Not ccd.LinkEnabled Then
wscript.echo "Failed to start camera."
Quit
End If
ccd.CoolerOn = True


t=InputBox("Température voulue")
wscript.echo "*************************************************************"
wscript.echo "Script de Fred descendre la Température de 2° par minute"
wscript.echo "*************************************************************"

wscript.echo "Température voulue " & t & "°"

a=ccd.Temperature
a=Round(a)


for a = a to t step -1

ccd.TemperatureSetpoint = a
wscript.echo "Température de consigne actuel " & a & "°"
wscript.sleep 3500
 
do while ccd.CoolerPower>90  'while répete jusqu'a False

                         
wscript.echo ""
wscript.echo "Attention puissance Pelletier >90%"
wscript.echo "Puissance Pelletier " & ccd.CoolerPower & "%"
wscript.echo "Température capteur " & ccd.Temperature & "°"

wscript.sleep 5000
loop

wscript.sleep 3500
wscript.echo ""
wscript.echo "Puissance Pelletier " & ccd.CoolerPower & "%"
wscript.echo "Température capteur " & ccd.Temperature & "°"

wscript.sleep 30000 'tempo entre les chutes de temp°
next

Pour les feignants:
http://www.sipalex.fr/astro/cariboost_files/TemperatureFred.vbs

Utilisez bien le script dans ce message et pas le lien
faut que je le modifie, il manque les "" à la fin de la ligne
Script de Fred descendre la Température de 2° par minute\"

Tu testes un nouveau virus ?
C'est pour devenir "accro" de MaximDL ?
Moi, j'y suis déjà.. alors, je testerai ton script.
Ah, si la caméra rend l'âme, tu rembourses les frais de dépannage ?

Dommage, je ne peux pas tester, j'ai pas de CCD

Bon, moi j'ai testé ou du moins j'ai commencé..
Ça partait bien, le script s'est lancé correctement. La température est descendue régulièrement..
Et puis tout d'un coup j'ai entendu des bruits infâmes et un message est apparu sur l'écran :
"Si vous voulez reprendre la main sur votre monture, faites immédiatement un virement de 10000 € à Frederico Lamberto sur le compte n°... blabla... blabla..."
J'ai immédiatement tout coupé ! C'est qui ce Frederico Lamberto ?
Je ne sais pas si ton script est au point, mais le virus lui marche très bien !
Je refais un essai sérieusement sous peu..
@++

jmd a écrit:Bon, moi j'ai testé ou du moins j'ai commencé..
Ça partait bien, le script s'est lancé correctement. La température est descendue régulièrement..
Et puis tout d'un coup j'ai entendu des bruits infâmes et un message est apparu sur l'écran :
"Si vous voulez reprendre la main sur votre monture, faites immédiatement un virement de 10000 € à Frederico Lamberto sur le compte n°... blabla... blabla..."
J'ai immédiatement tout coupé ! C'est qui ce Frederico Lamberto ?
Je ne sais pas si ton script est au point, mais le virus lui marche très bien !
Je refais un essai sérieusement sous peu..
@++

Bon moi je l'ai lancé hier au soir et ... Nickel chrome.
je l'ai dupliqué et changé le paramètre -1 dans "for a = a to t step -1"
par +2
et ça me fait un script pour remonter la température... 2X plus vite que pour descendre car c'est moins important.
A+
Fred

Est-ce que tu saurais faire un script qui fait la mise en station, met en route la CCD, pointe l'objet à imager, calibre l'autoguideur, règle la MAP, et prépare le café ?

jmd a écrit:Est-ce que tu saurais faire un script qui fait la mise en station, met en route la CCD, pointe l'objet à imager, calibre l'autoguideur, règle la MAP, et prépare le café ?

Met en route le CCD: Oui
Pointe l'objet à imager: Oui
Calibre l'autoguider: Oui (Enfin lance le calibrage auto sur l'étoile la plus brillante du champs)
règle la MAP: Oui si MAP motorisée...

Pour la MES, va voir le curé (MES/messe jeux de mots passageois, j'explique, parce que en Alsace... )
Pour le café, je ne boit que du liquide vert désolé