Dragon8

Es funktioniert, wie ich es gerade festgestellt habe, wahrscheinlich nicht, weil du versuchst eine falsche bibliothek einzubinden, er diese bei mir jedenfalls nicht. richtig müsste es so heißen: #include <iostream> using namespace std; das "using namespace std;" ist auch insoweit wichtig, da du sonst vor jedes cin oder cout "std::" schreiben müsstest. und sonst befolge wirklich lieber den rat von perdi..

na toll also kannste nun die Eselsbrücke auch vergessen: Mein Vater erklärte mir jeden Sonntag unsere Planeten. für: Merkur, Venus, Erde, Mars, Jupiter, Saturn, Uranus und Pluto

Schau mal ob du irgendwo ne option findest, ob das projekt als "Debug Build" oder als "Release Build" erstellt wird, für die ausführbare Datei musste das "Release Build" auswählen, dann wird in deinem Projektordner nen Ordner mit Namen Release erstellt, wo du datei dann drin liegen müsste, wenn mich nun nicht alles täuscht. SO ist das jedenfalls beim Visual Studio, und so wie es aussieht scheint es hier bei Borland auch nicht ganz anders zu sein.

Also ich bin zwar Fisi, aber wir haben auch Anwender bei unss im Lehrgang und zurzeit gehen wir mit denen noch in eine Klasse und haben die gleichen Fächer. ich weiß nnun nicht ob in jeder Berufsschule das gleiche gelernt wird, ich glaube eher nicht, aber wir haben bei uns im ersten Lehrjahr c++ bekommen, aber von den grundlagen an, also da musste man nichts vorher können um das zu kapieren. ich konnte dazu vorher auch so garnichts. Irgendwann werden die, ich hoffe mal wir fisis auch, noch Java bekommen, aber das weiß ich noch nicht genau, erstmal ist C++ dran. Und die Prüfungen werden bestimmt eher nicht auf deinne Betrieb angepasst werden, da wird das abgefragt werden, was in den Lehrplänen drin steht, den du eigentlich am anfang der ausbildung bekommst.

Also ich glaube melkor das wird es nicht sein, wenn ich das vorher alles richtig verstanden habe, geht er ja auch auf das OSZ IMT, dort gibt es viele verschiedene Turnusse (ist das überhaupt die mehrzahl?), er befindet sich im A/B/C - Turnus, außerdem gibt es noch den X/Y/Z - Turnus, und noch ein paar mehr. Also soweit ich das mitbekommen habe, ist der X/Y/Z -Turnus der, wo du 2 Wochen lang in der Berufsschule bist, und dann erstmal für ca 4 Wochen nicht mehr. Beim A/B/C -Turnus, in welchem ich mich ab diesem jahr auch befinde, hat man nur 1 Woche am Stück unterricht, und dann für ca 2 Wochen frei, bevor der nächste Berufsschuleblock kommt. Letztes Jahr befand sich meien Klasse im X/Y/Z - Turnus und ich muss sagen, ich fand es nicht so toll, man hat dann zwar wenigstens 2 woche am stück, aber die 4 wochen dann, sind manchmal eindeutig zu viel, sodass man dort auch schnell mal so einiges vergessen kann. Ab diesem Jahr bin ich wie gesagt im A/B/C Turnus und hoffe mal dass sich das bessern wird, wird man dann aber sehen. Also ich hatte zwar mal auf die Internetseite des OSZ IMT geschaut, aber ich konnte da leider keinen direkten Plan des A-Turnus finden.

Ja ist ja ok, hab ich ja gesehen, ich weiß garnicht wie man um die uhrzeit morgens schon arbeiten kann aber ich wollte ja nicht das der threadersteller nachher das ding durchlaufen lässt und ne leere liste vor sich sieht ^^ @Threadersteller; also den code hier Sub entfDuplikate() Dim persnr As String Dim row As Integer, row2 As Integer row = 2 'header nicht mitnehmen row2 = row + 1 'eins unter der ersten PerNr anfangen Do While Tabelle1.Cells(row, 1) <> "" persnr = Tabelle1.Cells(row, 1) row2 = row + 1 Do While Tabelle1.Cells(row2, 1) <> "" If Tabelle1.Cells(row2, 1) = persnr Then Tabelle1.Rows(row2 & ":" & row2).Delete Shift:=xlUp End If row2 = row2 + 1 enddo row = row + 1 enddo End Sub einfach bei dir im VB editor in Excel, zum beispiel in ein Modul, einfügen, und F5 drücken, die Daten müssen natürlich in der ersten Tabelle stehen, sonst klappt es nicht. Mit freundlichen Grüßen Dragon8

Befehl zum löschen der Zeile: Tabelle1.Rows(row2 & ":" & row2).Delete Shift:=xlUp Aber was mir noch aufgefallen ist, muss die zweite schleife, welche ja überprüft ob die in der ersten schleife aktuell makierte Pesonalnummer nochmal drin ist, nicht erst eine Zeile darunter anfangen? jetzt fangen sie ja beide bei der ersten Personalnummer an, die erste udn die zweite schleife. also überprüft die zweite schleife dann ja gleich die erste spalte und findet dann ja schon den ersten wert, der mit der zu erst makierten Personalnummer übereinstimmt und löscht ihn raus, was ja bestimmt nicht passieren soll. und das nächste, muss row2 nicht auch jedesmal wenn die erste schleife neu von vorne beginnt wieder zurück gesetzt werden? Dim persnr As String Dim row As Integer, row2 As Integer row = 2 'header nicht mitnehmen [COLOR="red"]row2 = row + 1[/COLOR] 'eins unter der ersten PerNr anfangen Do While Tabelle1.Cells(row, 1) <> "" persnr = Tabelle1.Cells(row, 1) [COLOR="Red"] row2 = row + 1[/COLOR] Do While Tabelle1.Cells(row2, 1) <> "" If Tabelle1.Cells(row2, 1) = persnr Then [COLOR="red"]Tabelle1.Rows(row2 & ":" & row2).Delete Shift:=xlUp[/COLOR] End If row2 = row2 + 1 enddo row = row + 1 enddo Alles rotmakierte habe ich geändert. Mit freundlichen Grüßen Dragon8

@devis; ja haben wir auch schon so geplant, nachem urlaub sprechen wir erstmal ** oder ** an, was nun mit den praktikas ist. genau, deswegen habe ich mich auch gleich für die cisco academy beworben gehabt, und hab nun auch die zusage in der hand, also mal sehen was das damit nächstes jahr wird, in dem fach ist dann wirklcih aufpassen angesagt, ich hoffe mal, dass es dann auch wirklich interessant wird. und das mit dem aufpassen in der bs, also ich bin ja noch einer derer, die es noch soweit durchhalten, nen teil interessiert einen ja auch noch, aber wenn der as lehrer dann zum fünftenmal erklärt wie man mit einem pointer in c++ ein array durchzählt und man es schon beim ersten mal verstanden hat, reicht es. Also ich hatte mich auch schon gedacht, dass die bs irgendwann auch noch wichtig sein wird, nur dieses jahr bin ich selbst auch ein wenig abgerutscht, haben nen neuen lehrer in bp bekommen und natürlich gleich mal die einzige arbeit versaut...naja nächstes jahr wirds besser. und seriennummern haben wir uns auch shcon geholt, das problem ist zurzeit afaik nur noch, dass die wohl nicht gerade so gut funktionieren, hab sie selbst noch niccht ausgetestet, da ich noch keine brauchte, aber die serials sollen wohl auch nur bei den versionen die die bs hat funktionieren, die man sich dann natürlich ebenfallss noch brennen muss. nagut also ich glaube es ist erstmal genug, wir sollten lieber wieder zurück zum topic kommen, aber schön zu wissen dass hier auch noch andere sind, die bei der deutschen rv bund waren

Also ich fahre mit nen paar kumpels ausem lehrgang am wochenende die zwei tage, also samstag und sonntag hin. Und um ehrlich zu sein, es ist das erste mal das ich dorthin fahre, also mal sehen wies dort so ist ^^

