Musik mit dem Computer

sourcehunter · Beiträge: 482 Win XP | Suse 10.1 Delphi 2005 Pers.

Hi!

An alle Musiker und solche, die es werden wollen!

Ich hab hier ein tolles Spielzeug programmiert. Einfach downloaden, entpacken und loslegen.

gauss.euv-frankfurt-.../~dittrichc/kla4.zip

Mit diesem Programm kann man die Computertastatur als Klavier missbrauchen. Falls ihr irgendwelche Fehler findet oder Verbesserungsvorschläge habt, dann sagt mir das.

//Edit: Link entfernt.

_________________
Linux und OpenSource rulez!

GTA-Place · Verfasst: Mi 21.07.04 06:58

*Download*

Also bei mir läufts mit 6kb :wink:

Quivadis · Beiträge: 314 UBUNTU 9.04 D2005 PERS, JAVA, D7 Pers.

Ich lade es mit 0.3 kb runter. sage mal wo hast du es liegen.

_________________
Wissen ist macht, nichts wissen macht auch nichts. ODER: Wer nichts weis, kann nichts vergessen.

sourcehunter · Beiträge: 482 Win XP | Suse 10.1 Delphi 2005 Pers.

@GTA-Place

Da hast du grad nen guten Zeitunkt gewählt.

Das Zeuch liegt bei Freewebspace.

_________________
Linux und OpenSource rulez!

HW764 · Hält's aus hier Beiträge: 12

Sach mal wie gross ist denn dass?
Ich stehe momental auf 1.5 MB.

_________________
*lol*

raziel · Verfasst: Fr 23.07.04 15:28

wenn ich mich recht erinnere so um die 3,7 MB. :roll:

_________________
JSXGraph

StefanH · Verfasst: Fr 23.07.04 21:16

raziel hat folgendes geschrieben:

wenn ich mich recht erinnere so um die 3,7 MB. :roll:

zu groß, zu groß *enteil*

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

sourcehunter · Beiträge: 482 Win XP | Suse 10.1 Delphi 2005 Pers.

Das Programm ansich ist nur ein par 100 Kb groß, aber die Sounds sind jeder 690 Kb ungepackt. Insgesam enthält das Programm 20 Sounds, das sind dann also ein paar Megabyte. Ich werde auch noch eine Version ins Netz stellen, die MIDI-Datein anstelle der Wave-Dateien verwendet. Der Nachteil dabei ist, dass es dann auf jedem Computer anders klingt.

_________________
Linux und OpenSource rulez!

StefanH · Verfasst: Fr 23.07.04 21:31

ich würd das ja gern ausprobieren, aber da meine Verbindung nicht schnell ist und die vom Server auq nicht...

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

lustig:
ich habe 1.85 KB / Sec bei 3,59 MB

er schetzt noch 57 minuten und 40 sec......

_________________
MFG
Michael Springwald, "kann kein englisch...."

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

ich habs mir mal angeschaut nicht schlecht, aber irgenwie noch nicht so recht fertig oder ???

_________________
MFG
Michael Springwald, "kann kein englisch...."

Andreas L. · Verfasst: So 25.07.04 11:10

Ich lade mir das prog grad auch. Werde es dann testen.

Soll ich die datei dann auf meinen Server legen? Der läuft wenigstens schneller...

Greetz

newbie44 · Verfasst: So 25.07.04 12:46

onlinehome hat folgendes geschrieben:

Ich lade mir das prog grad auch. Werde es dann testen.

Soll ich die datei dann auf meinen Server legen? Der läuft wenigstens schneller...

Greetz

Das wäre eine Gute Idee

Ich hab über eine dreiviertelstunde gebraucht bis ich es hatte, und ich hab dsl

Jetzt weis ich wiso ich darauf umgestiegen bin

Mahlzeit

Sebby

sourcehunter · Beiträge: 482 Win XP | Suse 10.1 Delphi 2005 Pers.

Klar kein Problem. Packs auf deinen Server. Wenn du mir dann den Link gibst kann ich es von meiner Seite aus auch verfügbar machen.

Ist das eigentlich Freewebspace?

@mimi

Wie meinst du das mit noch nicht ganz fertig? Kannst du etwa noch keine Lieder damit spielen? Oder ist es etwas anderes?

_________________
Linux und OpenSource rulez!

Andreas L. · Verfasst: Mo 26.07.04 10:05

Ich habe Paid-Space.

Hier der Link: www.softprose.de/pub/kl4.zip

Wenn du eine neue Version hast einfach mir per Mail schicken: webmaster AT softprose DOT de

PS: Mit DSL 2000 kann ich die Datei mit 207 kb/s herunterladen. Das dauert dann ~10 Sek.

sourcehunter · Beiträge: 482 Win XP | Suse 10.1 Delphi 2005 Pers.

Hey cool! Danke!

_________________
Linux und OpenSource rulez!

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

hey hau dir das mal in nen Timer mit 200 ms rein:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

if y<>0 then lift(y);
Inc(x);
case x of
3:y:=191;
4:y:=187;
5:y:=191;
6:y:=187;
7:y:=191;
8:y:=76;
9:y:=222;
10:y:=192;
11:y:=75;
12:begin Timer1.Enabled:=false; exit; y:=0; end;
end;
xplay(y);

xplay und lift entsprechen den OnKeyPress und OnKeyDown ereignissen... Die melodie dürfte ein paar leuten bekannt vorkommen xD

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

sourcehunter · Beiträge: 482 Win XP | Suse 10.1 Delphi 2005 Pers.

Wo ihr diesen Thread wieder aktiviert habt, hab ich gleich oben noch einen schnellen Link auf die Datei gesetzt.

_________________
Linux und OpenSource rulez!

F34r0fTh3D4rk · Verfasst: Fr 15.04.05 16:23

packt mal nen button aufs formular und nehmt den code hier ^^
leuchttastenkeyboard ^^

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('Mission Impossible Theme');
mediaplayer5.Rewind;
mediaplayer5.play;
shape5.Pen.color:= clred;
application.ProcessMessages;
sleep(700);
shape5.pen.color:= clblack;
application.processmessages;
sleep(50);
mediaplayer5.Rewind;
mediaplayer5.play;
shape5.pen.Color:= clred;
application.processmessages;
sleep(700);
shape5.pen.Color:= clblack;
application.processmessages;
sleep(50);
mediaplayer7.play;
shape7.pen.color:= clred;
application.processmessages;
sleep(450);
shape7.pen.color:= clblack;
application.processmessages;
sleep(50);
mediaplayer8.play;
shape8.Pen.Color:= clred;
application.processmessages;
sleep(450);
shape8.Pen.Color:= clblack;
application.processmessages;
sleep(50);
mediaplayer5.Rewind;
mediaplayer5.play;
shape5.pen.Color:= clred;
application.processmessages;
sleep(700);
shape5.pen.Color:= clblack;
application.processmessages;
sleep(50);
mediaplayer5.Rewind;
mediaplayer5.play;
shape5.pen.Color:= clred;
application.processmessages;
sleep(700);
shape5.pen.Color:= clblack;
application.processmessages;
sleep(50);
mediaplayer3.play;
shape3.pen.Color:= clred;
application.processmessages;
sleep(450);
shape3.pen.Color:= clblack;
application.processmessages;
sleep(50);
mediaplayer4.play;
shape4.pen.Color:= clred;
application.processmessages;
sleep(700);
shape4.pen.Color:= clblack;
application.processmessages;
sleep(50);
end;

GTA-Place · Verfasst: Fr 15.04.05 18:21

Hört so plötzlich auf

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme