Acest cod afiseaza pe ecran toate informatiile legate despre placa video.
Citat:
'Check for installed video cards
PERFORM CHECKLIST FOR GRAPHICS CARDS
VideoCards = CHECKLIST QUANTITY()
IF VideoCards > 1
PRINT "There are ",VideoCards," installed video cards."
FOR Index = 1 TO VideoCards
PRINT " ", Index, " - ", CHECKLIST STRING$(Index)
NEXT Index
ELSE
PRINT "There is one installed video card."
ENDIF
'Display current video driver
PRINT "Video driver: ", CURRENT GRAPHICS CARD$()
'Check for hardware acceleration
IF EMULATION MODE() = 1
PRINT "No hardware acceleration."
ELSE
PRINT "Hardware acceleration supported."
ENDIF
'Check for transform and lighting
IF TNL AVAILABLE() = 1
PRINT "Transform and lighting supported."
ELSE
PRINT "No transform and lighting."
ENDIF
'Display memory available
PRINT "Total video memory: ", SYSTEM DMEM AVAILABLE()
PRINT "System memory free: ", SYSTEM SMEM AVAILABLE()
PRINT "Total memory free: ", SYSTEM TMEM AVAILABLE()
'Wait for user to press a key
WAIT KEY
'Delete checklist array from memory
EMPTY CHECKLIST
Nu puteti crea un subiect nou in acest forum Nu puteti raspunde in subiectele acestui forum Nu puteti modifica mesajele proprii din acest forum Nu puteti sterge mesajele proprii din acest forum Nu puteti vota in chestionarele din acest forum
Ora este GMT + 3 ore
Pagina 1 din 1
Fa-ti si tu propriul forum GRATUIT, pe www.myforum.ro
