| ||
|
Ergebnisse auf Deutsch für vbs fortschritt anzeige
|
| Szukaj:Słowo(a): vbs fortschritt anzeige |
Sorry, aber ich fürchte, ich bin auch nicht mehr 100pro im Bilde, was den Fortschritt des Hacks anbelangt... Gibt es inzwischen eine Möglichkeit, die Anzeige der letzten Themen auszublenden, wenn der entsprechende Benutzer nicht die erforderlichen Rechte hat? Und desweiteren: wie kann eigentlich die Differenz zwischen der Gesamtzahl an Beiträgen, die die vB-Startseite ausgibt und der Ausgabe in der Statistik? Als denn, man schreibt sich :) |
Zitat:
Jap, die Moeglichkeit gibts inzwischen. :) |
Ich habe gerade einen Testlauf gemacht und wollte wBB in vB 3.6.4 mit impex 1.75 reinziehen (das impex ist englisch? - gab es da nicht auch eins auf deutsch?). Module 001 Check and update database läuft durch ohne Fehlermeldung (nur ein paar zusätzliche Tabellen) Module 002 Associate Users benutze ich nicht Module 003 Import User Groups funktioniert und er zeigt mir den Fortschritt an Module 004 Import Users geht nicht wirklich Users to import per cycle (must be greater than 1) 500 Would you like to empty your existing vBulletin members database? Ja Nein Would you like to associated imported users with existing users if the email address matches? Ja Nein Das was dann kommt ist ... Zitat:
... und nix passiert, kein Fortschritt, keine Anzeigen und schon gar keine CPU Last durch nen evtl vorhandenen Import. |
Prozentanzeige Hallo! Ich habe ein Programm geschrieben, welches 390 Schritte ausführt. Dazu wird ein ProgressBar angezeigt. Ich arbeite mit Visual Basic 2005 Express Edition. :::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::::::::::::::::::::::::: ProgressBar1.Maximum = 390 ProgressBar1.Step = 1 :::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::::::::::::::::::::::::: In einem Label wird dder Fortschritt in Prozent angezeigt :::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::::::::::::::::::::::::: Label1.Text = ProgressBar1.Value / 3.9 & "%" :::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::::::::::::::::::::::::: Dadurch wird zwar der Fortschritt im Label angezeigt......jedoch mit kommastellen... z.B. 3,398579....................................... Kann man diese Kommastellen irgendwie entfernen? Danke schonmal im Voraus |
Daten laden mit Fortschrittsanzeige Hallo, ich habe folgendes Problem mit TADODataSet: Ich moechte den User waehrend des Ladevorgangs nicht mit einer einfachen Sanduhr sitzenlassen, daher habe ich folgendes versucht: Ich habe ich bei der ADOConnection ConnectionOptions auf coAsyncConnect gesetzt und am ADODataSet folgende Eigenschaften eingestellt: CursorLocation:=clUseClient ExecuteOptions:=[eoAsyncExecute, eoAsyncFetch, eoAsyncFetchNonBlocking] Da mir weder AfterOpen, noch OnFetchComplete immer korrekt ausgelöst werden, wenn die Abfrage keine Daten enthält, habe ich mit folgender Schleife geprüft, ob die Abfrage ausgeführt wurde: var b=boolean; begin b:=false; while not b do if Assigned(ADODataSet1.Recordset) then b:=(ADODataSet1.Recordset.State=1); end; Leider spielt jedoch das Grid, welches ich an das ADODataset gehaengt habe, verrueckt und zeigt manchmal nur den ersten Datensatz an. Manchmal zeigt es aber auch nur eine (leere) Spalte an, dies aber für alle Datensätze. Wie kann ich nun mein Statusfenster anzeigen ohne diese Probleme zu haben? Das Ereignis OnFetchProgress hat ja auch seine Fehler (die aber meiner Ansicht nach von ADO kommen, da ein VB-Entwickler die gleichen Probleme mit diesem Ereignis hat). MfG Jan |
was ? die zeit ? des hochzählen ? die bar ? ich hab leider kein vb hier und meine aktive zeit liegt auch schon ein wenig zurück. wie willst des eigentlich machen ? normalerweise sagt man ja, man nimmt so ne bar um ne anzeige zu schaffen wie langs noch dauert. wenn du des eine minute lang hochzählen willst.. wozu ? ich mein wennst z.b. ne db hast, dann nimmst als max die anzahl der recordsets und beim jedem auslesen (in ner schleife) zählst den value um 1 hoch. was soll deine fortschrittsanzeige aussagen ? was steht dahinter ? |
Update auf CN9 fehlgeschlagen Hallo Gemeinde, habe wg Reparatur einen neuen Q2 mit CN8. So weit so gut. Separates Kto angelegt + registriert (da kostenloses Update auf CN10 nicht mehr gehen wird). Freischaltcode für kostenloses Update auf CN9 erhalten. Update CD hatte ich noch von dem alten Gerät. Update CD akzeptiert den Code - alles prima. Beim Kartenupdate des Geräts komme ich aber nicht über die Anzeige auf dem PC "Karten werden gelöscht" und jungfräuliche Fortschrittsanzeige hinaus. Das Bild auf dem Q2 ändert sich nicht, also immer noch Karte angezeigt. Auch Warten öbernacht hat nix gebracht. Es tut sich nix. Das Gerät muü aber irgendwie angesprochen worden sein, denn wenn ich dann den Vorgang abbreche muü ich das Gerät über ein langes Drücken der An/Austaste abschalten. Beim Wiederanschalten macht es dann einen Softreset und alles ist wie vorher, also CN8 (zum Glück). Auch ein Hard Reset am Gerät hat keine ćnderung gebracht. Wie gesagt, ich weiü wie der Vorgang funzt und ich habe ihn ja schon am alten Gerät durchgeführt (Siehe http://www.naviboard.de/vb/showthread.php?t=17802) aber jetzt fällt mir nix mehr ein. Hat noch jemand eine Idee ? An der Update CD kann es ja nicht liegen. Thomas |
Hallo Jochen, Betrifft Editor: zu 2) Hintergrund: Gültigkeit der Variablen schon beim Eingeben erkennen (Wer hat es noch nicht fertiggebracht, während des Eingebens eine Variable umzutaufen oder falsch zu schreiben? Vor allem wenn man option explicit am Anfang des Scripts vergisst, ergibt das manchmal eine lange Fehlersuche) zu 4) Hast Du mit dem Script-Editor von Fixfoto schon gedruckt ;) ? Eigene Linien (habe ich auch schon praktiziert) werden mitinterpretiert, wenn auch als Kommentare. Wir haben immer noch einen Interpreter, keinen Kompiler. zu 7) Wenn man nicht gleich speichert und zum anderen Script wechselt (Dateikopf kopieren) kann man den Link nur noch löschen und neu anlegen. (Oder die INI editieren) Betrifft FF_SetProgress Text: Wie baust Du ein Textfeld ohne Dialog ein? Die Fortschrittsanzeige ist im Ausführungs- bzw Editorfenster integriert. Da braucht man keinen eigenen Dialog! Des weiteren habe ich gern im Fortschrittsbalken auch mal(aber nicht nur) die Prozentanzeige, deshalb will ich den Text frei gestalten. Erinnere Dich doch mal an die normale Stapeverarbeitung von FF. Nur hätte ich den Text gerne im Balken (oder in der nicht vorhandenen Statuszeile ;) ). Tastaturabfrage: Erkläre einem Nichtprogrammierer, wie er ein Script abbrechen soll. Auf Escape kommt jeder, ist aber nicht in jeder Phase erwünscht. Bei jeder Tastatureingabe wird ein Ereignis ausgelöst und von Windows eine Message zum Elternfenster geschickt, welches den Fokus hat. Da SetProgress Teil des Elternfensters ist, kann bei einem Aufruf der Tastenaufruf mitverarbeitet werden. Ist die Taste 'ESC' wird das Skript unterbrochen. Mehr verlange ich gar nicht. Natürlich könnte man wie zu QuickBasic's Zeiten das über INKEY lösen und auswerten, wenn man diese Funktion hätte! Optionale Parameter: Wird unterstützt von C, C++, VBScript (Aufruf), JScript (Aufruf), VB, .Net ..., MS macht's vor, erfordert beim Programmieren halt etwas mehr Sorgfalt und Arbeit. Ist aber dann wesentlich flexibler. Weiteres Beispiel FF_Scale: Wie weiü ich, nach welchen Kriterien FF skaliert, wenn verschiedene Aspekte zwischen Quell- und Zielbild herschen, mit keepAspect = true. öberraschungen sind vorprogrammiert. Ein Aufruf wie: FF_HQScale Breite,,true wäre eine elegante Lösung. Ich brauche keine Variable übergeben, deren Gröüe ich nicht kenne, und FF muü nicht entscheiden, welche Variable für der Script-Programmierer denn jetzt wichtiger ist, Breite oder Höhe? Schönen Gruü, Werner. |
Alles Versucht , nichts funzt Hallo! Wie ich schonmal geschrieben habe, habe ich ein Programm mit Visual Basic 2005 Express Edition erstellt, welches 390 Schritte ausführt und einen ProgressBar dazu anzeigt. Ich habe das Maximum für den ProgressBar auf 390 gesetzt. In Label1 wird der Fortschritt in Prozent angezeigt. Allerdings mit vielen Kommastellen. Ich habe alle möglichkeiten versucht um die Kommastellen zu entfernen doch ich bekomme es nicht hin. Um nicht meinen Ganzen Code hier reinzuschreiben, habe ich als Beispiel einen ProgressBar (Maximum 390, Step 1) mit einem Timer gesteuert. Da ist der Code Code: Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Button1.Text = "Start" Button2.Text = "Beenden" ProgressBar1.Maximum = 390 ProgressBar1.Step = 1 Timer1.Interval = 50 Label1.Text = "0%" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Start() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Application.Exit() End Sub Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick ProgressBar1.PerformStep() Label1.Text = ProgressBar1.Value / 3.9 & "%" If ProgressBar1.Value = ProgressBar1.Maximum Then Timer1.Stop() Exit Sub End If End Sub End Class Kann mir den Code jemand so ändern, dass die Prozentanzeige Ohne Kommastellen angezeigt wird? 1000 dank im Voraus |
ProgressBar mit Prozentanzeige ! ! ! CODE ! ! ! Endlich habe ich es hinbekommen. Man muss in Visual Studio 2005 das Projekt Steuerelementen - Bibliothek erstellen. Ich nenne das Projekt PercentBar. Darin dann eine neue Klasse einfügen. In die Klasse folgenden Code eingeben: Code: Imports System.Drawing.Drawing2D Public Class PercentBar Inherits PictureBox Private m_Value As Integer = 0 Private m_Font As New Font("Arial", 8) Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs) MyBase.OnPaintBackground(pevent) Dim g As Graphics = pevent.Graphics Dim o As String = m_Value.ToString & " %" Dim r As Rectangle = New Rectangle(0, 0, (pevent.ClipRectangle.Width / 100) * m_Value, pevent.ClipRectangle.Height) Dim h As Int16 = g.MeasureString(o, m_Font).Height / 2 Dim w As Int16 = g.MeasureString(o, m_Font).Width / 2 'Farbe des Fortschrittsbalkens g.FillRectangle(Brushes.Blue, r) 'Textfarbe g.DrawString(o, m_Font, Brushes.Red, pevent.ClipRectangle.Width / 2 - w, pevent.ClipRectangle.Height / 2 - h) End Sub Public Property Value() As Integer Get Return m_Value End Get Set(ByVal value As Integer) m_Value = value Me.Invalidate() End Set End Property End Class Das ganze kompilieren und die DLL in die Toolbox einfügen. Dann kann man PercentBar als Steuerelement auswählen. |
Eine Anleitung? Oh! :D Da würd ich jetzt glatt ein Hauptmenü im Fenster mit nem Menüpunkt Hilfe vorschlagen, nach sowas hatte ich nämlich tatsächlich geschaut, aber nichts gesehen ;) Aber Anleitung hin- oder her, als Softwareentwickler beschäftige ich mich zwangsweise auch immer mal wieder mit Softwaretests, und weil man als Softwareentwickler ja immer gerne Scheuklappen trägt, versuch ich für Kritik immer erst den Noob-Modus einzuschalten :D Denn ein gutes Programm sollte intuitiv sofort benutzbar sein (siehe Links ganz am Ende) - wobei die Anleitung schön ausführlich und lobenswert scheint :) Zu 1. bin mir jetzt nicht sicher, was Du mit WinAmp meinst. Das WinAmp-Hauptfenster und der Equalizer haben eine vorher klar definierte Menge an Informationen, die es darstellen. Alles aber, was "Listen" enthält, wie etwa die Playlist, die Medienbibliothek etc., sind doch in der Gröüe veränderbar? Zu 2. Selektion vorher merken, hinterher zurücksetzen ;) Zu 3. Das kenn ich... das ist DAS groüe Problem schlechthin: als Softwareentwickler ist einem selber die Funktion fast immer einleuchtend :D Zu 4. Ich hatte nur ein paar Seiten zurück etwas gesehen, das an Visual Basic erinnerte. Wenn das AutoIt ist (kenn ich grob dem Namen nach), kann ich durchaus verstehen daü das noch weniger Möglichkeiten zur Verfügung stellt, sorry ;) Dann noch eher Hut ab, daü Du das damit hinbekommen hast soweit! Zu 5. Wahrscheinlich, weil das nicht konsequentes Standardverhalten ist ;) Bei einem Filter "erwarte" ich, aufgrund Erfahrungen in etlichen anderen Programmen, daü die Ansicht gefiltert sichtbar wird. Entweder, indem nicht in den Filter passende ausgeblendet werden, oder umgekehrt die passenden vorselektiert werden. Eine derart unsichtbare Filterei ist halt nicht gebräuchlich. Soviel als von den Möglichkeiten von AutoIt unabhängige Meinung ;) Zu 6. Ich meinte das kleine blaue Fenster rechts unten über den Traysymbolen, mit dem Schädel im Hintergrund um dem "Lade", "Entpacke", &c-Fortschritt. Das ist natürlich nicht in der Mitte ;) Liegt üblicherweise daran, daü man eher GetSystemMetrics(SM_CXFULLSCREEN) verwendet und die typische Taskbarhöhe als Konstante abzieht statt SystemParametersInfo(SPI_GETWORKAREA, ...) zu verwenden. Zu 8. Intuition wär noch besser als Anleitung :D Zu 10. Ganz einfach: jeder Druck der Leer- oder Entertaste schlieüt einen Fehlerdialog ja wieder (MacOSX ist da besser und nerviger zugleich, da lassen sich solche Dialoge nur mit der Maus bedienen). Sprich: Fehlermeldung geht auf, ich bin noch mitten im Tippen und tippe sie sofort wieder weg (deswegen kann ich sie nicht lesen), aber dank "geklautem" Fokus muss ich erst wieder zu meinem Ursprungsfenster zurückwechseln. Siehe dazu MessageBox; unter MB_SYSTEMMODAL. In welcher Weise Du mit AutoIt überhaupt diese Dialoge anzeigen kannst, weiü ich nicht, kann auch sein daü Du da gar keinen Einfluü drauf hast. Die besten Bücher, was GUI-Design-Standards angeht, sind wahrscheinlich die ersten Inside Macintosh-Bände (auch wenn für den Mac gedacht, sind diese Dinge ja eigentlich allgemeingültig), aber nur noch in Papierform und wegen Sammlerwert extrem teuer zu bekommen. Von IBM hab ich da gerade z.B. diese Guidelines für Wizards gewählt, weil es der Art der Aufgabe am nähesten kommt. Die SSW Rules to Better Interfaces finde ich auch sehr gut, weil sie alles schön anschaulich mit Bildern vergleichen (ich hab gerade beim öberfliegen auch wieder Dinge entdeckt, wo ich selber nochmal bei dem woran ich gerade arbeite nachbessern werde müssen :D ). Als Lektüre eignet sich das vielleicht am besten; bei einigen Details wird dort auch auf entsprechende MSDN-Seiten verwiesen. Im übrigen passiert sowas wirklich jedem, egal ob Profi- oder Hobbyentwickler ;) Einfach weil man als Entwickler zwangsweise immer irgendwo Scheuklappen hat und das eine oder andere für ganz selbstverständlich hält. Hochsprachen haben da den Vorteil, daü man Funktion und GUI sehr strikt getrennt modellieren kann und GUI-ćnderungen dadurch sehr einfach werden; in einer Skriptsprache wirst Du da dagegen richtig herausgefordert :) |
Update HTML-Generator 1.1 Updatehinweise für Version 1.1 Erst lauffähig ab FixFoto 2.73 Build 16: (Für frühere Versionen von Fixfoto bitte die Version 1.02 benutzen) Neue Installation:
Ein Beispiel dafür ist die title.html vom Template: Frame 2l lSonderzeichen wie ' ? ' machen bei Frame 2 und SWFrame keine Probleme mehrl lEs kann ein beliebiger Browser eingebunden werden über den Dialog Konfiguration.l lEs können fremde Skripte über den Dialog Toolbox eingebunden werden, die vor oder nach der Skalierung von kopierten Bildern arbeiten, egal ob JScript oder VBScript. Parameter werden mit FF_SetParam und FF_GetParam übergeben. Als Parameter wird ein PfadString aller bearbeiteter Bilder übergeben, die mit CRLF getrennt sind. (In VBScript kann mit Split(FF_GetParam, vbCRLF) ein Array mit den Pfadnamen erzeugt werden.) Diese Add-Ins werden jedoch nur ausgeführt, wenn Bilder im HTML-Generator auch kopiert werden, was meist der Fall ist. Somit wird nie ein Originalbild verändert. Möglich Beispiele für die Nutzung: XE847-Skripte, Rahmenskripte, Copyright-Stempel etc.l lToolbox (nur manuell erweiterbar über html.dlg) Momentane Einträge: Explorer öffnen für Template- und Projektverzeichnissel Viel Spaü, Euer Werner. |
hi...<br><br>hab hier ein kleines script, das einen html file im root verzeichnis erstellt...<br>im augenblick listet es aber nur mp3 files, kann aber angepasst werden. auch der ausgabepfad.<br>einfach den text zwischen der doppellinie in einen textfile kopieren und mit der endung *.vbs versehen.<br><br>alternativ kannst du aber auch die neueste version des windows commanders nehmen, der kann das auch, allerdings kann man aus seiner liste die daten nicht mit cut&paste weiterverarbeiten<br><br><br>======================================================== ===<br><br><br>'===================================================================== =====<br>'<br>' VBScript Source File <br>'<br>' NAME: READALL.VBS<br>'<br>' AUTHOR: Thorsten Eggeling<br>' DATE *: 01.2001<br>'<br>' COMMENT: pcwFman Liest alle Datei- und Ordnernamen in eine HTML-Datei<br>'<br>' nötige Anpassungen: myFile, evtl. Fortschrittsanzeige auskommentieren<br>' * * * * * * * * * * FileExt, WithNumbers<br>'===================================================================== =====<br><br><br>ordner=inputbox("Pfad angeben", "Dateiliste", "K:")<br><br>If ordner="" Then *WScript.Quit<br><br>Dim Drives<br>Dim Files<br>Dim Root<br>Dim ie4Progess<br>Dim myDrive<br>Dim myPath<br>Dim aString(0)<br>Dim FileCounter<br>Dim FileExt<br>Dim WithNumbers<br>Dim myFile<br>Dim strTemp(0)<br>'**************************<br>'Hier anpassen<br>FileExt="mp3"<br>WithNumbers=False<br>myFile="c:DateiListe .html"<br><br>Set WshShell = WScript.CreateObject("WScript.Shell")<br>Set myFMan = CreateObject("pcwFMan.pcwFMan")<br>Set ie4Progess=CreateObject("InternetExplorer.Application")<br>'Pfad zerlegen<br><br>If InStr(ordner,":")=0 Then<br>MsgBox("Bitte geben Sie den vollständigen Pfad ein.")<br>WScript.Quit<br>End If<br><br>myDrive=Left(ordner,1)<br>myPath=Mid(ordner,4, Len(ordner))<br><br>'Fortschritts-Anzeige initialisieren<br><br>FortschrittsAnzeige ()<br><br>Set Drives = myFman.Drives<br><br>For i=0 to Drives.Count-1<br>If Drives(i).Letter =UCase(MyDrive) Then Exit For<br>Next<br>DriveNumber=i<br><br><br>Result=myFMan.OpenBinaryFile(myFile,1,1)<br>< br><br>aString(0)="<B>"& Drives(DriveNumber).Letter & ":" & myPath & "</B><br>"<br>Result=myFMan.Write(aString)<br><br>'Jetzt geht's los<br>Recurse DriveNumber, myPath<br>myFMan.Close<br>ie4Progess.Quit<br>set ie4Progess=nothing<br>Set myFMan=nothing<br><br>'Liste anzeigen<br>WshShell.Run ("iexplore.exe " & myFile)<br>Wscript.Quit<br><br>Function Recurse (DriveNumber, TheFolder)<br>Set Root=Drives(DriveNumber).Folder(TheFolder)<br>Set Files=Root.Files<br>ShowFiles(Files)<br>'Odner auflisten<br>'MsgBox(Files.Count)<br>For Each File In Files<br> *If File.IsFolder Then<br> * * *aString(0)="<B>" & Drives(DriveNumber).Letter & ":" & TheFolder & "" & File.Name & "</B><br>"<br> * * *'Result=myFMan.Write(aString)<br> * * *strTemp(0)=aString(0)<br> * * *i=i+1<br> * * *UpdateFortschritt(i)<br> * * *Recurse DriveNumber, TheFolder & "" & File.Name <br> * End If<br>Next<br>End Function<br><br>'Dateien Auflisten<br>Sub ShowFiles (ByVal AFolder)<br>For Each File In Files<br><br> *If Not File.IsFolder Then<br> * * If Right(LCase(File.Name), 3)= LCase(FileExt) Or FileExt="*" Then<br> * * *FileCounter=FileCounter+1<br> * * *If WithNumbers Then<br> * * * *aString(0)="<B>" & FileCounter &"</B><I> "& File.Name & "</I><br>"<br> * * *Else<br> * * * *aString(0)="<I> "& File.Name & "</I><br>"<br> * * *End If * <br> * * If Not Flag Then Result=myFMan.Write(strTemp)<br> * * Flag = True<br> * * Result=myFMan.Write(aString)<br> * * End If<br> *End If <br>Next<br><br>End Sub<br><br>Sub FortschrittsAnzeige ()<br><br>ie4Progess.navigate ("about:blank")<br><br> Do while ie4Progess.ReadyState<>4<br> Loop<br><br>ie4Progess.width=200<br>ie4Progess.height=80<br>ie4Progess.Addressbar=vbf alse<br>ie4Progess.MenuBar=vbfalse<br>ie4Progess.ToolBar=vbfalse<br>ie4Progess.Status Bar=vbfalse<br>ie4Progess.visible=1<br>End Sub<br><br>Sub UpdateFortschritt(Zahl)<br> ie4Progess.document.body.innerHTML="<Center>Ordner suchen: " & Zahl & " </Center>"<br>End Sub<br><br><br><br>===========================================================<br><br >cu<br>scan<br><br>ps: zu dem script gehört noch eine dll, wen es interessiert, melde sich, dann verschick ich es |