Attribute VB_Name = "displ2"
Option Explicit
Public sended_string As String




Public Sub set_digit(adr As Integer, wert As Variant)

Dim i As Integer
Dim zchn As String
Dim Send_string As String
Dim data_string As String
Dim data0 As String
Dim data1 As String
Dim adr_string As String
Dim sel_string As String



Dim adr1 As String
Dim adr0 As String
Static Stat_data0 As String
Static Stat_data1 As String

Static Stat_adr0 As String
Static Stat_adr1 As String
Static firsttime As Boolean
If firsttime = False Then
firsttime = True
Stat_adr0 = "00"
Stat_adr1 = "00"
Stat_data1 = "0100000"
Stat_data0 = "0100000"
End If





mod_testcomm.CLR_DTR
mod_testcomm.CLR_RTS
'wert = 65

data_string = wert_to_bin(wert)

  
  
  While Len(data_string) < 7
  
     data_string = "0" + data_string
  Wend


Select Case adr
      
      Case 0
      adr0 = "00"
      Stat_adr0 = adr0
      
      data0 = data_string
      Stat_data0 = data0
      
      'If adr1 = "" Then
      'adr1 = "00"
      'Stat_adr1 = adr1
      'Else
      adr1 = Stat_adr1
      Stat_adr1 = adr1
      'End If
      'If data1 = "" Then
      'data1 = "0100000"
      'Stat_data1 = data1
      
     ' Else
      data1 = Stat_data1
      Stat_data1 = data1
      'End If
      
      adr_string = adr0
      
      
      Case 1
      adr0 = "01"
      Stat_adr0 = adr0
      
      data0 = data_string
      Stat_data0 = data0
      
      
      adr1 = Stat_adr1
      Stat_adr1 = adr1
      
      data1 = Stat_data1
      Stat_data1 = data1
      
      Case 2
      adr0 = "10"
      Stat_adr0 = adr0
      
      data0 = data_string
      Stat_data0 = data0
      
      
      adr1 = Stat_adr1
      Stat_adr1 = adr1
      
      data1 = Stat_data1
      Stat_data1 = data1
      
      Case 3
      adr0 = "11"
      Stat_adr0 = adr0
      
      data0 = data_string
      Stat_data0 = data0
      
      
      adr1 = Stat_adr1
      Stat_adr1 = adr1
      
      data1 = Stat_data1
      Stat_data1 = data1
      
      
      
      
      
      
      
      Case 4
      
      adr0 = Stat_adr0
      Stat_adr0 = adr0
      data0 = Stat_data0
      adr1 = "00"
      
      Stat_adr1 = adr1
      
      data1 = data_string
      Stat_data1 = data1
      
      
      
      Case 5
      adr0 = Stat_adr0
      Stat_adr0 = adr0
      data0 = Stat_data0
      adr1 = "01"
      
      Stat_adr1 = adr1
      
      data1 = data_string
      Stat_data1 = data1
      
      
      
      Case 6
      adr0 = Stat_adr0
      Stat_adr0 = adr0
      data0 = Stat_data0
      adr1 = "10"
      
      Stat_adr1 = adr1
      
      data1 = data_string
      Stat_data1 = data1
      
      
      Case 7
      adr0 = Stat_adr0
      Stat_adr0 = adr0
      data0 = Stat_data0
      adr1 = "11"
      
      Stat_adr1 = adr1
      
      data1 = data_string
      Stat_data1 = data1
      
      
End Select




Send_string = adr0 + data0 + adr1 + data1

sended_string = Send_string
On Error Resume Next

'adr0 = "11"
'adr1 = "11"

     For i = Len(adr0) To 1 Step -1
     
      
           
           zchn = Mid(adr0, i, 1)
              Select Case zchn
                 Case "1"
                  mod_testcomm.SET_DTR
                    mod_testcomm.SET_RTS
                    mod_testcomm.CLR_RTS
                 Case "0"
                    mod_testcomm.CLR_DTR
                    mod_testcomm.SET_RTS
                    mod_testcomm.CLR_RTS
              
              
              End Select
              
   
     Next i
      
 'data_string = "1000010"
   
     
      
      For i = 1 To Len(data0) 'To 1 Step -1
      
           zchn = Mid(data0, i, 1)
              Select Case zchn
                 Case "1"
                  mod_testcomm.SET_DTR
                    mod_testcomm.SET_RTS
                    mod_testcomm.CLR_RTS
                 Case "0"
                    mod_testcomm.CLR_DTR
                    mod_testcomm.SET_RTS
                    mod_testcomm.CLR_RTS
              
              
              End Select
     Next i
      
      
       For i = Len(adr1) To 1 Step -1
       
 
           zchn = Mid(adr1, i, 1)
              Select Case zchn
                 Case "1"
                  mod_testcomm.SET_DTR
                    mod_testcomm.SET_RTS
                    mod_testcomm.CLR_RTS
                 Case "0"
                    mod_testcomm.CLR_DTR
                    mod_testcomm.SET_RTS
                    mod_testcomm.CLR_RTS
              
              
              End Select
              
   
     Next i
      
' For i = 1 To 5000
'DoEvents
'Next i
    
      
      
'data_string = "1000011"
       For i = 1 To Len(data1)
 
           zchn = Mid(data1, i, 1)
              Select Case zchn
                 Case "1"
                  mod_testcomm.SET_DTR
                    mod_testcomm.SET_RTS
                    mod_testcomm.CLR_RTS
                 Case "0"
                    mod_testcomm.CLR_DTR
                    mod_testcomm.SET_RTS
                    mod_testcomm.CLR_RTS
              
              
              End Select
              
   
     Next i
      
      
      
      
              
' For i = 1 To 5000
'DoEvents
'Next i
  
             
   
   
   
   Form1.MSComm1.Output = Chr(0)






End Sub
Public Function wert_to_bin(ByVal wert As Variant) As String
Dim stringwert As String
Dim hilfswert As Variant
 On Error GoTo feh
 

 If TypeName(wert) = "String" Then
   
   wert = Asc(wert)
   
 End If
 
 
  
 
    Do
    
    hilfswert = Int(wert)
    wert = Int(wert / 2)
       If hilfswert Mod 2 Then
       stringwert = "1" + stringwert
       Else
       stringwert = "0" + stringwert
       
       End If
       


    Loop Until wert = 0
     

wert_to_bin = stringwert
Exit Function
feh:
End Function