[es] - Moj program-Music Player

Floppy

Član broj: 58142
Poruke: 34
62.108.101.*

ICQ: 243
Sajt: h1.ripway.com/vipersoft

Profil

^{04.09.2005. u 13:59 - pre 238 meseci}

E.ovako...Napravi sam moj prvi (ozbiljniji) program u Delphi-u 4.Zove se Music Player,kao sto ime kaze sluzi za slusanje muzike....ali imam nekoliko problema a to su:
1.Ne radi "stop" dugme iako sam napisao ovako:
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
if MediaPlayer1.Enabled then
begin
MediaPlayer1.Stop;
Label3.Caption := d + '00:00';
Timer1.Enabled := False;
TrackBar1.Position := 0;
end;
end;
Mislim da je ovo ispravno ako nije ispravite....
2.Ne radi mu "Pauza" dugme iako sam napisao:
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
if MediaPlayer1.Enabled then
begin
MediaPlayer1.Pause;
Timer1.Enabled := False;
end;
end;

To je sto ne radi,a ovo je sto ne znam da napisem....
imam dugme "Izbaci" ali ne znam na napisem da izbaci pesmu iz ListBox-a
I imam jedan TrackBar koji bi sluzio za smanjivanje i pojacavanje zvuka i to ne znam da napisem
Imam jos jedan mali Problem....Naime kad ubacim vise WMA fajlova pocne da izbacuje error "No MCI device open"(to izbacuje kada se zavrsi prva pesma)

Inace program otvara Mp3,Wma i Wav fajlove.....
I imam jos jedno pitanje,a to je kao da mi promeni "skin"tj. da promeni slicice u programu(moj "skin" je sastvljenj od slicica")

ako vam nesto nije jasno pitajte....

E to je to......nadam se da ce te mi pomoci....
Zeleo bi da napomenem da imam 15 godina i da sam pocetnik u programiranju....

Unapred zahvalan....

Ko ne zna, a misli da zna
Kloni ga se
Ko ne zna i zna da ne zna
Pomogni mu
Ko zna, a misli da ne zna
Postuj ga
Ko zna i zna da zna
Idi njegovim stopama

Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: Moj program-Music Player

^{04.09.2005. u 18:30 - pre 238 meseci}

Citat:

Floppy:1.Ne radi "stop" dugme iako sam napisao ovako:
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
if MediaPlayer1.Enabled then
begin
MediaPlayer1.Stop;
Label3.Caption := d + '00:00';
Timer1.Enabled := False;
TrackBar1.Position := 0;
end;
end;
2.Ne radi mu "Pauza" dugme iako sam napisao:
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
if MediaPlayer1.Enabled then
begin
MediaPlayer1.Pause;
Timer1.Enabled := False;
end;
end;

probaj maknut if then petlju..

Citat:

Floppy:
imam dugme "Izbaci" ali ne znam na napisem da izbaci pesmu iz ListBox-a

Listbox1.DeleteSelected;

Citat:

Floppy: I imam jedan TrackBar koji bi sluzio za smanjivanje i pojacavanje zvuka i to ne znam da napisem

type
TGlasnoca = record
Levi, Desni: Word;
end;

..

procedure TForm1.TrackBar2Change(Sender: TObject);
var
G: TGlasnoca;
begin
G.Levi := TrackBar2.Position;
G.Desni := TrackBar2.Position;
waveOutSetVolume(0, Cardinal(G));

end;

Citat:

Floppy: Imam jos jedan mali Problem....Naime kad ubacim vise WMA fajlova pocne da izbacuje error "No MCI device open"(to izbacuje kada se zavrsi prva pesma)

U uses dodaj MMSystem...u u neki onclick event buttona:

procedure TForm1.Button1Click(Sender: TObject);
begin
if WavFajl <> '' then
if not PlaySound(PChar(WavFajl), 0, SND_FILENAME)
then
ShowMessage('neka_greska');
end;

Citat:

Floppy:
I imam jos jedno pitanje,a to je kao da mi promeni "skin"tj. da promeni slicice u programu(moj "skin" je sastvljenj od slicica")

Skini vclskin komponentu..

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4392
62.108.102.*

Sajt: https://avramovic.info

+46 Profil

Re: Moj program-Music Player

^{05.09.2005. u 00:00 - pre 238 meseci}

Citat:

Passwd: Skini vclskin komponentu..

i potrazi ovde na forumu za skidanje onog "demo verzija" ... programski workaround... by me, i josh par leekova... udruzenim snagama! :P

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Odgovor na temu

Peke
Novi Sad

Član broj: 24103
Poruke: 67
*.dialup.neobee.net.

Profil

Re: Moj program-Music Player

^{06.09.2005. u 02:24 - pre 238 meseci}

Floppy,
Mogao bih da te uputim na neke od tema na koje sam ja odgovarao (pogledaj moj profil).
Ima tamo par primera za slicne probleme, mozda dobijes koju ideju.

Pozdrav, Peke
Speed IO ADSL+ Rezultat
SpeedTest.NET ADSL+ Rezultat

Odgovor na temu