cosimocaputo

Hallo Bin in VB bzw. VBA ein wenig vertraut PHP sag ich auch noch das ich ein wenig was verstehe aber in C/C++ setze ich meine ersten Schritte auf dieser Welt...... Folgendes: Finde den Ansatz nicht um eine Win32 Konsolenanwendung zu stoppen. Das heist wenn meine Anwendung gestartet ist möchte ich diese auch auf der Konsole zu sehen bekommen. Dies ist der Code: #include "iostream" int main () { int i = 4; int j = 5; int k = 8; //plus i+=j; std::cout <<"i = " << i << std::endl; //minus i-=j; std::cout <<"i = " << i << std::endl; //mal i*=j; std::cout <<"i = " << i << std::endl; //geteilt i/=j; std::cout <<"i = " << i << std::endl; return0; [COLOR="Red"]//hier fehlt mir der befehl um die Konsole sichtbar zu halten am besten erst nach einem Tastenschlag.......[/COLOR] } //hier fehlt mir der befehl um die Konsole sichtbar zu halten am besten erst nach einem Tastenschlag....... Kann mir da jemand weiterhelfen..... Danke

und hier natürlich auch die Lösung damit Ihr alle was davon habt: Private Sub cmdKLF_Click(Index As Integer) Dim i As Integer Dim x As Integer Dim VarAntworten As Variant Dim intZufall As Integer Dim a As Integer Dim y As Integer If cmdKLF(0) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\schimpanse.jpg") imgBild.Visible = True lblFrageKL = "Wo ist der Schimpanse zu Haus? " VarAntworten = Array("Südamerika", "Asien", "Afrika") IntAntwort = 0 End If If cmdKLF(1) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\tiger.jpg") imgBild.Visible = True lblFrageKL = "Wie schwer wird ein männlicher Tiger? " VarAntworten = Array("bis zu 80 Kg", "bis zu 180 Kg", "bis zu 280 Kg") IntAntwort = 1 End If If cmdKLF(2) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\ibis.jpg") imgBild.Visible = True lblFrageKL = "Welcher Vogel kann rückwärts fliegen? " VarAntworten = Array("Ibis", "Schwalbe", "Kolibri") IntAntwort = 2 End If If cmdKLF(3) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\pinguine.jpg") imgBild.Visible = True lblFrageKL = "Wie brüten Kaiserpinguine ihr Ei aus? " VarAntworten = Array("im Nest", "unter dem Flügel", "in einer Hautfalte") IntAntwort = 3 End If '[....usw...] i = 70' dies war der Fehler den wir nicht gleich gefunden hatten. For x = UBound(VarAntworten) To 0 Step -1 intZufall = Int((x + 1) * Rnd) frmKinderL.Controls(i).Caption = VarAntworten(intZufall) VarAntworten(intZufall) = "" If x = UBound(VarAntworten) Then a = 1 Else: a = 0 End If For y = 0 To x - a Step 1 If VarAntworten(y) = "" Then VarAntworten(y) = VarAntworten(y + 1) VarAntworten(y + 1) = "" End If Next y i = i - 1 Next x End Sub '----------------------------------------------------------------- Dim VarLösungen As Variant 'Array aller richtigen Lösungen Dim BoolA VarLösungen = Array("Afrika", "bis zu 280 Kg", "Kolibri")'[und weitere....] BoolA = False If (optA.Value = True And lblAntwortA.Caption = VarLösungen(IntAntwort)) _ Or (optB.Value = True And lblAntwortB.Caption = VarLösungen(IntAntwort)) _ Or (optC.Value = True And lblAntwortC.Caption = VarLösungen(IntAntwort)) Then lblTabelle1.Caption = "Glückwunscch" lblTabelle.Caption = "Du hast recht." & vbCrLf & "Deine Antwort ist richtig die wie Folgt lautet:" lblAnt.Caption = CStr(VarLösungen(IntAntwort)) Else lblTabelle1.Caption = "Falsche Antwort" lblTabelle.Caption = "Deine Antwort ist falsch." & vbCrLf & "Die richtige Antwort ist:" lblAnt.Caption = CStr(VarLösungen(IntAntwort)) End If optA.Value = False optB.Value = False optC.Value = False Ein Dank an Dragon8:uli Gruß

Sorry wenn ich lästig erscheine aber wo das "UserForm1.Controls(i).Caption = VarAntworten(intZufall)" Muss da mein frmKinderL hin oder wie ist das gemeint. Steh eucht im moment auf schlauch. Zusatz. Die lblAntwortA lblAntwortB lblAntwotC sind nicht zu sehen. Diese stehen wie du im Bild oben sehen kannst immer neben der Optionsliste. Da müssen die doch mit der VarAntworten zusammengefürt werden oder sonst sehe ich diese nicht..

Hi ist das mit absicht das die Variablen nicht deklariert sin? Bei UBound bekomme ich fehlermeldung das " Erwarte Array" Hier der Code von mir aufgefüllt, wenn du mal drüberschast und kontrollierst ob ich nen Fehler drin habe.... Option Explicit Dim IntAntwort As Integer Dim VarAntworten As Integer Private Sub cmdHauptKL_Click() frmHaupt.Show End Sub Private Sub cmdKLF_Click(Index As Integer) Dim i As Integer Dim x As Integer If cmdKLF(0) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\schimpanse.jpg") imgBild.Visible = True lblFrageKL = "Wo ist der Schimpanse zu Haus? " VarAntworten = Array("Südamerika", "Asien", "Afrika") IntAntwort = 0 End If If cmdKLF(1) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\tiger.jpg") imgBild.Visible = True lblFrageKL = "Wie schwer wird ein männlicher Tiger? " VarAntworten = Array("bis zu 80 Kg", "bis zu 180 Kg", "bis zu 280 Kg") IntAntwort = 1 End If If cmdKLF(2) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\ibis.jpg") imgBild.Visible = True lblFrageKL = "Welcher Vogel kann rückwärts fliegen? " VarAntworten = Array("Ibis", "Schwalbe", "Kolibri") IntAntwort = 2 End If If cmdKLF(3) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\pinguin.jpg") imgBild.Visible = True lblFrageKL = "Wie brüten Kaiserpinguine ihr Ei aus? " VarAntworten = Array("im Nest", "unter dem Flügel", "in einer Hautfalte") IntAntwort = 3 End If If cmdKLF(4) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\strauß.jpg") imgBild.Visible = True lblFrageKL = "Worin halten Strauße Rekorde? " VarAntworten = Array("Sie können so schwer wie ein Tiger werden.", "Sie brüten von allen Vögeln die meisten Eier aus.", "Sie sind die schnellsten Zweibeiner.") IntAntwort = 4 End If If cmdKLF(5) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\rothirsch.jpg") imgBild.Visible = True lblFrageKL = "Wer darf bei den Rothirschen zuerst essen? " VarAntworten = Array("die Jungtiere", "die Weibchen", "die Männchen") IntAntwort = 5 End If If cmdKLF(6) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\kaninchen.jpg") imgBild.Visible = True lblFrageKL = "Wie schnell kann ein flüchtender Hase werden?" VarAntworten = Array("50 Stundenkilometer", "90 Stundenkilometer", "70 Stundenkilometer") IntAntwort = 6 End If If cmdKLF(7) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\storch.jpg") imgBild.Visible = True lblFrageKL = "Was frißt der Weißstorch?" VarAntworten = Array("Knollen, Wurzeln, Frösche", "Heuschrecken, Körner, Grassamen", "Frösche, Mäuse, Regenwürmer") IntAntwort = 7 End If If cmdKLF(8) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\koala.jpg") imgBild.Visible = True lblFrageKL = "Was ist der Koala für ein Tier?" VarAntworten = Array("ein Bär", "eine Raubkatze", "ein Beuteltier") IntAntwort = 8 End If If cmdKLF(9) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\schlange.jpg") imgBild.Visible = True lblFrageKL = "Wie lang können Schlangen werden?" VarAntworten = Array("bis zu 2 Meter", "bis zu 5,5 Meter", "bis zu 9 Meter") IntAntwort = 9 End If If cmdKLF(10) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\echse.jpg") imgBild.Visible = True lblFrageKL = "Wann ändert das Chamäleon seine Farbe?" VarAntworten = Array("Wenn es sich tarnen will.", "Wenn es sich paaren will.", "Wenn es Hunger oder Durst hat.") IntAntwort = 10 End If If cmdKLF(11) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\pferd.jpg") imgBild.Visible = True lblFrageKL = "Welches Geräusch macht das Pferd?" VarAntworten = Array("Brüllen", "Röhren", "Wiehern") IntAntwort = 11 End If If cmdKLF(12) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\schneeeule.jpg") imgBild.Visible = True lblFrageKL = "Wie entdeckt die Eule nachts ihre Beute?" VarAntworten = Array("mit der Nase", "mit den Augen", "mit den Ohren") IntAntwort = 12 End If If cmdKLF(13) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\giraffe.jpg") imgBild.Visible = True lblFrageKL = "Der Mensch hat 7 Halswirbel. Wieviele hat die Giraffe?" VarAntworten = Array("18", "12", "7") IntAntwort = 13 End If ' musste kürzen wegen zuviele zeichen fürs Forum i = 0 For x = UBound(VarAntworten) To 0 Step -1 IntZufall = Int((x + 1) * Rnd) UserForm1.Controls(i).Caption = VarAntworten(IntZufall) VarAntworten(IntZufall) = "" If x = UBound(VarAntworten) Then a = 1 Else: a = 0 End If For y = 0 To x - a Step 1 If VarAntworten(y) = "" Then VarAntworten(y) = VarAntworten(y + 1) VarAntworten(y + 1) = "" End If Next y i = i + 1 Next x End Sub Private Sub cmdStartKL_Click() Dim VarLösungen As Variant 'Array aller richtigen Lösungen VarLösungen = Array("Afrika", "bis zu 280 Kg", "Kolibri", "in einer Hautfalte", "Sie sind die schnellsten Zweibeiner.", "die Männchen", "70 Stundenkilometer", _ "Frösche, Mäuse, Regenwürmer", "ein Beuteltier", "bis zu 9 Meter", "Wenn es Hunger oder Durst hat.", _ "Wiehern", "mit den Ohren", "7", "Das Junge kriecht nach der Geburt selbst hinein.", "200 Jahren", _ "wegen seiner bunten Färbung", "Der Gepard", "Der kleine Fuchs", "Kuckuck", "Für ihr Gedächtnis", _ "Zum Riechen und Atmen", "ein Flusspferd", " 90 Km/h", "WOLFGANG", "der Keller", "der Pils", _ "die Erdbeere", "der Trompeter", "die Zunge", "das Wasser", "der Hahn") BoolA = False If (optA.Value = True And lblAntwortA.Caption = VarLösungen(IntAntwort)) _ Or (optB.Value = True And lblAntwortB.Caption = VarLösungen(IntAntwort)) _ Or (optC.Value = True And lblAntwortC.Caption = VarLösungen(IntAntwort)) Then lblTabelle.Caption = "Glückwunscch" lblTabelle1.Caption = "Du hast recht." & vbCrLf & "Deine Antwort ist richtig die wie Folgt lautet:" lblA.Caption = CStr(VarLösungen(IntAntwort)) Else lblTabelle.Caption = "Falsche Antwort" lblTabelle1.Caption = "Deine Antwort ist falsch." & vbCrLf & "Die richtige Antwort ist:" lblA.Caption = CStr(VarLösungen(IntAntwort)) End If optA.Value = False optB.Value = False optC.Value = False End Sub Private Sub Form_Load() '----------------------------------------------------------- 'Hier wird der Name von der InputBox Übergeben Dim N As String N = frmHaupt.lblName.Caption lblNameKL.Caption = "Hallo " & N lblNameKLÜ = "Beantworte die gestellten Fragen.Du hast immer 3 vordefinierte Antworten und nur eine" _ & " davon ist richtig." & vbCr & "Viel Spaß" '----------------------------------------------------------- End Sub Danke

