Kilka pytań dla bardzo zaawansowanych

[kszeneksz_10]

1. Jak da się wykryć wszystkie podłączone sprzęty do odtwarzania muzyki

+ jak skrypt ma rozpoznać słuchawki

2. Jak zrobić w formie tytuł, który sam się przewija?

3. Da się zrobić kolorowy suwak, gdzie wartości są zielone, żółte i czerwone

4. Jak wytworzyć fale o danej częstotliwości, i kształcie

a.)

b.)

c.) piła, której nie chciało mi się szukać, ale fale wyglądają jak wwwww

 

 

Na razie to na tyle, może dopiszę kolejne

[wojtek333314]

Co do 4 mniemam ze chcesz to pokazac w gui? Jesli tak to GDI+ , tu masz fajny przyklad vizualizacji muzyki - czyli cos jak w winampie takie skaczace klocki tak lopatologicznie mowiac:

 http://www.autoitscript.com/forum/topic/83344-audio-visualization-with-gdi-bass/page__p__596104#entry596104

 

Mysle ze z tego uda Ci sie zrobic to co chcesz, poza tym przydatna bedzie ta UDFka do Twojego projektu:

http://www.autoitscript.com/forum/topic/83481-bass-function-library-sound-and-music-functions/

Przejrzyj funkcje mysle ze znajdziesz cos ciekawego, nigdy z tego nie korzystalem ale mysle ze to najwazniejsza z udf na forum jesli chodzi o aspekt dzwiekow.

 

Przesuwający się tytuł przykład:

#include <Misc.au3>
#include <String.au3>

$PID = Run("notepad.exe")

_ScrollingTitle($PID, 'Testing...')

Exit

Func _ScrollingTitle($iPID, $sTitle)
Local $sSize = StringLen($sTitle)
Local $sSpace = _StringRepeat(' ', $sSize)  

While 1
	For $x = 1 To $sSize
		If Not ProcessExists($iPID) Then ExitLoop(2)
		WinSetTitle('', '', StringMid($sTitle, $x))
		Sleep(150)
	Next
	WinSetTitle("", "", " ")
	Sleep(150)
	For $x = 1 To $sSize
		If Not ProcessExists($iPID) Then ExitLoop(2)
		WinSetTitle('', '', StringMid($sSpace, 1, $sSize - $x) & StringMid($sTitle, 1, $x))
		Sleep(150)		  
	Next
WEnd
EndFunc

 

 

Walnij to w adlibregister i niech sobie chodzi co by głownej petli nie zasmiecać

co do wyszukiwania słuchawek to raczej się nie uda w autoit , pomeczyłem google i nic ale może Ci się uda coś znaleźć

[kszeneksz_10]

Dzięki, jednak z 4 nie o to mi chodzi :]

 

Chodzi mi o dźwięk wydawany przy Beep, tyle że są ogólnie 3 główne rodzaje fali akustycznej - i własnie 'Beep' wydaje tylko jeden rodzaj, a ja chcę jeszcze pozostałe...

Fala z podpunktu A działa bardzo destrukcyjnie na uszy.

 

Dzięki, za starania

 

@Edit

 

BUHAHAHAHHA to zmienia tytuły we wszystkich aktywnych oknach

Ale pomajstruję przy tym, może się uda

[wojtek333314]

Hmm o podanej częstotliwości ...nie no raczej to nie wykonalne, jedyne co mi przychodzi do głowy to mieć taki dźwięk jakiego się szuka w formacie mp3 i odtworzyć go przez soundplay()

[kszeneksz_10]

Kolejne pytanko...

 

Nigdy nie mialem takiego dziwnego problemu.

Gdy kompiluję skrypt, chcę mu dodać ikonkę. Lecz ikonka dodaję się na pasku zadań i z brzegu FORM'a, a nie przy exeku.

Jednak gdy zmniejszę przybliżenie folderów ikonka się pojawia.

Jak zrobić aby ikonka była tez w miniaturach?

[Protecto]

Może eksplorator do końca nie wczytał ikony. Reboot kompa powinien pomóc.

[Sopelek997]

zrób ikonę w większej rozdzielczości. Może coś to da

np 256 czy 128

[kszeneksz_10]

Niestety, reboot nie pomógł :/

 

spróbuję, robiłem w standardowej

48x48,

140x140,

280x280,

128x128 ,

33x33

nic

btw, stare skrypty z małymi ikonami na powiększeniu mają nadal zwykłe, małe, normalne ikony, które ja im przypisałem

 

@edit. dodatkowe rodzielczości

[Sopelek997]

możliwe że jakieś ustawienia przy kompilacji się pozmieniały.

 

 

1. Jak da się wykryć wszystkie podłączone sprzęty do odtwarzania muzyki

+ jak skrypt ma rozpoznać słuchawki

2. Jak zrobić w formie tytuł, który sam się przewija?

3. Da się zrobić kolorowy suwak, gdzie wartości są zielone, żółte i czerwone

4. Jak wytworzyć fale o danej częstotliwości, i kształcie

1. Jak już napisał kolega up może być z tym problem. Musiałbyś użyć jakiejś zewnętrznej biblioteki dll.

2. Bierzesz za pomocą stringmid() kolejne litery i odświerzasz pasek na górze wormy, tak jak napisał woltek

4. Beepem tego nie zrobisz, ponieważ speaker nie ma takich możliwości.

 

@edit.

3. Zrobiłem ze zmieniającym się tłem.

Opt('MustDeclareVars', 1)
Global $max = 200
Global $poz, $poztmp
Example()
Func Example()
   Local $hslider1, $button, $msg
   GUICreate("slider", 220, 100, 100, 200)
   $hslider1 = GUICtrlCreateSlider(10, 10, 200, 20)
   GUICtrlSetLimit(-1, $max, 0)
   GUISetState()
   GUICtrlSetData($hslider1, $max / 2)
   SetColor($hslider1)
   $poz = GUICtrlRead($hslider1)
   $poztmp = $poz
   Do
       $poz = GUICtrlRead($hslider1)
       If $poz <> $poztmp Then
           $poztmp = $poz
           SetColor($hslider1)
       EndIf
       Sleep(50)
   Until GUIGetMsg() = -3
EndFunc   ;==>Example
Func SetColor($hHandle)
   If GUICtrlRead($hHandle) <= $max / 2 Then
       GUICtrlSetBkColor($hHandle, "0x" & Hex(Int((GUICtrlRead($hHandle) / ($max / 2)) * 255), 2) & "FF" & "00")
   Else
       GUICtrlSetBkColor($hHandle, "0x" & "FF" & Hex(Int(255 - (GUICtrlRead($hHandle) / ($max / 2)) * 255), 2) & "00")
   EndIf
EndFunc   ;==>SetColor