Beiträge von Ilse

Ilse

Hallo Xor,

konnte mich leider erst heute wieder melden.
merci für deine Hilfe.
Ich kriege das leider nicht zum laufen.

Wenn ich die Numpad Tasten drücke passiert nichts!
NumPad ist natürlich aktiviert.

Liebe Grüße
Ilse

Ilse

merci
ich kämpfe mich mal durch
muß jetzt leider wieder weg.

Melde mich später wieder

Liebe Grüße
Ilse

Ilse

Hallo Freaky,

hm findest du Hotkeys besser?

Danke für den Tipp
MouseMove(@DesktopWidth / 2 ,@Desktopheight / 2,100)

Noch ne Frage:
Wie kann ich mit der SpaceTaste MouseMove anhalten? Starten...(Stop weiter...)
huh da qualmt mir gerade mein Kopf...

Ilse

Ilse

Hallo,

ich habe folgendes Problem:
Ich möchte für einen älteren Menschen der sehr zittert
und mit der Maus Probleme helfen.

Das Ergebnis sollte so sein:
Durch drücken auf der NumPad Tastatur 1-9
soll die Maus automatisch an die Prosition langsam laufen.

Das geht auch, nur mit den Positionen habe ich ein Problem
Hier mal mein Aufbau:

Spoiler anzeigen

[autoit]

#include <Misc.au3>

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

;die Tastaturbelegung

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

;_IsPressed("61");Numpad 1 = mousemove unten links
;_IsPressed("62");Numpad 2 = mousemove unten mitte
;_IsPressed("63");Numpad 3 = mousemove unten rechts

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

;_IsPressed("64");Numpad 4 = mousemove mitte links
;_IsPressed("65");Numpad 5 = mousemove mitte mitte
;_IsPressed("66");Numpad 6 = mousemove mitte rechts

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

;_IsPressed("67");Numpad 7 = mousemove oben links
;_IsPressed("68);Numpad 8 = mousemove oben mitte
;_IsPressed("69");Numpad 9 = mousemove oben rechts

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

;_IsPressed("60");Numpad 0 = Klick
;_IsPressed("20");Space = Start-Stop Move

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

$size = WinGetPos("[active]")

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

While 1
If _IsPressed("61") Then ;Numpad 1
;mousemove($size[0],0,100)
ElseIf _IsPressed("63") Then ;Numpad 3
mousemove($size[1],0,100)
endif

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

WEnd

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

wie ich nach unten oder Bildschirmmitte komme weiß ich nicht.

Sollte also so laufen:

Spoiler anzeigen

Rechnertastatur

789
456
123

7 bewegt die Maus oben links 8 oben in die Mitte 9 oben rechts
4 bewegt die Maus Mitte links 5 Bildschirmmitte 6 mitte rechts
1 unten links 2 unten Mitte 3 unten rechts

Space sollte Mousemove anhalten/starten...

Meine Fragen:
Wie kann ich die Positionen für den Bildschirm bestimmen?
Wie kann ich per Space-Taste MouseMove anhalten und wieder starten?

Würde mich freuen wenn ihr mit dabei helfen könnt.

Liebe Grüße
Ilse

Ilse

Hallo autobert,

super, das klappt.

ich habe den ganzen Morgen etliches probiert

DANKE Ilse

Ilse

Hallo,

merci für die Hilfe!
ABER:

_GUICtrlTab_ActivateTab($hTab, $GeheZu)

produziert einen Fehler!
ERROR: _GUICtrlTab_ActivateTab(): undefined function.

hab das ersetzt
_GUICtrlTab_ActivateTab($hTab, $GeheZu) ; geht nicht!
;_GUICtrlTab_SetCurFocus($hTab, 2) ; geht

Grüße Ilse

Ilse

Hallo,

folgendes Problem:

1. Meine Gui hat mehrere Tabs!
2. Meine Gui hat ein Eingabefeld für die TAB Nr.

Das Problem:

Ich möchte in das Feld die TAB-Nr. eintragen,
drücke ich RETURN dann soll der TAB aktiv werden.
Die Nr wird immer eins weiter gezählt.
Das klappt alles, nur der TAB wird nicht aktiv!

Mein Script

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiTab.au3>

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

HotKeySet("{Enter}", "_Seite")

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

$Form1 = GUICreate("Form1", 625, 443, 192, 124)
$hTab = GUICtrlCreateTab(32, 56, 537, 337) ; !!!
$txtPage = GUICtrlCreateInput("0", 10, 5, 100, 20)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSeite = GUICtrlCreateTabItem("Seite") ; !!!
;$Button1 = GUICtrlCreateButton("Zeigen", 440, 304, 75, 25, $WS_GROUP)
;$Button2 = GUICtrlCreateButton("ausblenden", 440, 336, 75, 25, $WS_GROUP)
$Tab1 = GUICtrlCreateTabItem("1")
$Tab2 = GUICtrlCreateTabItem("2")
$Tab3 = GUICtrlCreateTabItem("3")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)

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