Hi So wie ich es verstanden habe: In VarLösungen= die ganzen Antworten einfügen..... ---------------------------------------------------------- in Var Antworten= Alle Antwortmöglichkeiten für jede Frage VarAntworten = Array("Südamerika", "Asien", "Afrika") IntAntwort = 3 ' zb. Afrika ist die richtige Antwort VarAntworten = Array("Kolibri","Schwalbe","Ibis") IntAntwort = 1 VarAntworten = Array("die Jungtiere","die Männchen","die Weibchen") IntAntwort = 2 usw....... ---------------------------------------------------------- Lieg ich da richtig oder habe ich das richtig verstanden? Gruß

Danke erst einmal für die ausführliche Antwort. Werde mir den Code anschauen und dann kann ich mich dazu äusern ob ich Ihn verstanden habe oder nicht. Fragen werden bestimmt folgen... Gruß

Hallo Fragen über Fragen....... Aber was man hier mitnehmen kann an Wissen bekommt man nicht so schnell in einem Buch... Also: Ich möchte hier das die Antwort nicht immer Optionfeld C sein soll. Bild: Pfeil_1: Das ist das Optionsfeld das sich immer ändert. das Problem ist das die Antwort monotom ist,sprich sie befindet sich immer auf C weil ich es nicht hinbekomme eine Zufallsantwort zu Coden. Pfeil_2: hier erscheinen Die Fragen wenn man auf einer des Pfeil_6 klickt. Pfeil_3: Wechselnde Bilder die immer wenn man Pfeil_6 klickt sich ändern. Pfeil_4: Hier kommt die Antwort ob richtig oder falsch nachdem man einen von der Optionfeld ausgesucht hat und auf Button Pfeil_5 klickt. Peil_5: Dieser Button ist für die Prüfung der Antwort zuständig Pfeil_6: Hier klickt man um die Fragen gestellt zu bekommen.das möchte ich noch als ein Button System Coden wenn ich mir gedanken gemacht habe wie das geht.... Was suche ich nun: Das habe ich im Prinzip schon oben erwähnt bei Optionsfeld: Ich möchte das wenn ich eine Frage beantworte diese Antwort nicht immer auf C sein sol sondern mal auf B und dann mal auf A und immer im wechsel . Weis das man dies mit dem Befehl RND machen kann aber wie . Kann mir das einer mal erklären , hier der Code der im moment besteht: Option Explicit Private Sub cmdHauptKL_Click() frmHaupt.Show End Sub Private Sub cmdKLF_Click(Index As Integer) If cmdKLF(0) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\schimpanse.jpg") imgBild.Visible = True lblFrageKL = "Wo ist der Schimpanse zu Haus? " lblAntwortA.Caption = "Südamerika" lblAntwortB.Caption = "Asien" lblAntwortC.Caption = "Afrika" End If If cmdKLF(1) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\tiger.jpg") imgBild.Visible = True lblFrageKL = "Wie schwer wird ein männlicher Tiger? " lblAntwortA.Caption = "bis zu 80 Kg" lblAntwortB.Caption = "bis zu 180 Kg" lblAntwortC.Caption = "bis zu 280 Kg" End If If cmdKLF(2) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\ibis.jpg") imgBild.Visible = True lblFrageKL = "Welcher Vogel kann rückwärts fliegen? " lblAntwortA.Caption = "Ibis" lblAntwortB.Caption = "Schwalbe" lblAntwortC.Caption = "Kolibri" End If If cmdKLF(3) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\pinguin.jpg") imgBild.Visible = True lblFrageKL = "Wie brüten Kaiserpinguine ihr Ei aus? " lblAntwortA.Caption = "im Nest" lblAntwortB.Caption = "unter dem Flügel" lblAntwortC.Caption = "in einer Hautfalte" End If If cmdKLF(4) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\strauß.jpg") imgBild.Visible = True lblFrageKL = "Worin halten Strauße Rekorde? " lblAntwortA.Caption = "Sie können so schwer wie ein Tiger werden." lblAntwortB.Caption = "Sie brüten von allen Vögeln die meisten Eier aus." lblAntwortC.Caption = "Sie sind die schnellsten Zweibeiner." End If If cmdKLF(5) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\rothirsch.jpg") imgBild.Visible = True lblFrageKL = "Wer darf bei den Rothirschen zuerst essen? " lblAntwortA.Caption = "die Jungtiere" lblAntwortB.Caption = "die Weibchen" lblAntwortC.Caption = "die Männchen" End If If cmdKLF(6) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\kaninchen.jpg") imgBild.Visible = True lblFrageKL = "Wie schnell kann ein flüchtender Hase werden?" lblAntwortA.Caption = "50 Stundenkilometer" lblAntwortB.Caption = "90 Stundenkilometer" lblAntwortC.Caption = "70 Stundenkilometer" End If If cmdKLF(7) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\storch.jpg") imgBild.Visible = True lblFrageKL = "Was frißt der Weißstorch?" lblAntwortA.Caption = "Knollen, Wurzeln, Frösche" lblAntwortB.Caption = "Heuschrecken, Körner, Grassamen" lblAntwortC.Caption = "Frösche, Mäuse, Regenwürmer" End If If cmdKLF(8) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\koala.jpg") imgBild.Visible = True lblFrageKL = "Was ist der Koala für ein Tier?" lblAntwortA.Caption = "ein Bär" lblAntwortB.Caption = "eine Raubkatze" lblAntwortC.Caption = "ein Beuteltier" End If If cmdKLF(9) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\schlange.jpg") imgBild.Visible = True lblFrageKL = "Wie lang können Schlangen werden?" lblAntwortA.Caption = "bis zu 2 Meter" lblAntwortB.Caption = "bis zu 5,5 Meter" lblAntwortC.Caption = "bis zu 9 Meter" End If If cmdKLF(10) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\echse.jpg") imgBild.Visible = True lblFrageKL = "Wann ändert das Chamäleon seine Farbe?" lblAntwortA.Caption = "Wenn es sich tarnen will." lblAntwortB.Caption = "Wenn es sich paaren will." lblAntwortC.Caption = "Wenn es Hunger oder Durst hat." End If If cmdKLF(11) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\pferd.jpg") imgBild.Visible = True lblFrageKL = "Welches Geräusch macht das Pferd?" lblAntwortA.Caption = "Brüllen" lblAntwortB.Caption = "Röhren" lblAntwortC.Caption = "Wiehern" End If If cmdKLF(12) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\schneeeule.jpg") imgBild.Visible = True lblFrageKL = "Wie entdeckt die Eule nachts ihre Beute?" lblAntwortA.Caption = "mit der Nase" lblAntwortB.Caption = "mit den Augen" lblAntwortC.Caption = "mit den Ohren" End If If cmdKLF(13) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\giraffe.jpg") imgBild.Visible = True lblFrageKL = "Der Mensch hat 7 Halswirbel. Wieviele hat die Giraffe?" lblAntwortA.Caption = "18" lblAntwortB.Caption = "12" lblAntwortC.Caption = "7" End If If cmdKLF(14) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\kaenguruh.jpg") imgBild.Visible = True lblFrageKL = "Wie kommt das neugeborene Känguruh in den Beutel?" lblAntwortA.Caption = "Die Mutter legt Eier und brütet sie aus." lblAntwortB.Caption = "Das Junge kommt im Beutel zur Welt." lblAntwortC.Caption = "Das Junge kriecht nach der Geburt selbst hinein." End If If cmdKLF(15) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\wasserschildkroete.jpg") imgBild.Visible = True lblFrageKL = "Wie alt können Schildkröten werden?" lblAntwortA.Caption = " 60 Jahren" lblAntwortB.Caption = "120 Jahren" lblAntwortC.Caption = "200 Jahren" End If If cmdKLF(16) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\fisch.jpg") imgBild.Visible = True lblFrageKL = "Warum heißt der Clownfisch -Clownfisch- ?" lblAntwortA.Caption = "weil er im Wasser Purzelbäume schlägt" lblAntwortB.Caption = "weil er Grimassen schneidet" lblAntwortC.Caption = "wegen seiner bunten Färbung" End If If cmdKLF(17) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\tiger2.jpg") imgBild.Visible = True lblFrageKL = "Welches ist das schnellste Tier?" lblAntwortA.Caption = "Der Panther" lblAntwortB.Caption = "Der Tiger" lblAntwortC.Caption = "Der Gepard" End If If cmdKLF(18) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\schmetterling.jpg") imgBild.Visible = True lblFrageKL = "Welches ist ein Schmetterling?" lblAntwortA.Caption = "Die lustige Witwe" lblAntwortB.Caption = "Der große General" lblAntwortC.Caption = "Der kleine Fuchs" End If If cmdKLF(19) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\papagei.jpg") imgBild.Visible = True lblFrageKL = "Welcher Vogel legt Eier in fremde Nester?" lblAntwortA.Caption = "Papagei" lblAntwortB.Caption = "Graureiher" lblAntwortC.Caption = "Kuckuck" End If If cmdKLF(20) Then imgBild.Picture = LoadPicture("C:\messagiero\denksport\kinderL\elefant.gif") imgBild.Visible = True lblFrageKL = "Wofür sind Elefanten berühmt?" lblAntwortA.Caption = "Für ihre Reinlichkeit" lblAntwortB.Caption = "Für ihre Vorliebe, lange zu schlafen" lblAntwortC.Caption = "Für ihr Gedächtnis" End If End Sub Private Sub cmdStartKL_Click() Dim strA As String Dim intI As Integer Dim intA As Integer strA = lblAntwortC.Caption 'Variable With cmdKLF For intI = 0 To 20 'Schleife wie offt der durchlauf des Arrays If intA = (optC.Value = False) Then lblTabelle1.Caption = "Glückwunsch!" lblTabelle = "Du hast recht." & vbCrLf & "Deine Antwort ist richtig die wie Folgt lautet" lblAnt = strA Else: intA = ((optB.Value = True) And (optA.Value = True)) lblTabelle1.Caption = "Falsche Antwort" lblTabelle = "Deine Antwort ist falsch." & vbCrLf & "Die richtige Antwort ist:" lblAnt = strA End If intA = (intI) Exit For Next 'Optionsfelder wieder auf Null setzen optA.Value = False optB.Value = False optC.Value = False End With End Sub Private Sub Form_Load() '----------------------------------------------------------- 'Hier wird der Name von der InputBox Übergeben Dim N As String N = frmHaupt.lblName.Caption lblNameKL.Caption = "Hallo " & N lblNameKLÜ = "Beantworte die gestellten Fragen.Du hast immer 3 vordefinierte Antworten und nur eine" _ & " davon ist richtig." & vbCr & "Viel Spaß" '----------------------------------------------------------- 'Optionsfelder lehren optA.Value = False optB.Value = False optC.Value = False '------------------------------------------------------------ End Sub Wie bekomme ich das nun in einer Schleife oder wie auch immer hin? Danke..... messagiero

