Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pompc oko Picture Box-a

[es] :: Visual Basic 6 :: Pompc oko Picture Box-a

Strane: 1 2

[ Pregleda: 6031 | Odgovora: 22 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Bleade
Milan Petrovic
Hrvatska

Član broj: 43656
Poruke: 11
*.cmu.carnet.hr.



Profil

icon Pompc oko Picture Box-a31.12.2004. u 18:22 - pre 187 meseci
Na formi imam dva commandbuttona i jedan picture box.Oba buttona mi rade i stavljaju na pritisak svaki svoju sliku u picture box.
Napravio sam kada kliknem na picture box tj. na sliku svaka bi slika trebala imati drugi zvuk,ali to ne radi.
Pomagajte.
Code:

Private Sub Command1_Click()
Zvuk = sndPlaySound("d:\zvuk\A.wav", 1)
Picture1.Picture = LoadPicture("d:\slike\A1.gif")
Text1.Text = "AUTO"
End Sub

Private Sub Command2_Click()
Zvuk = sndPlaySound("d:\zvuk\B.wav", 1)
Picture1.Picture = LoadPicture("d:\slike\B1.gif")
End Sub

Private Sub Picture1_Click()
Zvuk = sndPlaySound("d:\zvuk\B1.wav", 1)
Text1.Text = "as"
End Sub

Hvala

[Ovu poruku je menjao mladenovicz dana 04.01.2005. u 11:28 GMT+1]
 
Odgovor na temu

kiky
Petrovic Zoran
Beograd

Član broj: 37045
Poruke: 121
*.ppp-bg.sezampro.yu.



Profil

icon Re: Pompc oko Picture Box-a31.12.2004. u 20:06 - pre 187 meseci
Izgleda da ti na clickl na picturebox svira samo ton B1. Probaj recimo:
Code:

Dim Zvuk as string

Private Sub Command1_Click()
Zvuk = "d:\zvuk\A.wav"
Picture1.Picture = LoadPicture("d:\slike\A1.gif")
Text1.Text = "AUTO"
End Sub

Private Sub Command2_Click()
Zvuk = "d:\zvuk\B.wav"
Picture1.Picture = LoadPicture("d:\slike\B1.gif")
End Sub

Private Sub Picture1_Click()
sndPlaySound(zvuk, 1)
Text1.Text = "as"
End Sub


stim sto mi bas nije jasno sta ti je "sndPlaySound"

[Ovu poruku je menjao mladenovicz dana 04.01.2005. u 11:28 GMT+1]
 
Odgovor na temu

Bleade
Milan Petrovic
Hrvatska

Član broj: 43656
Poruke: 11
*.cmu.carnet.hr.



Profil

icon Re: Pompc oko Picture Box-a31.12.2004. u 20:35 - pre 187 meseci
Ja sam pocetnik.
Svaka bi slika na Click trebala dati svoj zvuk ali mi to ne ide stalno izbaciva gresku.
 
Odgovor na temu

Bleade
Milan Petrovic
Hrvatska

Član broj: 43656
Poruke: 11
*.cmu.carnet.hr.



Profil

icon Re: Pompc oko Picture Box-a31.12.2004. u 20:49 - pre 187 meseci
Pravim sinu Abecedu i ovako do sada izgleda cijeli kod
Code:

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Dim Zvuk As Long
Private Sub Command1_Click()
Zvuk = sndPlaySound("d:\zvuk\A.wav", 1)
Picture1.Picture = LoadPicture("d:\slike\A1.gif")
Text1.Text = "AUTO"
End Sub

Private Sub Command2_Click()
Zvuk = sndPlaySound("d:\zvuk\B.wav", 1)
Picture1.Picture = LoadPicture("d:\slike\B1.gif")
End Sub

Private Sub Command3_Click()
Zvuk = sndPlaySound("d:\zvuk\Abeceda.wav", 1)
End Sub

Private Sub Command4_Click()
Zvuk = sndPlaySound("d:\zvuk\C.wav", 1)
End Sub
Private Sub Picture1_Click()
Zvuk = sndPlaySound("d:\zvuk\B1.wav", 1)
Text1.Text = "BEBA"
End Sub

NA picturebox mi ne radi dobro
<Comandbuton je ok!Ono tipa glas "Ovo je slovo A" i kada kliknes na sliku trebao bi reci "A kao Auto "I to mi radi na prvoj slici ali na drugoj neće.

Molim za pomoć na radost moga sina

[Ovu poruku je menjao mladenovicz dana 04.01.2005. u 11:29 GMT+1]
 
Odgovor na temu

kiky
Petrovic Zoran
Beograd

Član broj: 37045
Poruke: 121
*.smin.sezampro.yu.



Profil

icon Re: Pompc oko Picture Box-a31.12.2004. u 20:49 - pre 187 meseci
Mozes da umesto sndPlaySound iskovristis mikrosoftovu kontrolu Microsoft multimedia control 6.0 pa njoj da prosledjujes putanju do zvuka kako sam ti vec napisao.
 
Odgovor na temu

kiky
Petrovic Zoran
Beograd

Član broj: 37045
Poruke: 121
*.smin.sezampro.yu.



Profil

icon Re: Pompc oko Picture Box-a31.12.2004. u 20:54 - pre 187 meseci
Znaci sa svaki klikom na dugme 1,2,3 ili picturebox se cuje zvuk razliciti?
 
Odgovor na temu

Bleade
Milan Petrovic
Hrvatska

Član broj: 43656
Poruke: 11
*.cmu.carnet.hr.



Profil

icon Re: Pompc oko Picture Box-a31.12.2004. u 21:17 - pre 187 meseci
Npr.Command Buton 1 je slovo "A" i kada ga kliknes cujes "Ovo je slovo A" , a na picture box se pojavi slika AUTA i kada kliknes na nju cujes ton"A KAO AUTO"
Sve se ponavlja kod Command butona 2 samo sto je Slovo "B" i slika je BEBA ali kada kliknes kako da dobijes ton"B KAO BEBA " u tome je problem tu mi javlja greske
 
Odgovor na temu

kiky
Petrovic Zoran
Beograd

Član broj: 37045
Poruke: 121
*.ppp-bg.sezampro.yu.



Profil

icon Re: Pompc oko Picture Box-a31.12.2004. u 23:21 - pre 187 meseci
Prezimenjace evo ti nesto koda pa ako ti ne bude jasno nesto javi. Ovo iskopiraj u VB i malo prepravi imena kontrola da bi radilo
Code:

Option Explicit
Dim sAppPath As String

Private Sub Form_Load()
Dim sAppPath As String

'priprema putanju
sAppPath = App.Path
If Right$(sAppPath, 1) <> "\" Then sAppPath = sAppPath & "\"

' pripremi audio kontrolu 
mmcAudio.Notify = False
mmcAudio.Wait = True
mmcAudio.Shareable = False
mmcAudio.Command = "Close"
End Sub

Private Sub Form_Unload(Cancel As Integer)
' zatvara multimedijalnu kontrolu
mmcAudio.Command = "Close"
End Sub

' priprema kontrolu da pusti ponovo
Private Sub mmcAudio_Done(NotifyCode As Integer)
    mmcAudio.Command = "Close"
End Sub

' Pusta MP3 ili Wav fajl
Private Sub Command2_Click()
mmcAudio.FileName =  'ovde dodelis putanju do fajla primer: mmcAudio.FileName=sAppPath & A.wav
mmcAudio.Command = "Open"
mmcAudio.Command = "Play"
Picture1.Picture = LoadPicture(sAppPath & A1.gif")
End Sub


'ovako nastavis za svako dugme ali je bolje da dugmad smestis u niz i da onda pozivas
'jedan podprogram naravno moras da dodas jednu Microsoft multimedia control

[Ovu poruku je menjao mladenovicz dana 04.01.2005. u 11:30 GMT+1]
 
Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.t-com.hr.



+8 Profil

icon Re: Pompc oko Picture Box-a01.01.2005. u 02:16 - pre 187 meseci
offtopic: Ljudi zašto koriste Code tagovi? Koristite to.
 
Odgovor na temu

Bleade
Milan Petrovic
Hrvatska

Član broj: 43656
Poruke: 11
*.cmu.carnet.hr.



Profil

icon Re: Pompc oko Picture Box-a01.01.2005. u 11:22 - pre 187 meseci
Nista ne kuzim tvoj kod
Moj za commandbox radi sve i picture box za prvu sliku radi,ali kako bi izgledao kada picture box ucita drugu sliku i kada kliknes na nju da dobijes zvuk.Znaci sve slike idu u 1 picture box.Ovo je kod za 1 sliku
Code:

Private Sub Picture1_Click()
Zvuk = sndPlaySound("d:\zvuk\B1.wav", 1)
Text1.Text = "BEBA"
End Sub


[Ovu poruku je menjao mladenovicz dana 04.01.2005. u 11:30 GMT+1]
 
Odgovor na temu

kiky
Petrovic Zoran
Beograd

Član broj: 37045
Poruke: 121
*.dialup.sezampro.yu.



Profil

icon Re: Pompc oko Picture Box-a01.01.2005. u 11:35 - pre 187 meseci
Zadaj jednu promenjivu na formi kojoj ces da dodelis putanju zvuka svaki put kad je neko dugme pritisnuto pa kad je na primer pritisnuro dugme A tada joj dodeli s putanju "d:\zvuk\A1.wav" a kad je pritisnuro dugme B dodelis putanju "d:\zvuk\B1.wav" tako da kad se desi picture1_click event ona pusti zvuk po kodu

sndPlaySound(zadata promenjiva, 1)

inace i onaj moj kod radi sa malim prepravkama kao sto sam ti i rekao.
 
Odgovor na temu

Bleade
Milan Petrovic
Hrvatska

Član broj: 43656
Poruke: 11
*.cmu.carnet.hr.



Profil

icon Re: Pompc oko Picture Box-a01.01.2005. u 15:32 - pre 187 meseci
Najbolje moj prijatelju da ti meni napises cijeli primjer za dva command butona sa jednim picturebox da vidim kako bi ti to napravio posto jednostavno ovako ne ide.
Pozdrav
 
Odgovor na temu

kiky
Petrovic Zoran
Beograd

Član broj: 37045
Poruke: 121
*.ppp-bg.sezampro.yu.



Profil

icon Re: Pompc oko Picture Box-a01.01.2005. u 18:04 - pre 187 meseci
Evo ti zakacen primer sa dva dugmeta. Ali opet moras malo da ga doradis jer ne znam ja gde se tebi nalaze zvukovi i slike koje prikazujes i pustas.
Prikačeni fajlovi
 
Odgovor na temu

Bleade
Milan Petrovic
Hrvatska

Član broj: 43656
Poruke: 11
*.cmu.carnet.hr.



Profil

icon Re: Pompc oko Picture Box-a01.01.2005. u 19:46 - pre 187 meseci
Ovo radi i puno hvala na pomoci,dali postoji mogucnost da na comand butonu bude zvuk npr."ovo je slovo A" ,a na slici zvuk "A kao Auto " kada kliknes na sliku.?A da radi na ovaj nacin
 
Odgovor na temu

kiky
Petrovic Zoran
Beograd

Član broj: 37045
Poruke: 121
*.ppp-bg.sezampro.yu.



Profil

icon Re: Pompc oko Picture Box-a01.01.2005. u 22:43 - pre 187 meseci
Naravno da moze.Definisi jednu promenjivu gde ces pri kliku na dugme dodeljivati drugi zvuk. Pa napisi jos jednu pod rutinu recimo PustiZvukSlika ali sad sa tom promenjivom pa pri kliku na picture1 pozovi call PustiZvukSlika umesto PustiZvuk. Znaci nesto ovako
Code:

Dim ZvukSlika as string

Public Sub PustiZvukSlika()
' Pusta MP3 ili Wav fajl
MMControl1.FileName = ZvukSlika
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub


i u kodu za klik dugmeta dodaj recimo
Code:

ZvukSlika="c:\Zvuk\b1.wav"
 
Odgovor na temu

Bleade
Milan Petrovic
Hrvatska

Član broj: 43656
Poruke: 11
*.cmu.carnet.hr.



Profil

icon Re: Pompc oko Picture Box-a02.01.2005. u 14:59 - pre 187 meseci
Napravio sam ali ne radi ,dali bi htjeo to nabaciti na onaj svoj primjer najlakse mi je tako ali i dosada ti puno hvala na upornosti
Pozdrav
 
Odgovor na temu

kiky
Petrovic Zoran
Beograd

Član broj: 37045
Poruke: 121
*.dialup.sezampro.yu.



Profil

icon Re: Pompc oko Picture Box-a02.01.2005. u 16:09 - pre 187 meseci
Evo dodao sam par redova
Prikačeni fajlovi
 
Odgovor na temu

Bleade
Milan Petrovic
Hrvatska

Član broj: 43656
Poruke: 11
*.cmu.carnet.hr.



Profil

icon Re: Pompc oko Picture Box-a02.01.2005. u 18:29 - pre 187 meseci
Ti si legenda.Sada si me to naucio.Kako bi to islo samo ta text ,a ne za zvuk
 
Odgovor na temu

kiky
Petrovic Zoran
Beograd

Član broj: 37045
Poruke: 121
*.ppp-bg.sezampro.yu.



Profil

icon Re: Pompc oko Picture Box-a02.01.2005. u 22:03 - pre 187 meseci
Za koji tekst?
 
Odgovor na temu

Bleade
Milan Petrovic
Hrvatska

Član broj: 43656
Poruke: 11
*.cmu.carnet.hr.



Profil

icon Re: Pompc oko Picture Box-a04.01.2005. u 09:25 - pre 187 meseci
Legendo ima problema!
Sve sam napravio i radi na mome compu ali na drugom ne tj.od maloga .Ima problema sa instalacijom.
Problem je jer kod mene zvuk i slike cita sa drugog mjesta kako da to rijesim.
 
Odgovor na temu

[es] :: Visual Basic 6 :: Pompc oko Picture Box-a

Strane: 1 2

[ Pregleda: 6031 | Odgovora: 22 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.