Webplain.de Foren

[Webdesign & Internet] Re: Video auf Homepage

Mirko — Fri, 23 Jul 2010 12:58:50 +0200

Hallo,

schau mal, ob die Gro� bzw. Kleinschreibung der Datei und des Verzeichnisses richtig ist.

Manche FTP-Programme �ndern das :-(

Gru� Mirko...

[Turbo Pascal] Re: Grafikspeicher

Samolex — Tue, 20 Jul 2010 09:25:02 +0200

Hi,

ein Neustart des Computers bewirkt oft Wunder. Das sollte die einfachste L�sung sein, den nach einem Neustart ist die Hardware neu initialisiert und somit auf einen definierten Zustand zur�ckgebracht das bedeutet auch, das selmtlicher Arbeitsspeicher/Graphikspeicher wieder freigegeben ist.

MfG
Samolex

[Turbo Pascal] Grafikspeicher

Ramboleo — Mon, 19 Jul 2010 23:56:43 +0200

Ich spiele Gta 3 doch k�rzlich ist es abges�rzt und als ich es wieder starten wollte kam die Nachricht:"GTA 3 benotigt mind. 12 mb freien Grafikspeicher.
Wie leere ich nun den Grafikspeicher?

[Webdesign & Internet] Flashz�hler Script

Terence-01 — Sun, 18 Jul 2010 13:31:48 +0200

Hallo!

Ich suche ein Script, welches eine Zahl live hochz�hlt.
z.B. gebe ich den Anfangswert ein: 500000 und das Script soll 50 pro Sekunde dazuz�hlen, m�glichstt fl�ssig, und nicht so rucklig wie in Text/Javascript

Die Zuweisung geschieht per PHP, das soll so viel ich weiss kein Problem sein, kenne mich aber leider nicht mit Flash aus.

Kennt jemand ein paar Beispielz�hler, oder kann so einen selber proggen?
Soll auch nicht umsonst sein

viele Gr�sse

Terence-01

[Visual Basic] Re: Neuer Ordner erstellen

Helferlein — Thu, 15 Jul 2010 20:29:54 +0200

Hallo swizz_weasel,
da wolltest du wahrscheinlich mit der "BuildPath"-Methode des FileSystemObject den Namen des Verzeichnisses bauen - hast aber die Methode dabei weggelassen!?!
Au�erdem fehlt dem Destination-Argument der Dateiname.
Angenommen, du hast auf der D-Partition einen Ordner mit der Bezeichnung "Backups" erstellt, und dieser beinhaltet wiederum einen Ordner mit der Bezeichnung der Variable "strDatum" und in diesen willst du die Datei "XY.txt" von der C-Partition hineinkopieren, dann m�sste die die Befehlszeile so aussehen:
[code]
FileCopy "C:\XY.txt", fso.BuildPath(fso.BuildPath("D:\Backups", strDatum), "XY.txt")
[/code]
oder um es ein wenig �bersichtlicher zu gestalten in mehrere Schritte aufteilen:
[code]
strPfad = fso.BuildPath("D:\Backups", strDatum)
strZiel = fso.BuildPath(strPfad, "XY.txt")
FileCopy "C:\XY.txt", strZiel
[/code]

[Visual Basic] Re: Neuer Ordner erstellen

swizz_weasel — Thu, 15 Jul 2010 19:03:21 +0200

Sehr gut! :o)

Und wenn ich anschliessend per "FileCopy" die Datei "C:\XY.txt" nach "D:\Backups, strDatum" kopieren m�chte? Offensichtlich ist
FileCopy("C:\XY.txt", "D:\Backups", strDatum) falsch... ;o)

Gruss,
swizz_weasel

[Visual Basic] Re: Neuer Ordner erstellen

Helferlein — Thu, 15 Jul 2010 15:28:48 +0200

Hallo swizz_weasel,
ich benutze mit Vorliebe das 'FileSystemObject'!
Hier der komplette Code, wie ich ihn verwenden w�rde:

[code]
Private Sub CommandButton1_Click()
Dim fso As FileSystemObject, fldOrdner As Folder, strDatum As String, strOrdnerpfad As String
Set fso = CreateObject("Scripting.FileSystemObject")
strDatum = DTPicker1.Value
strOrdnerpfad = fso.BuildPath("C:\Programme", strDatum)
Set fldOrdner = fso.CreateFolder(strOrdnerpfad)
End Sub
[/code]
Zus�tzlich sollte noch eine entsprechende Fehlerbehandlung, falls der Ordner bereits existiert, eingebaut werden, z.B. oberhalb der Zeile:
[code]
Set fldOrdner = fso.CreateFolder(strOrdnerpfad)
[/code]
diese Abfrage einbauen:
[code]
If fso.FolderExists(strOrdnerpfad) Then
If MsgBox("Das Verzeichnis '" & strOrdnerpfad & "' ist bereits vorhanden." & vbCrLf & vbCrLf & "Soll der vorhandene Ordner �berschrieben werden?", vbYesNo Or vbExclamation Or vbDefaultButton2) = vbNo Then
Exit Sub
Else
fso.DeleteFolder strOrdnerpfad
End If
End If
[/code]
Sollte der bereits existierende Ordner bereits Dateien enthalten, w�rde Fehler 70 (Zugriff verweigert) auftreten, welcher dann ebenfalls noch abgefangen werden m�sste.

[Visual Basic] Re: Neuer Ordner erstellen

swizz_weasel — Thu, 15 Jul 2010 13:50:57 +0200

Und wenn ich unter "C:\Programme" einen neuen Ordner mit dem Datum aus dem DateTimePicker1.Value erstellen m�chte?

Gruss, swizz_weasel

[Denkpause] Re: Konsolen-Adventure

BP92 — Sun, 11 Jul 2010 13:39:59 +0200

Hi zusammen,

@ Samolex: Das mit ScanKey hast du voellig korrekt beschrieben. Dazu ist eine WORD-Variable notwendig, ein BYTE oder CHAR reicht nicht, da die Unit "keyboard" fuer die Sondertasten andere Codes zurueckliefert, als wir das von CRT gewohnt waren. Deswegen ja auch die Konstanten :)

Bei meiner Loesung habe ich ein paar Variablen im Namen etwas abgeaendert, damit es zu keinen Verwechslungen kommt.

[Turbo Pascal] Re: Niki der Roboter

Heinz — Fri, 09 Jul 2010 00:56:08 +0200

Wei� nicht genau wo dein Problem liegt, du mu�t doch einfach nur einen Schritt vor gehen und die Procedure treppe_rauf nochmal ausf�hren und bis zum Ende gehen :

vor;
WHILE links_frei DO treppe_hoch;
WHILE vorne_frei DO vor;

Hier ist auch noch ein Link den du dir ansehen k�nntest :
http://www.hupfeld-software.de/beschreibung/index.htm

[Denkpause] Re: Konsolen-Adventure

Samolex — Thu, 08 Jul 2010 21:00:43 +0200

Hi,

sorry da ist wohl meine Aufgabe etwas unvollst�ndig...

also bevor du Length aufruft, must du die L�nge des Array um eins verl�ngern, das machst du am besten so

[code]SetLength (atmElement, Length(atmElement)+1);[/code]

danach speicherst du die Arrayl�nge in einer Variablen

[code]bLen := Length(atmElement);[/code]

und in den [] schreibst du dann bLen rein

MfG
Samolex

[Denkpause] Re: Konsolen-Adventure

dudefan — Thu, 08 Jul 2010 20:29:47 +0200

Gut, das hat jetzt super funktioniert. Vielen Dank. Jetzt muss ich nur noch versuchen das andere Zeug hinzubekommen wo ich den Fokus auf den vorrigen und n�chsten MenuePunkt setze. Bis jetzt ist mir noch nichts eingefallen wie ich das mache.

edit: Ach und die Fehlermeldung ist Illegal Expression.
Ich zeig einfach mal fix meine Procedure:

[code]Procedure AddMenuePunkt (Var tmpMenue : tMenuePage; // Menuepage
sCaption : String; // Bezeichnung
bCl, bFCl, bX1, bY1 : Byte; // Farben, Pos.
boFokus : Boolean); // Fokusiert?

Begin
with tmpMenue do
Begin
Length(atmElement)+1;
tMenEle[].sCaption := sCaption; //Hier nach dem tMenEle wei� ich nicht was in die Klammer kommt
tMenEle[].bColor := bCl;
tMenEle[].bX := bX1;
tMenEle[].bY := bY1;
tMenEle[].bFokCol := bFCl;
tMenEle[].boFokus := boFokus;
End;
If boFokus then
Begin
//???
End;
End;
[/code]

[Denkpause] Re: Konsolen-Adventure

Samolex — Thu, 08 Jul 2010 17:03:27 +0200

Hi,

[quote]
Also ich hab jetzt beide Varianten ausprobiert und es kommt trotzdem immernoch der Fehler.
[/quote]

Was f�r ein Fehler genau? Schreib mal was er dir "sagt" sonst tappen wir hier im Dunklen...

die Dekleration von ScanKey lautet:

[code]FUNCTION ScanKey: WORD;[/code]

