Pompc oko Picture Box-a

[ Bleade @ 31.12.2004. 18:22 ] @

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]}

[ kiky @ 31.12.2004. 20:06 ] @

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]}

[ Bleade @ 31.12.2004. 20:35 ] @

Ja sam pocetnik.
Svaka bi slika na Click trebala dati svoj zvuk ali mi to ne ide stalno izbaciva gresku.

[ Bleade @ 31.12.2004. 20:49 ] @

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]}

[ kiky @ 31.12.2004. 20:49 ] @

Mozes da umesto sndPlaySound iskovristis mikrosoftovu kontrolu Microsoft multimedia control 6.0 pa njoj da prosledjujes putanju do zvuka kako sam ti vec napisao.

[ kiky @ 31.12.2004. 20:54 ] @

Znaci sa svaki klikom na dugme 1,2,3 ili picturebox se cuje zvuk razliciti?

[ Bleade @ 31.12.2004. 21:17 ] @

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

[ kiky @ 31.12.2004. 23:21 ] @

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]}

[ VRKY @ 01.01.2005. 02:16 ] @

offtopic: Ljudi zašto koriste Code tagovi? Koristite to.

[ Bleade @ 01.01.2005. 11:22 ] @

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]}

[ kiky @ 01.01.2005. 11:35 ] @

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.

[ Bleade @ 01.01.2005. 15:32 ] @

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

[ kiky @ 01.01.2005. 18:04 ] @

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.

[ Bleade @ 01.01.2005. 19:46 ] @

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

[ kiky @ 01.01.2005. 22:43 ] @

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"

[ Bleade @ 02.01.2005. 14:59 ] @

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

[ kiky @ 02.01.2005. 16:09 ] @

Evo dodao sam par redova

[ Bleade @ 02.01.2005. 18:29 ] @

Ti si legenda.Sada si me to naucio.Kako bi to islo samo ta text ,a ne za zvuk

[ kiky @ 02.01.2005. 22:03 ] @

Za koji tekst?

[ Bleade @ 04.01.2005. 09:25 ] @

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.

[ mladenovicz @ 04.01.2005. 10:32 ] @

Koristi relativne putanje u odnosu na App.Path. Znaci u folderu gde se nalazi aplikacija imas subfolder Zvuk, a u kodu nesto ovako:

Code:

App.Path & "\Zvuk\a.wav"

[ Bleade @ 04.01.2005. 11:49 ] @

Molim te detaljnije mi objasni kako da to napravim.Posto mi ne ide i prvi put radim na tome.
Hvala

[ kiky @ 04.01.2005. 22:01 ] @

App.path ti je sistemska promenjiva u kojoj se nalazi put do tvog programa. Znaci sve putanje koje pises u programu treba da ti budu relativne od foldera u kom se nalazi tvoj program. Ti si do sad pisao apsolutne putanje kao na primer c:\zvuk\A.wav a treba da pises relativne recimo ako ti se program nalazi u c:\program napravis folder Zvuci i sve zvuke stavis tu. Onda putanje do zvukova zadajes App.path & "\zvuci\A.wav". Onda kad prekopiras program u bilo koji direktorijum treba da ti se zvuci ponovo nalase u poddirektorijumu Zvuci da bi radilo.