Zum Inhalt springen

ThorstenSt

Mitglieder
  • Gesamte Inhalte

    5
  • Benutzer seit

  • Letzter Besuch

Beiträge von ThorstenSt

  1. Hallo,

    Abd Sabour hat soweit recht.

    Ich nehme mal an, dass dein Prozedur so aussieht

    
    Private Sub AddToText3(Op1 As Double, Op2 As double, Op as String, d as Double) 
    
    
    If Text3.text <> "" Then
    
    Text3.text = Text3.text + vbNewLine
    
    
    Text3.text = Text3.text + CStr(Op1) + vbTab + Op + vbTab + CStr(op2) + vbTab + "=" + vbTab + CStr (d)
    
    
    End Sub

    Mit If Text3.text <> "" Then wird geprüft, ob in Text3 (in der Textbox [diese ist wohl mehrzeilig!]) bereits ein Text drin steht. Wenn ja, wir eine neue Zeile an den Text drangehangen. Ist wie in C das \n.

    Mit Text3.text = Text3.text + CStr(Op1) + vbTab + Op + vbTab + CStr(op2) + vbTab + "=" + vbTab + CStr (d)

    passiert folgendes:

    Op1, Op2, Op und d sind Variablen die an diese Prozedur übergeben wurden.

    Angenommen es steht in diesen Variablen folgendes:

    Op1 = 1

    Op2 = 3

    Op = +

    d = 4

    Dann steht in Text 3:

    1 + 3 = 4

    Wird nun diese Prozedur nochmals aufgerufen mit folgenden Werten:

    Op1 = 2

    Op2 = 4

    Op = *

    d = 8

    dann steht in Text3 folgendes:

    1 + 3 = 4

    2 * 4 = 8

    usw.

    das + Zeichen in Text3.text = Text3.text + CStr(Op1) + vbTab + Op + vbTab + CStr(op2) + vbTab + "=" + vbTab + CStr (d) ist eine StringVerkettung. CStr ist eine vorhandene funktion, die die Variable in Text umwandelt, sprich hier wird die Zahl zum Text konvertiert. Mit vbTab wird ein Tab eingefügt um platz zu schaffen.

    ich hoffe ich konnte helfen.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...