DOS 시계 (1/100초)

dos-time.bas

원래 파일

LAN/QB/DOSINCLO.BAS

날짜

1995-02-13

크기

2,739바이트, 15줄

저장 형식

QB 4.5 바이너리 저장본("Fast Load and Save")을 QB에서 텍스트로 다시 저장한 뒤 UTF-8로 바꿈

내려받기

dos-time.bas (UTF-8)

설명

INTERRUPTX로 DOS 함수 2Ch(시각 읽기)를 불러 시, 분, 초, 1/100초를 꺼냅니다.
1/100초 값이 바뀔 때마다 한 줄씩 찍어서 TIMER보다 세밀한 시간을 얻을 수 있는지 본 것입니다.
QB.BI를 포함하므로 QB.QLB를 붙여 실행해야 합니다.

소스

'$INCLUDE: 'qb.bi'DIM SHARED InRegs AS RegtypeX, OutRegs AS RegtypeXCLSInRegs.ax = &H2C00DOWHILE hsec% = beforeCALL interruptx(&H21, InRegs, OutRegs)hour% = OutRegs.cx / 256min% = OutRegs.cx AND &HFFsec% = OutRegs.dx / 256hsec% = OutRegs.dx AND &HFFWENDbefore = hsec%PRINT hour%; ":"; min%; ":"; sec%; ":"; hsec%LOOP