@devis; ja, hast mich richtig verstanden, bin gerade mitten in meinen drei wochen urlaub, und dann geht es ab ins zweite ausbildungsjahr. nur das scheint irgendwie noch nicht so perfekt geplant zu sein, weil wir auf unserem ausbildungsplan noch keinen einzigen block praktikum entdecken konnten, was uns auch schon gewundert hat, da es von den ausbildern in nestecs auch schon angekündigt wurde, das wir dann ja bald praktikas haben, naja mal sehen... und ich habe in as, **. also schlimmer geht es nicht mehr, das einzig gute ist, dass er wirklich alles ewig durchkaut. und er ist eine schnarchnase, da will man irgendwann auch nicht mehr zuhören ... was nen großteil dann ja auch tut und dann sieht man was bei rauskommt, ein teil der anwender versteht vom programmieren nichts und die beiden besten programmierer kommen von den fisis genau muss man erstmal sehen, ob es da nun durch die umstellung verbesserungen gibt, aber ich glaube schon,da liegen die berufsschulblöcke endlich zusammen, und so wie ich gehört habe, können wir auch nur durch die umstellung nun auch endlich die cisco academy besuchen, ein großer vorteil *g*

Also ich wollte nur noch anmerken, dass Problem wurde nun außerhalb gelöst, da es so einfacher war, als alles einzeln hier im Forum zu posten. Problem ist also nun gelöst.

@devis02; deswegen scheinen sie nun den plan für die fachis hier in der deutschen rv bund auch umgeändert zu haben, wir haben nun 3 wochen lang Betrieb und dann eine woche osz imt, soweit ich mich da gerade richtig erinnere. letztes ausbildungsjahr war es auch bei uns, dass wir so 5-6 wochen im betrieb waren und dann erst wieder zwei wochen berufsschule, da hat man in der zeit im betrieb schon wieder nen teil vergessen ,was dann wieder in arbeiten dran kam. mal sehen wieder die neue planung dann so ist @topic; also ich habe mit der ausbildung auch erst am 01.09 angefangen, obwohl die ferien ferien ebstimmt schon vorher zu ende waren. wusste garnicht dass es sowas gibt, dass man schon vorher zur schule kann, wir hatten dann aber auch gleich in der ersten woche, nachdem wir zwei tage im betrieb waren, nen berufsschulblock...

gut hast recht, habe ich total vergessen gehabt, das mit reinzusetzten, natürlich muss das Array noch deklariert werden, vor allem da du die Option "Explicit" benutzt. dort wo du auch schon x und i deklarierst, muss auch nochmal noch die deklaration von VarAntworten hin, als Variant, also "Dim VarAntworten as Variant" Was ich auch gerade gesehen habe, die hast es ganz oben als Integer deklariert, das muss weg, dort ganz oben darf nur IntAntworten deklariert werden. Mit freundlichen Grüßen Dragon8

Nagut das dürfte wohl hinkommen, aber schön fand ich es da auf alle fälle. und einkaufmöglichkeiten gibt es da für verpflegung gibt es dort in der nähe auch genügend. Aber Quallen werden dieses jahr glaub an fast keinem strand an der ostsee sein, ich kann es dir zwar nicht versichern, aber so wie es uns eine da erklärt hat, liegt es wohl am wetter dass sie nicht bis vorne an den strand kommen, irgendwas weil es so richtig warm ist.

ne, so meinte ich das nicht. Option Explicit [COLOR="Red"]Dim IntAntwort As Integer[/COLOR] [...] 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? " [COLOR="red"]VarAntworten = Array("Südamerika", "Asien", "Afrika") IntAntwort = 0[/COLOR] 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? " [COLOR="red"]VarAntworten = Array("bis zu 80 Kg","bis zu 180 Kg","bis zu 280 Kg") IntAntwort = 1[/COLOR] 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? " [COLOR="red"]VarAntworten = Array("Ibis", "Schwalbe", "Kolibri") IntAntwort = 2[/COLOR] End If [...] [COLOR="Red"] 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[/COLOR] End Sub Private Sub cmdStartKL_Click() [COLOR="red"] Dim VarLösungen As Variant 'Array aller richtigen Lösungen VarLösungen = Array("Afrika", "bis zu 280 Kg", "Kolibri", "in einer Hautfalte") 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[/COLOR] End Sub [...] So meinte ich das eigentlich, alles rot maktierte ist das was ich an deinem Code verändert habe, und überall wo "[...]" steht habe ich einfach abgekürzt, die anderen oben in den IF-Zweigen müssen natürlich so fortlaufend in allein übernommen werden. Jetzt verstanden? Mit freundlichen Grüßen Dragon8

