🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

🏠 Home 📰 News 🗂️ Usenet Search 🔑 Login 📝 Register
Thread View: cn.bbs.comp.program
1 messages
[T] Back to Threads [V] Tree View [G] Group Articles
1 total messages Started by �Ĵ�����֮������ Tue, 03 Mar 1998 00:00
MScomm�ؼ���ʹ�ð�����
#2112
Author: �Ĵ�����֮������
Date: Tue, 03 Mar 1998 00:00
29 lines
1421 bytes 
ʾ��

*������ʾ�����ִ�л�Ĵ��˿�ͨѶ��

        * Use COM1.
        Comm1.CommPort = 1                              
        * 9600�����ʣ�����żУ�飬8 λ��ݣ�1 λ��ֹλ��
        Comm1.Settings = "9600,N,8,1"   
        *֪ͨ����ʹ������ʱ�����������
        Comm1.InputLen = 0
        * �򿪶˿�
        Comm1.PortOpen = .T.
        * ����ע�����������ƽ������
        Comm1.Output = "AT" + CHR(13)
        * �ȴ���ݷ��������ж˿�
        DO WHILE Comm1.InBufferCount <= 2
        * �����ж˿��е� OK ��Ӧ���
                InString = Comm1.Input
                IF InString == "OK"

                        EXIT
                ENDIF
        ENDDO
        * �رմ��ж˿�
        Comm1.PortOpen = .F.

--
�� ��Դ: �й�ƴ�BBSվ [bbs.ustc.edu.cn]
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads