Re: Exotica
This is a multi-part message in MIME format.
------=_NextPart_000_005C_01C10662.4742B400
charset="iso-8859-1"
----- Original Message -----=20
From: mwfch at MWEB.CO.ZA=20
To: EUforum=20
Sent: Tuesday, June 13, 2000 12:05 AM
Subject: Exotica
Hi .
What is wrong with my Exotica program :
Lots of things 
--BEGIN CODE
include emain.ew
object funcval
funcval=3Dc_func(EXOTICA_INIT,{hwnd,hInst}) =20
end if
Why "end if" when there is no "if" statement ?
object val
val =3D c_func(DMUSIC_INIT,{NULL})
object val2
val2 =3D c_func(DMUSIC_REVERB_AVAIL,{NULL})=20
return val2
You cannot return a variable if you aren't inside a function.
if val2 =3D 0 then
object val3,C_INT
You cannot declare a variable at this point.
btw you can use ONE variable for all of this.
(funcval). There is no need to have val2,val3,...
because the functions just returns succes/failure
info which is then not needed.
C_INT =3D 0
val3 =3D c_proc(DMUSIC_TOGGLE_REVERB,{C_INT})=20
elsif val2 =3D 1 then
object val4,C_INT
C_INT =3D 1
val4 =3D c_proc(DMUSIC_TOGGLE_REVERB,{C_INT})
end if
object mid_file,Filename
Filename =3D boss.mid=20
must be Filename =3D "boss.mid"
mid_file =3D c_proc(MIDI_OPEN,{Filename})=20
object play
play =3D c_proc(MIDI_PLAY,{NULL})
--END CODE
Thanx
Ferdinand
I would suggest you first start writing simple Euphoria programs
which do not use Exotica because with DirectX initialized it is
difficult to trace and see intrepreter messages.
------=_NextPart_000_005C_01C10662.4742B400
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV> </DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
<DIV style=3D"FONT: 10pt arial CE">----- Original Message ----- </DIV>
<DIV=20
style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial CE; font-color: =
black"><B>From:</B>=20
<A href=3D"mailto:mwfch at MWEB.CO.ZA" =
title=3Dmwfch at MWEB.CO.ZA>mwfch at MWEB.CO.ZA</A>=20
</DIV>
<DIV style=3D"FONT: 10pt arial CE"><B>To:</B> <A=20
href=3D"mailto:EUforum at topica.com" =
title=3DEUforum at topica.com>EUforum</A> </DIV>
<DIV style=3D"FONT: 10pt arial CE"><B>Sent:</B> Tuesday, June 13, 2000 =
12:05=20
AM</DIV>
<DIV style=3D"FONT: 10pt arial CE"><B>Subject:</B> Exotica</DIV>
<DIV style=3D"FONT: 10pt arial CE"> </DIV>
<DIV>Hi .</DIV>
<DIV>What is wrong with my Exotica program :</DIV></BLOCKQUOTE>
<DIV><FONT face=3D"Arial CE" size=3D2>Lots of things </FONT></DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
<DIV> </DIV>
<DIV>--BEGIN CODE</DIV>
<DIV> </DIV>
<DIV>include emain.ew</DIV>
<DIV> </DIV>
<DIV>object =
funcval<BR>funcval=3Dc_func(EXOTICA_INIT,{hwnd,hInst}) <BR>end=20
if</DIV>
<DIV> </DIV></BLOCKQUOTE>
<DIV><FONT face=3D"Arial CE" size=3D2>Why "end if" when there is no "if" =
statement=20
?</FONT></DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
<DIV> </DIV>
<DIV>object val<BR>val =3D c_func(DMUSIC_INIT,{NULL})</DIV>
<DIV> </DIV>
<DIV>object val2<BR>val2 =3D c_func(DMUSIC_REVERB_AVAIL,{NULL}) =
<BR>return=20
val2</DIV>
<DIV> </DIV></BLOCKQUOTE>
<DIV><FONT face=3D"Arial CE" size=3D2>You cannot return a variable if =
you aren't=20
inside a function.</FONT></DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
<DIV> </DIV>
<DIV>if val2 =3D 0 then<BR> object val3,C_INT</DIV>
<DIV> </DIV></BLOCKQUOTE>
<DIV><FONT face=3D"Arial CE" size=3D2>You cannot declare a variable at =
this=20
point.</FONT></DIV>
<DIV><FONT face=3D"Arial CE" size=3D2>btw you can use ONE variable for =
all of=20
this.</FONT></DIV>
<DIV><FONT face=3D"Arial CE" size=3D2>(funcval). There is no need to =
have=20
val2,val3,...</FONT></DIV>
<DIV><FONT face=3D"Arial CE" size=3D2>because the functions just returns =
succes/failure</FONT></DIV>
<DIV><FONT face=3D"Arial CE" size=3D2>info which is then not =
needed.</FONT></DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
<DIV><BR> C_INT =3D 0<BR> val3 =3D=20
c_proc(DMUSIC_TOGGLE_REVERB,{C_INT}) <BR>elsif val2 =3D 1 =
then<BR> object=20
val4,C_INT<BR> C_INT =3D 1<BR> val4 =3D=20
c_proc(DMUSIC_TOGGLE_REVERB,{C_INT})<BR>end if</DIV>
<DIV> </DIV>
<DIV>object mid_file,Filename<BR>Filename =3D boss.mid </DIV>
<DIV> </DIV></BLOCKQUOTE>
<DIV><FONT face=3D"Arial CE" size=3D2>must be Filename =3D =
"boss.mid"</FONT></DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
<DIV><BR>mid_file =3D c_proc(MIDI_OPEN,{Filename}) </DIV>
<DIV> </DIV>
<DIV>object play<BR>play =3D c_proc(MIDI_PLAY,{NULL})</DIV>
<DIV> </DIV>
<DIV>--END CODE</DIV>
<DIV> </DIV>
<DIV>Thanx</DIV>
<DIV> </DIV>
<DIV>Ferdinand</DIV></BLOCKQUOTE>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>I would suggest you first start writing =
simple=20
Euphoria programs</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>which do not use Exotica because with =
DirectX=20
initialized it is</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>difficult to trace and see intrepreter=20
messages.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial><FONT=20
------=_NextPart_000_005C_01C10662.4742B400--
|
Not Categorized, Please Help
|
|