So es ist wieder Nacht, sodass ich nochmal weiter gemacht habe, da deine Abfrage, ob du Antwort nun richtig gewesen ist oder nicht, dadurch, dass die richtige Antwort nun ja zufällig gesetzt wird, nicht mehr funktioniert. Habe dazu also nun auch noch was geschrieben, Dim VarLösungen As Variant 'Array aller richtigen Lösungen VarLösungen = Array("Afrika", "bis zu 280 Kg", "Kolibri", "in einer Hautfalte") 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 Das Einzige was du hier noch verändern müsstest, ist der Array mit den richtigen Antworten, dort müsstest noch alle in der richtigen Reihenfolge eintragen. Was weiterhin noch nachzutragen ist: Dim VarAntworten As Variant 'Array für die Antwortmöglichkeiten Dim IntZufall As Integer 'Zufallszahl Dim x As Integer, i As Integer, y As Integer, a As Integer 'Schleifenvariablen VarAntworten = Array("Südamerika", "Asien", "Afrika") [COLOR="Red"] IntAntwort = 0[/COLOR] 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 das ist nochmal der Code den ich dir gestern hier schon geschickt hatte. Nur die rotmakierte Stelle ist nachzutragen. die kommt einfach wie der Antworten-Array darüber mit in jeden If-Zweig, als Wert wird jedesmal der passende Indexwert zugewiesen, welchen die auch schon direkt bei der Abfrage von "cmdKLF" benutzt. Außerdem muss die Variable IntAntwort noch für alle Subs in der dieser Userform gültig deklariert werden. Also einfach ganz oben über allen Subs "Dim IntAntwort As Integer" eintragen, dann dürfte alles so funktionieren. Ich hoffe mal ich habe alles so hineinbekommen, was auch bei dir schon mit drin war, da ich deinen Code an dieser Stelle aber nicht so ganz verstanden hatte, könnte auch sein das noch was fehlt. Und falls was unverständlich ist, kannst du natürlich einfach nachfragen, kein Problem. MIt freundlichen Grüßen Dragon8

@beetFreeQ; Also ich war mit drei anderen leuten letzte woche auch an der ostsee zelten, wir waren in Graal Müritz. Der campingplatz dort direkt am Strand ist zwar recht schön, auch sehr sauber muss ich sagen. Doch zurzeit scheint er durch die ferien auch sehr gefüllt zu sein und außerdem haben wir uns sehr erschrocken als wir die rechnung am ende bekommen haben. Wir waren 2 tage mit 4 personen in 2 zelten und nem auto dort, und mussten dann 76,- € dafür bezahlen, was ich schon sehr teuer finde, wobei dort die verpflegung noch nicht eingerechnet war. Sonst war er aber sehr gut, direkt am meer gelegen, wir hatten uns auch einen platz sehr nah dran gesucht, wodurch das meer nur noch ca 50 m entfernt war. Der strand und das meer dort sind auch in ordnung, zwar kein feiner sandstrand, da noch steine im sand waren, aber es war in ordnung. das wasser war auch super, zurzeit sind gar keine quallen im wasser und sonst ist es eigentlich auch sauber gewesen. also eigentlich sehr zu empfehlen, wenn der preis nicht wäre...

