[seem to be solved] KibiByte-Rechner programmieren

[ChristianAC]

Hallo Gemeinde,

ich habe absolut keine Ahnung von Event-Makros, bei Function-Makros sieht es anders aus (siehe mein VideoPoker, http://www.openoffice-forum.de/viewtopic.php?f=5&t=5442. Ich möchte aus einer TextBox z.B. eine "0,5" (für Terabyte) auslesen,wenn ich auf einen Button klicke. Dann soll in eine andere TextBox (oder meinetwegen auch MsgBox; Label gibt es ja wohl nicht in OO) die wahre Terabytezahl übertragen werden. Verrechnet wird das ganze also mit Basis 1024 statt 1000 (die bekannte Mogelpackung bei Kauf eines Speichermediums).

Wie mache ich das? Wer kann mir den Quelllcode geben)?

Mit freundlichem Gruss, Christian aus Aachen

[Stephan]

Label gibt es ja wohl nicht in OO)

Wie kommt man nur zu solchen Aussagen angesichts der TAtsache das Label und Textfeld auf der entsprechenden SYmbolleiste nebeneinander liegen - natürlich gibt es Label

Wer kann mir den Quelllcode geben)?

z.B.:

Code: Alles auswählen

Dim frm_rechner As Object
Dim	dia_rechner As Object


Sub Main
	BasicLibraries.LoadLibrary("Standard")
	DialogLibraries.LoadLibrary("Standard")
	frm_rechner = DialogLibraries.Standard.Dialog1 
	dia_rechner = CreateUnoDialog(frm_rechner)
	dia_rechner.execute()
End Sub

Sub umrechnen()
	tmp = dia_rechner.getControl("TextField1").text
	'Komma gegen Punkt tauschen
	tmp = Split(tmp, ",")
	tmp = Join(tmp, ".")
	dia_rechner.getControl("Label2").text = Val(tmp)/1.024
End Sub

GRuß
Stephan

[ChristianAC]

Das ist ja unglaublich genaial
Genau,was ich suchte

Vielen,vielen Dank

Dann gibt es also Label, so so,da muss ich noch mal hingucken

*gelöst* (wie mache ich das)

[TrueColor]

*gelöst* (wie mache ich das)

Dein Originalposting editieren und im Thema das [gelöst]-Tag davorsetzen

[clag]

Hallo zusammen,

vielleicht ist es ja noch keinem aufgefallen, hier hat sich ein Fehler eingeschlichen.

Das Makro von Stephan tut zwar was ChristianAC hier anspricht

Verrechnet wird das ganze also mit Basis 1024 statt 1000

Code: Alles auswählen

dia_rechner.getControl("Label2").text = Val(tmp)/1.024

Was dabei heraus kommt ist der Umrechnungsfaktor für KB in KiB ~ 1000/1024 =0,9765625

Aber um dieses hier

Ich möchte aus einer TextBox z.B. eine "0,5" (für Terabyte)

zu erreichen ist es mit /1024 nicht getan, auch wenn die Eingabezeile (TB) im Dialog das suggeriert.

1 TB sind nach HD Herstellerdefinition aber 1.000.000.000.000 Byte und die sind demnach durch 1024^4 zu dividieren
was einem Faktor von 0,909494701772928 entspricht.

Die Formel in dem Makro müsste mit "1.000.000.000.000/1024^4" oder mit dem fixen Wert rechnen, also etwa so

Code: Alles auswählen

dia_rechner.getControl("Label2").text = Val(tmp)*1000000000000/1024^4

oder auch

Code: Alles auswählen

dia_rechner.getControl("Label2").text = Val(tmp)*0,909494701772928

um die gewünschte TB = TiB Umrechnung zu erreichen

Dann wird 1 TB mit korrektem Faktor als 0,909494701772928 TiB
und das genannte Beispiel "0,5" TB mit 0,454747350886464 TiB ausgegeben.

Also 1 TB ~ 0,9095 TiB

[Stephan]

Danke für den Einwurf.

Was dabei heraus kommt ist der Umrechnungsfaktor für KB in KiB ~ 1000/1024 =0,9765625

ja, das stimmt.

1 TB sind nach HD Herstellerdefinition aber 1.000.000.000.000 Byte und die sind demnach durch 1024^4 zu dividieren was einem Faktor von 0,909494701772928 entspricht.

da ist wohl was dran, und dessen war ich mir hier nicht bewusst.