_GUICtrlTab_SetCurFocus($hTab, 0); TAB wird auf 0 gesetzt
;MsgBox(4160, "Information", "Aktueller Fokus: " & _GUICtrlTab_GetCurFocus($hTab))

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

ControlFocus($Form1, "",$txtPage)
GUICtrlSetData ($txtPage,"")

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

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

Func _Seite()

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

$GeheZu = guictrlread($txtPage)
_GUICtrlTab_SetCurFocus($hTab, $GeheZu)
$GeheZuweiter = $GeheZu +1
GUICtrlSetData ($txtPage,$GeheZuweiter)
ControlFocus($Form1, "",$txtPage)

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

EndFunc

[/autoit]

Seltsam ist
1. Ich kann das Feld lesen
2. Ich kann den TAB Fokus so setzen: _GUICtrlTab_SetCurFocus($hTab, 2); das geht!
und so geht's nicht:
_GUICtrlTab_SetCurFocus($hTab, $GeheZu) ; das nicht! (Das guictrlread Feld)

Grüße Ilse

Ilse

@ alle
@Error ja muß in Zukunft daran denken!

Ilse

Ilse

Hallo,

ich hab's

[autoit]

If IsArray($iLinks) Then
Msgbox(0,"",$iLinks[0])
endif

[/autoit]

Ilse

Hallo,

habe mal wieder ein Arrayproblem.
Ich schaffe es einfach nicht das Array in die Msgbox zu bekommen.

Spoiler anzeigen

[autoit]

Local $alink = IniReadSection("Index.ini", "Link")

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

$LinkSource = BinaryToString(InetRead($aLink[$f][1], 1)) ;
Msgbox(0,"",$aLink[$f][1]) ; diese MsgBox wird angezeigt!

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

$iLinks = StringRegExp($LinkSource, '(?i)tiere"(.*?)"', 3)
_ArrayDisplay($iLinks,"Descrition",2); das wird auch angezeigt

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

;Msgbox(0,"",$iLinks [0][1]) ; diese MsgBox wird nicht angezeigt!
;Msgbox(0,"",$iLinks [0][0]) ; diese MsgBox wird nicht angezeigt!

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

Ich erhalte immer die Meldung
Subscript used with non-Array variable

Ilse

Ilse

Hallo Raupi,
ja ich weiß...

ich hatte da in meinem Haupt-Script vieles durcheinander
habe alles nochmal neu aufgebaut und da ging es komischweise.

Fokus zeigt alles
und in dem anderen nicht. Wollte nur fragen ob
der Fokus auch den Inhalt zeigt. Weiß ich nun.

Kämpf mich noch eine Weile durch...

Grüße
Ilse

Ilse

Hallo
und nochmal Dank für die Tipps!

Leider gibt es noch ein Problem mit den TABS!

Spoiler anzeigen

_GUICtrlTab_SetCurFocus($Tab,1)
oder
_GUICtrlTab_SetCurFocus($Tab,5)

das Setzen des Focus geht.
Leider sehe ich aber nicht den Inhalt des Tabs.

Frage:
Gibt es noch einen Befehl, der anschließend
für den TAB (mit Focus) ein Return ausführt!

Wenn ich von Hand klicke geht das.
Ich sehe Fokus & Inhalt.
Mouseclick(left) geht hier auch nicht.

Eine Idee?

Grüße
Ilse

Ilse

Hallo Andy,

bass.dll ist im Scriptverzeichnis
Also im gleichen Verzeichnis wie das Hauptscript...

ICO ist nicht zu sehen!
Es wird sofort beendet!

Güße
Ilse

Ilse

Hallo Andy,

mußte kurz wieder los...
Ich bekomme dein Script nicht zum laufen!
Die original Fils sind im Ordner Scriptdir\music

Spoiler anzeigen

[autoit]

#include <Bass.au3> ; Include-Verzeichnis
#include <BassConstants.au3> ; Include-Verzeichnis
#include <File.au3>

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

_BASS_Startup(@ScriptDir & "\bass.dll")
_BASS_Init(0, -1, 44100, 0)

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

$Hintergrund_Ordner_Pfad = @ScriptDir & "\music\" ; Ordner-Pfad der Hintergrund-Musik (am Ende "\" wichtig) | anpassen!
$Geraeusch_Mp3_Pfad = "" ; Mp3-Pfad einer Geräusch-Mp3 | anpassen!

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

Global $Array = _FileListToArray($Hintergrund_Ordner_Pfad, "*.mp3")
Global $Stream_Hintergrund, $Stream_Geraeusch

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

Wiedergabe()

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

While 1
If _BASS_ChannelIsActive($Stream_Hintergrund) = "0" Then ; wenn Hintergund-Musik zuende, dann Exit
_Bass_ChannelStop($Stream_Geraeusch)
_BASS_StreamFree($Stream_Geraeusch)
_Bass_ChannelStop($Stream_Hintergrund)
_BASS_StreamFree($Stream_Hintergrund)
_Bass_Free()
Exit
EndIf
Sleep(100)
Wend

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

Func Wiedergabe()
$Stream_Hintergrund = _BASS_StreamCreateFile(0, $Hintergrund_Ordner_Pfad & $Array[Random(1, $Array[0], 1)], 0, 0, 0)
_BASS_ChannelPlay($Stream_Hintergrund, 1)
_BASS_ChannelSetVolume($Stream_Hintergrund, 50)

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

$Stream_Geraeusch = _BASS_StreamCreateFile(0, $Geraeusch_Mp3_Pfad, 0, 0, 0)
_BASS_ChannelPlay($Stream_Geraeusch, 1)
_BASS_ChannelSetVolume($Stream_Geraeusch, 100)
EndFunc

[/autoit]

Deine Fragen

Sollen mp3-Files mit veränderter Lautstärke gespeichert werden oder lediglich nur wiedergegeben werden?

Wenn das Script die Wiedergabe ändern kann, dann reicht das.
Files können dann im original-Zustand bleiben.

Lautstärke-Niveau...
Manche haben 80 db andere 86 db...das ist ja bei mp3 Files so eine Sache.
Perfekt wäre es natürlich so:
1. Alle Files im Ordner = 90 db
2. Alle Files im Ordner - 30 db

In deinem Script habe ich alles im original Autoit Ordner drin
#include <Bass.au3> ; Include-Verzeichnis
#include <BassConstants.au3> ; Include-Verzeichnis

bekomme keinen Error, höre aber nichts!
Muß unbedingt der Geräuschpfad existieren?

Probiere noch...

Liebe Grüße
Ilse

Ilse

Hallo zusammen,

hm ich fasse mal nochmal zusammen worauf es ankommt:

1. Es gibt einen Ordner MP3 mit Hintergrundmusik

Spoiler anzeigen

In diesem Ordner sind etliche mp3 Files enthalten
Wichtig: Alle Files die immer in diesem Ordner sind, sollten alle die gleiche Backgroundlautstärke besitzen.
Diese "Hintergrundlautstärke" für alle Files in dem Ordner sollte das Script steuern.

2. Wird von einem anderen Ordner eine mp3 aufgerufen, dann ist diese lauter.

Der Ablauf sollte also einfach so sein:

1. Setze die Hintergrundlautstärke aller Files im mp3 Ordner auf z.B. 50%
2. Wähle zufällig ein mp3 aus und starte die Musik ( das klappt ja bereits prima)

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <Array.au3>
#include <Sound.au3>

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

Dim $Array
Global $counter
$Array = _FileListToArray(@ScriptDir & "\mp3","*.mp3")

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

$aBackmusic = @ScriptDir&"\mp3\"&$Array[Random(1,$Array[0]+1)]
;MsgBox(0,"a",$Test)

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

$Ergebnis = _SoundOpen($aBackmusic)
_SoundPlay($Ergebnis, 1)
;_SoundClose($Ergebnis)

[/autoit]

3. Wird im Skript per Soundplay eine andere Datei (die nicht im Ordner mp3 ist) gestartet, dann ist diese logischerweise lauter.

Das hätte einfach den Vorteil,
es müsse nichts von Hand angepasst werden, kommen neue Files in den Ordner
dann erhalten diese sofort z.B. 50% Grundlautstärke.

Liebe Grüße
Ilse

Ilse

Guten Morgen zusammen,

merci nochmals für die Tipps.
Schade daß das mit Autoit nicht möglich ist.

Es gibt ein Programm MP3Gain,
da kann man alle mp3 Dateien einlesen und die
Lautstärke per % für alle Dateien gleich setzen.

Wenn das Autoit könnte, wäre natürlich im Code toll.
Also ohne externe Programme.

Liebe Grüße
Ilse

Ilse

würde mich freuen...
das Problem wäre wirklich,
daß alle mp3 Dateien jedesmal im Ordner auf eine andere
Lautstärke gebracht werden, ziemlich umständlich...

Sage für heute
Tschüss

Ilse

Ilse

ich hab's

$Test = @ScriptDir&"\mp3\"&$Array[Random(1,$Array[0]+1)]

jetzt müsste nur noch für die Datei
eine kleine Lautstärke eingestellt werden. Dann wäre es perfekt.

...schade muß gleich wieder los...
sage trotzdem
DANKE an alle

Grüße
Ilse

Ilse

Hab den Pfad drin...

Spoiler anzeigen

#include <File.au3>
#include <Array.au3>
#include <Sound.au3>

Dim $Array
Global $counter
$Array = _FileListToArray(@ScriptDir & "\mp3","*.mp3")
;$Test = MsgBox(0,"",$Array[Random(1,$Array[0]+1)])
$Test = @ScriptDir&$Array[Random(1,$Array[0]+1)]
MsgBox(0,"a",$Test)

$Ergebnis = _SoundOpen($Test)
_SoundPlay($Ergebnis, 1)
;_SoundClose($Ergebnis)

klappt nicht...

Ilse

Hallo Chesstiger,

jetzt müsste das ganze nur noch zu hören sein!

Spoiler anzeigen

#include <File.au3>
#include <Array.au3>
#include <Sound.au3>

Dim $Array
Global $counter
$Array = _FileListToArray(@ScriptDir & "\mp3","*.mp3")
MsgBox(0,"",$Array[Random(1,$Array[0]+1)])

$Ergebnis = _SoundOpen($Array[Random(1,$Array[0]+1)])
_SoundPlay($Ergebnis, 1)
;_SoundClose($Ergebnis)

Anzeigen tut er, abr nicht spielen?

Ilse

Beiträge von Ilse

mousemove Problem

mousemove Problem

mousemove Problem

mousemove Problem

GuiCtrlRead TAB Problem

GuiCtrlRead TAB Problem

GuiCtrlRead TAB Problem

Array > Msgbox Problem

Array > Msgbox Problem

Array > Msgbox Problem

TabControl Steuerung

TabControl Steuerung

Soundplay mehrere Dateien

Soundplay mehrere Dateien

Soundplay mehrere Dateien

Soundplay mehrere Dateien

Soundplay mehrere Dateien

Soundplay mehrere Dateien

Soundplay mehrere Dateien

Soundplay mehrere Dateien