Umrechnung Arabische Zahlen in Römische Zahlen        zurück

Dieses kleine Programm berechnet Römische Zahlen nach Eingabe einer Arabischen Zahl.

Hinter dem Befehlsfeld Umrechen steht folgender Programmcode

Sub Befehl1_Click ()

• azahl = text2.Text ' azahl = arabische Zahl als Textstring
• az = Val(azahl) ' az = arabische Zahl als Zahl
  • If az < 10 Then f = 1 'f = Zahl der Stellen
  • If az > 9 And az < 100 Then f = 2
  • If az > 99 And az < 1000 Then f = 3
  • If az > 999 Then f = 4
  • If az > 3999 Then MsgBox ("Größere Zahlen als 3999 kannten die Römer nicht"): text2.Text = "": text2.SetFocus : Exit Sub

Rem Umrechnung der Zahlen von 1 - 9

ziffer = Mid$(azahl, f, 1) : rem holt sich aus der azahl den letzten Buchstaben = Einer = Ziffern

• If ziffer = "1" Then rziffer = "I"
• If ziffer = "2" Then rziffer = "II"
• If ziffer = "3" Then rziffer = "III"
• If ziffer = "4" Then rziffer = "IV"
• If ziffer = "5" Then rziffer = "V"
• If ziffer = "6" Then rziffer = "VI"
• If ziffer = "7" Then rziffer = "VII"
• If ziffer = "8" Then rziffer = "VIII"
• If ziffer = "9" Then rziffer = "IX"

If f = 1 Then text1.Text = rziffer ' rziffer ist der Textstring der römischen Zahl

Rem Umrechnung der 2.Stelle = Zehner Zahlen = 10 - 90

• If f = 1 Then rzehner = "" Else zehner = Mid$(azahl, f - 1, 1)
• If zehner = "1" Then rzehner = "X"
• If zehner = "2" Then rzehner = "XX"
• If zehner = "3" Then rzehner = "XXX"
• If zehner = "4" Then rzehner = "XL"
• If zehner = "5" Then rzehner = "L"
• If zehner = "6" Then rzehner = "LX"
• If zehner = "7" Then rzehner = "LXX"
• If zehner = "8" Then rzehner = "LXXX"
• If zehner = "9" Then rzehner = "XC"
• If f = 2 Then text1.Text = rzehner + rziffer

Rem Umrechnung der 3.Stelle = Hunderter Zahlen = 100 - 900

If f = 1 Or f = 2 Then rhunderter = "" Else hunderter = Mid$(azahl, f - 2, 1)

• If hunderter = "1" Then rhunderter = "C"
• If hunderter = "2" Then rhunderter = "CC"
• If hunderter = "3" Then rhunderter = "CCC"
• If hunderter = "4" Then rhunderter = "CD"
• If hunderter = "5" Then rhunderter = "D"
• If hunderter = "6" Then rhunderter = "DC"
• If hunderter = "7" Then rhunderter = "DCC"
• If hunderter = "8" Then rhunderter = "DCCC"
• If hunderter = "9" Then rhunderter = "CM"
• If f = 3 Then text1.Text = rhunderter + rzehner + rziffer

If f = 1 Or f = 2 Or f = 3 Then rtausender = "" Else tausender = Mid$(azahl, f - 3, 1)

• If tausender = "1" Then rtausender = "M"
• If tausender = "2" Then rtausender = "MM"
• If tausender = "3" Then rtausender = "MMM"
• If tausender = "4" Then rtausender = "MMMM"
• If tausender = "5" Then rtausender = "MMMMM"
• If tausender = "6" Then rtausender = "MMMMMM"
• If tausender = "7" Then rtausender = "MMMMMMM"
• If tausender = "8" Then rtausender = "MMMMMMMM"
• If tausender = "9" Then rtausender = "MMMMMMMMM"
• If f = 4 Then text1.Text = rtausender + rhunderter + rzehner + rziffer

befehl2.SetFocus

End Sub

Hinter dem Befehlsfeld Üben steht folgender Code:

Sub Befehl4_Click ()

• text2.Text = 2

End Sub

Exit sub

Exit Sub verläßt sofort die Sub-Prozedur, in der die Anweisung auftrat. Die Programmausführung wird mit der Anweisung fortgesetzt, die der Anweisung folgt, mit der die Sub-Prozedur aufgerufen wurde.

In obigem Programm wird der Ausrechnen Befehl abgebrochen , wenn eine Fehleingabe im Textfeld 1 oder 2 erfolgte. So kann verhindert werden , daß eine Rechnung mit unsinnigen Zahlen zum Programmabruch führt.

CDbl

Der Befehl CDbl wandelt einen beliebigen gültigen Ausdruck in eine genaue numerische Zahl vom Typ Double um.

Double  = Gleitkommazahl mit doppelter Genauigkeit

Abkürzung #    

Platzbedarf 8 Bit

Gültiger Zahlen Bereich

• -1,79769313486232E308 bis -4,94065645841247E-324
  • für negative Werte;
• 0
• 4,94065645841247E-324 bis 1,79769313486232E308
  • für positive Werte

Log

Der Befehl log berechnet den natürlichen Logarithmus einer Zahl.

Syntax    Log(Zahl)

Anmerkungen

Das Argument Zahl kann ein beliebiger zulässiger numerischer Ausdruck sein, der größer als 0 sein muß. Der natürliche Logarithmus ist der Logarithmus zur Basis e. Die Konstante e entspricht ungefähr dem Wert 2,718282.

Sie können den Logarithmus zur beliebigen Basis n für jede Zahl x berechnen, indem Sie den natürlichen Logarithmus von x wie folgt durch den natürlichen Logarithmus von n dividieren:

Logn(x) = Log(x) / Log(n)