Beiträge von Darter

ich hab dir hier mal schnell ein Bsp. gemacht

EDIT: sorry war noch ein Fehler drinn. man muss natürlich den Prozentualen wert der progress setzten

Zitat von stayawayknight

Ich kann nur dringend dazu raten keine Umlaute zu verwenden, das führt sehr häufig zu Fehlern und bei mir hat das in Varaibeln noch nie funktioniert

hehe bist auch drauf reingefallen, das ist alles seine Signatur. Ich dachte auch erst, dass das sein Code sei, den er und zu seinem Problem postet^^

cool dann lag ich mit meinem TALB ja sogar richtig, obwohl ich dir UDF noch nie benutzt hab

Wie währe es mit Stecker ziehen. Nein Spa´bei seite. Ohne Gegenleistung soll das jemand für dich Coden. hmm Ich denke da wird sich nicht so leicht jemand finden, der dafür bereit ist.

dann setzt doch einfach mal bei der Funktion _ID3ReadTag($Filename, $iVersion = 0, $sFilter = -1, $iReturnArray = 0) $iReturnArray auf 1 und kuck mir mal an was da so alles drinn steht bzw. poste es auch mal hier.

Zitat von DjBlume

Hallo Community.

Um C++ zu üben habe ich ein Programm geschrieben, Wass alle Primzahlen bis zu dem eingegebenen Limit berechnet
und dann in eine Text-Datei schreibt.

Quellcode bekommt ihr natürlich auch

Quellcode

C

#include <iostream>
#include <fstream>
using namespace std;


int main()
{
    int limit;

    cout << "Bitte geben sie das Limit an, bis wohin die Primzahlen berechnet werden sollen\nLimit: ";
    cin >> limit;

    fstream f;
    f.open("Primzahlen.txt", ios::out);

    for(int i=3; i<limit; ++i)
    {
        bool isprim=true;
        for(int j=2; j<i; ++j)
        {
          if(i%j == 0) { isprim=false; break; }
        }
        if(isprim) f << i << endl;
        if(isprim) cout << i << " ist eine Primzahl\n";
    }
    f.close();
    cout << "----------------------\nPrimzahlen in Datei 'Primzahlen.txt' geschrieben\n\n";
    system("PAUSE");
}

Alles anzeigen

Eine vorkompilierte Exe liegt bei

hehe genau auf so ein Bsp. bin ich voher in nem Cpp TuT gestoßen. schöne Sache

Ich habs auch mal Archiviert. Kann man immer mal gebrauchen

Zitat von Sprenger120

@EM, s_hansse : Nun hört mal auf mit der Selbsbeweihräucherung
habt ihr eigenglich schon mal mitbekommen das wir, wenn man bei google nach Doodle Jump für PC sucht, auf dem erstem Plaz stehn

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

hehe nett. Aber der Thread wird auch gut besucht

bitte

Aber doppel und dreifachposts werden nie gerne gesehen.

Zitat von Sprenger120

Super proggy

Bei mir sind die Zahlen da wo sie sein sollen aber du solltest die Debugging ConsoleWrites auskommentieren machen das script nur langsam und erhöhe mal die Scroll geschwindigkeit mann dreht sich nen wolf eh man unten ist

Sind die noch drinn? Naja ich dachte ich hätte die raugemacht und ja die Scollgeschwindigkeit werde ich erhöhen und das ganze insgesammt etwas vergößern. Dauert aber ncoh etwas, da ich die Teamwertung noch gleich mit reinpacken will.

ja kann ich und zwar war die Wegen meines ersten Lösungsansatzes, welche ja nicht Funktioniert hat ^^. Wird natürlich nicht ausgeführt.

Aber kuckst du hier such dir da eine der Beiden Lösungen aus

Zitat von Darter

Auch ne nette Lösung

und hier nochmal für alle Pfeiltasten

Spoiler anzeigen

[autoit]

Opt("GUIOnEventMode",1)
GUICreate("Test",200,200)
$dummy_UP = GUICtrlCreateDummy()
GUICtrlSetOnEvent(-1,"UP")
$dummy_DOWN = GUICtrlCreateDummy()
GUICtrlSetOnEvent(-1,"DOWN")
$dummy_LEFT = GUICtrlCreateDummy()
GUICtrlSetOnEvent(-1,"LEFT")
$dummy_RIGHT = GUICtrlCreateDummy()
GUICtrlSetOnEvent(-1,"RIGHT")
GUISetOnEvent(-3,"_exit")
;GUIRegisterMsg ( 0x0290, "My_KEYDOWN" )
GUISetState()