Ein wenig in Bücher geschnüffelt und auf diese Lösung gekommen....: Private Sub cboDifferenz_Change() '--aktuelle gültigkeit Differenzwert prüfen evtl. korregieren '--..und anschliesend in statischer Variable merken Static nDiffAlt As Integer Dim nDiffKorr As Integer 'Statische variable beim ersten aufruf auf Minimum setzen If nDiffAlt = 0 Then nDiffAlt = DIFFERENZ_MIN End If 'Wert kontrollieren Testen evtl.Laufzeitfehler provozieren On Error Resume Next nDiffKorr = cboDifferenz.Text If Err <> 0 Then 'Laufzeitfehler durch Fehlerhaften Wert '....Eingabe zurücknehmen und nachher Fehler mit Beep melden nDiffKorr = nDiffAlt Else Select Case CInt(cboDifferenz.Text) Case Is > DIFFERENZ_MAX 'auf Maximalwert begrenzen nDiffKorr = DIFFERENZ_MAX Case Is < DIFFERENZ_MIN 'Minimalwert garantieren nDiffKorr = DIFFERENZ_MIN Case Else 'kein Laufzeit - und Überlauf-Fehler If IsNumeric(cboDifferenz.Text) Then 'und keine Eingabefehler, dann nDiffKorr für Fehlererkennung auf Null setzen nDiffKorr = 0 End If End Select End If On Error GoTo 0 'Korektur durchfürhern und Fehler Melden If nDiffKorr <> 0 Then Beep cboDifferenz.Text = nDiffKorr cboDifferenz.SetFocus cboDifferenz.SelStart = 0 cboDifferenz.SelLength = Len(cboDifferenz.Text) End If ' (evtl.korregieren ) Wert merken für nächste Change-Ergebnis nDiffAlt = cboDifferenz.Text 'evtl. Sofort Berechnung durchführen txtDatum_Change End Sub Somit kann man erst gar nicht auf das hoh datum kommen und Buchstaben sind auch nicht erlaubt.... gruß

