This is my primary workstation. A Dell 8100 that I bought in August of '02, and it still rocks. Vitals are listed below. Along with some non-vitals.
Public Calvin01
As New clsComputer
Public Sub Main()
'define the computer
With Calvin01
.Manufacturer = "Dell"
.Model = "Dimension 8100"
.Color = vbBlack
.Operating_System(0) = "Windows 2000 Professional"
.Operating_System(1) = "Red Hat Linux"
.Components(0).Title = "Hard Drive in Bay 3"
.Components(0).Size = 60 'GB is default
Load .Components(1)
.Components(1).Title = "Geforce2 Ultra"
.Components(1).VRAM = 64 'MB is default
Load .Components(2)
.Components(2).Title = "2 RIMMs"
.Components(2).RAM = 256 'MB is default
Load .Components(3)
.Components(3).Title = "CD-DVD in Bay 1"
Load .Components(4)
.Components(4).Title = "CD-RW in Bay 2"
Load .Components(5)
.Components(5).Title = "Santa Cruz Turtle Beach Soundcard"
.Components(5).Channels = 5.1
Load .Components(6)
.Components(6).Title = "3Com Integraded NIC"
.Components(6).Speed = 100 'MBits/s is default
End With
End Sub
CALVIN02
This is my tried-and-true computer. Well, sort of. How can anything running 9x be true? An IBM built in the era of "95? What's that?", it pales in comparison to CALVIN01, but it's still nice for those old DOS games...
Public Calvin02 As New clsComputer
Public Sub Main()
'define the computer
With Calvin02
.Manufacturer = "IBM"
.Model = "Aptiva"
.Color = vbCream
.Operating_System(0) = "Windows 98 SE2"
.Components(0).Title = "Hard Drive in Bay 2"
.Components(0).Size = 6 'GB is default
Load .Components(1)
.Components(1).Title = "WD Caviar in Bay 3"
.Components(1).Size = 20 / 3 'GB is default, partitioned
Load .Components(2)
.Components(2).Title = "Intel Integraded Graphics Card"
.Components(2).VRAM = 2 'MB is default
Load .Components(3)
.Components(3).Title = "2 RIMMs"
.Components(3).RAM = 81 'MB is default
Load .Components(4)
.Components(4).Title = "CD-ROM in Bay 1"
Load .Components(5)
.Components(5).Title = "Sound Blaster Pro"
.Components(5).Channels = 2
Load .Components(6)
.Components(6).Title = "Linksys NIC in PCI 4"
.Components(6).Speed = 100 'MBits/s is default
End With
End Sub
realizing how outdated they really are...