home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1992 / 11 / labnotes / demodll.frm (.txt) < prev    next >
Visual Basic Form  |  1992-02-24  |  9KB  |  247 lines
  1. Form1
  2. Form1
  3. Form1
  4. Label3
  5. %Labnotes.DLL  Demo   Equipment Check 
  6. Terminal
  7. Label1
  8. Printer Ports
  9. Label1
  10. Comm Ports
  11. Label1
  12. Drive Info
  13. Label1
  14. Label1
  15. Label1
  16. Label1
  17. Label1
  18. Label1
  19. Label2
  20. Floppy Drives
  21. Label4
  22. Math Coprocessor
  23. Label1
  24. Network
  25. Label1
  26. Label1
  27. Label1
  28. Label1
  29. Label1
  30. DOS Version
  31. Label1
  32. Command3
  33. Frame1
  34. MK$ and CV demo 
  35. List1
  36. List2
  37. Text1
  38. Label5
  39. K<- Enter a number and click here - >      Integers will be mod'd with 32767
  40. Command1
  41. MK/CV
  42. Frame1
  43. QCopyright (c) 1992 Jay Munro          First Published in PC Magazine June 16 1992
  44. Command1_Click5
  45. ControlHwnd
  46. Command1
  47. ctrle
  48. Label1_Click5
  49. Index
  50. Form_Click
  51. @    Form_LoadZ
  52. Label1
  53. Caption!
  54.     PRNStatus
  55. LPTNum!
  56. IntNum
  57.     Registers?
  58. ErrNum
  59.     Interrupt
  60. PStat
  61. LabeP
  62. Printer1
  63. Address=
  64. LoSeg
  65. GetAbs
  66.     PrintPort^
  67. PRStatus<
  68. CheckPrinter
  69. Command3_Clickm
  70. NumFloppies
  71. @    EquipList
  72. NumFlop
  73. DriveA
  74. DriveBy
  75. Monitor
  76. CoProc
  77. TempB
  78. NumFlops
  79. Caser
  80. Command2_ClickK
  81.     NiceFrame
  82. HCtrl
  83. CtrlHwnd
  84. elect
  85. Frame
  86. Rect-
  87. GetClientRect9
  88. TFrame'
  89. Left{
  90. Right;
  91. Bottom
  92. NextOutline
  93. ColorRef
  94. hPenw
  95.     CreatePen
  96. Dummyk
  97. SelectObject
  98. Form1
  99. DrawRect
  100. Outline
  101. MoveTo
  102. LineTo
  103. DrawRectLeftTop
  104. DrawRectRightBottom
  105. DeleteObjectE
  106. OldPenP
  107. CtlHwnd[
  108. MyHCtrl3
  109. GetWindowRectg
  110. InitOutline
  111. MFrameX
  112. Form_Paint
  113. CFrame
  114. VOffset
  115. HOffset
  116. CommPort
  117. Command1_KeyDown
  118. KeyCode
  119. Shift
  120. Command1_GotFocus
  121. Command1_LostFocus
  122. Label5_Click
  123. Label5l
  124. SendMessage&
  125. WM_Clear
  126. WM_SetText
  127. DosVersion
  128. MyRegsE
  129. VerNumb
  130. @    DiskSpace
  131.     FreeSpace*
  132. TotalSpace
  133. Drive
  134. Network
  135. Buffer
  136. Flags
  137. NetName
  138. Text1
  139. Label6
  140. ShowMK
  141. List1
  142. List2
  143. @    ClearList
  144. LB_ResetContent
  145. Frame1_DragDropZ
  146. Source
  147. List2_Click
  148.     MonoPrint
  149. Command1_Click
  150. Shows conversion of numbers to strings and back usingg
  151. MK$ and CV functions
  152.  Note: some strings created with MK$ will not show inn
  153.  list boxx
  154. mod it incase of overflow
  155. Clear list
  156. -Fill list
  157. MKI$ = "
  158. MKL$ = "
  159. MKS$ = "
  160. MKD$ = "
  161. MKC$ = "
  162. CVI% = "
  163. CVL& = "
  164. CVS! = "
  165. CVD# = "
  166. CVC@ = "
  167. Form_Load
  168. CheckPrinter
  169. -- Uses Peek%, Inp and Out to get and check Printer Port
  170. - Get Printer port 1
  171. LPT1 OK"
  172. LPT1 error
  173. LPT1 OK"
  174. - Get Printer port 2
  175. LPT2 OK"
  176. LPT2 error
  177. No LPT2"
  178. - Check Com port 1
  179. Comm1 Installed"
  180. Comm1 Not Installed"
  181. - Check Com port 2
  182. Comm2 Installed"
  183. Comm2 Not Installed"
  184. EquipList
  185. Request info on Coprocessor and floppy types from CMOS memoryr
  186.   using Inp and Outr
  187. Port 112, offset 14h
  188. start equipment list
  189. Set index port
  190. --- start with coprocessor f
  191. Installed"
  192. Not Installed"
  193. --- Now get floppy types
  194. Port 112, offset 14h
  195. start equipment list
  196. Set index port
  197. bits 0-3 = drive B, 4-7 = drive A 
  198. high byte for floppy A
  199. low byte for floppy B-
  200. Drive A is 360 KB"
  201. Drive A is 1.2 MB"
  202. Drive A is 720 KB"
  203. Drive A is 1.44 MB
  204. No Drive A
  205. Drive B is 360 KB"
  206. Drive B is 1.2 MB"
  207. Drive B is 720 KB"
  208. Drive B is 1.44 MB
  209. No Drive B
  210. Command3_Click
  211. Command1_LostFocus
  212. DosVersion
  213. DosVersion uses Interrupt to get version of DOS running on the PC>
  214. no need for these regs
  215. service 30hp
  216. get version 
  217. format it2
  218. #.##00
  219. DiskSpace
  220. DiskSpace uses Interrupt to retrieve total and free space on the
  221.   specified drivee
  222. no need for these regs
  223. use passed drive$
  224. or get default drive
  225. service 19he
  226. default drive'
  227. disk info service 36h  "
  228. disk (1 = A, 2 = B etc...)  
  229. Drive 
  230.  Info"
  231.  Bytes Free"
  232.  Total Bytes
  233. Network
  234. Gets name of network using Interrupt. Buffer address iss
  235.  passed using SSeg and Sadd replacements
  236. no need for these regs
  237. service 5Eh
  238. make buffer to receive name)
  239. get pointer to string
  240. carry set?
  241. No Network installed
  242. Name = "
  243. ClearList
  244. resets content of list box to null
  245. Command2_Click
  246. Peek a Boo
  247.