purebasic.info

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

#ComPort = 0 ; Идентификатор COM порта
 
EnableExplicit
 
Procedure InComStr() ; Прием строк из COM порта.
  Static InBuff.s
  Protected Bytes, Buff.a, i
  
  Bytes = AvailableSerialPortInput(#ComPort)
  If Bytes>0
    For i=1 To Bytes
      If ReadSerialPortData(#ComPort, @Buff, 1)=1
        If Buff<>#CR And Buff<>#LF
          InBuff+Chr(Buff)
        Else
          Debug InBuff
          InBuff=""
        EndIf
      EndIf
    Next i
  EndIf
  
EndProcedure
 
If OpenSerialPort(#ComPort, "COM1", 9600, #PB_SerialPort_NoParity, 8, 1,
                  #PB_SerialPort_NoHandshake, 255, 255)
  
  Repeat
    InComStr()
    Delay(500)
  ForEver
  
  CloseSerialPort(#ComPort)
Else
  Debug "Не удалось открыть COM порт"
EndIf

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

;Процедура приема данных
Procedure InData()   
  Protected InBytes 
  Dim InBytes.c(9) ;Байтовый массив, используемый как бцфер приёма данных.
  Protected Dim InBuffer.a(InBytes), RealInBytes 
  
  
  If IsSerialPort(#COM_Port)  ;С таким ИД порт открыт. 
    InBytes = AvailableSerialPortInput(#COM_Port) 
    If InBytes>0  ;Получены данные. 
      
      RealInBytes = ReadSerialPortData(#COM_Port, @InBuffer(), InBytes) 
      If RealInBytes>0
        
        Structure RealInBytes 
          datas1.w
          datas2.w
          datas3.w
          datas4.w
          datas5.w
          datas6.w
          datas7.w
          datas8.w
        EndStructure
        
        
        AddGadgetItem(400, -1, PeekS(@InBuffer(), datas1, #PB_Ascii)) 
        AddGadgetItem(500, -1, PeekS(@InBuffer(), datas2, #PB_Ascii))
      EndIf 
    EndIf 
  EndIf
  
EndProcedure

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

;Процедура приема данных
Procedure InData()   
 Protected InBytes 
 Dim InBytes.c(9) ;Байтовый массив, используемый как бцфер приёма данных.
Protected Dim InBuffer.a(InBytes), RealInBytes 
 
 
 If IsSerialPort(#COM_Port)  ;С таким ИД порт открыт. 
 InBytes = AvailableSerialPortInput(#COM_Port) 
 If InBytes>0  ;Получены данные. 
   
 RealInBytes = ReadSerialPortData(#COM_Port, @InBuffer(), InBytes) 
 If RealInBytes>0
  
x=InBytes(0)
x1=InBytes(1) 
 
 ;AddGadgetItem(400, -1, PeekS(@InBuffer(), x, #PB_Ascii)) 
 AddGadgetItem(500, -1, PeekS(@InBuffer(), x1, #PB_Ascii))
EndIf 
 EndIf 
 EndIf
 
EndProcedure

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

;Процедура приема данных
Procedure InData()   
 Protected InBytes 
 Dim InBytes.c(9) ;Байтовый массив, используемый как бцфер приёма данных.
Protected Dim InBuffer.a(InBytes), RealInBytes 
 
 
 If IsSerialPort(#COM_Port)  ;С таким ИД порт открыт. 
 InBytes = AvailableSerialPortInput(#COM_Port) 
 If InBytes>0  ;Получены данные. 
   
 RealInBytes = ReadSerialPortData(#COM_Port, @InBuffer(), InBytes) 
 If RealInBytes>0
  
x=InBytes(0)
x1=InBytes(1) 
 
 
 ;AddGadgetItem(400, -1, PeekS(@InBuffer(), RealInBytes, #PB_Ascii)) 
 AddGadgetItem(500, -1, PeekS(@InBuffer(), RealInBytes, #PB_Ascii))
EndIf 
 EndIf 
 EndIf
 
EndProcedure