Code archives/Miscellaneous/ss4.0
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
| This will check if the cards are 3d capable. | |||||
AppTitle "deh - system status4.0"
Graphics 790,800,16,2
tgd = CountGfxDrivers ()
tgm = CountGfxModes ()
tvm = TotalVidMem () / 8388608
Repeat
Text 10,80,"time : " + CurrentTime()
Text 10,100,"date : " + CurrentDate()
Text 10,120, "mouseX : " + MouseX()
Text 10,140,"mouseY : " + MouseY()
Text 10,160,"mousez : " + MouseZ()
Text 10,180,"mousexspeed : " + MouseXSpeed()
Text 10,200,"mouseyspeed : " + MouseYSpeed()
Text 10,220,"mousezspeed : " + MouseZSpeed()
If KeyHit (32) Then Gosub drive
If JoyType =0 Then Text 10,240,"no joystick"
If JoyType =1 Then Text 10,240,"digital joystick"
If JoyType =2 Then Text 10,240,"analog joystick"
If JoyType >0 Then Text 10,290,"joy x : " + JoyX()
If JoyType >0 Then Text 10,310,"joy y : " + JoyY()
If JoyType >0 Then Text 10,330,"joy z : " + JoyZ()
avm = AvailVidMem () / 8388606
Text 10,350,"you have " + tgd + " graphics card(s) on your computer"
Text 10,370,"with a total of " + tgm + " modes and a total memory of "
Text 10,390, tvm + " megabytes of which " + avm + " megabytes are available"
l = 410
g = 0
Repeat
g=g+1
If GfxDriver3D (g)
Text 10,l,"the name of graphics card " + g + " is " + GfxDriverName (g) + " which is 3D-capable"
Else
Text 10,l,"the name of graphics card " + g + " is " + GfxDriverName (a) + " which is NOT 3D-capable"
EndIf
l=l+20
Until tgd = g
k = GetKey()
If k > 0 Then
Text 10,260,"keypress : " + k
Delay 499
EndIf
Delay 101
Cls
Until KeyHit (1)
End
.drive
Cls
Delay 100
FlushKeys
Repeat
Locate 200,100
Print "hidden harddrive checker"
Locate 200,400
d$ = Input$ ("What harddrive do you want to check? ")
If d$ = "exit" Then Exit
If FileType (d$) = 0 Then Print "this harddrive does not exist"
If FileType (d$) = 2 Then
Print "this harddrive does exist"
EndIf
WaitKey
Forever
Return |
Comments
| ||
| What is this garbage, and why do you divide the video memory by 8388606? |
| ||
| This would be more useful* if it worked. My 512MB vid card doesn't have (only) 62MB of memory. Sorry to bash on a contribution, but it's broken. And odd. *'more useful'. Not 'useful'. |
| ||
Utterly redundant, since the functionality exists natively in B3D with the GfxDriver3D() function.
Local driver=CountGfxDrivers()
Local n,name$,s$
For n=1 to driver
s$=""
If (Not((GfxDriver3D(n))) Then s$="Not ")
Print "Driver: "+name$+" ("+Str(n)+") is "+s$+" 3D-Capable"
Next
I still don't understand why you insist on using tvm and avm. Also, as I've suggested at least twice now, you should use Shr 20 if you need Megabytes. What is the reason for AvailVidMem () / 8388606??? |
| ||
| 8388606 is 8*1024*1024-2 (I'm not sure why it's 2 less). I can only imagine he's trying to factor bits into this somehow. Either way, having three nearly identical versions of this in the code archives is a bit much. |
| ||
| Why can't you just update the first entry and post that there was an update? You are getting close to spamming at this rate. |
| ||
| While I agree that it would be better to update the first entry (@mark1110: use the Edit link on that page), some of the criticisms here and in the last entry could have been made more politely. |
| ||
| 'politeness' is not polluting up the code archives with garbage. We all like the code archives very much and hate to see it trashed. mark1110, please use the forums instead for this kind of stuff. |
| ||
| We all like the code archives very much and hate to see it trashed. mark1110, please use the forums instead for this kind of stuff. lol. I know you didn't mean it that way, but that's how I read it the first time through. |
| ||
| i need a nice gui for ss5.0 |
| ||
| sorry shaddowturtle there will be no ss5.0 unless there is a way to get information on the sound or moden cards. |
| ||
| ked don,t copy from gw |
| ||
| matty its not grabage ,its fantastic |
| ||
| ked don,t copy from gw Excuse me? |
Code Archives Forum
   |