[/autoit] [autoit][/autoit] [autoit]

Dim $AccelKeys[4][2] = [["{UP}", $dummy_UP],["{DOWN}", $dummy_DOWN],["{LEFT}", $dummy_LEFT],["{RIGHT}", $dummy_RIGHT]]
GUISetAccelerators ($AccelKeys)

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(100)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func UP()
MsgBox(0,"","Pfeiltaste nach oben wurde gedrückt")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func DOWN()
MsgBox(0,"","Pfeiltaste nach unten wurde gedrückt")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func LEFT()
MsgBox(0,"","Pfeiltaste nach links wurde gedrückt")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func RIGHT()
MsgBox(0,"","Pfeiltaste nach rechts wurde gedrückt")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func My_KEYDOWN($hWndGUI, $MsgID, $WParam, $LParam)
MsgBox(0,"",$hWndGUI & " " & $MsgID & " " & $WParam & " " & $LParam)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _exit()
Exit
EndFunc

[/autoit]

Alles anzeigen

Zitat von Sprenger120

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

HotKeySet("{Up}", "_Up")
HotKeySet("{Down}", "_Down")
HotKeySet("{Right}", "_Right")
HotKeySet("{Left}", "_Left")

[/autoit] [autoit][/autoit] [autoit]

Global $xPos = 190
Global $yPos = 180

[/autoit] [autoit][/autoit] [autoit]

GUICreate("", 625, 443, 192, 124)
GUISetOnEvent(-3, "_Exit")
$Button = GUICtrlCreateButton("Button1", 190, 180, 145, 65)
GUICtrlSetOnEvent($Button, "_Clicked")
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GUIRegisterMsg(0x001C, "_MY_WM_ACTIVATEAPP")
While Sleep(100)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Right()
$xPos += 10
GUICtrlSetPos($Button, $xPos, $yPos)
EndFunc ;==>_Right
Func _Left()
$xPos -= 10
GUICtrlSetPos($Button, $xPos, $yPos)
EndFunc ;==>_Left
Func _Up()
$yPos -= 10
GUICtrlSetPos($Button, $xPos, $yPos)
EndFunc ;==>_Up
Func _Down()
$yPos += 10
GUICtrlSetPos($Button, $xPos, $yPos)
EndFunc ;==>_Down

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _MY_WM_ACTIVATEAPP($hWnd, $uMsg, $wParam, $lParam)
Switch $wParam
Case True
HotKeySet("{Up}", "_Up")
HotKeySet("{Down}", "_Down")
HotKeySet("{Right}", "_Right")
HotKeySet("{Left}", "_Left")

[/autoit] [autoit][/autoit] [autoit]

Case Else
HotKeySet("{Up}")
HotKeySet("{Down}")
HotKeySet("{Right}")
HotKeySet("{Left}")
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>_MY_WM_ACTIVATEAPP
Func _Exit()
Exit
EndFunc ;==>_Exit
Func _Clicked()
MsgBox(0, "", "Button geklickt")
EndFunc ;==>_Clicked

[/autoit]

Alles anzeigen

Auch ne nette Lösung

und hier nochmal für alle Pfeiltasten

hier mal ein Bsp. Aber ich hab gerade festestellt eauf pfeiltasten reagiert das ganze gar nicht hmm :pinch:

und hier noch eine Funktionierende lösung:

ich versteh nicht ganz was du willt, aber erstmal gehen deine Variablen so nicht.

So wie ich es verstanden habe willst du, dass wenn man in deiner GUI dei Pfeiltaste drückt, dass eine Funktion aufgerufen wird richtig?
Dann kannst du mit den WIndows NachrichtenCodes arbeiten.

und war mit dem Nachrichten Code WM_KEYDOWN .

also GUIRegisterMsg ( WM_KEYDOWN, "My_KEYDOWN" )

dann kannst du in der My_KEYDOWN Funktion überprüfen, welche taste gedrückt wurde und dann deine Funktion aufrufen.

