Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Stephanie Gast
|
Verfasst am: 29. Mai 2006 20:51 Titel: Komme nicht weiter |
|
|
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
|
Verfasst am: 30. Mai 2006 18:00 Titel: |
|
|
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
|
Verfasst am: 08. Jun 2006 23:45 Titel: |
|
|
und hat's geklappt?
Gruß
TMS (Gast)
ist zwar Spam, kann ich mir aber trotzdem nicht verkneifen |
|
Nach oben |
|
|
|
|
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
|
|