Problem Ausgabe

• 17.09.2002

• #1

B

Basti0100

Bekanntes Mitglied

Themenersteller

Dabei seit

13.09.2002

Beiträge

54

Reaktionspunkte

0

Ort

irgentwo im nirgentwo

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

 

• 17.09.2002

• #2

A

Alexander16

Bekanntes Mitglied

Dabei seit

26.08.2002

Beiträge

473

Reaktionspunkte

0

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!!

 

• 17.09.2002

• #3

B

bebo

Bekanntes Mitglied

Dabei seit

01.04.2001

Beiträge

55

Reaktionspunkte

0

Ort

Hessisch Lichtenau (bei Kassel)

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!!  

Zum Vergrößern anklicken....

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

 

• 18.09.2002

• #4

B

Basti0100

Bekanntes Mitglied

Themenersteller

Dabei seit

13.09.2002

Beiträge

54

Reaktionspunkte

0

Ort

irgentwo im nirgentwo

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.

 

• 18.09.2002

• #5

A

Alexander16

Bekanntes Mitglied

Dabei seit

26.08.2002

Beiträge

473

Reaktionspunkte

0

Bei mir geht es! ;D

Ich habe den Code eingegeben wie oben!!

 

• 18.09.2002

• #6

B

Basti0100

Bekanntes Mitglied

Themenersteller

Dabei seit

13.09.2002

Beiträge

54

Reaktionspunkte

0

Ort

irgentwo im nirgentwo

Versuch ichs halt nochmal. ;D

 

• 19.09.2002

• #7

B

Basti0100

Bekanntes Mitglied

Themenersteller

Dabei seit

13.09.2002

Beiträge

54

Reaktionspunkte

0

Ort

irgentwo im nirgentwo

;D Jo Danke hab meinen Fehler gefunden . ;D

 

• 11.01.2013

• #8

C

charly22203

Neues Mitglied

Dabei seit

11.01.2013

Beiträge

3

Reaktionspunkte

0

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

 

• 11.01.2013

• #9

M

midiman

Bekanntes Mitglied

Dabei seit

06.10.2002

Beiträge

499

Reaktionspunkte

0

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

? Mülleimer Leer?

 

• 11.01.2013

• #10

C

charly22203

Neues Mitglied

Dabei seit

11.01.2013

Beiträge

3

Reaktionspunkte

0

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.

 

• 11.01.2013

• #11

M

midiman

Bekanntes Mitglied

Dabei seit

06.10.2002

Beiträge

499

Reaktionspunkte

0

Unter Systemsteuerung/Ordneroptionen/ Ansicht/ Geschützte Systemdateien ausblenden.

 

• 11.01.2013

• #12

C

charly22203

Neues Mitglied

Dabei seit

11.01.2013

Beiträge

3

Reaktionspunkte

0

Da kommt auch nicht wirklich etwas anderes zum Vorschein.
Ich weiß mir echt keinen Rat.

 

• 11.01.2013

• #13

M

midiman

Bekanntes Mitglied

Dabei seit

06.10.2002

Beiträge

499

Reaktionspunkte

0

Möglich ein zuordnungsfehler auf der Festplatte.

Gib in der Eingabeaufforderung mal "chkdsk D: /f" ein (ohne "). als Administrator starten.


Ansonsten die restlichen Daten auf eine andere Partition oder externes Laufwerk verschieben und das Laufwerk D: formatieren.