home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pcmagazi
/
1992
/
11
/
labnotes
/
demodll.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1992-02-24
|
9KB
|
247 lines
Form1
Form1
Form1
Label3
%Labnotes.DLL Demo Equipment Check
Terminal
Label1
Printer Ports
Label1
Comm Ports
Label1
Drive Info
Label1
Label1
Label1
Label1
Label1
Label1
Label2
Floppy Drives
Label4
Math Coprocessor
Label1
Network
Label1
Label1
Label1
Label1
Label1
DOS Version
Label1
Command3
Frame1
MK$ and CV demo
List1
List2
Text1
Label5
K<- Enter a number and click here - > Integers will be mod'd with 32767
Command1
MK/CV
Frame1
QCopyright (c) 1992 Jay Munro First Published in PC Magazine June 16 1992
Command1_Click5
ControlHwnd
Command1
ctrle
Label1_Click5
Index
Form_Click
@ Form_LoadZ
Label1
Caption!
PRNStatus
LPTNum!
IntNum
Registers?
ErrNum
Interrupt
PStat
LabeP
Printer1
Address=
LoSeg
GetAbs
PrintPort^
PRStatus<
CheckPrinter
Command3_Clickm
NumFloppies
@ EquipList
NumFlop
DriveA
DriveBy
Monitor
CoProc
TempB
NumFlops
Caser
Command2_ClickK
NiceFrame
HCtrl
CtrlHwnd
elect
Frame
Rect-
GetClientRect9
TFrame'
Left{
Right;
Bottom
NextOutline
ColorRef
hPenw
CreatePen
Dummyk
SelectObject
Form1
DrawRect
Outline
MoveTo
LineTo
DrawRectLeftTop
DrawRectRightBottom
DeleteObjectE
OldPenP
CtlHwnd[
MyHCtrl3
GetWindowRectg
InitOutline
MFrameX
Form_Paint
CFrame
VOffset
HOffset
CommPort
Command1_KeyDown
KeyCode
Shift
Command1_GotFocus
Command1_LostFocus
Label5_Click
Label5l
SendMessage&
WM_Clear
WM_SetText
DosVersion
MyRegsE
VerNumb
@ DiskSpace
FreeSpace*
TotalSpace
Drive
Network
Buffer
Flags
NetName
Text1
Label6
ShowMK
List1
List2
@ ClearList
LB_ResetContent
Frame1_DragDropZ
Source
List2_Click
MonoPrint
Command1_Click
Shows conversion of numbers to strings and back usingg
MK$ and CV functions
Note: some strings created with MK$ will not show inn
list boxx
mod it incase of overflow
Clear list
-Fill list
MKI$ = "
MKL$ = "
MKS$ = "
MKD$ = "
MKC$ = "
CVI% = "
CVL& = "
CVS! = "
CVD# = "
CVC@ = "
Form_Load
CheckPrinter
-- Uses Peek%, Inp and Out to get and check Printer Port
- Get Printer port 1
LPT1 OK"
LPT1 error
LPT1 OK"
- Get Printer port 2
LPT2 OK"
LPT2 error
No LPT2"
- Check Com port 1
Comm1 Installed"
Comm1 Not Installed"
- Check Com port 2
Comm2 Installed"
Comm2 Not Installed"
EquipList
Request info on Coprocessor and floppy types from CMOS memoryr
using Inp and Outr
Port 112, offset 14h
start equipment list
Set index port
--- start with coprocessor f
Installed"
Not Installed"
--- Now get floppy types
Port 112, offset 14h
start equipment list
Set index port
bits 0-3 = drive B, 4-7 = drive A
high byte for floppy A
low byte for floppy B-
Drive A is 360 KB"
Drive A is 1.2 MB"
Drive A is 720 KB"
Drive A is 1.44 MB
No Drive A
Drive B is 360 KB"
Drive B is 1.2 MB"
Drive B is 720 KB"
Drive B is 1.44 MB
No Drive B
Command3_Click
Command1_LostFocus
DosVersion
DosVersion uses Interrupt to get version of DOS running on the PC>
no need for these regs
service 30hp
get version
format it2
#.##00
DiskSpace
DiskSpace uses Interrupt to retrieve total and free space on the
specified drivee
no need for these regs
use passed drive$
or get default drive
service 19he
default drive'
disk info service 36h "
disk (1 = A, 2 = B etc...)
Drive
Info"
Bytes Free"
Total Bytes
Network
Gets name of network using Interrupt. Buffer address iss
passed using SSeg and Sadd replacements
no need for these regs
service 5Eh
make buffer to receive name)
get pointer to string
carry set?
No Network installed
Name = "
ClearList
resets content of list box to null
Command2_Click
Peek a Boo