Zum neuen Informatik-Forum >>
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren   ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

Komme nicht weiter

 
Dieses Forum ist gesperrt, du kannst keine Beiträge editieren, schreiben oder beantworten.   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.    Informatikerboard.de Foren-Übersicht -> Visual Basic
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Stephanie
Gast





BeitragVerfasst am: 29. Mai 2006 20:51    Titel: Komme nicht weiter Antworten mit Zitat

Hallo zusammen,
ich lerne gerad für Info, aber ich kann das einfach nicht mit der Ausagbe.
Kann mir vielleicht jemand sagen wie ich das Programm zu Ende bekomme?
Ich muss auch irgendwas mit:
MsgBox("der beste Anbieter für Sie ist: " & " Sie müssen einen Monat lang den Preis von....
einfügen.
Wäre echt lieb wenn ihr mir helfen würdet.
Option Explicit
Const strcAnbieter1 = "e-Plus Professional S "
Const strcAnbieter2 = "Vodafone Sun"
Const strcAnbieter3 = "Telnet Telly Profi"
Const curcGrundgebühr1 = 10
Const curcGrundgebühr2 = 4.95
Const curcGrundgebühr3 = 29.95
Const curcMindestumsatz1 = 0
Const curcMindestumsatz2 = 5
Const curcMindestumsatz3 = 0
Const curcHauptzeit1 = 0.3
Const curcHauptzeit2 = 0.49
Const curcHauptzeit3 = 0.15
Const curcNebenzeit1 = 0.3
Const curcNebenzeit2 = 0.19
Const curcNebenzeit3 = 0.15
Const curcWochenend1 = 0.3
Const curcWochenend2 = 0.09
Const curcWochenend3 = 0.09

Dim sngMinutenHauptzeit As Single
Dim sngMinutenNebenzeit As Single
Dim sngMinutenWochenende As Single
Dim curKosten1 As Single
Dim curKosten2 As Single
Dim curKosten3 As Single
Dim strbesterAnbieter As String
Dim curbesteKosten As Single


Private Sub cmdTarifvergleich_Click()
Eingabe
Verarbeitung
Ausgabe
End Sub

Private Sub Eingabe()
sngMinutenHauptzeit = InputBox("Bitte geben Sie die Zeit in Minuten an," & Chr(13) & " die Sie wöchentlich in der Hauptzeit vertelefonieren", "Hauptzeit", 2)
sngMinutenNebenzeit = InputBox("Bitte geben Sie die Zeit in Minuten an," & Chr(13) & " die Sie wöchentlich vertelefonieren", "Wöchentlich", 2)
sngMinutenWochenende = InputBox("Bitte geben Sie die Zeit in Minute an," & Chr(13) & " die Sie am Wochenende vertelefonieren", "Wochenende", 2)
End Sub

Private Sub Verarbeitung()
curKosten1 = curcHauptzeit1 * sngMinutenHauptzeit + curcNebenzeit1 * sngMinutenNebenzeit + curcWochenend1 * sngMinutenWochenende
If curKosten1 > curcMindestumsatz1 Then
curKosten1 = curKosten1 + curcGrundgebühr1
Else
curKosten1 = curcMindestumsatz1 + curcGrundgebühr1
End If

curKosten2 = curcHauptzeit2 * sngMinutenHauptzeit + curcNebenzeit2 * sngMinutenNebenzeit + curcWochenend2 * sngMinutenWochenende
If curKosten2 > curcMindestumsatz2 Then
curKosten2 = curKosten2 + curcGrundgebühr2
Else
curKosten2 = curcMindestumsatz2 + curcGrundgebühr2

End If

curKosten3 = curcHauptzeit3 * sngMinutenHauptzeit + curcNebenzeit3 * sngMinutenNebenzeit + curcWochenend3 * sngMinutenWochenende
If curKosten3 > curcMindestumsatz3 Then
curKosten3 = curKosten3 + curcGrundgebühr3
Else
curKosten3 = curcMindestumsatz3 + curcGrundgebühr3
End If

End Sub

Private Sub Ausgabe()

End Sub



Gruß
Stephanie
Nach oben
Gast






BeitragVerfasst am: 30. Mai 2006 18:00    Titel: Antworten mit Zitat

Code:
Private Sub Ausgabe()
Dim A As String
Dim B As Single

If (curKosten1 < curKosten2 And curKosten1 < curKosten3) Then
    A = strcAnbieter1
    B = curKosten1
End If
If (curKosten2 < curKosten1 And curKosten2 < curKosten3) Then
    A = strcAnbieter2
    B = curKosten2
End If
If (curKosten3 < curKosten2 And curKosten3 < curKosten1) Then
    A = strcAnbieter3
    B = curKosten3
End If
 MsgBox ("der beste Anbieter für Sie ist: " & A & Chr(13) & _
 " Sie müssen einen Monat lang den Preis von EUR " & B & "  bezahlen")
End Sub
Nach oben
Gast






BeitragVerfasst am: 08. Jun 2006 23:45    Titel: Antworten mit Zitat

und hat's geklappt?

Gruß
TMS (Gast)

ist zwar Spam, kann ich mir aber trotzdem nicht verkneifen Augenzwinkern
Nach oben
Beiträge der letzten Zeit anzeigen:   
Dieses Forum ist gesperrt, du kannst keine Beiträge editieren, schreiben oder beantworten.   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.    Informatikerboard.de Foren-Übersicht -> Visual Basic Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum nicht herunterladen