Teilen = Quotienten bilden = Division       Zurück

Dieses kleine Programm dividiert 2 Zahlen .

Holen Sie sich eine neue Form und benennen Sie diese wie Sie wollen . Holen Sie drei Textboxen aus der Werkzeugkiste . Löschen Sie den Text aus den Textboxen bei den Eigenschaften ( = Properties) Text ( mit der Taste F4). Holen Sie sich einen Befehlsknopf = Commandbutton dazu und benennen Sie diesen in Teilen um.

Verwechseln Sie nicht / mit \ . Beide haben verschiedene Bedeutungen beim Teilen.

Außerdem wird der Befehl Cfloat verwendet . Siehe unten !

Hinter dem Befehlsfeld  Teilen steht folgender Code:

PUBLIC SUB Button1_Click()

• DIM zahl AS Float

• DIM zahl2 AS Float

• DIM q AS Float

• zahl = Val(TextBox1.Text)

• zahl2 = Val(TextBox2.Text)

• q = CFloat(zahl) / zahl2

• TextBox3.Text = Str$(q)

END

Theorie

Mit dem Divisions Zeichen / muß man vorsichtig sein. Wenn seine 2 Operanden ganze Zahlen sind ( = integer) , dann ist das Resultat auch eine ganze Zahl, auch wenn der Quotient nicht genau eine ganze Zahl ist.

Beispielsweise:

DIM Width AS Integer

DIM Height AS Integer

Width = 10

Height = 30

PRINT Width / Height ergibt hier 0 !

Um das richtige Ergebnis zu bekommen, muß man folgendes eingeben.

PRINT CFloat(Width) / Height

Das ergibt das erwartet Ergebnis: 0.33333...

CFloat

Float = CFloat ( Expression )

Wandelt einen Ausdruck in eine Fließkommazahl um. Be careful, the current localization is NOT used by this function.

Beispiel:

PRINT CFloat("+3.1416")

=> 3.1416

PRINT CFloat("1.0E+3")

=> 1000