Alles klar Werde es in die Const DIFFERENZ_INFOTEXT als ausgabe vermerken das es in Jahre in solch eine Summe nicht Möglich ist vorrauszurechnen.In Monate und Tage funktioniert es ja..... Ein Dankeschön an euch

Also einzige Lösung Const runterschrauben auf 7000 und jut is...... ABER: wenn einer das Datum 01.01.2200 eintippt habe ich das Problem auch mit 7000 oder? Wenn ich Minus rechnen lasse ist es auch Falsch. Wie dus machst is ja dann falsch.... Gibt es keine Möglichkeit das Datum in 5 Stellen zu erweitern? Danke

Wenn ich On Error... rausnehme und es laufen lasse ist der Fehler in der Zeile: lblAnzeige.Caption = DateAdd(sDiffEinheit, nDifferenz, txtDatum.Text) Nur ich komme nicht darauf denn Monate und Tage funktionieren und Jahre net... ab 9000 Spinnt er dann.....

Ok Funktioniert. Trotzallem verstehe ich nicht warum wenn mann zb. 9000 in das cbo Feld eintippt und opt auf Jahre stellt er das nicht rechnet ,wenn doch die Const auf MAX 9999 steht..... Danke

Hi Folgendes Problem. Das Prog funktioniert einwandfrei bis auf einen Fehler: Wenn man die Optionfelder auf Jahre stellt und in das Combo Feld eine Zahl ab 9000 aufwärts eingibt wird die MsgBox ( Fehlermeldung) aktiviert und scheint einer unendlich Schleife gleich. Was kann das sein oder was habe ich Falsch gemacht..... Option Explicit 'Pfadangaben Konstanten Const OPERATION_PLUSBILD_PFAD = "C:\Dokumente und Einstellungen\ich\Eigene Dateien\plus.wmf" Const OPERATION_MINUSBILD_PFAD = "C:\Dokumente und Einstellungen\ich\Eigene Dateien\minus.wmf" 'Eingabe der Min und Max mit Infotext Const DIFFERENZ_MIN = 1 Const DIFFERENZ_MAX = 9999 Const DIFFERENZ_INFOTEXT = "Geben Sie eine Zahl zwischen " & DIFFERENZ_MIN & _ " und " & DIFFERENZ_MAX & " ein." Private Sub cboDifferenz_Change() 'Für die reibunglose Sofortrechnung muss dies sein txtDatum_Change End Sub Private Sub cboDifferenz_Click() 'Für die reibunglose Sofortrechnung muss dies sein txtDatum_Change End Sub Private Sub chkRechneSofort_Click() ' Wenn Checkbox Enebled ( Haken ) dann gleiche bedeutung wie Button Rechnen cmdRechnen.Enabled = chkRechneSofort.Value <> vbChecked txtDatum_Change End Sub Private Sub cmdEnde_Click() End End Sub Private Sub cmdRechnen_Click() 'Variabledeklaration addieren und subtrahieren Dim nDifferenz As Integer Dim sDiffEinheit As String 'Zur Unterdrückung des Laufzeitfehlers On Error GoTo DIFFERENZ_INFOTEXT 'Variablewert nDifferenz = cboDifferenz.Text 'If Anweisung If lstOperation.ListIndex = 1 Then nDifferenz = nDifferenz * -1 End If [COLOR="Red"]'Optionsfelder Prozedur sDiffEinheit = "d" If optDiffEinheit(1).Value Then sDiffEinheit = "m" [COLOR="Blue"]ElseIf optDiffEinheit(2).Value Then sDiffEinheit = "YYYY"[/COLOR]End If[/COLOR] 'Laden der Grafiken bei Plus das Pluszeichen und Minus...... If nDifferenz <= 0 Then imgAnzeige.Picture = LoadPicture(OPERATION_MINUSBILD_PFAD) Else imgAnzeige.Picture = LoadPicture(OPERATION_PLUSBILD_PFAD) End If 'Ausgabe der Berechnung lblAnzeige.Caption = DateAdd(sDiffEinheit, nDifferenz, txtDatum.Text) Exit Sub DIFFERENZ_INFOTEXT: Beep MsgBox DIFFERENZ_INFOTEXT cboDifferenz.Text = DIFFERENZ_MIN cboDifferenz.SetFocus cboDifferenz.SelStart = 0 cboDifferenz.SelLength = Len(cboDifferenz.Text) Resume End Sub Private Sub Form_Load() 'das heutige datum ausgeben lblDatumHeute = Date ' Füllen des Listenfeldes lstOperation.AddItem "addieren" lstOperation.AddItem "subtrahieren" ' 0 = Listenfeld 1 ; 1 = Listenfeld 2 usw...... lstOperation.ListIndex = 0 'Füllen des Combolistenfeld cboDifferenz.AddItem "10" cboDifferenz.AddItem "100" cboDifferenz.AddItem "1000" cboDifferenz.ToolTipText = DIFFERENZ_INFOTEXT End Sub Private Sub imgAnzeige_Click() 'Zum Umschalten der Listebox lstOperation.ListIndex = (lstOperation.ListIndex + 1) Mod 2 End Sub Private Sub lstOperation_Click() 'Damit es bei eingestellten Haken addieren und subtrahieren funktioniert 'Vorteil: Ohne Umleitung müßte man Änderungen in allen Ereignisprozeduren 'vornehmen , die eine Umleitung auf die methode txtDatum_Change enthalten txtDatum_Change End Sub Private Sub optDiffEinheit_Click(Index As Integer) 'Umleitung txtDatum_Change End Sub Private Sub txtDatum_Change() 'Eingabe Textfeld If chkRechneSofort.Value = vbChecked Then cmdRechnen_Click End If End Sub Habe im Code den meiner Meinung nach der Fehler besteht mit rotem Text markiert und Blau das von Jahre..... danke für die Hilfe

@Zora genau das ist meine Meinung............ Wer Wille hat der erreicht meiner Meinung nach auch das was man erreichen möchte.......... Gruß

Hier auch ein paar Links: visual-basic vb-tec vb-fun