f�r ScanKey muss du eine Variable vom Type Word haben, nicht char.

f�r die Tastecodes, dei mit ScanKey ermittelt werden gibt es folgende Konstanten

[code]
wBackSpace = 8;
wTab = 9;
wEnter = 13;
wEsc = 27;
wF1 = 65281;
wF2 = 65282;
wF3 = 65283;
wF4 = 65284;
wF5 = 65285;
wF6 = 65286;
wF7 = 65287;
wF8 = 65288;
wF9 = 65289;
wF10 = 65290;
wF11 = 65291;
wF12 = 65292;
wHome = 65312;
wUp = 65313;
wPgUp = 65314;
wLeft = 65315;
wRight = 65317;
wEnd = 65318;
wDown = 65319;
wPgDn = 65320;
wIns = 65321;
wDel = 65322;
[/code]

wenn du also auf die Taste 'P' pr�fen wilst so kannst du einfach den ASCII-Code nehmen und mit diesem Pr�fen P = ASCII 80

[code]
var wTaste Word;
Begin
...
wTaste := ScanKey;
Case wTaste of
80 : TextOut(10, 10, 'P');
wF1 : TextOut(10, 11, 'F1');
end;
...
end.
[/code]

so m�sste es funktionieren.

MfG
Samolex

PS: @BP92: Korregiere mich wen ich falsch liege :-)

[Denkpause] Re: Konsolen-Adventure

dudefan — Thu, 08 Jul 2010 16:44:28 +0200

Also ich hab jetzt beide Varianten ausprobiert und es kommt trotzdem immernoch der Fehler.

edit: Achja, wie nutze ich den nun die Scankey Function? Ich habe es so geschrieben, aber es funktioniert nicht: [code]taste:=Scankey[/code]

[Turbo Pascal] Re: Niki der Roboter

BP92 — Thu, 08 Jul 2010 13:51:52 +0200

Hallo,

es ist sicherlich hilfreich, deinen Quelltext anzuhaengen. So kann ich dir jetzt auch nicht sagen, wo dein Fehler liegt, wenn wir nicht sehen, was deine Prozeduren "drehe_links" oder "drehe_rechts" etc. genau machen.

Was mir nur auffaellt, dass du deine Dreh-Prozeduren in "drehe_um" verwendest, aber erst danach definierst. Das kann syntaktisch schon mal nicht stimmen. ;)

[Denkpause] Re: Konsolen-Adventure

BP92 — Thu, 08 Jul 2010 13:48:32 +0200

Ich empfehle auch mit [code]WITH ... DO[/code] zu arbeiten. Dann braucht man nicht jedes Mal den Bezeichner mit Punkt vor das Datenfeld zu schreiben ;)

Meine Loesung habe ich noch etwas ueberarbeitet, aber ich komme nicht jedes Mal ins Hauptmenue zurueck...

Bis zum 07.08. ist das aber auf jeden Fall zu schaffen. :)

[Denkpause] Re: Konsolen-Adventure

Samolex — Thu, 08 Jul 2010 13:32:55 +0200

[quote Samolex][code]
Aufgabe 4:
----------
[...]

Die Procedure AddMenuePunkt:
- Erh�ht die L�nge des Arrays (atmElement) um eins
[b](Length(atmElement)+1)[/b]
- Belegt alle Element von tMenEle mit den entsprechenden Parameter
- Wenn boFokus TRUE ist dan werden folgende Punkte ausgef�hrt
- Wenn bFokusInd ungleich des maximalen Index von atmElement ist
- atmElement.boFokus an der Stelle von bFokusInd auf False setzen
- bFokusInd auf True setzen
[...]
[/code]
[/quote]

Hier gibt es eine kleine Falle in der Beschreibung:

der Aufruf
[code]Length(atmElement)+1;[/code]

muss erweitert werden zu
[code]Length([b]tmpMenue.[/b]atmElement)+1;[/code]

es sei den ihr arbeitet mit
[code]With(tmpMenue) do...[/code]
dann nat�rlich nicht.

MfG
Samolex

[Denkpause] Re: Konsolen-Adventure

dudefan — Thu, 08 Jul 2010 12:48:46 +0200

Naja die Prozeduren AddMenuePunkt, PaintMenue, MenueSetFokus sind bei mir noch unvollst�ndig genauso wie die Function MenueControl.
Sowie geht bei mir scheinbar nicht die Function "Length(atmElement)+1;", wie du sie in der Beschreibung stehen hast.
Und in der Hauptschleife wei� ich eben nicht, wenn ich jetzt die Prozeduren aufrufen soll, was als Parameter angegeben werden soll.

