Imports System
Imports System.IO
Imports System.IO.StreamWriter
Public Class Form1
Inherits System.Windows.Forms.Form
Private Results As String
Private Delegate Sub delUpdate()
Private Finished As New delUpdate(AddressOf UpdateText)
Private Sub btnexaminar_Click(sender As Object, e As EventArgs) Handles btnexaminar.Click
Dim Dir As New FolderBrowserDialog
If Dir.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = Dir.SelectedPath
End If
End Sub
Private Sub btndat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndat.Click
Dim midirectorio As String = TextBox1.Text
Dim CMDThread As New Threading.Thread(AddressOf CMDAutomate)
If midirectorio = "" Then
MessageBox.Show("Debe seleccionar la ruta donde se encuentra la data", "Error", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
Else
My.Computer.FileSystem.CopyFile("C:\Program Files\convert data\runpkr00.exe", midirectorio & "\runpkr00.exe", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
End If
CMDThread.Start()
End Sub
Private Sub CMDAutomate()
Dim midirectorio As String = TextBox1.Text
Dim myprocess As New Process
Dim StartInfo As New System.Diagnostics.ProcessStartInfo
StartInfo.FileName = "cmd"
StartInfo.RedirectStandardInput = True
StartInfo.RedirectStandardOutput = True
StartInfo.UseShellExecute = False
StartInfo.CreateNoWindow = True
myprocess.StartInfo = StartInfo
myprocess.Start()
Dim SR As System.IO.StreamReader = myprocess.StandardOutput
Dim SW As System.IO.StreamWriter = myprocess.StandardInput
Dim comando As String
Dim cmdir As String
Dim nombre As String
For Each file As String In My.
Computer.
FileSystem.
GetFiles(midirectorio, FileIO.
SearchOption.
SearchTopLevelOnly,
"*.T01")
nombre
= My.
Computer.
FileSystem.
GetName(file) cmdir = "cd " & midirectorio
comando = "runpkr00.exe -d -s " & nombre
SW.WriteLine(cmdir)
SW.WriteLine(comando)
'Results = SR.ReadToEnd
'SW.Close()
'SR.Close()
'Invoke(Finished)
MessageBox.Show("Conversión a DAT culminada." & vbNewLine & "Data: " & nombre, "Información", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
Next
Results = SR.ReadToEnd
SW.Close()
SR.Close()
Invoke(Finished)
End Sub
Private Sub UpdateText()
'If Me.InvokeRequired = False Then
Dim midirectorio As String = TextBox1.Text
Dim strStreamW As Stream = Nothing
Dim strStreamWriter As StreamWriter = Nothing
Dim fecha As String = DateTime.Now.ToString("dd MMM HHmmss")
Dim rutarchivo As String = String.Concat(midirectorio, "log-", fecha & ".txt")
Windows.Forms.Cursor.Current = Cursors.WaitCursor
strStreamW
= File.
Create(rutarchivo
) strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default)
strStreamWriter.WriteLine(Results)
strStreamWriter.Close()
' Else
' Dim D As delUpdate = New delUpdate(AddressOf UpdateText)
' Me.Invoke(D)
' End If
End Sub
Private Sub btnrinex_Click(sender As System.Object, e As System.EventArgs) Handles btnrinex.Click
Dim midirectorio As String = TextBox1.Text
Dim CMD As New Threading.Thread(AddressOf CMDAutomaterin)
If midirectorio = "" Then
MessageBox.Show("Debe seleccionar la ruta donde se encuentra la data", "Error", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
Else
My.Computer.FileSystem.CopyFile("C:\Program Files\convert data\teqc.exe", midirectorio & "\teqc.exe", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
End If
CMD.Start()
End Sub
Friend ReadOnly GPSDictionary
As Dictionary(Of Integer,
Integer) = Me.
GetGPSDictionary Private Function GetGPSDictionary
() As Dictionary(Of Integer,
Integer)
Dim ThisYear As Integer = Now.Year
Dim DaysInThisYear As Integer = (From month As Integer In Enumerable.Range(1, 12)
Select DateTime.DaysInMonth(ThisYear, month)).Sum
Dim GPSWeeks As IEnumerable(Of Integer) = Enumerable.Range(1773 - 1, 1825)
For Day As Integer = 1 To DaysInThisYear
Result.Add(Day, GPSWeeks(DatePart(DateInterval.WeekOfYear,
New DateTime(ThisYear, 1, 1).AddDays(Day - 1))))
Next Day
Return Result
End Function
Private Sub CMDAutomaterin()
Dim midirectorio As String = TextBox1.Text
Dim myprocess As New Process
Dim StartInfo As New System.Diagnostics.ProcessStartInfo
StartInfo.FileName = "cmd"
StartInfo.RedirectStandardInput = True
StartInfo.RedirectStandardOutput = True
StartInfo.UseShellExecute = False
StartInfo.CreateNoWindow = True
myprocess.StartInfo = StartInfo
myprocess.Start()
Dim SR As System.IO.StreamReader = myprocess.StandardOutput
Dim SW As System.IO.StreamWriter = myprocess.StandardInput
Dim comandodat As String
Dim comandorin As String
Dim cmdir As String
Dim nombre As String
Dim renombre As String
For Each file As String In My.
Computer.
FileSystem.
GetFiles(midirectorio, FileIO.
SearchOption.
SearchTopLevelOnly,
"*.T01")
nombre
= Path.
GetFileNameWithoutExtension(file) renombre = Microsoft.VisualBasic.Left(nombre, Len(nombre) - 2) & "0"
Dim DayOfYear As Integer = Mid(nombre, 5, 3)
Dim semgps As Integer = Me.GPSDictionary(DayOfYear)
cmdir = "cd " & midirectorio
comandodat = "runpkr00.exe -g -d " & nombre & ".t01"
comandorin = "teqc.exe +nav " & renombre & ".14n -O.int 5 -O.dec 5 -O.ag IGN-PERU -O.o CPG -week " & semgps & " -tr d " & nombre & ".tgd> " & renombre & ".14o"
SW.WriteLine(cmdir)
SW.WriteLine(comandodat)
SW.WriteLine(comandorin)
'Results = SR.ReadToEnd
' SW.Close()
'SR.Close()
'Invoke(Finished)
MessageBox.Show("Conversión a RINEX culminada." & vbNewLine & "Data: " & nombre, "Información", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
Next
Results = SR.ReadToEnd
SW.Close()
SR.Close()
Invoke(Finished)
End Sub
Private Sub btntqc_Click(sender As Object, e As EventArgs) Handles btntqc.Click
Dim midirectorio As String = TextBox1.Text
Dim CMD As New Threading.Thread(AddressOf CMDAutomateqc)
If midirectorio = "" Then
MessageBox.Show("Debe seleccionar la ruta donde se encuentra la data", "Error", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
Else
My.Computer.FileSystem.CopyFile("C:\Program Files\convert data\teqc.exe", midirectorio & "\teqc.exe", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
End If
CMD.Start()
End Sub
Private Sub CMDAutomateqc()
Dim midirectorio As String = TextBox1.Text
Dim myprocess As New Process
Dim StartInfo As New System.Diagnostics.ProcessStartInfo
StartInfo.FileName = "cmd"
StartInfo.RedirectStandardInput = True
StartInfo.RedirectStandardOutput = True
StartInfo.UseShellExecute = False
StartInfo.CreateNoWindow = True
myprocess.StartInfo = StartInfo
myprocess.Start()
Dim SR As System.IO.StreamReader = myprocess.StandardOutput
Dim SW As System.IO.StreamWriter = myprocess.StandardInput
Dim comandorin As String
Dim cmdir As String
Dim nombre As String
Dim renombre As String
For Each file As String In My.
Computer.
FileSystem.
GetFiles(midirectorio, FileIO.
SearchOption.
SearchTopLevelOnly,
"*.T01")
nombre
= Path.
GetFileNameWithoutExtension(file) renombre = Microsoft.VisualBasic.Left(nombre, Len(nombre) - 2) & "0"
If System.
IO.
File.
Exists(midirectorio
& "\" & renombre
& ".14n") And System.
IO.
File.
Exists(midirectorio
& "\" & renombre
& ".14o") Then cmdir = "cd " & midirectorio
comandorin = "teqc.exe -nav " & renombre & ".14n +qc " & renombre & ".14o"
SW.WriteLine(cmdir)
SW.WriteLine(comandorin)
'Results = SR.ReadToEnd
'SW.Close()
'SR.Close()
'Invoke(Finished)
MessageBox.Show("Quality Check." & vbNewLine & "Data: " & nombre, "Información", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
Else
MessageBox.Show("Se necesitan de los archivos RINEX (14n y 14o)" & vbNewLine & "Solución: Clic en el Botón RINEX.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
End If
Next
Results = SR.ReadToEnd
SW.Close()
SR.Close()
Invoke(Finished)
End Sub
Mostrar Temas
