编写上位机通讯程序需要根据具体的通信协议、数据传输格式以及使用的编程语言来进行。以下是几种常见编程语言的通讯程序编写方法：
1. Delphi
在Delphi中编写上位机通讯程序，可以使用定时器和串口通信。以下是一个简单的Delphi程序示例，用于串口通信：
```delphi
program SerialCommunication；
uses
SysUtils, SerialPort；
var
SerialPort1: TSerialPort；
procedure SystemInit；
begin
SerialPort1 := TSerialPort.Create（nil）；
SerialPort1.PortName := 'COM1'；
SerialPort1.BaudRate := 9600；
SerialPort1.Parity := Parity.None；
SerialPort1.StopBits := StopBits.One；
SerialPort1.DataBits := 8；
SerialPort1.Handshake := Handshake.None；
SerialPort1.Open；
end；
procedure Main；
begin
SystemInit；
while True do
begin
if SerialPort1.ReadChar <> 0 then
begin
// 处理接收到的数据
ShowMessage（'Received: ' + SerialPort1.ReadStr）；
end；
Sleep（10）； // 每10ms检查一次
end；
end；
begin
Main；
end.
```
2. C
在C中编写上位机通讯程序，可以使用`SerialPort`类进行串口通信，或者使用`Socket`类进行网络通信。以下是一个简单的C串口通信示例：
```csharp
using System；
using System.IO.Ports；
class Program
{
static void Main（string[] args）
{
SerialPort mySerialPort = new SerialPort（"COM1"）；
mySerialPort.BaudRate = 9600；
mySerialPort.Parity = Parity.None；
mySerialPort.StopBits = StopBits.One；
mySerialPort.DataBits = 8；
mySerialPort.Handshake = Handshake.None；
mySerialPort.Open（）；
while （true）
{
if （mySerialPort.BytesToRead > 0）
{
byte[] buffer = new byte[mySerialPort.BytesToRead]；
mySerialPort.Read（buffer, 0, buffer.Length）；
string receivedData = System.Text.Encoding.ASCII.GetString（buffer）；
Console.WriteLine（"Received: " + receivedData）；
}
System.Threading.Thread.Sleep（10）； // 每10ms检查一次
}
}
}
```
3. Java
在Java中编写上位机通讯程序，可以使用`rtrx`串口通信包进行数据的收发。以下是一个简单的Java串口通信示例：
```java
import gnu.io.*；
import java.io.*；
import java.util.*；
public class SerialCommunication {
public static void main（String[] args） {
try {
InputStream in = new FileInputStream（"/dev/ttyUSB0"）；
OutputStream out = new FileOutputStream（"/dev/ttyUSB0"）；
SerialPort serialPort = new SerialPort（"/dev/ttyUSB0"）；
serialPort.setSerialPortParams（9600, SerialPort.DATABITS_8, SerialPort.STOPBITS_1, SerialPort.PARITY_NONE）；
InputStreamReader inputStreamReader = new InputStreamReader（in）；
BufferedReader bufferedReader = new BufferedReader（inputStreamReader）；
String message；
while （（message = bufferedReader.readLine（）） != null） {
System.out.println（"Received: " + message）；
}
serialPort.close（）；
in.close（）；
out.close（）；
} catch （IOException e） {
e.printStackTrace（）；
}
}
}
```
4. C51
在C51中编写上位机通讯程序，可以使用MSComm控件进行串口通信。以下是一个简单的C51串口通信示例：