Autor |
Beitrag |
sourcehunter
Beiträge: 482
Win XP | Suse 10.1
Delphi 2005 Pers.
|
Verfasst: Di 20.07.04 23:31
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!
Zuletzt bearbeitet von sourcehunter am So 17.04.05 11:03, insgesamt 3-mal bearbeitet
|
|
GTA-Place
Beiträge: 5248
Erhaltene Danke: 2
WIN XP, IE 7, FF 2.0
Delphi 7, Lazarus
|
Verfasst: Mi 21.07.04 06:58
*Download*
Also bei mir läufts mit 6kb
|
|
Quivadis
Beiträge: 314
UBUNTU 9.04
D2005 PERS, JAVA, D7 Pers.
|
Verfasst: Mi 21.07.04 19:09
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.
|
Verfasst: Mi 21.07.04 23:25
@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
|
Verfasst: Fr 23.07.04 15:08
Sach mal wie gross ist denn dass?
Ich stehe momental auf 1.5 MB.
_________________ *lol*
|
|
raziel
Beiträge: 2453
Arch Linux
JS (WebStorm), C#, C++/CLI, C++ (VS2013)
|
Verfasst: Fr 23.07.04 15:28
wenn ich mich recht erinnere so um die 3,7 MB.
_________________ JSXGraph
|
|
StefanH
Beiträge: 1144
Win XP
D5 Standard, D7 Pers, D2005 Pers
|
Verfasst: Fr 23.07.04 21:16
raziel hat folgendes geschrieben: | wenn ich mich recht erinnere so um die 3,7 MB. |
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.
|
Verfasst: Fr 23.07.04 21:28
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
Beiträge: 1144
Win XP
D5 Standard, D7 Pers, D2005 Pers
|
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
|
Verfasst: Sa 24.07.04 22:20
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
|
Verfasst: Sa 24.07.04 23:01
ich habs mir mal angeschaut nicht schlecht, aber irgenwie noch nicht so recht fertig oder ???
_________________ MFG
Michael Springwald, "kann kein englisch...."
|
|
Andreas L.
Beiträge: 1703
Erhaltene Danke: 25
Windows Vista / Windows 10
Delphi 2009 Pro (JVCL, DragDrop, rmKlever, ICS, EmbeddedWB, DEC, Indy)
|
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
Beiträge: 117
Windows XP, Windows ME
D6 Pers, D7 Enterprise
|
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.
|
Verfasst: So 25.07.04 22:28
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.
Beiträge: 1703
Erhaltene Danke: 25
Windows Vista / Windows 10
Delphi 2009 Pro (JVCL, DragDrop, rmKlever, ICS, EmbeddedWB, DEC, Indy)
|
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.
|
Verfasst: Mo 26.07.04 20:37
Hey cool! Danke!
_________________ Linux und OpenSource rulez!
|
|
JayEff
Beiträge: 2971
Windows Vista Ultimate
D7 Enterprise
|
Verfasst: Mo 10.01.05 19:30
hey hau dir das mal in nen Timer mit 200 ms rein:
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.
|
Verfasst: Do 13.01.05 12:47
Wo ihr diesen Thread wieder aktiviert habt, hab ich gleich oben noch einen schnellen Link auf die Datei gesetzt.
_________________ Linux und OpenSource rulez!
|
|
F34r0fTh3D4rk
Beiträge: 5284
Erhaltene Danke: 27
Win Vista (32), Win 7 (64)
Eclipse, SciTE, Lazarus
|
Verfasst: Fr 15.04.05 16:23
packt mal nen button aufs formular und nehmt den code hier ^^
leuchttastenkeyboard ^^
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
Beiträge: 5248
Erhaltene Danke: 2
WIN XP, IE 7, FF 2.0
Delphi 7, Lazarus
|
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)
|
|