Smilla
-
Gesamte Inhalte
177 -
Benutzer seit
-
Letzter Besuch
Inhaltstyp
Profile
Forum
Downloads
Kalender
Blogs
Shop
Beiträge von Smilla
-
-
In VBScript gibt es "Len" ich probiers in VB6 jetzt einfach mal aus, danke
-
Deine Idee klingt gut
Wie mache ich das mit dem String? Das der genauso viele Striche hat wie das Wort Buchstaben? Und das ersetzen dann?
Also angefangen hab ich jetzt mit einer Inputbox in die das Wort eingetragen wird, dann wirds in einer Variable gespeichert.
-
Naja also ich würde sagen mit dem Bild von dem hängendem Mänchen wäre es am einfachsten wenn das lauter Bilder wären wo jedesmal ein Teil mehr drauf wäre, als wenn du Bilder der einzelnen Teile hast.
So meinte ich auch, hatte mich wohl etwas ungeschickt ausgedrückt
Zum Rest sag ich später/morgen was, und probiere es, mache gleich Feierabend! :e@sy
-
Hallo zusammen,
meine neue Aufgabe ist es jetzt, in VB 6 (mit Visual Studio) ein HangMan Spiel zu programmieren.
Ich weis grad allerdings nicht wirklich wie ich das ganze nun angehen soll…
Die Oberfläche hab ich, es sind lauter einzelne bmp. Dateien aus denen sich dann das Männchen bei jedem falschen Buchstaben zusammensetzt.
Am Anfang steht eine Inputbox, in die das Wort das später erraten werden soll eingegeben wird.
Weiter bin ich noch nicht und weis ich im momment nicht.
In der Zeile, in die der Benutzer nachher die geratenen Buchstaben eingibt, müssen ja noch Stiche, so viele wie viel Buchstaben das Wort hat. Wie mache ich das?
Und dann müssen ja irendwie das vorher in einer variable gespeicherte Wort und jeder eingegebene Buchstabe verglichen werden. Wer hat mir da nen heißen Tipp dazu?
Ich steh voll aufm Schlauch…
Danke schon mal :-)
-
Wir schreiben das immer im Geschäft, wenn mans täglich macht ist das ja in 2 Min. erledigt! Haben da so ein Zeiterfassungsprogramm aus welchem dann auch das Berichtsheft generiert wird.
Wenn wir Berufschule hatten, schreibe ich das Berichtsheft immer am ersten Tag nach meinem Schulblock
-
Also die Erstuntersuchung wurde bei mir durchgeführt. War zu Beginn der Ausbildung knapp 17. Bin jetzt im 2. Jahr und bin 18, also entfällt die Nachuntersuchung ja bei mir, oder?
-
Ich hab die Aufgabe mit VB 6.0 einen Taschenrechner zu programmieren so wie der Windows taschenrechner.
Ich arbeite mit Visual Studio.
Ich hab das Formular jetzt entworfen mit den Buttons und so.
Aber ich hab keine Ahnung wie ich das ganze jetzt angehen soll.
Also als erstes quasi, das wen ich auf den Button mit der Zahl 1 drücke, das es dann im Textfeld die Zahl 1 reinschreibt usw.
Ich hab keine Ahnung!
Gibts da im Internet irgendwo ne ausführliche Seite wo man da mal bissle nachschlagen kann??
-
Das ist auch mein Problem, habe viel Fahrtkosten aber da ich jetzt auch im 2. Lehrjahr noch keine Steuern zahle kann ich auch nichts absetzen.
Hab extra meinen Vater gefragt, der ist Diplom Betriebswirt.
-
Also bei uns gibt es den Azubi-Springerdienst. Ist so ne Art Botengang. Das ist morgens und abends Post holen/wegbringen, kleine EInkäufe tätigen usw.
Manchmal auch andere Dinge noch, irgendwelche Erledigungen eben die auf die Azubis abgeschoben werden.
Wir teilen uns selber für den Springerdienst ein. Und ich schreib das auch ins Berichtsheft, also ich schreib da halt Springerdienst rein und die Stunden die ich dafür aufgewendet habe. Aber ich schreibe keine Details meines Springerdienstes rein
-
Jetzt ein bisschen differenziertere Angaben, außerdem soll ich jetzt erstmal beginnen das AD auszulesen und erst wenn ich das kapiert hab, was reinschreiben
Hab mir von diesem Tool http://www.computerperformance.co.uk/Logon/LDAP_attributes_ADSIEdit.htm ein Script zum auslesen (will erst mal da AD auslesen bevor ich versuch was reinzuschreiben
) erstellen lassen. Jetzt sollte man da aber irgendwo den LDAP-Pfad eintragen, Problem: Wie finde ich den korrekten LDAP Pfad heraus?So sieht das generierte Script aus:
strContainer = "Users" strName = "EzAdGroup" On Error Resume Next '*********************************************** '* Connect to an object * '*********************************************** Set objRootDSE = GetObject("LDAP://rootDSE") If strContainer = "" Then Set objItem = GetObject("LDAP://" & _ objRootDSE.Get("defaultNamingContext")) Else Set objItem = GetObject("LDAP://cn=" & strName & "," & strContainer & "," & _ objRootDSE.Get("defaultNamingContext")) End If '*********************************************** '* End connect to an object * '*********************************************** WScript.Echo VbCrLf & "** General Properties Page**" WScript.Echo "** (Single-Valued Attributes) **" strname = objItem.Get("name") WScript.Echo "name: " & strname strsamAccountName = objItem.Get("samAccountName") WScript.Echo "samAccountName: " & strsamAccountName strdescription = objItem.Get("description") WScript.Echo "description: " & strdescription strmail = objItem.Get("mail") WScript.Echo "mail: " & strmail WScript.Echo VbCrLf & "** General Properties Page**" WScript.Echo "** (The groupType attribute) **" Set objHash = CreateObject("Scripting.Dictionary") objHash.Add "ADS_GROUP_TYPE_GLOBAL_GROUP", &h2 objHash.Add "ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP", &h4 objHash.Add "ADS_GROUP_TYPE_UNIVERSAL_GROUP", &h8 objHash.Add "ADS_GROUP_TYPE_SECURITY_ENABLED", &h80000000 intgroupType = objItem.Get("groupType") For Each Key in objHash.Keys If objHash(Key) And intgroupType Then WScript.Echo Key & " is enabled." Else WScript.Echo Key & " is disabled." End If Next If intgroupType AND objHash.Item("ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP") Then WScript.Echo "Group Scope: Domain Local Group" ElseIf intGroupType AND objHash.Item("ADS_GROUP_TYPE_GLOBAL_GROUP") Then WScript.Echo "Group Scope: Global Group" ElseIf intGroupType AND objHash.Item("ADS_GROUP_TYPE_UNIVERSAL_GROUP") Then WScript.Echo "Group Scope: Universal Group" End If If intgroupType AND objHash.Item("ADS_GROUP_TYPE_SECURITY_ENABLED") Then WScript.Echo "Group Type: Security" Else WScript.Echo "Group Type: Distribution" End If WScript.Echo VbCrLf & "** Managed By Properties Page**" WScript.Echo "** (Single-Valued Attributes) **" strmanagedBy = objItem.Get("managedBy") WScript.Echo "managedBy: " & strmanagedBy If strmanagedBy <> "" Then Set objItem1 = GetObject("LDAP://" & strManagedBy) WScript.Echo "physicalDeliveryOfficeName: " & _ objItem1.physicalDeliveryOfficeName WScript.Echo "streetAddress: " & _ objItem1.streetAddress WScript.Echo "l: " & _ objItem1.l WScript.Echo "c: " & _ objItem1.c WScript.Echo "telephoneNumber: " & _ objItem1.telephoneNumber WScript.Echo "facsimileTelephoneNumber: " & _ objItem1.facsimileTelephoneNumber End If WScript.Echo VbCrLf & "** Member Properties Page**" WScript.Echo "** (MultiValued Attributes) **" strmember = objItem.GetEx("member") WScript.Echo "member:" For Each Item in strmember WScript.Echo vbTab & Item Next WScript.Echo VbCrLf & "** Member Of Properties Page**" WScript.Echo "** (MultiValued Attributes) **" strmemberOf = objItem.GetEx("memberOf") WScript.Echo "memberOf:" For Each Item in strmemberOf WScript.Echo vbTab & Item Next WScript.Echo VbCrLf & "** Managed By Properties Page**" WScript.Echo "** (Single-Valued Attributes) **" strmanagedBy = objItem.Get("managedBy") WScript.Echo "managedBy: " & strmanagedBy If strmanagedBy <> "" Then Set objItem1 = GetObject("LDAP://" & strManagedBy) WScript.Echo "physicalDeliveryOfficeName: " & _ objItem1.physicalDeliveryOfficeName WScript.Echo "streetAddress: " & _ objItem1.streetAddress WScript.Echo "l: " & _ objItem1.l WScript.Echo "c: " & _ objItem1.c WScript.Echo "telephoneNumber: " & _ objItem1.telephoneNumber WScript.Echo "facsimileTelephoneNumber: " & _ objItem1.facsimileTelephoneNumber End IfIch steh grad voll auf der Leitung, keine Ahnung wie ich jetzt vorgehen muss… Will erst mal im AD im Ordner Users die Gruppen auslesen… :confused:
-
Also ich soll ein Script schreiben das 100 neue Benutzer ins Active Directory einträgt.
Habe Windows 2003 server hier auf Virtual PC installiert.
Aber ich finde irgendwie keinen Ansatz! Hab auch schon bei Google gesucht, aber ich finde nichts
-
Ich hab jetzt im ersten 562 Brutto -> 430 Netto bekommen.
Das Kindergeld kassiert leider mein Vater da ich ja noch daheim wohne.
Aber ich komme soweit schon rum mitm Geld, trotz sehr hohen Fixkosten, Pferd, Fahrtkosten 120 €/Monat, usw.
-
Was mir grad beim durchgucken hier aufgefallen ist, das ich vom Bruttogehalt her zwar im ersten Jahr oft unter den Meisten hier liege, hatte jetzt im 1. Jahr 562 Brutto macht 430 Netto.
Aber jetzt im 2. hab ich 767 Brutto -> Ca. 600 Netto und im 3. 900irgendwas Brutto! :bimei
Habe 26 Tage Urlaub, 40 Std. Woche, kein Urlaubs- und kein Weihnachtsgeld
Aber die Fahrtkosten zur berufschule werden mit 30Cent pro Kilometer ersetzt, da bekomm ich einiges mehr raus für Fahrkosten als ich ausgegeben habe
-
ALso da mein Vater normal verdieht und meine mutter nen 400€ Job hat, wie stehen die Chancen das ich Azubi Beihilfe bekomme? Kann man das irgendwo im Internet berechnen vielleicht?
-
Das bekomme ich wenn ich recht informiert bin aber wahrscheinlich auch nicht, da ich bei meinen Eltern wohne, oder?
-
Kann man Bafög nur als Schüler oder auch als Azubi bekommen?
-
Hallo zusammen,
es geht um folgendes:
Ich geh am Montag kurz bei meiner Tante vorbei, denen ihren ca. 8 Jahre alten Rechner angucken. Da geht seid ner Weile kein Internet mehr. Mein Cousin hat da irgendwas ausgebaut, keine ahnung was
wusste meine Tante nicht, und dann aber wieder eingebaut und seid dem geht wohl kein internet mehr. Jetzt soll ich mir das angucken, wenn ich nix finde das Internet zum Laufen zu bringen, wirds wohl mal einen neuen PC geben
Ich weis nur das was ich hier geschrieben habe.
Was könnt ihr mir an Tipps geben was ich alles checken kann? Woran könnt es liegen das das Internet nimmer geht?
Eher Softwaremäßig, mit der Hardware hab ichs net so und meine Tante meint auch es wäre eher ein Softwareproblem.
Danke schonmal für eure Hilfe
-
Ja das mit dem Gehäuse weis ich schon, aber dann kann ich auch direkt ein externes kaufen wenn ich eh beides kaufen muss
-
Also folgendes, mein Dell Latitude Notebook hat ein CD aber kein DVD Laufwerk.
Würde gerne ab und zu mal eine DVD gucken. Ein externes DVD Laufwerk das über USB angeschlossen wird ist mir allerdings zu teuer.
Die internen Laufwerke sind ja recht günstig, gibt es irgendeine Möglichkeit so ein einternes Laufwerk für normale PCs an mein Notebook anzuschließen?? :confused:
Danke schonmal für eure Hilfe
-
Sooo, vielen Dank für eure Super Tipps
Habe jetzt bei DELL den Treiber runtergeladen und kann jetzt in der Systemsteuerung das Touchpad deaktivieren
-
Hallo Hades,
schonmal danke für deine Antwort, ich probier das morgen mal aus, weil jetzt bin ich vieel zu müde
-
Hallo ihr beiden,
danke für eure Antworten!
@bimei: Handbuch habe ich keins, habe ein gebrauchtes Notebook von Ebay.
Ja habe bei Systemsteuerung und Mauseigenschaften usw. nachgesehen. Aber da gibts nichts wo ich das deaktivieren könnte, habe da die Registerkarte Geräteeinstellungen oder wie die heißt auch gar nicht
@fi-newbie: Also die FN taste für die Zusatzfunktionen hab ich auch. Und auf verschiedenen Tasten auch so blaue Symbole. Aber irgendwie sieht keins davon für mich so aus als wäre es fürs Toughpad... hmmm... wie sieht die Taste denn bei dir aus wo man das deaktivieren kann, also was hats da fürn Symbol drauf?
-
Also ihr wisst sicher was ich meine, weis nur grad nicht wie man es schreibt, wie es heißt weis ich, also das Feld wo man mitm Finger drauf rum fährt anstatt einer Mouse
Wo/Wie kann ich das deaktivieren? Ich arbeite mit einer Mouse und beim schreiben stört es mich weil ich immer wieder versehentlich mit einem Finger drauf komme und dann schreib ich natürlich an völlig falscher Stelle weiter.
Da muss es doch sicher eine BIOS Einstellung geben oder?
Ich hab aber im BIOS nix gefunden.
Ach ja, und falls das wichtig ist, ich hab ein DELL Latitude C510.
Danke schonmal
-
Das wolltich auch grad schreiben das du verdammt Glück hast, ich verdiehn im ersten Jahr als FIAE jetzt netto 410 €. Habe 40 Stundenwoche und 26 tage Urlaub.
VB 6: HangMan
in Basic
Geschrieben
So ich krame das Thema nochmal hoch, bin immer noch an Hangman dran und der der mir die Aufgabe gegeben hat und den ich fragen kann bei Problemen ist heute außer Haus, also frage ich jetzt mal euch.
Hier zu erst mal mein Code:
Dim wort As String Dim zeichen As String Dim zielarray() As String Dim anzeigearray() As String Private Sub Form_KeyPress(KeyAscii As Integer) MsgBox (UCase(Chr(KeyAscii))) Suchwort_prüfen (UCase(Chr(KeyAscii))) End Sub Private Sub Form_Load() KeyPreview = True wort = InputBox("Hier das Wort eingeben:") 'MsgBox (UCase(wort)) ReDim Preserve zielarray(Len(wort) - 1) ReDim Preserve anzeigearray(Len(wort) - 1) For i = 0 To Len(wort) - 1 zielarray(i) = UCase(Mid(wort, i + 1, 1)) anzeigearray(i) = "_" Next Anzeigearray_ausgeben End Sub Private Sub Anzeigearray_ausgeben() For i = 0 To Len(wort) - 1 txt_wort.Text = txt_wort.Text + anzeigearray(i) + " " Next End Sub [COLOR="Red"]Private Sub Suchwort_prüfen(zeichen As String) For i = 0 To Len(wort) - 1 If zielarray(i) = zeichen Then [B]anzeigearray(i) = zeichen txt_wort.Text = txt_wort.Text + Replace(anzeigearray(i), i, zeichen)[/B] Else MsgBox ("Buchstabe nicht gefunden") End If Next End Sub[/COLOR]Mein Problem liegt im Moment bei dem rotmarkierten Codeabschnitt. Dieses vergleicht die eingegebenen Zeichen mit dem Suchwort. Das klappt mehr oder weniger, Problem ist, auch wenn der Buchstabe richtig ist, kommt die MsgBox "Buchstabe nicht gefunden". Außerdem weis ich nicht ich bei einem richtigen Buchstaben den Strich durch den Buchstaben ersetzten kann (der Fett markierte Teil).
Hoffe ihr könnt mir helfen