Und ja die Conio ist bei mir immer auf den neuesten Stand.

ich schick dir jetzt meinen Quelltext der noch unvollst�ndig ist.

MfG dudefan

[Denkpause] Re: Konsolen-Adventure

Samolex — Thu, 08 Jul 2010 12:17:33 +0200

Hi,

bei welchen Proceduern / Functionen sind die Parameter unklar ?

den Quelltext kanst du mir gerne via PN oder E-Mail senden und ich schau mr das dann mal an.
Hast du auch die aktuelle Version von der ConIO ?

Version : 0.92.3b glaube ich.

MfG
Samolex

[Denkpause] Re: Konsolen-Adventure

dudefan — Thu, 08 Jul 2010 10:37:51 +0200

Tut mir leid das ich mich erst jetzt melde. Ich war jetzt eine Zeit relativ lange Zeit weg und konnte mich mit den Aufgaben nicht besch�ftigen.
Ich hab aber auf jeden Fall versucht die Aufgabe gestern zu schaffen und naja ich muss sagen, dass ich nicht so richtig weiter komme.

Ich wei� nicht so richtig welche Variablen ich als Parameter angeben soll und �berhaupt bin ich wirklich verwirrt warum manche Befehle aus der conio32 Unit nicht so richtig funktionieren (Scankey und textout). Bei einigen Prozeduren wei� ich auch nicht was ich machen muss. Also wenn ich mal meinen bisherigen Quelltext hochladen soll, dann sagt es mir, nur jetzt komme ich wirklich nicht weiter.

MfG dudefan

[Turbo Pascal] Niki der Roboter

Freddy — Wed, 07 Jul 2010 15:55:43 +0200

Ich hab ne frage.
Ich programmiere mit niki gerade und ich will das er eine treppe mit belibig vielen stufen hochgeht sich auf der obersten umdreht
und wieder runtergeht auf die ausgangsposition.
Ich bin schon so weit das er zur treppe geht hoch geht und sich oben umdreht.
Nur wi geht es weiter ich m�chte das er wieder runter geht und wieder auf die startposition.

PROGRAM Podest;
PROCEDURE drehe_um;
BEGIN
drehe_links;
drehe_links;
END;
PROCEDURE drehe_rechts;
BEGIN
drehe_links;
drehe_links;
drehe_links;
END;
PROCEDURE treppe_hoch;
BEGIN
drehe_links;
vor;
drehe_rechts;
vor;
END;

BEGIN
ARBEITSFELD(podest);
WHILE vorne_frei DO vor;
WHILE NOT vorne_frei DO treppe_hoch;
drehe_um;

END.

[Denkpause] Re: Konsolen-Adventure

Samolex — Tue, 06 Jul 2010 21:37:13 +0200

Hi,

damit das hier nicht droht einzuschlafen werde ich nun mal eine Deadline f�r die aktuelle Aufgabe setzen.
Ich bitte euch bis sp�testens zum 07.08.2010 die Aufgabe abzugebn. Je fr�her ummso besser.

Alle die noch Pr�fungen, Klausuren, etc schreiben m�ssen w�nsche ich noch viel Erfolg.

Mfg
Samolex

[Visual Basic] Re: WaitForExit() bei HTML-Aufruf mit Process.Start

Helferlein — Wed, 30 Jun 2010 15:29:11 +0200

Hallo hgs07,
wei� nicht welche VB-Version du verwendest (weder VB6 noch eine der VBA-Versionen beinhalten ein System-Objekt) oder ob du einen Verweis auf eine Klasse, die ein System-Objekt enth�lt, eingef�gt hast - jedenfalls kann ich deine Prozedur nicht nachbauen.
Mein Verdacht ist allerdings, da� das Argument f�r die Process.Start-Methode eine exe sein MU�, also z.B. iexplore.exe, oder firefox.exe.

[Visual Basic] WaitForExit() bei HTML-Aufruf mit Process.Start

hgs07 — Tue, 29 Jun 2010 16:32:07 +0200

Aus einem Form will ich eine HTML-Seite aufrufen. Dazu nutze ich eine bekannte Code-Sequenz, mit der auch ein EXE-Programm ausgef�hrt werden kann:
[code]
Dim proc As New System.Diagnostics.Process
proc = Process.Start("myprog.exe")
proc.WaitForExit()
[/code]

Wenn ich eine HTML-Seite aufrufe,
[code]
Dim proc As New System.Diagnostics.Process
proc = Process.Start("http://www.gentools6.de")
proc.WaitForExit()
[/code]
wird diese auch angezeigt, aber der proc.WaitForExit bringt eine Exception: Der Prozess proc ist nicht vorhanden.

