Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.astro.louisville.edu/software/xmtel/archive/xmtel-3.1/docs/nexstar/GetRA-DEC.txt Дата изменения: Wed Dec 12 04:58:10 2001 Дата индексирования: Mon Oct 1 22:32:46 2012 Кодировка: Поисковые слова: изучение луны

Below is a Visual Basic sub-procedure which will allow sending the Get RA-Dec command to any model of NexStar. The ScopeType argument takes one of two values: "Little" or "Big". "Little" for the GT models (60/80/114/4), "Big" for the N5 and N8. It will display the results in text boxes on Form1. Examples of how to call the procedure:

To query the RA-Dec position of the original GT NexStar:
GetRADec "Little"

To query the RA-Dec position of a NexStar 5/8:
GetRADec "Big"

To query the RA-Dec position of a NexStar GPS or the new GT:
GetRADec "GPS"

To use the following procedure, place a serial communications control on Form1 and insure it is named Comm1. Then place text boxes on Form1 and a command button to call the procedure. Note the correct name for the text boxes in the later parts of the GetRADec procedure, i.e. txtRAHour.

Place the GetRADec and Wait procedures in a standard module and you'll be all set. Note that if you have already placed a Wait procedure for the ScopeGoto procedure, you do not need to add another one.

-----

Sub GetRADec(ScopeType)
On Error GoTo ScopeCommError
Dim varInputBuffer As String
Dim RA1, RA2, Dec1, Dec2 As Integer
Dim RA, Dec As Double

Comm1.CommPort = Val(SerPort)
Comm1.Settings = "9600,N,8,1"
Comm1.InputLen = 0
Comm1.PortOpen = True

Comm1.Output = "?"
Wait 0.25
Comm1.Output = "E"
Wait 1.5

varInputBuffer = Comm1.Input
Comm1.PortOpen = False

If ScopeType = "Little" Then
RA1 = Asc(Mid(varInputBuffer, 2, 1))
RA2 = Asc(Mid(varInputBuffer, 3, 1))
Dec1 = Asc(Mid(varInputBuffer, 5, 1))
Dec2 = Asc(Mid(varInputBuffer, 6, 1))
RA = RA1 * 256 + RA2
RA = RA / 1.011358 / 3 / 15
Dec = Dec1 * 256 + Dec2
Dec = Dec / 1.011358 / 3
Else
If ScopeType = "Big" Then
RA1 = Asc(Mid(varInputBuffer, 2, 1))
RA2 = Asc(Mid(varInputBuffer, 3, 1))
Dec1 = Asc(Mid(varInputBuffer, 4, 1))
Dec2 = Asc(Mid(varInputBuffer, 5, 1))
RA = RA1 * 256 + RA2
RA = RA / 1.011358 / 3 / 15
Dec = Dec1 * 256 + Dec2
Dec = Dec / 1.011358 / 3
Else
RA1 = Val("&h" & (Mid(varInputBuffer, 1, 2)))
RA2 = Val("&h" & (Mid(varInputBuffer, 3, 2)))
Dec1 = Val("&h" & (Mid(varInputBuffer, 6, 2)))
Dec2 = Val("&h" & (Mid(varInputBuffer, 8, 2)))
RA = ((RA1 * 256) + RA2) * 24 * 60 / 65536
Dec = ((Dec1 * 256) + Dec2) * 360 * 60 / 65536
End If
End If

If (Round(((RA / 60) - Int(RA / 60)) * 60, 1) = 0 And Round(((RA / 60) - Int(RA / 60)) * 60, 1) > ((RA / 60) - Int(RA / 60)) * 60) Or (Round(((RA / 60) - Int(RA / 60)) * 60, 1) = 60) Then
txtRAHour = Int(RA / 60) + 1
If txtRAHour = 24 Then
txtRAHour = 0
End If
Else
txtRAHour = Int(RA / 60)
End If

txtRAMin = Round(((RA / 60) - Int(RA / 60)) * 60, 1)
If txtRAMin = 60 Then
txtRAMin = 0
End If

If Dec > (180 * 60) Then
txtDecSign = "-"
Dec = (360 * 60) - Dec
Else
txtDecSign = "+"
End If
If Round(((Dec / 60) - Int(Dec / 60)) * 60, 1) = 60 Then
txtDecDeg = Int(Dec / 60) + 1
txtDecMin = 0
Else
txtDecDeg = Int(Dec / 60)
txtDecMin = Round(((Dec / 60) - Int(Dec / 60)) * 60, 1)
End If

Exit Sub
ScopeCommError:
MsgBox "Unable to communicate with the scope.", vbOKOnly, "Error"

End Sub
-----

Sub Wait(SecondsToPause As Double)
On Error GoTo NSError
Dim Start
Screen.MousePointer = vbHourglass
Start = Timer ' Set start time.
Do While Timer < Start + SecondsToPause
'Do nothing during the loop
Loop
Screen.MousePointer = vbDefault
Exit Sub
NSError:
MsgBox Err.Description
End Sub