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

Danke für deine Tipps.... Ich sehe das unsere Denkweise doch sehr ähnelt.... Grund des öffnens dieses treads war mich einfach schlau zu machen was für Sprachen momentan aktuell sind und welche langsam sich verabschieden. Das habe ich vieleicht nicht unbedingt verständlich schildern können. Das Problem ist wie eben erwähnt jeder erzählt dir dann was anderes weil halt die Erfahrungen auseinander gehen und jeder eine andere macht. Da ich mich nicht auf Webdesign spezialisieren möchte habe ich nun PHP ein wenig links liegen lassen , denn Webdesigner gibt es wie sand am Meer. Im moment habe ich ein Privates Projekt das ich in VB schreibe.Weis nicht ob VB eine Sprache ist die noch sehr in betrieben genutzt wird aber wichtig ist ersteinmal wie erwähnt erfahrungen im Programmieren weiter zu haben. Aber wir lassen uns überraschen..... War eine nette Unterhaltung mit dir.....

Du meinst also mich vorneweg nicht verrückt zu machen und abzuwarten was in den Betrieben eigentlich für Sprchen bzw. Vorgehungsweisen herschen? Was für mich im moment wichtig ist, ist das ich ein wenig Sytax von einigen Sprachen gesehen habe und ein wenig kenne. Die Logik eines Programmes ist ansichtsache denn nicht jeder hat die gleiche Logik. Aber ich weis wie schleifen in VB/VBA-PHP geschrieben werden...... Damit meine ich das ich die Grundkenntnisse habe Programmierersprachen zu erlernen. Diese werden meines Wissens nach sich nur in der Sytax unterscheiden aber die Vorgehungsweise wird sich nicht viel ändern. Ich bedanke mich trotzallem für dein guten Rat...... Das meine ich jetzt ernst und ist keine Ironie.......Mit dem Danke....... Bin auch fest davon überzeugt das wenn ich auf ein problem stoßen sollte und mir keiner weiterhelfen kann ich mich darauf verlassen kann das ich hier Hife bekomme, wovon ich das ganze natürlich nicht abhängig mache...Nicht missverstehen..... Ciao

Bitte um entschuldigung aber habe das nicht verstanden was du mit dem 2 Satz meinst. Aber Danke dir für dein zuspruch das ich mir keine gedanken machen soll..... Werde ich auch nicht denn ich werde es Packen , das weis ich....... und mit der Signatur werde es gleich machen , sorry

Also ich bin auch schon 34 ..Ver. und 2 Kinder. Ich werde nun auch eine umschulung antreten. Das Alter ist nicht relevant mehr der Wille. Als ich vor einigen Monaten das erste mal beim Amt war wurde mir auch nahegelegt mich um einen Xbelibiegen Job zu kümmern denn ich würde keine Chance auf eine Ausbildung haben bzw als Fachinformatiker. Ich habe auch kein Abitur. Wenn Ihr es wissen wollt auch kein Realabschluss. Habe mein Eignungstest bestanden ( nachdem ich schon seit über 15 jahre aus der Schule raus bin). Nachdem ich diese aus Eigeniniziative gemacht habe und wieder beim Amt war ( nachdem ich natürlich mehrere Termine hatte und immer Hartneckig war) hat sich mein Einsatz gelohnt. Also ich möchte damit nur sagen das alles machbar ist.....

ich bedanke mich für deinen Beitrag. Ich habe mich mit oop nicht identifizieren können durch die abkürzung. Diese hat mich halt ein wenig iritiert.. Aber du hast vollkommend recht das der Druck in den Betrieben und die erwartungshaltung sehr hoch sein wird. Da mach ich mir aber weniger gedanke, denn ich weis was für ein Bücherwurm ich bin und ein recht gutes aufnahmefähigkeit habe.Werde mein besten tun um in dieser Gesellschaft mein Beitrag leisten zu können in dem ich ein Hobby zum Beruf mache. Ist ja ein absoluter Blödsinn wen ich mich als Mechaniker Umschulen lasse wenn ich diesen Beruf überhaupt nicht als Interesse im Privaten bereich habe. Mit dem PC ist die 1/2 Welt beschäftigt und jeder bezeichnet dieses als Hobby aber nur wenige machen etwas daraus. Ich habe ja betont das ich mich als mittel einstufe in den Sprachen die ich erwähnt habe aber natürlich lernt man nie aus...... Bedanke mich für dein zuspruch und hoffe doch das ich den Ansprüche in dieser Welt gerecht werden kann. ( werde mir Mühe geben) Wer ein Wille hat wird auch seinen Weg finden so wie es auch viele andere Programmierer gibt die aus der Uni kommen und sich Informatiker nennen und können keine eine Sprache bzw Programm schreiben.... Solls auch geben... Also mach mir lieber Mut als mich nieder zu machen.... Danke

Da habe ich einen kleinen Denkfehler gehabt bei dieser Aussage:"Gibt es auch Bücher die dir vieleicht im Stehgreif einfallen, die sich mit oop beschäftigen? ", Sorry

Achso,LOGISCH.... Hätte darauf auch selber kommenmüssen......!!!! Gibt es auch Bücher die dir vieleicht im Stehgreif einfallen, die sich mit oop beschäftigen? Danke ersteinmal.... ciao

@Darkeldar Habe HTML nicht unbedingt als Sprache bezeichnen wollen , sondern in dem Zusammenhang mit dem was ich denke schon ein wenig zu können.Entschuldige wenn es falsch formuliert war..... Aber Bitte erkläre mir mal was oop bzw. oo sein soll. Habe nie was davon gehört. Habe nur eben schnell erlesen können das es was mit der c Sprache zu tun hat. UML habe ich auch schon einmal gehört.Muss im Netz mal besser danach suchen.....Aber wenn du sie mir etwas näher schildern köntest damit ich auch nach gescheiten Turturials oder gar Bücher mich erkundigen kann. @Schiller256 Danke auch an dir für deine Antwort. Dann stelle ich die Frage anders: Was für Sprachen wären geeignet um die Konzepte und Methoden einfacher zu verstehen. IWe erwähnt habe ich schon in VBA/ VB kleinere Programme geschrieben.Taschenrechner und solche kleinigkeiten , die für mich größere refolge waren.... In PHP kleinere Module für meine HP. Verstanden habe ich es auf jeden fall was du in deinem Beitrag meinst. Muss wohl erst einmal schauen denn wo ich mein Praktikum machen werde steht natürlich noch nicht fest, denn ich fange ja erst an mit dieser Umschulung....... Trotzallem Danke für eure Antworten und werde bestimmt hier öffters vorbeischauen demnächst.... ciao

Hallo an alle... Dies ist mein 1. Beitrag in diesem Forum..... Folgendes: Werde im September 06 eine Umschulung als FIAE antreten. Nun,ich möchte mich gerne darauf ein wenig vorbereiten und versuche in Erfahrung zu bringen was für Sprachen als fester Bestandteil in solch einer Ausbildung sind. Ich kenne mich in VBA - PHP - HTML aus.Ich bezeichne mich als mittelstark in diesen Sprachen. Wollte mich nun mit C/C++ bzw C# beschäftigen. Mir wurde aber nahegelegt mich eher mit dem .Net zu beschäftigen, sprich: Visual Basic.Net - C++.Net usw. Nun wieder zu meiner Frage?! Welche Sprachen sind empfehlenswert sich intensiv damit zu beschäftigen um es Später im verlauf der Ausbildung es ein wenig einfacher zu haben? Was sind sozusagen Standartsprachen die man wissen oder können sollte? Weis das der Fachinformatiker in verschiedenen richtungen verstreut ist und ein Schwerpunkt sich mit der zeit ergibt ( Berufsleben ) , aber es gibt doch bestimmt Sprachen die Standart sind... Danke für die Antwort .. Gruß