So ich habe mich mal rangesetzt und hoffe ich kann dir damit ein wenig helfen. Insgesamt sieht der Quellcode für das Problem von dir bei mir so aus: Dim VarAntworten As Variant 'Array für die Antwortmöglichkeiten Dim IntZufall As Integer 'Zufallszahl Dim x As Integer, i As Integer, y As Integer, a As Integer 'Schleifenvariablen VarAntworten = Array("Südamerika", "Asien", "Afrika") 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 Und folgendermaßen habe ich es mir gedacht, wie du das in deinen Quellcode einbinden könntest. Beim Aufruf deiner Sub deklarierst du die Variablen, Dim VarAntworten As Variant Dim IntZufall As Integer Dim x As Integer, i As Integer, y As Integer, a As Integer Dann ersetzt du in jedem If-Zweig, wo du bisher die Antwortmöglichkeiten direkt den Optionsfeldern zuweist, diese drei Zeilen einfach durch die Initialisierung des Arrays. natürlich mit den jeweilig richtigen Antwortmöglichkeiten, habe hier erstmal nur die Antworten für die erste Frage genommen VarAntworten = Array("Südamerika", "Asien", "Afrika") Und dann bevor deine Sub beendet wird, fügst du den Rest des Quellcodes ein. [COLOR="Red"]i = 0[/COLOR] 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 Was außerdem noch zu beachten ist, die Initialisierung der Variable i (hier rot makiert) muss bei dir höchstwahrscheinlich angepasst werden. Welcher Wert dieser Variablen zugewiesen werden muss, erfährst du durch diese Funktion: Sub CountControls() Dim con As Control Dim i As Integer i = 0 For Each con In [COLOR="Red"]UserForm1[/COLOR].Controls Debug.Print i & " " & con.Name i = i + 1 Next con End Sub Füg sie einfach in einem neuen Modul ein und pass auch hier den rot makierten Namen an, dort muss der Name deiner Userform rein.wenn du sie dann durchlaufen lässt, wird dir eine Liste der Steuerelemente deiner Userform angezeigt, ich hoffe inständig, dass die die drei Label zu den Optionsfelden hintereinander erstellt hast, dann suchst du dir einfach 'lblAntwortA' aus der Liste raus, die anderen beiden müssten dann ja danach kommen, und trägst die Zahl die davor steht einfach als Wert in der Variable i ein. Falls du die drei Label nicht hintereinander erstellt, sonder dazwischen noch andere Steuerelemente, müsste es helfen, wenn du alle drei Label einmal löscht und neu erstellst, dann dürften sie am Ende der Liste auftauchen. So ich hoffe mal ich habe nichts vergessen, es war alles so gut verständlich wie ich es hier geschildert habe und es funktioniert bei mir. Mit freundlichen Grüßen Dragon8

ok, danke euch beiden für die Hilfe, habe es hier zu hause gleich mal ausprobiert und es hat geklappt, werd es dann morgen auf arbeit auch gleich mal ausprobieren. dann dürfte dem Beenden des Projektes endlich nichts mehr im Wege stehen. also nochmal danke

Also ich habe in Word im Dokument ein Textformatfeld, außerdem habe ich eine Userform, auf der sich eine Textbox und eine Button befindet. Ich möchte nun, dass wenn man auf den Button klickt der Text, der sich in der Textbox bedindet, in das Formatfeld geschrieben wird. Soweit ja kein Problem, aber es wird zu einem, wenn ich die Textbox zu einer mehrzeiligen Textbox mache; mit der EnterKeyBehavior- und der Multiline-Eigenschaft auf True. Wenn ich nun den Text übertragen möchte, schreibt er in das Formatfeld anstatt der Zeilenumbrüche zwei Quadrate welches meiner Meinung nach die Steuerzeichen für Zeilenvorschub und und Wagenrücklauf darstellen sollen. Kann mir nun jemand einen Tipp geben, wie ich es hinbekomme, dass er einen richtigen Zeilenumbruch dorthin schreibt? Code zum übertragen des Textes: Private Sub CommandButton1_Click() ActiveDocument.FormFields(1).Result = UserForm1.TextBox1.Text End Sub Dies ist nur ein Beispielcode, meinen richtigen Code kann ich leider nicht posten, da ich ihn auf Arbeit habe, es dort aber nicht ins Internet kopieren kann.