XProfan

Español

helpself

¡Hola,

como Yo sonst en VB escribir bräuchte Yo ahora Eure Unterstützung.

1. Yo möchte gerne una laufendes Programa con uno bestimmen Uhrzeit final.
Sombrero evt. alguien ya así qué geschrieben?

2. ¿Cómo se puede Yo una Fehler en el Prog. übergehen? In VB hay sí el Befehl On Error.

Vielen Besten Dank

02.12.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

¡Hola,

El Función Time$() liefert Usted el aktuelle Tiempo. Usted mußt also sólo en regelmaßigen Abständen Su eingestellte Tiempo el aktuellen Tiempo vergleichen.

Lo son zwei Arten de Fehlermeldungen en Profano. Einmal tatsächliche Fehler, z,B. Division por Null oder Wurzel de uno negativen Zahl. El führen para Beenden des Programms, como en el Interpreter selber dieser Fehler auftritt, b.z.w. verarbeitet voluntad muß.
Dann hay Warnungen, el erlauben, daß el Programa weiterläuft. El Stabilität hängt entonces vom más Code de, si Su Programa así umgehen kann.

El Fehlermeldungen kannst Usted unterdrücken, indem Usted con Conjunto("Errorlevel",n) el Edición beeinflußt.
Das kann entonces aber para unkontrollierten Choque con entsprechender Windowsreaktion führen.

Lo son todavía el Möglichkeit con Ayuda de "ErrorProc" una propio Fehlerbehandlung a escribir, el en el Falle uno Fehlers ausgeführt se.
Das greift aber z.B. no en el oben erwähnten Fällen.
Ansonsten empfehle Yo ausgiebiges Testen y Bugtracking antes Auslieferung

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

02.12.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Hatte antes Ewigkeiten veces una Progg geschrieben (welches en me todavía siempre sin Problemas täglich se ejecuta), qué en etwa así algo macht. Beendet zwar kein Programa pero todos Windows, aber en el Principio el gleiche.
Wenn du interesse hast, kann Yo dir sí el Ver código fuente enviar...

Pero nada así schlimm todos, en el Principio sólo una gespeicherte Uhrzeit con el aktuelle Tiempo vergleichen (Hago esto todos 20 sec., así es zumindest Minuten-Exactamente).

aus.jpg	44 kB

Hochgeladen:	02.12.2011

Ladeanzahl:
		Descargar

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

02.12.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

helpself

¡Hola,

para el Tipps, dass con el uhrzeit final Yo auch ya hinbekommen y Gracias para el Angebot para el Ver código fuente.

Leider bekomme Yo no hin, el Fehler übergehen.

Yo habe como folgenen Code genommen en Archivos en una más Directorio a kopieren. El Daten mentira en una otro Server, wo de y a Serverarbeiten durchgeführt y ser esta entonces no mehr disponible posición. Lo kommt a uno Fehlermeldung. Oder auch si El Expediente ya geöffnet es.

Der Code:
ClearList
Directorio1$ = "k\"
Directorio2$ = "H:\"
ChDir Directorio1$
AddFiles "*.pdf"
WhileLoop 0,%getcount
Copy Directorio1$ + ListBoxItem$(&Loop) > Directorio2$ + ListBoxItem$(&Loop)
Wend

Sombrero alguien una Concepto?

Besten Dank

02.12.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Was sagt el Fehlermeldung porque? Was passiert, si ErrorLevel en 0 setzt?
In diesem Fall dürfte el ErrorProc una gute Solución ser, en así una Fehler a verarbeiten.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

02.12.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

helpself

Lo kommt entonces: Copy Directorio1$ + ListBoxItem$(&Loop) > Directorio2$ + ListBoxItem$(&Loop)

porque, va no. desafortunadamente Todavía no Erfahrung con el ErrorLevel de Xprofan.

Muss mich todavía una bischen erlesen....

02.12.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Como lo time$() auch como native Función son podría él un hilo starten y de el Hilo-nProc una UserMessage senden -

somit sería él se el ständige Zeitprüfen por Hauptereignisschleife ersparen.

Ooooder él nimmt getTickCount y sólo a Programmbeginn errechnet él el getTickCount el a una cierta Tiempo gelten sería y final danach el Prg.

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

02.12.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Yo sería empfehlen, primero el simple Variante a nehmen.

Stehen porque en Su Variables auch el richtigen Werte?
Ansonsten kannst Usted en el Bucle en %error testen y entsprechend handeln.
Su Descripción el Fehlermeldung es siempre todavía no muy aussagekräftig. Was es el genaue Wortlaut? Läuft el Programa danach más? In welchem ErrorLevel (siehe Ayuda) befindest Usted Usted.

Prinzipiell könntet Usted el así abfangen:
Kompilieren Marca Separación

Set("ErrorLevel",0)
Var n% = 0

While n% < %getcount

    Copy Verzeichnis1$ + ListBoxItem$(&Loop) > Verzeichnis2$ + ListBoxItem$(&Loop)

    If %error

        MessageBox("Ein Fehler ist aufgetreten","Die Datei " + Verzeichnis1$ + ListBoxItem$(&Loop) + " konnte nicht kopiert werden",0)

    EndIf

    Inc n%