Option Explicit

Dim PortOpen As Boolean

Public Function PortTest(COMPortNummer As Integer) As Boolean
  MSComm1.CommPort = COMPortNummer
  
  On Error Resume Next
  
  MSComm1.PortOpen = True
  If Err = 0 Then
    PortTest = True
    MSComm1.PortOpen = False
  Else
    PortTest = False
    MSComm1.PortOpen = False
  End If
End Function

Private Sub command1_Click()
  Me.text1 = Me.text1 & Str(Time) & " +++ Text yollama denemesi" & vbCrLf
  
  If PortOpen = False Then
    MsgBox "Lütfen önce bir Port acin"
    Me.text1 = Me.text1 & Str(Time) & _
               " +++ Text gönderiminde hata, Port " & _
               "acik degil" & vbCrLf & vbCrLf
    Exit Sub
  End If
  
  If Me.text2 = "" Then
    MsgBox "Text e ne oldu"
    Me.text1 = Me.text1 & Str(Time) & " +++ Text eksik" & _
               vbCrLf & vbCrLf
    Exit Sub
  End If
  
  On Error Resume Next
  
  MSComm1.Output = Me.text2 + vbCr
  
  If Err <> 0 Then
    MsgBox "Text hatasiz olarak yollanamadi!"
    Me.text1 = Me.text1 & Str(Time) & " +++ Text " & _
               "hatasiz yollandi" & vbCrLf & vbCrLf
  Else
    Me.text1 = Me.text1 & Str(Time) & _
               " +++ """ + Me.text2 & """ yollandi" & _
               vbCrLf & vbCrLf
  End If
End Sub

Private Sub Command2_Click()
  Dim Portzaehler As Integer
    
    Me.text1 = Me.text1 & Str(Time) & _
               " +++ Mevcut olan COM-Ports taraniyor" & vbCrLf
    
    Me.combo1.Clear

    For Portzaehler = 1 To 16
      If PortTest(Portzaehler) Then
        Me.combo1.AddItem "COM" & Str(Portzaehler)
      End If
    Next
    
    If Me.combo1.ListCount = 0 Then
      Me.combo1.AddItem "Mevcut Comport bulunamadi"
      Me.text1 = Me.text1 & Str(Time) & _
                 " +++ Comport mevcut degil" & _
                 vbCrLf & vbCrLf
    Else
      Me.text1 = Me.text1 & Str(Time) & _
                 " +++" & Str(Me.combo1.ListCount) & _
                 " Comport(s) mevcut" & vbCrLf & vbCrLf
    End If
    
    Me.combo1.ListIndex = 0
End Sub

Private Sub Command3_Click()
  Dim CPort As Byte
  Dim Settings As String
  
    Me.text1 = Me.text1 & Str(Time) & _
               " +++ Acma denemesi COM-Port icin" _
               & vbCrLf
    
    If PortOpen = True Then
      MsgBox "Su anda acik durumda bir Port var lütfen " & _
             "önce acik olani kapatiniz!"
      Me.text1 = Me.text1 & Str(Time) & _
                 " +++ COM-Port acilamadi " & _
                 "halen acik olan bir Port mevcut" _
                 & vbCrLf & vbCrLf
      Exit Sub
    End If
      
    CPort = Val(Mid(Me.combo1.List(Me.combo1.ListIndex), 4, _
                    Len(Me.combo1.List(Me.combo1.ListIndex))))
                    
    If CPort = 0 Then
      MsgBox "Hata COMM-Port mevcut degil "
             
      Me.text1 = Me.text1 & Str(Time) & _
                 " +++ COM-Port acilamadi " & vbCrLf & vbCrLf
    Else
      MSComm1.CommPort = CPort
      Settings = Me.Combo2.List(Me.Combo2.ListIndex)
      Select Case Me.Combo4.ListIndex
        Case 0: Settings = Settings & ",E"
        Case 1: Settings = Settings & ",M"
        Case 2: Settings = Settings & ",N"
        Case 3: Settings = Settings & ",O"
        Case 4: Settings = Settings & ",S"
      End Select
      
      Settings = Settings & "," & _
                 Me.Combo3.List(Me.Combo3.ListIndex)
                 
      Settings = Settings & "," & _
                 Me.Combo5.List(Me.Combo5.ListIndex)
      
      MSComm1.Settings = Settings
      
      On Error Resume Next
      
      MSComm1.PortOpen = True
      
      If Err <> 0 Then
        MsgBox "Hata COM-Ports " & _
               "mevcut degil yada ayarlarda hata var?"
               
        Me.text1 = Me.text1 & Str(Time) & _
                   " +++ COM-Port acilamadi" _
                   & vbCrLf & vbCrLf
      Else
        MSComm1.RThreshold = 1
        MSComm1.SThreshold = 1
        MSComm1.InputLen = 0
        Me.text1 = Me.text1 & _
                   Str(Time) & " +++ COM-Port acilmistir" _
                   & vbCrLf & vbCrLf
        PortOpen = True
      End If
    End If
End Sub

Private Sub Command4_Click()
  Me.text1 = Me.text1 & Str(Time) & _
             " +++ COM-Port kapama denemesi" & vbCrLf
  
  If PortOpen = False Then
    MsgBox "Acik olan COMM-Port yok, kapatmaya gerek yok "
           
           
    Me.text1 = Me.text1 & Str(Time) & _
               " +++ COM-Port kapatilamadi " & vbCrLf & vbCrLf
  Else
    On Error Resume Next
    
    MSComm1.PortOpen = False
    If Err <> 0 Then
      MsgBox "Port kapatimi sirasinda hata olustu"
      Me.text1 = Me.text1 & _
                 Str(Time) & " +++ COM-Port kapatilamadi " & _
                 vbCrLf & vbCrLf
    Else
      Me.text1 = Me.text1 & Str(Time) & " +++ COM-Port " & _
                 "kapali" & vbCrLf & vbCrLf
      PortOpen = False
    End If
  End If
End Sub

Private Sub Form_Load()
  Me.combo1.Clear
  Me.combo1.AddItem "Comm Port yok!!!"
  Me.combo1.ListIndex = 0
  Me.Combo2.AddItem "4800"
  Me.Combo2.AddItem "9600"
  Me.Combo2.AddItem "19200"
  Me.Combo2.AddItem "38400"
  Me.Combo2.AddItem "57600"
  Me.Combo2.AddItem "115200"
  Me.Combo2.ListIndex = 4
  Me.Combo3.AddItem "4"
  Me.Combo3.AddItem "5"
  Me.Combo3.AddItem "6"
  Me.Combo3.AddItem "7"
  Me.Combo3.AddItem "8"
  Me.Combo3.ListIndex = 4
  Me.Combo4.AddItem "Dosdogru"
  Me.Combo4.AddItem "Dosdogru degil"
  Me.Combo4.AddItem "BOs"
  Me.Combo4.AddItem "Secili"
  Me.Combo4.AddItem "Bosluk"
  Me.Combo4.ListIndex = 2
  Me.Combo5.AddItem "1"
  Me.Combo5.AddItem "1.5"
  Me.Combo5.AddItem "2"
  Me.Combo5.ListIndex = 0
  
  PortOpen = False
  
  Me.text1 = Str(Time) & _
             " +++ Program basliyor. Hosgeldiniz." & _
             vbCrLf & vbCrLf
End Sub

Private Sub MSComm1_OnComm()
  Select Case MSComm1.CommEvent
    Case comOverrun:   MsgBox "Bilgi kaybolusu!"
    Case comRxOver:    MsgBox "Bilgi kaybolusu!"
    Case comEvReceive: Me.text3 = Me.text3 + MSComm1.Input
  End Select
End Sub