home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / grafik / monitor / monitor.bas next >
Encoding:
BASIC Source File  |  1993-09-22  |  725 b   |  51 lines
  1.  
  2. DECLARE FUNCTION Monitor% ()
  3.  
  4. '        This function will return the type of video card in the system.
  5. '        1 = MCGA Color
  6. '        2 = MCGA Mono
  7. '        3 = VGA Color
  8. '        4 = VGA Mono
  9. '        5 = EGA
  10. '        6 = CGA
  11. '        7 = Hercules
  12. '        8 = MDA
  13.  
  14. Test% = Monitor%
  15.  
  16. PRINT "The Function returns"; Test%
  17.  
  18.  
  19. '============================
  20. SELECT CASE Test%
  21.  
  22. CASE 1
  23.         PRINT "MCGA Color"
  24.  
  25. CASE 2
  26.         PRINT "MCGA Mono"
  27.  
  28. CASE 3
  29.         PRINT "VGA Color"
  30.  
  31. CASE 4
  32.         PRINT "VGA Mono"
  33.  
  34. CASE 5
  35.         PRINT "EGA"
  36.  
  37. CASE 6
  38.         PRINT "CGA"
  39.  
  40. CASE 7
  41.         PRINT "Hercules"
  42.  
  43. CASE 8
  44.         PRINT "MDA"
  45.  
  46. END SELECT
  47. '============================
  48.  
  49. END
  50.  
  51.