[-Mr.X-]

Achso natürlich, dass ich da nicht drauf gekommen bin...
Das ist mir jetzt ein bisschen peinlich aber wie macht man das ?

[Daniel88]

VB Einfache Datentypen*click*

Wahrscheinlich is einfach das so gemeint mit Long oder ULong
Statt:

(MyProject.Computer.Info.TotalPhysicalMemory As Int32);

entweder

(MyProject.Computer.Info.TotalPhysicalMemory As Long);

oder

(MyProject.Computer.Info.TotalPhysicalMemory As ULong);

Dieser Beitrag wurde von Daniel88 bearbeitet: 29. Dezember 2008 - 19:32

[Diewie]

Du machst das ja scheinbar irgendwie so:

	Me.ProgressBar2.Maximum = CInt(MyProject.Computer.Info.TotalPhysicalMemory)
	Me.ProgressBar3.Maximum = CInt(MyProject.Computer.Info.TotalPhysicalMemory)
	Me.ProgressBar3.Value = CInt((MyProject.Computer.Info.TotalPhysicalMemory - MyProject.Computer.Info.AvailablePhysicalMemory))
	Me.ProgressBar2.Value = CInt(MyProject.Computer.Info.AvailablePhysicalMemor
y)

Mach es doch einfach so. Lass das Maximum der beiden ProgressBars auf z.B. 1000.
Und dann berechnest du in ULong das Verhältnis Freier Speicher / Gesamter Speicher

Also rein zur Veranschaulichung (in Pseudo VB.NET Code )

Dim lngTotalMem, lngAvailMem as ULong
Dim lngUsedMemFac, lngFreeMemFac as ULong

' Speicherstände einlesen, lngTotalMem muss man nur einmal einlesen
lngTotalMem = MyProject.Computer.Info.TotalPhysicalMemory
lngAvailMem = MyProject.Computer.Info.AvailablePhysicalMemory

' Faktoren berechnen
lngFreeMemFac = lngAvailMem / lngTotalMem
lngUsedMemFac = 1 - lngFreeMemFac

' Stände berechnen
Me.ProgressBar3.Value = CInt(lngFreeMemFac * Me.ProgressBar3.Maximum)
Me.ProgressBar2.Value = CInt(lngUsedMemFac * Me.ProgressBar2.Maximum)

[datalohr]

hm ja also das TerraInfo sieht stark nach programmier anfänger aus...
aber davon abgesehen bei mir keine fehler auf XP 32

Dieser Beitrag wurde von datalohr bearbeitet: 16. Februar 2009 - 14:58

[Tarnatos]

Unter XP x64 treten folgende Fehler auf:
http://www.xup.in/dl,10792145/bug.zip/

[dido]

IP address finder - track ip location