Wie muss ich das Coding �ndern, damit die Exception nicht auftritt?
Jeder Hinweis wird dankend angenommen.

[Turbo Pascal] Re: Pascal Anf�nger - Prozedur

Marvin — Mon, 28 Jun 2010 21:56:53 +0200

Ich danke denen die das k�nnen denn ich ahbe mir das maldurch gelesen und habe dann eine Arbeit �ber dieses Team geschriebn und ich habe eine 2 geschreben. DANKE viel mals macht weiter :D

[Turbo Pascal] Re: Was muss ich �ndern

Zettmann — Sat, 26 Jun 2010 19:31:26 +0200

Danke f�r die Antwort und ich mu� Dich loben, denn Du hilfst den Leuten. Bei mir ist das Problem, dass ich 0-Ahnung (i.W. Null-Ahnung) vom Pascalprogrammieren habe. Ich verstehe nur Bahnhof zu dem, was Du da schreibst. Wenn Du mir die PAS-Datei im Anhang oben umschreibst, damit sie richtig anzeigt, ist mir schon mal geholfen. Die drei anderen, die ich noch habe werde ich dann wohl selbst �ndern k�nnen, da es sich um gleiche Diagramme nur mit anderen Zahlen handelt. Danke f�r Dein Verst�ndnis.

[Webdesign & Internet] Video auf Homepage

Werner — Sat, 26 Jun 2010 13:24:20 +0200

Hallo,
ich habe einige HTML-Seiten erstellt.
Auf der Hauptseite habe ich einige selbsterstellte Videos (Video.AVI) eingebunden. Die Videos liegen im selben Verzeichnis wie die anderen Dateien (auch auf der Homepage).
Auf meinen Rechner l�uft alles ohne Probleme, im Netz werden die Videos nicht abgespielt, es erscheint nur ein schwarzes Fenster.
Woran kann das liegen, was mache ich falsch?
Aus meiner Pascal-Zeit wei� ich, da� man zuerst in das Verzeichnis der Start-Datei wechsel mu�, damit die anderen Dateien gefunden werden. K�nnte es daran liegen?
Und wenn es daran liegt, wie kann ich das Problem l�sen?
W�rde mich sehr freuen wenn mir Jemand eine L�sung sagen k�nnte.

Viele Gr��e
Werner

[Denkpause] Re: Konsolen-Adventure

Samolex — Thu, 24 Jun 2010 14:48:36 +0200

Hi,

[quote BP92]Im Studium schreibt man ja auch Klausuren, auf die es sich vorzubereiten gilt.[/quote]

das ist doch ein Best�tigung f�r meine Theorie, warum das mit der Abgabe etwas dauert. :-)

MfG
Samolex

[Turbo Pascal] Re: Was muss ich �ndern

BP92 — Thu, 24 Jun 2010 13:33:48 +0200

Hallo,

also Settextstyle() wuerde ich mir mal anschauen ;)

Dabei insbesondere den letzten Parameter, der die Schriftgroesse steuert.
[code]
Settextstyle(Font,Rotation,Groesse);
[/code]
Der erste Parameter "Font" kann auf Null belassen werden, damit wird die Rasterschriftart ausgewaehlt. Mit Rotation ist gemeint, ob die Schrift horizontal oder vertikal gezeichnet werden soll. Das auch mit Null uebergeben fuer horizontal.
Der letzte Parameter fuer die Schriftgroesse ist entscheidend. 1 ist die "normale" Groesse. Ich weiss jetzt nicht, was die maximale Groesse ist, die Turbo Pascal 4 unterstuetzt, aber dieser Parameter wird in einer Funktion ueber eine Variable gesteuert. Das sollte geaendert werden, da sonst evtl. der zulaessige Wertebereich ueberschritten wird.

Konkret bei der Prozedur
[code]
procedure scrb(x,y,g:word;s:string);
begin
settextstyle(2,0,g); (* <-- hier der letzte Parameter, statt g mal 0 schreiben *)
outtextxy(x,y,s);
settextstyle(0,0,1);
end;
[/code]

[Denkpause] Re: Konsolen-Adventure

BP92 — Thu, 24 Jun 2010 13:25:13 +0200

Meine Loesung kommt auch noch diese Woche ;) Musste mich nur auch mit Sachen wegen Uni beschaeftigen. Im Studium schreibt man ja auch Klausuren, auf die es sich vorzubereiten gilt.
Die letzten drei Wochen hab ich mal etwas Abstand vom Programmieren gebraucht, haenge mich jetzt aber wieder rein :)