VB.net 콘솔 앱이 일시 중지 중이며 열린 채로 있습니다.

Question

안녕하세요. 데이터를 수집하고 전송 한 후에도 내 콘솔 앱을 열어 두는 방법을 이해하려고합니다. GUI를 콘솔 앱으로 변환하려고합니다. 20 초마다 서브를 발사하는 타이머가 있습니다. 하지만 콘솔 앱에서 작동하는 것처럼 보이지는 않습니다. 잠시 후 서브를 실행하면 기다리지 않고 앱을 닫습니다.

Dim secTimer As New System.Timers.Timer(20000) 

Sub Main() 
    Call copyRTDtoWS() 
    AddHandler secTimer.Elapsed, AddressOf TimerDone 
    secTimer.Enabled = True 
End Sub 

Public Sub copyRTDtoWS() 
    Dim connectionString As String = GetConnectionString() 
    Dim dataReader As SqlDataReader = Nothing 
    etc etc... 
    Call resetTimer() 
End Sub 

Private Sub resetTimer() 
    secTimer.Stop() 
    secTimer.Start() 
End Sub 

Public Sub TimerDone(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) 
    secTimer.Stop() 
    Call copyRTDtoWS() 
End Sub 

GUI 버전처럼 작동하려면 어떻게해야합니까? 시간에 대한

감사합니다,

데이비드

Answer 1

DharaPPatel 이미 자신의 의견에 쓴 바와 같이, console.readkey()는 콘솔 응용 프로그램이 키 입력을 기다릴 수 있습니다. 귀하의 서브 메인()의 끝에 넣어 :

Sub Main() 
    Call copyRTDtoWS() 
    AddHandler secTimer.Elapsed, AddressOf TimerDone 
    secTimer.Enabled = True 


    Console.ReadKey() 

End Sub