Beiträge von qixx

qixx

Hi,

ich habe mal aus Langeweile ein Programm geschrieben,
mitdem ihr aus den Computer-Tönen (nicht die Lautsprecher)
eine Melodie abspielen lassen könnt.

Sinnlos, aber lustig.^^

Computer-Melodie Code

[autoit]

#include <EditConstants.au3>

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

$c_ton = 264

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

$3c = "Beep($c_ton*3,60/$zeit*1000)"
$3cis = "Beep($c_ton*25/24*3,60/$zeit*1000)"
$3d = "Beep($c_ton*9/8*3,60/$zeit*1000)"
$3es = "Beep($c_ton*6/5*3,60/$zeit*1000)"
$3e = "Beep($c_ton*5/4*3,60/$zeit*1000)"
$3f = "Beep($c_ton*4/3*3,60/$zeit*1000)"
$3fis = "Beep($c_ton*25/18*3,60/$zeit*1000)"
$3g = "Beep($c_ton*3/2*3,60/$zeit*1000)"
$3as = "Beep($c_ton*8/5*3,60/$zeit*1000)"
$3a = "Beep($c_ton*5/3*3,60/$zeit*1000)"
$3b = "Beep($c_ton*9/5*3,60/$zeit*1000)"
$3h = "Beep($c_ton*15/8*3,60/$zeit*1000)"

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

$2c = "Beep($c_ton*2,60/$zeit*1000)"
$2cis = "Beep($c_ton*25/24*2,60/$zeit*1000)"
$2d = "Beep($c_ton*9/8*2,60/$zeit*1000)"
$2es = "Beep($c_ton*6/5*2,60/$zeit*1000)"
$2e = "Beep($c_ton*5/4*2,60/$zeit*1000)"
$2f = "Beep($c_ton*4/3*2,60/$zeit*1000)"
$2fis = "Beep($c_ton*25/18*2,60/$zeit*1000)"
$2g = "Beep($c_ton*3/2*2,60/$zeit*1000)"
$2as = "Beep($c_ton*8/5*2,60/$zeit*1000)"
$2a = "Beep($c_ton*5/3*2,60/$zeit*1000)"
$2b = "Beep($c_ton*9/5*2,60/$zeit*1000)"
$2h = "Beep($c_ton*15/8*2,60/$zeit*1000)"

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

$c = "Beep($c_ton,60/$zeit*1000)"
$cis = "Beep($c_ton*25/24,60/$zeit*1000)"
$d = "Beep($c_ton*9/8,60/$zeit*1000)"
$es = "Beep($c_ton*6/5,60/$zeit*1000)"
$e = "Beep($c_ton*5/4,60/$zeit*1000)"
$f = "Beep($c_ton*4/3,60/$zeit*1000)"
$fis = "Beep($c_ton*25/18,60/$zeit*1000)"
$g = "Beep($c_ton*3/2,60/$zeit*1000)"
$as = "Beep($c_ton*8/5,60/$zeit*1000)"
$a = "Beep($c_ton*5/3,60/$zeit*1000)"
$b = "Beep($c_ton*9/5,60/$zeit*1000)"
$h = "Beep($c_ton*15/8,60/$zeit*1000)"

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

GUICreate("Computer-Melodie", 240,100)

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