Aber ließ dir die Hilfe zu GUIRegisterMsg nochmal durch.

hast du die UDF mal genau angeschaut. Wo steht da, dass man als Parameter einfach direkt Album schreiben kann/soll. Da steht doch ganz klar was von einer Frame ID und oben bei der ersten Func sind doch auch alle beschrieben.

probiers mal so:

vllt hilft dir das weiter? RegEnumKey ( "keyname", instance )

bsp. aus der hilfe:

For $i= 1 to 10
$var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE", $i)
If @error <> 0 then ExitLoop
MsgBox(4096, "Unterschlüssel #" & $i & " unter HKLM\Software: ", $var)
Next

dann könntest du mit RegRead() den enstrechenden Wert herausbekomen.

EDIT: Sorrry geht so natürlich nicht :pinch:

Du kannst doch, wenn der Fenstername der Exe die du so startest immer gleich ist den Zustand dieses Fester über dein eig. Programm mit WinSetState ( "title", "text", flag ) setzten.
und einfach einen Parameter wie SHow oder Hide an eine andere Applikation zu übergeben bringt recht wenig, wenn sie nicht darauf Programmiert wurde, diese zu erhalten

Zitat von AutoBert

Hallo Darter,

1. kurzer Test, schönes Design, Schrift etwas zu Klein (NetBook mit 1024*600, wird aber nicht ausgenutzt). Fahrernamen stimmen (ÄÖÜ)

bei weiteren Programmstart(-Versuchen) jedoch Absturz:

Spoiler anzeigen

Code

>"C:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Programme\AutoIt3\Downloads\Darter\Formel1\Formel1 Display 1.1.au3" /autoit3dir "C:\Programme\AutoIt3" /UserParams    
+>21:52:55 Starting AutoIt3Wrapper v.2.0.1.24    Environment(Language:0407  Keyboard:00000407  OS:WIN_XP/Service Pack 3  CPU:X86 OS:X86)
>Running AU3Check (1.54.19.0)  from:C:\Programme\AutoIt3
+>21:52:57 AU3Check ended.rc:0
>Running:(3.3.6.1):C:\Programme\AutoIt3\autoit3.exe "C:\Programme\AutoIt3\Downloads\Darter\Formel1\Formel1 Display 1.1.au3"    
C:\Programme\AutoIt3\Downloads\Darter\Formel1\MyHover.au3 (48) : ==> Subscript used with non-Array variable.:
If $aMouseinfo2[0] > $aGUI_Register_Hover_Infos[3] And $aMouseinfo2[0] < $aGUI_Register_Hover_Infos[3]+$aGUI_Register_Hover_Infos[5]   And   $aMouseinfo2[1] > $aGUI_Register_Hover_Infos[4] And $aMouseinfo2[1] < $aGUI_Register_Hover_Infos[4]+$aGUI_Register_Hover_Infos[6] And WinActive(HWnd($aGUI_Register_Hover_Infos[1]))Then
If $aMouseinfo2^ ERROR
->21:53:08 AutoIT3.exe ended.rc:1
>Exit code: 1    Time: 18.472

ich habe sogar das rar noch einmal entpackt, leider selbes Ergebnis,

Edit: Fehler tritt nur auf, wenn beim Programmstart die Maus über dem Anzeigebereich ist

mfg (Auto)Bert

Alles anzeigen

Danke. Genau das ist mir auch schon aufgefallen. Bin schon dabei das zu beheben aber dürfte kein allzugroßen Problem sein.
Schiftgröße, hmm naja etwas klein ist sieh schon werd ich mal etwas anpassen

jup hat man mir schon mitgeteilt

Zitat von AspirinJunkie

Mal davon abgesehen davon das ich das Skript nicht testen kann da die Hover.au3 fehlt.
Wenn du schon weißt das die Kreismittelpunkte im jeweils anderen liegen und du weißt was der äußere und was der innere Kreis ist ist das kein Problem - dann ist es nur eine Bedingung.
Aber es ist nicht mehr allgemeingültig und für alle (unbekannten) Kreise lösbar damit.
Deswegen fange ich diese Fälle extra ab.

oh sorry ja die hiver.au3 brauchste ja nicht kannst einfach auskommentieren , da wos angewendet wird.