Problem Ausgabe

Dieses Thema Problem Ausgabe im Forum "Webentwicklung, Hosting & Programmierung" wurde erstellt von Basti0100, 17. Sep. 2002.

Thema: Problem Ausgabe Hi, Ich möchte eine Ausgabe von einer Berechnung machen die in einem Formular stadtfindet. Aber das Problem ist das...

  1. Hi,

    Ich möchte eine Ausgabe von einer Berechnung machen die in einem Formular stadtfindet. Aber das Problem ist das Formular hat nur ein Drucken Button und keinen Berechnen Button. Das heist also es soll in ein Feld die Anzahl eingetragen werden in das nächste der Einzelpreis diese sollen Multipliziert werden und dann im Feld für den gesamtpreis ausgegeben werden. und das alles ohne Button der die berechnung ausführt. Es muss einen Ständige Abfrage sein zwischen den drei Feldern.

    Weis jemand von euch weiter?

    PS.: In Visual Basic
     
  2. Ich habe mal so ein programm programmiert!!!! ;D

    Plazier: einen Timer, drei TextBoxen.
    Schreibe nun den Code in den Form:

    Option Explicit

    Private Sub Form_Load()
    Timer1.Interval = 1
    End Sub

    Private Sub Timer1_Timer()
    Dim A As Integer
    Dim B As String
    Dim Z As String

    If txtAnzahl.Text = Or txtPreis.Text = Then
    Else

    A = txtAnzahl.Text
    B = txtPreis.Text

    Z = A * B

    txtGesamtpreis = Z
    End If
    End Sub


    Dann funktioniert es!! ;)
     
  3. den Ansatz halte ich doch fuer fragwuerdig. Das prob ist neamlich, dass durch den timer auch berechnungen durchgefuehrt werden, wenn das programm im hintergrund laeuft und sich gar nichts aendert. das verschwendet unnoetig rechnenleistung und ressourcen...das faellt zwar bei den einfachen berechnungen nicht wirklich ins gewicht, ist aber dennoch unsauber...besser isses uebern event hanlder...ausserdem multiplizierst du in deinem code zwei zeichenketten, dass is auch nicht so optimal....probierts mal hiermit

    Code:
    Option Explicit
    
    Private Sub Form_Load()
      Text3.Locked = True
    End Sub
    
    Private Sub Text1_Change()
      Call Rechnung
    End Sub
    
    Private Sub Text2_Change()
      Call Rechnung
    End Sub
    
    Private Sub Rechnung()
      Dim foo As Double
      Dim bar As Double
      Dim foobar As String
      If Text1.Text <>  And Text2.Text <>  Then
        foo = CDbl(Text1.Text)
        bar = CDbl(Text2.Text)
        foobar = CStr(foo * bar)
        Text3.Text = foobar
      End If
    End Sub
    
     
  4. Also ich weis nicht aber bei dem zweiten Vorschlag bekomm ich ständig nur Null raus.

    bei mir sieht das jetzt so aus:

    Private Sub AnzahlEingabeeins_Change()
    Call Rechnung
    End Sub

    Private Sub EinzelpreisEingabeeins_Change()
    Call Rechnung
    End Sub

    Private Sub Rechnung()
       Dim anz1 As Double
       Dim einzl1 As Double
       Dim erg As String
       If AnzahlEingabeeins.Text <> And EinzelpreisEingabeeins.Text <> Then
      anz1 = CDbl(AnzahlEingabeeins.Text)
      einzl1 = CDbl(EinzelpreisEingabeeins.Text)
      erg = CStr(einzel1 * anz1)
      GesamtpreisEingabeeins.Text = erg
       End If
    End Sub

    Hab keine ahnung warum das nicht geht.
     
  5. Bei mir geht es! ;D

    Ich habe den Code eingegeben wie oben!!
     
  6. Versuch ichs halt nochmal. ;D
     
  7. ;D Jo Danke hab meinen Fehler gefunden . ;D
     
  8. Mein Laptop hat eine Unterteilung in 2 Festplatten. Eine OS (C) und die zweite lokaler Datenträger (D)
    Nun habe ich alle Daten von der 2. entfernt und der Speicher ist voll. Die Summe meiner Ordner ergeben
    höchstens 10 GB aber mein Verhältnis ist das von 397 GB nur 50 GB frei sind. Bei der Option, sich versteckte Dateien
    und Ordner anzuzeigen kamen aber auch für mich keine zum Vorschein.
    Was kann ich noch machen bzw wie sehe ich, was dort noch gespeichert ist.

    Vielen Dank.
    Christin Ducke
     
  9. Hast Du auch versteckte Systemdaten angezeigt?
    Wenn Du keine Daten mehr auf D: hast, kannst Du D:/ auch formatieren.

    ? Mülleimer Leer?
     
  10. Ja Papierkorb ist lee und ein paar Daten (Spiele) und Programme habe ich noch drauf, ca. 10 GB. Wie kann ich mir versteckte Systemdaten anzeigen lassen?
    Dankeschön.
     
Die Seite wird geladen...

Problem Ausgabe - Ähnliche Themen

Forum Datum
Bluetooth headset ausgabequellen problem Windows XP Forum 7. Jan. 2006
WIN98 erste Ausgabe + K7S8X-E Board: Probleme ! Treiber & BIOS / UEFI 25. Jan. 2004
SEHR DRINGEND: Probleme bei Upgrade auf Windows 7 Windows Vista Forum 13. Nov. 2016
Problem - Laptop mit angeblich win 10 und win 7 Windows 10 Forum 13. Nov. 2016
Dualboot Windows Uhrzeit Problem Windows 10 Forum 10. Nov. 2016