December 04, 2020, 11:15:41 AM

Author Topic: [bb] ss4.0 by Heliotrope [ 1+ years ago ]  (Read 652 times)

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
[bb] ss4.0 by Heliotrope [ 1+ years ago ]
« on: June 29, 2017, 12:28:43 AM »
Title : ss4.0
Author : Heliotrope
Posted : 1+ years ago

Description : This will check if the cards are 3d capable.

Code :
Code: BlitzBasic
  1. AppTitle "deh - system status4.0"
  2. Graphics 790,800,16,2
  3. tgd = CountGfxDrivers ()
  4. tgm = CountGfxModes ()
  5. tvm = TotalVidMem () / 8388608
  6. Repeat
  7.         Text 10,80,"time : " + CurrentTime()
  8.         Text 10,100,"date : " + CurrentDate()
  9.         Text 10,120, "mouseX : " + MouseX()
  10.         Text 10,140,"mouseY : " + MouseY()
  11.         Text 10,160,"mousez : " + MouseZ()
  12.         Text 10,180,"mousexspeed : " + MouseXSpeed()
  13.         Text 10,200,"mouseyspeed : " + MouseYSpeed()
  14.         Text 10,220,"mousezspeed : " + MouseZSpeed()
  15.         If KeyHit (32) Then Gosub drive
  16.         If JoyType =0 Then Text 10,240,"no joystick"
  17.         If JoyType =1 Then Text 10,240,"digital joystick"
  18.         If JoyType =2 Then Text 10,240,"analog joystick"
  19.         If JoyType >0 Then Text 10,290,"joy x : " + JoyX()
  20.         If JoyType >0 Then Text 10,310,"joy y : " + JoyY()
  21.         If JoyType >0 Then Text 10,330,"joy z : " + JoyZ()
  22.         avm = AvailVidMem () / 8388606
  23.         Text 10,350,"you have " + tgd + " graphics card(s) on your computer"
  24.         Text 10,370,"with a total of " + tgm + " modes and a total memory of "
  25.         Text 10,390, tvm + " megabytes of which " + avm + " megabytes are available"
  26.         l = 410
  27.         g = 0
  28.                 Repeat
  29.                         g=g+1
  30.                         If GfxDriver3D (g)
  31.                                 Text 10,l,"the name of graphics card " + g + " is " + GfxDriverName (g) + " which is 3D-capable"
  32.                                         Else
  33.                                 Text 10,l,"the name of graphics card " + g + " is " + GfxDriverName (a) + " which is NOT 3D-capable"
  34.                                         EndIf
  35.                         l=l+20
  36.                        
  37.                 Until tgd = g
  38.         k = GetKey()
  39.         If k > 0 Then
  40.                 Text 10,260,"keypress : " + k
  41.                 Delay 499
  42.         EndIf
  43.         Delay 101
  44.         Cls
  45. Until KeyHit (1)
  46. End
  47. .drive
  48. Cls
  49. Delay 100
  50. FlushKeys
  51. Repeat
  52.         Locate 200,100
  53.         Print "hidden harddrive checker"
  54.         Locate 200,400
  55.         d$ = Input$ ("What harddrive do you want to check? ")
  56.         If d$ = "exit" Then Exit
  57.         If FileType (d$) = 0 Then Print "this harddrive does not exist"
  58.         If FileType (d$) = 2 Then  
  59.                 Print "this harddrive does exist"
  60.         EndIf
  61.         WaitKey
  62. Forever
  63. Return


Comments :


Matty(Posted 1+ years ago)

 What is this garbage, and why do you divide the video memory by 8388606?


LineOf7s(Posted 1+ years ago)

 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'.


_PJ_(Posted 1+ years ago)

 Utterly redundant, since the functionality exists natively in B3D with the GfxDriver3D() function.
Code: [Select]
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
Code: [Select]
AvailVidMem () / 8388606 ???


N(Posted 1+ years ago)

 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.


Ked(Posted 1+ years ago)

 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.


BlitzSupport(Posted 1+ years ago)

 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.


GW(Posted 1+ years ago)

 '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.


Ked(Posted 1+ years ago)

 <div class="quote"> 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. </div>lol. I know you didn't mean it that way, but that's how I read it the first time through.


ShadowTurtle(Posted 1+ years ago)

 i need a nice gui for ss5.0


Heliotrope(Posted 1+ years ago)

 sorry shaddowturtle there will be no ss5.0 unless there is a way to get information on the sound or moden cards.


Heliotrope(Posted 1+ years ago)

 ked don,t copy from gw


Heliotrope(Posted 1+ years ago)

 matty its not grabage ,its fantastic


Ked(Posted 1+ years ago)

 <div class="quote"> ked don,t copy from gw </div>Excuse me? [/i]

 

SimplePortal 2.3.6 © 2008-2014, SimplePortal