Printable View
I want add 12 sounds in vb6. I dont know how and what components to use. Then when i do manage add the sounds i need eacht of sound play once depending of program answer. For example:
I create 1 CSom button and SDtade button is zodiac answer.
Can anyone help me?Code:If SDate.Caption = "Aries" Then
CSom. play aries.midi
end if
If SDate.Caption = "Taurus" Then
CSom. play taurus.midi
end if
How do you PLAY media? No program named play that I know of
IMO It's just way to explain what he wants...
Here's a way --> http://www.devx.com/vb2themax/Tip/18384
Quote:
Originally Posted by jggtz
Yes it is this what i want to do, but i dont know where write code especially when my code is very long.
This is my programs all code:
Code:Dim intTotal1 As Integer
Dim strTotal1 As String
Dim intTotal2 As Integer
Dim strTotal2 As String
Option Explicit
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) _
As Long
Private Declare Function SetLayeredWindowAttributes Lib _
"user32" (ByVal hWnd As Long, ByVal crKey As Long, _
ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Public Function TransForm(Form As Form, TransLevel As Byte) As Boolean
SetWindowLong Form.hWnd, GWL_EXSTYLE, WS_EX_LAYERED
SetLayeredWindowAttributes Form.hWnd, 0, TransLevel, LWA_ALPHA
TransForm = Err.LastDllError = 0
End Function
Private Sub Command2_Click()
TransForm AboutScr, 255
Load AboutScr
AboutScr.Show vbModal, Me
End Sub
Private Sub Form_Load()
TransForm Me, 224
End Sub
Private Sub txtLevel_Change()
On Error Resume Next
TransForm Me, txtLevel.Text
End Sub
Private Sub Command1_Click()
If IsNumeric(Text1.Text) And _
IsNumeric(Text2.Text) And _
IsNumeric(Text3.Text) And _
IsNumeric(Text4.Text) And _
IsNumeric(Text5.Text) And _
IsNumeric(Text6.Text) And _
IsNumeric(Text7.Text) And _
IsNumeric(Text8.Text) Then
If Val(Text1.Text) <> 1 And Val(Text1.Text) <> 2 Then
MsgBox "Metai turi prasidėti skaičiuomi 1 ar 2", vbInformation, "Dėmesio!"
Exit Sub
End If
If Val(Text5.Text & Text6.Text) < 1 Or _
Val(Text5.Text & Text6.Text) > 12 Then
MsgBox "Mėnesiai turi būti tarp 01 ir 12", vbInformation, "Dėmesio!"
Exit Sub
End If
If Val(Text7.Text & Text8.Text) < 1 Or _
Val(Text7.Text & Text8.Text) > 31 Then
MsgBox "Dienos turi būti tarp 01 ir 31", vbInformation, "Dėmesio!"
Exit Sub
End If
intTotal1 = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text) + Val(Text8.Text)
strTotal1 = Format(intTotal1, "00")
intTotal2 = Val(Left(strTotal1, 1)) + Val(Right(strTotal1, 1))
If intTotal2 > 9 Then
strTotal2 = Format(intTotal2, "00")
intTotal2 = Val(Left(strTotal2, 1)) + Val(Right(strTotal2, 1))
End If
Label1.Caption = Format(intTotal2)
Dim strAux As String
strAux = Text5.Text & Text6.Text & Text7.Text & Text8.Text
If strAux >= "0321" And strAux <= "0420" Then SDate.Caption = "Avinas"
If strAux >= "0421" And strAux <= "0521" Then SDate.Caption = "Jautis"
If strAux >= "0522" And strAux <= "0621" Then SDate.Caption = "Dvynys"
If strAux >= "0622" And strAux <= "0722" Then SDate.Caption = "Vėžys"
If strAux >= "0722" And strAux <= "0822" Then SDate.Caption = "Liūtas"
If strAux >= "0823" And strAux <= "0923" Then SDate.Caption = "Mergelė"
If strAux >= "0924" And strAux <= "1023" Then SDate.Caption = "Svarstyklės"
If strAux >= "1024" And strAux <= "1122" Then SDate.Caption = "Skorpionas"
If strAux >= "1123" And strAux <= "1222" Then SDate.Caption = "Šaulys"
If strAux >= "1223" Or strAux <= "0119" Then SDate.Caption = "Ožiaragis"
If strAux >= "0120" And strAux <= "0218" Then SDate.Caption = "Vandenis"
If strAux >= "0219" And strAux <= "0320" Then SDate.Caption = "Žuvys"
Else
MsgBox "Laukelis paliktas tuščias arba įvestas ne skaičius!", vbInformation, "Dėmesio!"
End If
If SDate.Caption = "Avinas" Then
psavt.Caption = "Įkvėpimas ir Drąsa"
End If
If SDate.Caption = "Jautis" Then
psavt.Caption = "Atkaklumas ir Patikimumas"
End If
If SDate.Caption = "Dvyniai" Then
psavt.Caption = "Žingeidumas ir Įvairiapusiškumas"
End If
If SDate.Caption = "Vėžys" Then
psavt.Caption = "Pastovumas ir Atjauta"
End If
If SDate.Caption = "Liūtas" Then
psavt.Caption = "Išdidumas ir Optimizmas"
End If
If SDate.Caption = "Mergelė" Then
psavt.Caption = "Analitinis protas ir Įvairiapusiškumas"
End If
If SDate.Caption = "Svarstyklės" Then
psavt.Caption = "Diplomatija ir Simpatiškumas"
End If
If SDate.Caption = "Skorpionas" Then
psavt.Caption = "Veiklumas ir Išdidumas"
End If
If SDate.Caption = "Šaulys" Then
psavt.Caption = "Draugiškumas ir Įvairiapusiškumas"
End If
If SDate.Caption = "Ožiaragis" Then
psavt.Caption = "Atsakingumas ir Veiklumas"
End If
If SDate.Caption = "Vandenis" Then
psavt.Caption = "Orginalumas ir Intuicija"
End If
If SDate.Caption = "Žuvys" Then
psavt.Caption = "Pagalba nelaimėje ir Darbštumas"
End If
If SDate.Caption = "Avinas" Then
psavn.Caption = "Impulsyvumas ir Nedisciplinuotumas"
End If
If SDate.Caption = "Jautis" Then
psavn.Caption = "Gobšumas ir Užsispyrimas"
End If
If SDate.Caption = "Dvyniai" Then
psavn.Caption = "Nekantrumas ir Nepastovumas"
End If
If SDate.Caption = "Vėžys" Then
psavn.Caption = "Gobšumas ir Per didelis jautrumas"
End If
If SDate.Caption = "Liūtas" Then
psavn.Caption = "Nepakantumas ir Nelankstumas"
End If
If SDate.Caption = "Mergelė" Then
psavn.Caption = "Kritiškumas ir Nepakantumas"
End If
If SDate.Caption = "Svarstyklės" Then
psavn.Caption = "Neryžtingumas ir Priklausomybė"
End If
If SDate.Caption = "Skorpionas" Then
psavn.Caption = "Gobšumas ir Neužmirštantis įžeidimo"
End If
If SDate.Caption = "Šaulys" Then
psavn.Caption = "Netaktiškumas ir Nepastovumas"
End If
If SDate.Caption = "Ožiaragis" Then
psavn.Caption = "Uždarumas ir Pesimizmas"
End If
If SDate.Caption = "Vandenis" Then
psavn.Caption = "Nedisciplinuotumas ir Nepriklausomybė"
End If
If SDate.Caption = "Žuvys" Then
psavn.Caption = "Neryžtingumas ir Per didelis jautrumas"
End If
If SDate.Caption = "Avinas" Then
kri.Caption = "Kantrybės"
End If
If SDate.Caption = "Jautis" Then
kri.Caption = "Nepriklausomybės"
End If
If SDate.Caption = "Dvyniai" Then
kri.Caption = "Kontroliuoti savo energiją ir protą"
End If
If SDate.Caption = "Vėžys" Then
kri.Caption = "Pastabumo"
End If
If SDate.Caption = "Liūtas" Then
kri.Caption = "Kuklumo"
End If
If SDate.Caption = "Mergelė" Then
kri.Caption = "Pakantumo ir Tolerancijos"
End If
If SDate.Caption = "Svarstyklės" Then
kri.Caption = "Ryžtingumo"
End If
If SDate.Caption = "Skorpionas" Then
kri.Caption = "Atlaidumo"
End If
If SDate.Caption = "Šaulys" Then
kri.Caption = "Susivaldymo"
End If
If SDate.Caption = "Ožiaragis" Then
kri.Caption = "Visuomeniškumo"
End If
If SDate.Caption = "Vandenis" Then
kri.Caption = "Nuoširdumo"
End If
If SDate.Caption = "Žuvys" Then
kri.Caption = "Atkaklumo"
End If
If SDate.Caption = "Avinas" Then
trm.Caption = "Greit užsidega, greit perdega"
End If
If SDate.Caption = "Jautis" Then
trm.Caption = "Pasėja grūdus, kai dirva paruošta"
End If
If SDate.Caption = "Dvyniai" Then
trm.Caption = "Šokinėja nuo vienos idėjos prie kitos"
End If
If SDate.Caption = "Vėžys" Then
trm.Caption = "Emocionaliai bendrauja su įvairiausio tipo žmonėmis"
End If
If SDate.Caption = "Liūtas" Then
trm.Caption = "Ugnis dega ilgai"
End If
If SDate.Caption = "Mergelė" Then
trm.Caption = "Šokinėja iš vieno lauko į kitą, pasėja po truputį kiekviename lauke"
End If
If SDate.Caption = "Svarstyklės" Then
trm.Caption = "Idėjas apsvarsto iš visų pusių, planuoja, skaičiuoja, sunkiai priima sprendimą"
End If
If SDate.Caption = "Skorpionas" Then
trm.Caption = "Intensyviai bendrauja tik su tam tikros grupės žmonėmis"
End If
If SDate.Caption = "Šaulys" Then
trm.Caption = "Šokinėja nuo vienokios ugnies prie kitokios"
End If
If SDate.Caption = "Ožiaragis" Then
trm.Caption = "Aria ir tręšia dirvą sėjai"
End If
If SDate.Caption = "Vandenis" Then
trm.Caption = "Tobulai išnagrinėja idėją ir jos įgyvendinimą"
End If
If SDate.Caption = "Žuvys" Then
trm.Caption = "Šokinėja nuo vienų prie kitų, jausmai tai vienoki, tai kitokie"
End If
If SDate.Caption = "Avinas" Then
Tal.Caption = "Impulsas, Veiksmas, Energija"
End If
If SDate.Caption = "Jautis" Then
Tal.Caption = "Realizmas, Darbštumas, Užsispyrimas "
End If
If SDate.Caption = "Dvynys" Then
Tal.Caption = "Dvilypumas, Nepastovumas, Darbas keliomis kryptimis "
End If
If SDate.Caption = "Vėžys" Then
Tal.Caption = "Išorinis pasyvumas, Gilus mąstymas, Jautrumas"
End If
If SDate.Caption = "Liūtas" Then
Tal.Caption = "Veiksmas, Organizavimas, Vadovavimas"
End If
If SDate.Caption = "Mergelė" Then
Tal.Caption = "Atsargumas, Realizmas, Aktyvumas"
End If
If SDate.Caption = "Svarstyklės" Then
Tal.Caption = "Nepastovumas, Dvilypumas, Kolektyvinė veikla"
End If
If SDate.Caption = "Skorpionas" Then
Tal.Caption = "Emocinė energija, Kritiškumas, Jautrumas"
End If
If SDate.Caption = "Šaulys" Then
Tal.Caption = "Valdžios siekimas, Nepriklausomybė"
End If
If SDate.Caption = "Ožiaragis" Then
Tal.Caption = "Pastovumas, Lėtumas, Realizmas"
End If
If SDate.Caption = "Vandenis" Then
Tal.Caption = "Atsargumas, Judrumas, Individuali veikla"
End If
If SDate.Caption = "Žuvys" Then
Tal.Caption = "Jautrumas, Realizmo stoka, Artistiškumas"
End If
If SDate.Caption = "Avinas" Then
Apie.Caption = " Apie tuos, kuriuos valdo impulsas"
End If
If SDate.Caption = "Jautis" Then
Apie.Caption = "Apie tuos, kurie mėgsta skaniai pavalgyti"
End If
If SDate.Caption = "Dvynys" Then
Apie.Caption = "Apie tuos, kurie panašūs į vėją"
End If
If SDate.Caption = "Vėžys" Then
Apie.Caption = "Apie tuos, kurie primena veidrodžius"
End If
If SDate.Caption = "Liūtas" Then
Apie.Caption = "Apie tuos, kuriuos reikia kasdien girti"
End If
If SDate.Caption = "Mergelė" Then
Apie.Caption = "Apie tuos, kurie turi aštrią akį"
End If
If SDate.Caption = "Svarstyklės" Then
Apie.Caption = "Apie tuos, kurie sunkiai apsisprendžia"
End If
If SDate.Caption = "Skorpionas" Then
Apie.Caption = "Apie tuos, kurie pabunda pavakary"
End If
If SDate.Caption = "Šaulys" Then
Apie.Caption = "Apie tuos, kurie mėgsta pavalkatauti"
End If
If SDate.Caption = "Ožiaragis" Then
Apie.Caption = "Apie tuos, kurie gimsta drauge su Jėzum Kristum"
End If
If SDate.Caption = "Vandenis" Then
Apie.Caption = "Apie tuos, kurie gimsta per pūgas"
End If
If SDate.Caption = "Žuvys" Then
Apie.Caption = "Apie tuos, kurių žodžiai upeliais liejasi"
End If
If SDate.Caption = "Avinas" Then
tp.Caption = "Liūtas, Avinas, Jautis, Šaulys, Vandenis, Žuvys"
End If
If SDate.Caption = "Jautis" Then
tp.Caption = "Mergelė, Ožiaragis, Žuvys, Avinas, Vėžys"
End If
If SDate.Caption = "Dvynys" Then
tp.Caption = "Vandenis, Svarstyklės, Skorpionas, Vėžys, Liūtas, Svarstyklės, Jautis"
End If
If SDate.Caption = "Vėžys" Then
tp.Caption = "Skorpionas, Žuvys, Vėžys, Liūtas, Mergelė, Jautis"
End If
If SDate.Caption = "Liūtas" Then
tp.Caption = "Šaulys, Avinas, Liūtas, Svarstyklės, Vėžys, Dvyniai"
End If
If SDate.Caption = "Mergelė" Then
tp.Caption = "Jautis, Ožiaragis, Svarstyklės, Skorpionas, Vėžys, Liūtas"
End If
If SDate.Caption = "Svarstyklės" Then
tp.Caption = "Vandenis, Dvyniai, Šaulys, Liūtas, Mergelė"
End If
If SDate.Caption = "Skorpionas" Then
tp.Caption = "Žuvys, Vėžys, Šaulys, Ožiaragis, Mergelė, Svarstyklės"
End If
If SDate.Caption = "Šaulys" Then
tp.Caption = "Liūtas, Avinas, Ožiaragis, Vandenis, Svarstyklės, Skorpionas"
End If
If SDate.Caption = "Ožiaragis" Then
tp.Caption = "Jautis, Mergelė, Žuvys, Vandenis, Skorpionas, Šaulys"
End If
If SDate.Caption = "Vandenis" Then
tp.Caption = "Dvyniai, Svarstyklės, Žuvys, Avinas, Šaulys, Ožiaragis"
End If
If SDate.Caption = "Žuvys" Then
tp.Caption = "Skorpionas, Vėžys, Avinas, Jautis, Ožiaragis, Vandenis"
End If
If SDate.Caption = "Avinas" Then
sns.Caption = "Vėžiu, Svarstyklėmis ir Ožiaragiu"
End If
If SDate.Caption = "Jautis" Then
sns.Caption = "Liūtu, Skorpionu, Vandeniu"
End If
If SDate.Caption = "Dvynys" Then
sns.Caption = "Mergelėmis, Šauliais, Žuvimis"
End If
If SDate.Caption = "Vėžys" Then
sns.Caption = "Ožiaragiais, Svarstyklėmis, Avinais"
End If
If SDate.Caption = "Liūtas" Then
sns.Caption = "Vandeniu ir Jaučiu"
End If
If SDate.Caption = "Mergelė" Then
sns.Caption = "Šauliu, Žuvimis, Dvyniais"
End If
If SDate.Caption = "Svarstyklės" Then
sns.Caption = "Ožiaragiais ir Avinais"
End If
If SDate.Caption = "Skorpionas" Then
sns.Caption = "Vandeniais ir Jaučiais"
End If
If SDate.Caption = "Šaulys" Then
sns.Caption = "Žuvimis, Mergelėmis, Dvyniais"
End If
If SDate.Caption = "Ožiaragis" Then
sns.Caption = "Avinu, Vėžiu, Svarstyklėmis"
End If
If SDate.Caption = "Vandenis" Then
sns.Caption = "Jaučiu, Skorpionu ir Liūtu"
End If
If SDate.Caption = "Žuvys" Then
sns.Caption = "Mergelėmis, Dvyniais"
End If
If SDate.Caption = "Avinas" Then
jr.Caption = "Nepriklausomybė"
End If
If SDate.Caption = "Jautis" Then
jr.Caption = "Produktyvumas"
End If
If SDate.Caption = "Dvyniai" Then
jr.Caption = "Smalsumas"
End If
If SDate.Caption = "Vėžys" Then
jr.Caption = "Mokymas"
End If
If SDate.Caption = "Liūtas" Then
jr.Caption = "Saviraiška"
End If
If SDate.Caption = "Mergelė" Then
jr.Caption = "Analizė"
End If
If SDate.Caption = "Svarstyklės" Then
jr.Caption = "Pusiausvyros ieškojimas"
End If
If SDate.Caption = "Skorpionas" Then
jr.Caption = "Įsigilinimas"
End If
If SDate.Caption = "Šaulys" Then
jr.Caption = "Veržlumas"
End If
If SDate.Caption = "Ožiaragis" Then
jr.Caption = "Atsinaujinimas"
End If
If SDate.Caption = "Vandenis" Then
jr.Caption = "Pertvarka"
End If
If SDate.Caption = "Žuvys" Then
jr.Caption = "Pasitikėjimas"
End If
If SDate.Caption = "Avinas" Then
dev.Caption = "Aš esu"
End If
If SDate.Caption = "Jautis" Then
dev.Caption = "Aš turiu"
End If
If SDate.Caption = "Dvyniai" Then
dev.Caption = "Aš galvoju"
End If
If SDate.Caption = "Vėžys" Then
dev.Caption = "Aš jaučiu"
End If
If SDate.Caption = "Liūtas" Then
dev.Caption = "Aš noriu"
End If
If SDate.Caption = "Mergelė" Then
dev.Caption = "Aš tikrinu"
End If
If SDate.Caption = "Svarstyklės" Then
dev.Caption = "Aš svarstau"
End If
If SDate.Caption = "Skorpionas" Then
dev.Caption = "Aš geidžiu"
End If
If SDate.Caption = "Šaulys" Then
dev.Caption = "Aš matau"
End If
If SDate.Caption = "Ožiaragis" Then
dev.Caption = "Man reikia"
End If
If SDate.Caption = "Vandenis" Then
dev.Caption = "Aš žinau"
End If
If SDate.Caption = "Žuvys" Then
dev.Caption = "Aš tikiu"
End If
If SDate.Caption = "Avinas" Then
tll.Caption = "Plaktukas"
End If
If SDate.Caption = "Jautis" Then
tll.Caption = "Pelėda"
End If
If SDate.Caption = "Dvyniai" Then
tll.Caption = "Žaltys"
End If
If SDate.Caption = "Vėžys" Then
tll.Caption = "Dobilas"
End If
If SDate.Caption = "Liūtas" Then
tll.Caption = "Boružė"
End If
If SDate.Caption = "Mergelė" Then
tll.Caption = "Žiogas"
End If
If SDate.Caption = "Svarstyklės" Then
tll.Caption = "Širdis"
End If
If SDate.Caption = "Skorpionas" Then
tll.Caption = "Karkvabalis"
End If
If SDate.Caption = "Šaulys" Then
tll.Caption = "Pasaga"
End If
If SDate.Caption = "Ožiaragis" Then
tll.Caption = "Juodas katinas"
End If
If SDate.Caption = "Vandenis" Then
tll.Caption = "Raktas"
End If
If SDate.Caption = "Žuvys" Then
tll.Caption = "Ryšulėlis"
End If
End Sub
Private Sub Command3_Click()
Dim Contrl As Control
For Each Contrl In Form1.Controls
If (TypeOf Contrl Is TextBox) Then Contrl.Text = ""
Next Contrl
End Sub
Private Sub Form_Paint()
Me.Width = Picture1.Width
Me.Height = Picture1.Height
Picture1.Top = 0
Picture1.Left = 0
End Sub
Did i need create another command button such as play, pause, stop? If you can help me with this, i need only 1 line code with 'if and else' and all i do by my self. My first midi sounds name is aries1, second - taurus1 ....
There is the PlaySound API call which can play a sound async or sync, but as far as I know it does play .wav files and not midi...
In the next code you will see that you could write all about every zodiac sign in the first "IF-THEN" where you ask for tge range of dates... so isn't neccesary to ask every time for the same zodiac sign
in the same IF-THEN structure you could write the code to play the sound
(here only show you the code about Avinas...)
Code:'
' other code goes here
'
Dim strAux As String
strAux = Text5.Text & Text6.Text & Text7.Text & Text8.Text
If strAux >= "0321" And strAux <= "0420" Then
SDate.Caption = "Avinas"
psavt.Caption = "Įkvėpimas ir Drąsa"
psavn.Caption = "Impulsyvumas ir Nedisciplinuotumas"
kri.Caption = "Kantrybės"
trm.Caption = "Greit užsidega, greit perdega"
Tal.Caption = "Impulsas, Veiksmas, Energija"
Apie.Caption = " Apie tuos, kuriuos valdo impulsas"
tp.Caption = "Liūtas, Avinas, Jautis, Šaulys, Vandenis, Žuvys"
sns.Caption = "Vėžiu, Svarstyklėmis ir Ožiaragiu"
jr.Caption = "Nepriklausomybė"
dev.Caption = "Aš esu"
tll.Caption = "Plaktukas"
'here will go the instruction to play sound file
End If
If strAux >= "0421" And strAux <= "0521" Then
SDate.Caption = "Jautis"
'put all about Jautis here and delete the IFs below
End If
If strAux >= "0522" And strAux <= "0621" Then
SDate.Caption = "Dvynys"
'write all about Dvynys here
End If
'
' your other code goes here
'
I see now , thanks for your advice :-) i remember that :-)
So back to midi. I want add midi sound but i cannot find any components for midi play and midi add. Can be my vb6 dont have it those files? Mayby i need download some dll. or something.
Dont need END IF. I testet with end if and without end if. With end if program show error, but without end if it works fineCode:If strAux >= "0321" And strAux <= "0420" Then SDate.Caption = "Avinas"
psavt.Caption = "Įkvėpimas ir Drąsa"
psavn.Caption = "Impulsyvumas ir Nedisciplinuotumas"
kri.Caption = "Kantrybės"
trm.Caption = "Greit užsidega, greit perdega"
Tal.Caption = "Impulsas, Veiksmas, Energija"
Apie.Caption = " Apie tuos, kuriuos valdo impulsas"
tp.Caption = "Liūtas, Avinas, Jautis, Šaulys, Vandenis, Žuvys"
sns.Caption = "Vėžiu, Svarstyklėmis ir Ožiaragiu"
jr.Caption = "Nepriklausomybė"
dev.Caption = "Aš esu"
tll.Caption = "Plaktukas"
If strAux >= "0421" And strAux <= "0521" Then SDate.Caption = "Jautis"
psavt.Caption = "Atkaklumas ir Patikimumas"
psavn.Caption = "Gobšumas ir Užsispyrimas"
kri.Caption = "Nepriklausomybės"
trm.Caption = "Pasėja grūdus, kai dirva paruošta"
Tal.Caption = "Realizmas, Darbštumas, Užsispyrimas"
Apie.Caption = "Apie tuos, kurie mėgsta skaniai pavalgyti"
tp.Caption = "Mergelė, Ožiaragis, Žuvys, Avinas, Vėžys"
sns.Caption = "Liūtu, Skorpionu, Vandeniu"
jr.Caption = "Produktyvumas"
dev.Caption = "Aš turiu"
tll.Caption = "Pelėda"
If strAux >= "0522" And strAux <= "0621" Then SDate.Caption = "Dvynys"
In post #3 I posted a link to a page with a solution...
It's an easy one
Here goes a small project that uses that solution
Study it
You only need to write the Declare part in the General Declarations with all your existing Declares
And write the Open, Play & Close in the IF-THEN for every zodiac sign
Code:The If-Then-Else has 2 formats
1: IF condition THEN instruction
2: IF condition THEN
instruction
instruction
instruction
END IF
You used the number 1 because only have 1 instruction
... now you are going to use number 2 because have more than 1 instructions
You need to cut the IF line after the THEN and add the END IFQuote:
Dont need END IF. I testet with end if and without end if. With end if program show error, but without end if it works fine
Wrong
OkCode:If strAux >= "0321" And strAux <= "0420" Then SDate.Caption = "Avinas"
Code:If strAux >= "0321" And strAux <= "0420" Then
SDate.Caption = "Avinas"
psavt.Caption = "Įkvėpimas ir Drąsa"
psavn.Caption = "Impulsyvumas ir Nedisciplinuotumas"
kri.Caption = "Kantrybės"
trm.Caption = "Greit užsidega, greit perdega"
Tal.Caption = "Impulsas, Veiksmas, Energija"
Apie.Caption = " Apie tuos, kuriuos valdo impulsas"
tp.Caption = "Liūtas, Avinas, Jautis, Šaulys, Vandenis, Žuvys"
sns.Caption = "Vėžiu, Svarstyklėmis ir Ožiaragiu"
jr.Caption = "Nepriklausomybė"
dev.Caption = "Aš esu"
tll.Caption = "Plaktukas"
End If
If strAux >= "0421" And strAux <= "0521" Then
SDate.Caption = "Jautis"
psavt.Caption = "Atkaklumas ir Patikimumas"
psavn.Caption = "Gobšumas ir Užsispyrimas"
kri.Caption = "Nepriklausomybės"
trm.Caption = "Pasėja grūdus, kai dirva paruošta"
Tal.Caption = "Realizmas, Darbštumas, Užsispyrimas"
Apie.Caption = "Apie tuos, kurie mėgsta skaniai pavalgyti"
tp.Caption = "Mergelė, Ožiaragis, Žuvys, Avinas, Vėžys"
sns.Caption = "Liūtu, Skorpionu, Vandeniu"
jr.Caption = "Produktyvumas"
dev.Caption = "Aš turiu"
tll.Caption = "Pelėda"
End If
If strAux >= "0522" And strAux <= "0621" Then
SDate.Caption = "Dvynys"
I did what you sugest but see this picture:
Attachment 30481
Forget this, i spot it mistake. :cool:
Attachment 30483
This program has some bug, when it run, vb stop forking. See your self.Quote:
Originally Posted by jggtz
Attachment 30485
PROGRAM NOT RESPONDING. I not make mistake, i just copy-paste code. When i play sound program shut down.
VB dont show any errors.
And what about the small project that I attached in post #8
Did it work ok?
Quote:
Originally Posted by jggtz
I use your project, It works, sound play, but then program start say : not responding, and bouth programs - your project and my this zodiac. I think maybe in code is small error or what?
So what you think whats problem may be?
Are you waiting that the program play all the midi file?
Are you trying to stop it?
Test with a shorter file
I think both. With your posted program when i play and try stop, then program say error - not respond. In my program i just tested with two sounds and continue aries and taurus line. When i try it plays aries sound but then program stopt and no respond before i had a chance lisin taurus sound. My sound start play from calculation answer in date.Quote:
Originally Posted by jggtz
So, it's neccesary to let the program to finish the playing
Test your program :
-type a birth date from aries
-let the program plays ALL the midi file for aries until it finish
-post how was it
Its same. I give up. I think i just add 1 sound, and that sound play when start program, lets say whe i push "on" button and when i turn off program that sound stops.So can you help me with 1 sound?Quote:
Originally Posted by jggtz
Well, this is just one solution i've found
Let's look for another solution that plays midi files and try it
Agreed . But that sound must be added to vb, not opened from my computer, because when i done my program i put in another pc ant tested. If sound code must be open file from location then in another pc sound dont play because that file not be in second pc.Quote:
Originally Posted by jggtz
When you finish your project the next step is to build a package to distribute your application
And is in that moment that we add all the files the project need, as in this case, the midi files
So when somebody install your application in his pc also install the midi files
Ok, but this in the end, right now i need 2 things:Quote:
Originally Posted by jggtz
1- how to simple add png files.
2- and how remove backround. I think this problem solves when i add png picture. Right now is a simple jpeg file. You can see in this picture what all about.
http://forums.codeguru.com/attachmen...9&d=1349909077