MScomm�ؼ��ʹ�ð��

Article View: cn.bbs.comp.program

Article #2112

Back to cn.bbs.comp.program Previous Next

#2112

From: �Ĵ��֮��
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]

Technical Details

Message-ID: <980303.y9mG7$PBBS@bbs.ustc.edu.cn>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: Chinese,GB
X-Google-Thread: fc86e,590cfd45f95e87d,start
X-Google-Attributes: gidfc86e,public
From: Powerpc_Pm@bbs.ustc.edu.cn (�Ĵ�����֮������)
Subject: MScomm�ؼ���ʹ�ð�����
Date: 1998/03/03
Message-ID: <980303.y9mG7$PBBS@bbs.ustc.edu.cn>
X-Deja-AN: 330819983
Organization: �й�ƴ�BBSվ
Newsgroups: cn.bbs.comp.program

Article View: cn.bbs.comp.program

MScomm�ؼ���ʹ�ð�����

MScomm�ؼ��ʹ�ð��