$3c_button = GUICtrlCreateButton("c",0,0, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$3cis_button = GUICtrlCreateButton("c2",20,0, 20, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$3d_button = GUICtrlCreateButton("d",40,0, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$3es_button = GUICtrlCreateButton("d2",60,0, 20, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$3e_button = GUICtrlCreateButton("e",80,0, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$3f_button = GUICtrlCreateButton("f",100,0, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$3fis_button = GUICtrlCreateButton("f2",120,0,0, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$3g_button = GUICtrlCreateButton("g",140,0,0, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$3as_button = GUICtrlCreateButton("g2",160,0,0, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$3a_button = GUICtrlCreateButton("a",180,0,0, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$3b_button = GUICtrlCreateButton("h",200,0,0, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$3h_button = GUICtrlCreateButton("h2",220,0,0, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)

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

$2c_button = GUICtrlCreateButton("c",0,20, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$2cis_button = GUICtrlCreateButton("c2",20,20, 20, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$2d_button = GUICtrlCreateButton("d",40,20, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$2es_button = GUICtrlCreateButton("d2",60,20, 20, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$2e_button = GUICtrlCreateButton("e",80,20, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$2f_button = GUICtrlCreateButton("f",100,20, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$2fis_button = GUICtrlCreateButton("f2",120,20,0, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$2g_button = GUICtrlCreateButton("g",140,20,0, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$2as_button = GUICtrlCreateButton("g2",160,20,0, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$2a_button = GUICtrlCreateButton("a",180,20,0, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$2b_button = GUICtrlCreateButton("h",200,20,0, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$2h_button = GUICtrlCreateButton("h2",220,20,0, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)

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

$c_button = GUICtrlCreateButton("c",0,40, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$cis_button = GUICtrlCreateButton("c2",20,40, 20, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$d_button = GUICtrlCreateButton("d",40,40, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$es_button = GUICtrlCreateButton("d2",60,40, 20, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$e_button = GUICtrlCreateButton("e",80,40, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$f_button = GUICtrlCreateButton("f",100,40, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$fis_button = GUICtrlCreateButton("f2",120,40,0, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$g_button = GUICtrlCreateButton("g",140,40,0, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$as_button = GUICtrlCreateButton("g2",160,40,0, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$a_button = GUICtrlCreateButton("a",180,40,0, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$b_button = GUICtrlCreateButton("h",200,40,0, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$h_button = GUICtrlCreateButton("h2",220,40,0, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)

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

$input = GUICtrlCreateInput("", 0, 60, 220)

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

$wait_button = GUICtrlCreateButton("P",220,60, 20, 20)

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

GUICtrlCreateLabel("BPM:", 160, 83)

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

$zeit_input = GUICtrlCreateInput("60", 190, 80, 50, -1, $ES_NUMBER)
$wait = "Sleep(60/$zeit*1000)"

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

$test_button = GUICtrlCreateButton("Abspielen",0,80,130, 20)

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

GUISetState()

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit

;~ 3
Case $3c_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3c & ")

Case $3cis_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3cis & ")

Case $3d_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3d & ")

Case $3es_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3es & ")

Case $3e_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3e & ")

Case $3f_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3f & ")

Case $3fis_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3fis & ")

Case $3g_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3g & ")

Case $3as_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3as & ")

Case $3a_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3a & ")

Case $3b_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3b & ")

Case $3h_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3h & ")
;~ End 3

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

;~ 2
Case $2c_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2c & ")

Case $2cis_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2cis & ")

Case $2d_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2d & ")

Case $2es_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2es & ")

Case $2e_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2e & ")

Case $2f_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2f & ")

Case $2fis_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2fis & ")

Case $2g_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2g & ")

Case $2as_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2as & ")

Case $2a_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2a & ")

Case $2b_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2b & ")

Case $2h_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2h & ")
;~ End 2

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

;~ 1
Case $c_button
GUICtrlSetData($input, GUICtrlRead($input) & "$c & ")

Case $cis_button
GUICtrlSetData($input, GUICtrlRead($input) & "$cis & ")

Case $d_button
GUICtrlSetData($input, GUICtrlRead($input) & "$d & ")

Case $es_button
GUICtrlSetData($input, GUICtrlRead($input) & "$es & ")

Case $e_button
GUICtrlSetData($input, GUICtrlRead($input) & "$e & ")

Case $f_button
GUICtrlSetData($input, GUICtrlRead($input) & "$f & ")

Case $fis_button
GUICtrlSetData($input, GUICtrlRead($input) & "$fis & ")

Case $g_button
GUICtrlSetData($input, GUICtrlRead($input) & "$g & ")

Case $as_button
GUICtrlSetData($input, GUICtrlRead($input) & "$as & ")

Case $a_button
GUICtrlSetData($input, GUICtrlRead($input) & "$a & ")

Case $b_button
GUICtrlSetData($input, GUICtrlRead($input) & "$b & ")

Case $h_button
GUICtrlSetData($input, GUICtrlRead($input) & "$h & ")
;~ End 1

Case $wait_button
GUICtrlSetData($input, GUICtrlRead($input) & "$wait & ")

Case $test_button

$zeit = GUICtrlRead($zeit_input)
If $zeit = "" or 0 Then
$zeit = 60
Endif
$playarray = StringSplit(GUICtrlRead($input), " & ", 1)
For $i = 1 to $playarray[0] - 1
Execute(Execute($playarray[$i]))
Next

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

EndSwitch
WEnd

[/autoit]

Erklärung:

Die Buttons (Weiß & Grau) sind die Klaviatur.
Der Button "P" neben dem Textfeld bedeutet einen Pauseschritt.
In dem Textfeld wird die Melodie eingetragen, nachTastendruck.
Bei BPM (Beats per Minute) wird die Abspielgeschwindigkeit eingetragen.

ACHTUNG!
Während dem Abspielen einer Melodie kann es sein, dass dieser Vorgang nicht
gestoppt werden kann! Warum auch immer..

Viel Spaß damit.

MfG
qixx

qixx

Ah, super.
Dankeschön!

MfG
qixx

qixx

Hi, ich habe folgendes Problem.
Ich schreibe gerade ein "Beep-Melodie-Programm". xD
Jedoch gibt der über das Execute() nichts aus.
Warum?

Code

[autoit]

$zeit = 200
$wait = "Sleep($zeit)"
$c_ton = 264

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

$3c = "Beep($c_ton*3,$zeit)"
$3cis = "Beep($c_ton*25/24*3,$zeit)"
$3d = "Beep($c_ton*9/8*3,$zeit)"
$3es = "Beep($c_ton*6/5*3,$zeit)"
$3e = "Beep($c_ton*5/4*3,$zeit)"
$3f = "Beep($c_ton*4/3*3,$zeit)"
$3fis = "Beep($c_ton*25/18*3,$zeit)"
$3g = "Beep($c_ton*3/2*3,$zeit)"
$3as = "Beep($c_ton*8/5*3,$zeit)"
$3a = "Beep($c_ton*5/3*3,$zeit)"
$3b = "Beep($c_ton*9/5*3,$zeit)"
$3h = "Beep($c_ton*15/8*3,$zeit)"

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

$2c = "Beep($c_ton*2,$zeit)"
$2cis = "Beep($c_ton*25/24*2,$zeit)"
$2d = "Beep($c_ton*9/8*2,$zeit)"
$2es = "Beep($c_ton*6/5*2,$zeit)"
$2e = "Beep($c_ton*5/4*2,$zeit)"
$2f = "Beep($c_ton*4/3*2,$zeit)"
$2fis = "Beep($c_ton*25/18*2,$zeit)"
$2g = "Beep($c_ton*3/2*2,$zeit)"
$2as = "Beep($c_ton*8/5*2,$zeit)"
$2a = "Beep($c_ton*5/3*2,$zeit)"
$2b = "Beep($c_ton*9/5*2,$zeit)"
$2h = "Beep($c_ton*15/8*2,$zeit)"

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

$c = "Beep($c_ton,$zeit)"
$cis = "Beep($c_ton*25/24,$zeit)"
$d = "Beep($c_ton*9/8,$zeit)"
$es = "Beep($c_ton*6/5,$zeit)"
$e = "Beep($c_ton*5/4,$zeit)"
$f = "Beep($c_ton*4/3,$zeit)"
$fis = "Beep($c_ton*25/18,$zeit)"
$g = "Beep($c_ton*3/2,$zeit)"
$as = "Beep($c_ton*8/5,$zeit)"
$a = "Beep($c_ton*5/3,$zeit)"
$b = "Beep($c_ton*9/5,$zeit)"
$h = "Beep($c_ton*15/8,$zeit)"

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

GUICreate("Tasten", 240,100)

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

$3c_button = GUICtrlCreateButton("c",0,0, 20, 20)
$3cis_button = GUICtrlCreateButton("c2",20,0, 20, 20)
$3d_button = GUICtrlCreateButton("d",40,0, 20, 20)
$3es_button = GUICtrlCreateButton("d2",60,0, 20, 20)
$3e_button = GUICtrlCreateButton("e",80,0, 20, 20)
$3f_button = GUICtrlCreateButton("f",100,0, 20, 20)
$3fis_button = GUICtrlCreateButton("f2",120,0,0, 20)
$3g_button = GUICtrlCreateButton("g",140,0,0, 20)
$3as_button = GUICtrlCreateButton("g2",160,0,0, 20)
$3a_button = GUICtrlCreateButton("a",180,0,0, 20)
$3b_button = GUICtrlCreateButton("h",200,0,0, 20)
$3h_button = GUICtrlCreateButton("h2",220,0,0, 20)

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

$2c_button = GUICtrlCreateButton("c",0,20, 20, 20)
$2cis_button = GUICtrlCreateButton("c2",20,20, 20, 20)
$2d_button = GUICtrlCreateButton("d",40,20, 20, 20)
$2es_button = GUICtrlCreateButton("d2",60,20, 20, 20)
$2e_button = GUICtrlCreateButton("e",80,20, 20, 20)
$2f_button = GUICtrlCreateButton("f",100,20, 20, 20)
$2fis_button = GUICtrlCreateButton("f2",120,20,0, 20)
$2g_button = GUICtrlCreateButton("g",140,20,0, 20)
$2as_button = GUICtrlCreateButton("g2",160,20,0, 20)
$2a_button = GUICtrlCreateButton("a",180,20,0, 20)
$2b_button = GUICtrlCreateButton("h",200,20,0, 20)
$2h_button = GUICtrlCreateButton("h2",220,20,0, 20)

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

$c_button = GUICtrlCreateButton("c",0,40, 20, 20)
$cis_button = GUICtrlCreateButton("c2",20,40, 20, 20)
$d_button = GUICtrlCreateButton("d",40,40, 20, 20)
$es_button = GUICtrlCreateButton("d2",60,40, 20, 20)
$e_button = GUICtrlCreateButton("e",80,40, 20, 20)
$f_button = GUICtrlCreateButton("f",100,40, 20, 20)
$fis_button = GUICtrlCreateButton("f2",120,40,0, 20)
$g_button = GUICtrlCreateButton("g",140,40,0, 20)
$as_button = GUICtrlCreateButton("g2",160,40,0, 20)
$a_button = GUICtrlCreateButton("a",180,40,0, 20)
$b_button = GUICtrlCreateButton("h",200,40,0, 20)
$h_button = GUICtrlCreateButton("h2",220,40,0, 20)

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

$wait_button = GUICtrlCreateButton("P",220,60,0, 20)

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

$test_button = GUICtrlCreateButton("Test",0,80,130, 20)

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

$input = GUICtrlCreateInput("", 0, 60, 220)

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

GUISetState()

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit

;~ 3
Case $3c_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3c & ")

Case $3cis_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3cis & ")

Case $3d_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3d & ")

Case $3es_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3es & ")

Case $3e_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3e & ")

Case $3f_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3f & ")

Case $3fis_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3fis & ")

Case $3g_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3g & ")

Case $3as_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3as & ")

Case $3a_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3a & ")

Case $3b_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3b & ")

Case $3h_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3h & ")
;~ End 3

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

;~ 2
Case $2c_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2c & ")

Case $2cis_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2cis & ")

Case $2d_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2d & ")

Case $2es_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2es & ")

Case $2e_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2e & ")

Case $2f_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2f & ")

Case $2fis_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2fis & ")

Case $2g_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2g & ")

Case $2as_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2as & ")

Case $2a_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2a & ")

Case $2b_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2b & ")

Case $2h_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2h & ")
;~ End 2

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

;~ 1
Case $c_button
GUICtrlSetData($input, GUICtrlRead($input) & "$c & ")

Case $cis_button
GUICtrlSetData($input, GUICtrlRead($input) & "$cis & ")

Case $d_button
GUICtrlSetData($input, GUICtrlRead($input) & "$d & ")

Case $es_button
GUICtrlSetData($input, GUICtrlRead($input) & "$es & ")

Case $e_button
GUICtrlSetData($input, GUICtrlRead($input) & "$e & ")

Case $f_button
GUICtrlSetData($input, GUICtrlRead($input) & "$f & ")

Case $fis_button
GUICtrlSetData($input, GUICtrlRead($input) & "$fis & ")

Case $g_button
GUICtrlSetData($input, GUICtrlRead($input) & "$g & ")

Case $as_button
GUICtrlSetData($input, GUICtrlRead($input) & "$as & ")

Case $a_button
GUICtrlSetData($input, GUICtrlRead($input) & "$a & ")

Case $b_button
GUICtrlSetData($input, GUICtrlRead($input) & "$b & ")

Case $h_button
GUICtrlSetData($input, GUICtrlRead($input) & "$h & ")
;~ End 1

Case $wait_button
GUICtrlSetData($input, GUICtrlRead($input) & "$wait & ")

Case $test_button
Execute(GUICtrlRead($input))

EndSwitch
WEnd

[/autoit]

qixx

Danke!
Das müsste klappen.

MfG
qixx

qixx

Jetzt merke ich gerade, wie dumm ich das gemacht habe.
Ich habe die Variable per Hotkey geändert und in einer While-Schleife
hatte ich das mit Return.
Also es ging darum, eine Funktion zu beenden.

MfG
qixx

qixx

lol,

warum auch immer, aber das Funktioniert bei mir auch. oO

Ich hatte immer mit sowas noch gearbeitet:

[autoit]

If $deactivation = 1 Then Return

[/autoit]

MfG
qixx

qixx

Hi,

ich habe mal eine Frage, die mir schon sehr lange im Kopf
rumwirrt.^^
Und zwar, wenn ich per Hotkey mein Programm oder eine
Funktion schließen will, geht das nicht während einer
sleep()-Phase.
Kennt dafür jemand Abhilfe?

Vielen Dank!

MfG
qixx

qixx

Eben.
Aber dank euch habe ich es leicher, es zu vertehen.

MfG
qixx

qixx

Ja, da bin ich schon bei.
Das wird schon.
Anhand eurer Hilfe werde ich das auch irgendwann alleine so schnell
schaffen wie ihr, hoffe ich.
Bei mir ist das so, ich lerne langsam an Theorie. Ich lerne an Beispielen
oder learning by doing.

MfG
qixx

qixx

Zitat von Raupi

Hast Glück das mir langweilig ist. Hab deinen Tabs um eine Listbox ,Label und Input erweitert. Selektierte Einträge werden in der Input angezeigt. Bei Übernahme kannst du deine Auswahl sehen.
[...]
Aber mal so eine Frage am Rande. Willst du bei dem Script überhaut etwas selber machen?

xD
Ja, will ich.
Ich hatte nur keine Ahnung, wie das ganze mit den Tabs undso funktioniert.
Hab' mir ein hohes Zeil damit gesetzt und wusste von dem kaum was.
Also ist nicht so, dass ich nichts kann, aber mit Tabs und Listen hatte ich mich
zuvor nicht beschäftigt. Da ich jetzt aber ein ausführlicheres Programm schreibe,
brauchte ich halt die Informationen.
Ich mein', fragen kostet ja nichts und ihr helft doch anscheinend gerne.

Jedenfalls vielen Dank dafür!

MfG
qixx

qixx

Raupis schaut irgendwie einfacher aus, deshalb denke ich mal den.

MfG
qixx

qixx

Vielen Dank!

Den Durchblick zu behalten ist recht schwer, aber ich
werde es schaffen.

Wenn ich jetzt ein weiteres Element (z.B. Liste oder Button)
auf einen Tab einbauen will, was muss ich dann ändern, damit
sich z.B. der Button nur auf etwas in dem Tab (Liste) auswirkt?
(Die Frage stelle ich, um etwas Überblick zu bekommen.xD)

MfG
qixx

qixx

Kann man auch irgendwie einen Button so erstellen, dass
der unsichtbar ist, aber funktioniert?

MfG
qixx

qixx

Mist, funzt doch nocht nicht ganz. xD
Wenn ich nach dem Löschen einen neuen Tab erstellen will,
stürzt das Programm ab!

Zitat

(47) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$TabItem[$Tab_ID] = GUICtrlCreateTabItem($tab_name & " " & $Tab_ID)
^ ERROR

qixx

Zitat von SEuBo

[...] Ein einfaches "_ArrayDelete($TabItem,GUICtrlRead($Tab)+1)" in Zeile 88 sollte da abhilfe schaffen!

Und das tut es auch!
Wiedermal super Arbeit!
Vielen Dank!

MfG
qixx

qixx

Yeah!
Vielen Dank!

Ich muss mal noch sagen, dass es mir hier sehr gut gefällt, auch
dass immer gerne komplette Beispiele gegeben werden.
Schön funktionierendes Hilfe-Forum! Ich sehe selten sowas!

Edit:
Hmm, noch ein Problem.
Wenn ich einen Tab lösche, dann funktioniert bei denen, die hinter
dem gelöschten Tab liegen nichts mehr. Weder Button, noch Textfeld.
Was könnte das problem sein?

MfG
qixx

qixx

Hi,

mir ist aufgefallen, dass der den Namen nur ändert, wenn man Enter
drückt. Gibt man sonst den Text nur ein und wähl einen anderen Tab
aus, wird der neue Tab umbenannt. Kann man das irgendwie verhindern?
Am besten wäre es, wenn der Tab direkt mit der Eingabe umbenannt wird.
(es geht um SEuBo's Vorschlag ;))

MfG
qixx

qixx

Yes Baby!
Es funktioniert!

Vielen dank!

MfG
qixx

qixx

Hmm..
Das Problem ist, dass er es trotzdem nicht löscht..

MfG
qixx

qixx

Was habe ich hier denn jetzt falsch gemacht?
Ich wollte einen Button hinzufügen zum Schließen des aktiven Tabs..
Ich habe keine Erklärung dafür, was falsch sein könnte.^^

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <guitab.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <array.au3>

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

Global $tabGui[1000], $Tab_ID = 1, $Aktiver_Tab = -1
Global $tab_name = "Makro"
Dim $TabItem[2] = ["-",0] ; Hier das array in dem die TabItems gespeichert werden
Dim $name[2] = ["-",0] ; Und hier die dazugehörigen Inputfelder
Dim $tab_close[2] = ["-",0]

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

#Region #GUI
$main_gui = GUICreate("Makro Manager", 405, 150, 437, 143)

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

$new_tab = GUICtrlCreateButton("Neuer Tab", 19, 90, 101, 21, $WS_GROUP)
$Tab = GUICtrlCreateTab(5, 10, 396, 130)
$TabItem[$Tab_ID] = GUICtrlCreateTabItem($tab_name & " " & $Tab_ID)
ConsoleWrite("Erstelle: " & @TAB & "$TabItem["&$Tab_ID&"]"&@CRLF)
$name[$Tab_ID] = GUICtrlCreateInput($tab_name & " " & $Tab_ID, 60, 50, 321, 21)

$tab_close[$Tab_ID] = GUICtrlCreateButton("X", 380, 110, 16, 16, $WS_GROUP)
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlSetBkColor(-1, 0x800000)

ConsoleWrite("Erstelle: " & @TAB & "$name["&$Tab_ID&"]"&@CRLF&@CRLF)
GUICtrlCreateLabel("Name:", 20, 52, 35, 17)

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

GUICtrlCreateTabItem("")
GUISetState()
#EndRegion #GUI

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

Func InsertTab()
$Tab_ID += 1

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

ReDim $TabItem[UBound($TabItem)+1] ;vergrößere die Arrays für Tabitems und
ReDim $name[UBound($name)+1] ; Den Array für die Inputfelder

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

$TabItem[$Tab_ID] = GUICtrlCreateTabItem($tab_name & " " & $Tab_ID)
ConsoleWrite("Erstelle: " & @TAB & "$TabItem["&$Tab_ID&"]"&@CRLF)

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

$name[$Tab_ID] = GUICtrlCreateInput($tab_name & " " & $Tab_ID, 60, 50, 321, 21)
ConsoleWrite("Erstelle: " & @TAB & "$name["&$Tab_ID&"]"&@CRLF&@CRLF)

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

$tab_close[$Tab_ID] = GUICtrlCreateButton("X", 380, 110, 16, 16, $WS_GROUP)
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlSetBkColor(-1, 0x800000)

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

GUICtrlCreateLabel("Name:", 20, 52, 35, 17)
GUICtrlCreateTabItem("")

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

_GUICtrlTab_SetCurFocus($tab, $Tab_ID)

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

EndFunc ;==>InsertTab

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit

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

Case $new_tab
InsertTab()
EndSwitch

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

For $i = 1 to UBound($name)-1
Switch $nMsg
Case $name[$i]
GUICtrlSetData($TabItem[GUICtrlRead($Tab)+1],GUICtrlRead($name[$i]))
ConsoleWrite("+> Ändere: " & @TAB & "$Tabitem["&GUICtrlRead($Tab)+1&"]"&@CRLF)

Case $tab_close[$i]
GUICtrlDelete(GUICtrlRead($TabItem[GUICtrlRead($Tab)], 1))
;~ _GUICtrlTab_SetCurFocus($close_tab-1,1)
EndSwitch
Next
WEnd

[/autoit]

MfG
qixx

Beiträge von qixx

Computer (Beep) Melodie

Execute über Variable und Input

Execute über Variable und Input

Programm/Funktion während Sleep() beenden.

Programm/Funktion während Sleep() beenden.

Programm/Funktion während Sleep() beenden.

Programm/Funktion während Sleep() beenden.

Tab-Namen ändern (Input-Box)

Tab-Namen ändern (Input-Box)

Tab-Namen ändern (Input-Box)

Tab-Namen ändern (Input-Box)

Tab-Namen ändern (Input-Box)

Transparentes Fenster mit sichtbaren Buttons

Tab-Namen ändern (Input-Box)

Tab-Namen ändern (Input-Box)

Tab-Namen ändern (Input-Box)

Tab-Namen ändern (Input-Box)

Tab-Namen ändern (Input-Box)

Tab-Namen ändern (Input-Box)

Tab-Namen ändern (Input-Box)