Achso natürlich, dass ich da nicht drauf gekommen bin...
Das ist mir jetzt ein bisschen peinlich aber wie macht man das ?
-vb.net- Standort Anhand Der Ip Ermitteln?
Anzeige
#17
geschrieben 29. Dezember 2008 - 19:28
VB Einfache Datentypen*click*
Wahrscheinlich is einfach das so gemeint mit Long oder ULong
Statt:
entweder
oder
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
It´s nice to be important, but it´s more important to be nice.
(Einer der dollen Sätze von Scooter)
Take care to get what you like, or you will be forced to like what you get.
(nochmal so einer)
(Einer der dollen Sätze von Scooter)
Take care to get what you like, or you will be forced to like what you get.
(nochmal so einer)
#18
geschrieben 30. Dezember 2008 - 00:06
Du machst das ja scheinbar irgendwie so:
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 )
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)
#19
geschrieben 16. Februar 2009 - 14:37
hm ja also das TerraInfo sieht stark nach programmier anfänger aus...
aber davon abgesehen bei mir keine fehler auf XP 32
aber davon abgesehen bei mir keine fehler auf XP 32
Dieser Beitrag wurde von datalohr bearbeitet: 16. Februar 2009 - 14:58
Das immer alle so negativ eingestellt sind macht mich krank.
#20
geschrieben 16. Februar 2009 - 14:54