(ich schreibe "wohl" weil ich selbst seit Langem nicht mehr nachrechne und auch nicht sicher bin ob es alle Hersteller genau nehmen.)


In anhängender Datei habe ich es mal so korrigiert wie Du es vorschlägst und einen Verweis auf den Thread hier gesetzt.



Gruß
Stephan

[ChristianAC]

Danke allen,
ja,ich hatte auch drüber nachgedacht und sogar entdeckt, dass ich bei einer Floppy-Diskette immer falsch gerechnet hatte (1,40625 dachte ich)
Ich dachte an eine ListBox,aber gut,lassen wir das,ich bin hochzufrieden mit dieser Lösung des für mich schon sehr verzwackten BASIC-Problems

Gruß,Chris

[clag]

Hallo ChristianAC,

die Trickserei fing erst bei den HD Disketten an wo aus "echten 1440 KiB" "falsche 1,44 MB" gemacht wurden es sind "echte 1,40625 MiB" da ist es ganz verzwickt weil die 1440 noch "echte" KiB waren und dann von irgendwelchen "Werbestrategen" einfach zu 1,44 MB ernannt wurden.

Der Bedarf der Differenzierung ist erst m.E. aus dieser Trickserei erwachsen, denn bis dahin war klar wenn von "KB" "MB" also Byte die Rede war, es ist das Binärsystem gemeint 2^X. Die Größenangaben meiner ersten HDs waren wie heute bei Speicherkarten noch im Binärsystem ~ 64 MB - 512 MB. Mit der ersten 1GB HD kam dann auch da die Trickserei.

siehe auch
http://de.wikipedia.org/wiki/Diskette#Formate
http://de.wikipedia.org/wiki/Byte

Bei HDs ist die Angabe der Hersteller rein Dezimal
1 KB = 1.000 Byte
1 MB = 1.000.000 Byte
1 GB = 1.000.000.000 Byte
1 TB = 1.000.000.000.000 Byte

daraus ergibt sich eine 1TB HD hat nach Binär Zählweise 2^10 = 1024 = 1KiB

Code: Alles auswählen

1.000.000.000.000 Byte / 1024^1 (2^10)  =   976562500,0 KiB
1.000.000.000.000 Byte / 1024^2 (2^20)  =   953674,3164 MiB
1.000.000.000.000 Byte / 1024^3 (2^30)  =   931,3225746 GiB
1.000.000.000.000 Byte / 1024^4 (2^40)  =  0,9094947018 TiB

hier ist ein schöner online Byte Calculator
http://www.dr-lex.be/info-stuff/bytecalc.html

Edit:
ein paar fehlende Nullen ergänzt

[ChristianAC]

Liebe Leute,es scheint noch anders zu sein

clag, was Du andeutest:
es sind wirklich ~ 1,44 (zum beschreiben ungefähr nutzbare etwas weniger) bei der Diskette = 1,40625
ich rede jetzt von den Kapazitäten, die mir Windows im Kontextmenü anzeigt.
Ich habe einen Stick mit ~64000000000 Byte, da werden 59,7 GB angezeigt
Das suggeriert:
1024 Byte = 1 kByte
und dann aber: 1000 kByte = 1MByte
1000 MByte = 1GByte
1000 GByte = 1Terabyte
bei der bewussten Festplatte sieht es nämlich genauso aus:
etwas über 0,5 Billionen Byte ergeben 465 GByte
(den Rest hinterm Komma schneidet die Windows-Info übrigens (einfach) ab)
Grüssle, Chris
PS:Nee,jetzt bin ich mir wieder unsicher,oder ich bin ganz blöd egal

[clag]

Hallo ChristianAC,

deine Beobachtung ist doch völlig korrekt und entspricht den zu erwarteten Werten.

MiB_rechnen.png (6.75 KiB) 4102 mal betrachtet

wobei man an der errechneten GiB Angabe schon sieht es lässt sich so nicht "sauber" umrechnen!


Die ehrlichste Arte wäre die Angabe der richtigen Binär Werte

bin-rechnen.png (1.33 KiB) 4102 mal betrachtet

dh

Code: Alles auswählen

GiB .MiB .KiB .Byte

0456.0677.0162.0000  _ deine HD mit 500.000.000.000 Byte hat 
 
0512.0000.0000.0000  _ 512 MiB = 1/2 TiB 

0511.1023.1023.1023  _ 512 MiB = 1/2 TiB - 1 Byte