Hey,
ich hab die Aufgabe bekommen Texte mit Dialekt ins Hochdeutsche zu übersetzen. Mache verstehe ich teilweise, die anderen gar nicht 😅

Kann mir vielleicht einer helfen?

1. Ick brauch 'n richtijen Mann, keene uffjewärmte Leiche.
2. Et hätt noch immer jot jejange.
3. Dat löpt, as wenn de Düvel Torf fohrt
4. Getz aber ma wacker inne Puschen kommen!
5. Der, wo die Aaweid erfunne hot, muss nix zu duun gehabbd hawwe.
6. Dumm deaf ma scho sei bloß zhärfa muaß ma se wissen.

Quellcode von dem Private bereich:

    INTpi :integer;
    INTp1 :integer;
    INTp2 :integer;
    INTp3 :integer;
    INTp4 :integer;
    INTp5 :integer;
    INTpu1 :integer;
    INTpu2 :integer;
    INTpu3 :integer;
    INTpu4 :integer;
    INTpu5 :integer;
    INTpeg1 :integer;
    INTpeg2 :integer;
    INTpeg3 :integer;
    INTpeg4 :integer;
    INTpeg5 :integer;
    INTupeg1 :integer;
    INTupeg2 :integer;
    INTupeg3 :integer;
    INTupeg4 :integer;
    INTupeg5 :integer;

Folgender Quellcode:

  INTpi := StrToInt(Epi.Text);
  INTp1 := StrToInt(Ep1.Text);
  INTp2 := StrToInt(Ep2.Text);
  INTp3 := StrToInt(Ep3.Text);
  INTp4 := StrToInt(Ep4.Text);
  INTp5 := StrToInt(Ep5.Text);


  INTpu1 := INTp1/100;
  INTpu2 := INTp2/100;
  INTpu3 := INTp3/100;
  INTpu4 := INTp4/100;
  INTpu5 := INTp5/100;

Ep(Zahl) sind TEdits die ich zu Integer umformatiere.An der/-n Stelle(n) an denen ich durch 100 teile kommt folgende Fehlermeldung:

Inkompatible Typen: 'Integer und Extended'

Könnt ihr mir da weiterhelfen? Schon mal danke im voraus :)

Hallo,

leider habe ich es geschafft einen Monitor von mir kaputt zu machen. In der Mitte ist jetzt ein ca 10cm großer Schwarz/Bunter Streifen. Kann ich es irgendwie hinbekommen, dass das Windows 10 Bild nur auf der rechten oder linken seite angezeigt wird. Oder bestenfalls den Schwarzen/Bunten streifen "angeben" kann und Windows dann automatisch, wenn man den Coursor an den Schwarzen Balken geht, und auf der andere Seite direkt rauskommt.

PS: Ich hatte vorher zwei Monitore und als ich dann einen kaputt gemacht habe, habe ich einen neuen bestellt und den kaputten mit den Schwarzen Balken als dritten Monitor benutzt oder tue es immernoch.

Hallo ich habe ein Programm. Ja ach ne XD

Ich rechne dort die Prozente u.s.w. aus und hat auch alles geklappt. Nur jetzt hat man 36 Punkte und das Programm hat gerechnet, dass ab 36,40 eine 3 hat und bis zu 35,40 eine Vier. Nun möchte ich das runden uzwar so: 4.48 = 5, 4.2 = 4 u.s.w.

Dass heißt wenn es eine Nachkommastelle gibt das es auf ...,5 rundet.

Wie kann ich in VBS per Befehl den Mauszeiger auf eine Koordinate schicken und dann einen Klick ausführen?

Bin anfänger als bitte nicht sagen: "ja du musst den String durch die Variable ersetzen bla bla bla..." also wäre schon mit dem Richtigen Code :)

Ich schreibe VBS und habe nun eine Fehlermeldung:

 Set oFile = fso.OpenTextFile("D:/lpX32/NomenMitEndungen/Tests/"&UCase(Name)&"_TEST.txt",2,true)

Was mache ich falsch?

Ich schreibe zur Zeit ein Programm und dieses soll sich selber auslesen, wie viele Zeilen das Programm selber hat. Geht dies und wenn ja, wie?

Wenn ich Wörter zählen möchte mache ich das in Kopf was ein bisschen doof wird wenn man so um die 300 - 400 Wörter zählen muss. Dann kam mir die Idee: Wenn ich ein Wort gezählt habe haue ich einmal auf die Leertaste/eine Taste. Am Schluss drücke ich Enter und mein Programm soll zählen wie viele Zeichen ich eingegeben hab. Wie würde das gehen?

Worte = InputBox("Gib einfach Buchstaben und leerstellen ein und diese Werden dann gezählt!","Wörter zählen")

'Hier Wörter zählen

'_____________________________________________


'_____________________________________________

msgbox ""&Anzahl&" Wörter",0+64,"Wörter gezählt"
'Ende

î hier eine kleine Vorgabe ;)

Hallo Leute,

ich Programmiere ja VBScript und habe jetzt eine Fehlermeldung und kriege diese nicht behoben:

 Set fso = CreateObject("Scripting.FileSystemObject")

sl = InputBox("Wieviele Schüler sollten den Test machen?","")

'Gibt es eine "& sl &"ste Datei?

If fso.FileExists("D:\Lernprogrammmi\NomenMitEndungen\Tests\Temp\"& sl &".txt") Then

Do until Sl="0"

Set oFile = fso.OpenTextFile("D:\Lernprogrammmi\NomenMitEndungen\Tests\Temp\"& sl &".txt")

msgbox oFile.ReadLine

sl=sl-1

loop

Das Programm sollte in einer msgbox die Datei öffnen und danach auch die Dateien die unter der eingegebenen Zahl liegen öffnen und das bis null. Nun steht aber in dieser Zeile: "msgbox oFile.ReadLine" ein Fehler:

Eingabe hinter Dateiende

Kann mir da jemand helfen?

Außerdem möchte ich dass Alle Dateien in einer Abgespeichert werden aber so wie ich das erfahren habe klappt das nicht. Denn dann kreuzen sich zwei oFile's.