CoolBasic Forums

Kaverillani on Win XP Pro eikä Cool Basic toimi... MAV tulee vaikka mulla ei tule. Mistäköhän sekin johtuu... Microsoft tietysti möhliny Tosin toimii...
Tässä koodi joka EI toimi:

Vikana voi olla ihan CB:n bugikin. Toisaalta taas XP:kin vaikuttaa siihen. Mutta ei ole tuntematonta että eri koneilla tuleekin Memory Access Violation. En ole varma vaikuttaako se mitään, mutta olitko varmasti kirjautuneena järjestelmänvalvojan oikeuksilla kaverisi koneella.

Ja vaikka näitä tämmöisiä tapahtuu niin ei ole mitenkään takuuvarmaa että softan kehityksen jälkeen MAV yllättäen katoaakin kokonaan. Monesti on huomattu että ohjelma toimiikin sen jälkeen kun sinne on lisätty uusia rivejä mitenkään muuttamatta vanhoja tai vanhoille lataamalla/alustamalla mediaa/muuttujia.

Minulla on Xp Pro ja toimii täydellisesti (service pack 3)

juu siis.
kotona on 2 konetta.
toisella koneella tulee monesti MAV yhtäkkiä.
toinen taas toimii lähes aina ilman MAVeja.

Minulla on kotonani 1x Win XP Pro ja 1x Win Vista jokumikälie. ÄksPeellä toimii varsin mallikkaasti kaikki ohjelmat ellei niihin sitten ole päässyt bugeja, mutta ei toimi Vistalla yhtä hyvin.

itelläni on vista, ja tulee joku viesti jossa sanotaan että ohjelma on jo käynnissä kun yrittää ajaa (mitä tahansa koodia)....

EDIT: joo kommentti alla pelasti, en ala tätä enää postaamaan....

kokeile ajaa järjestelmän valvojana se on ainakin muita auttanut, siis "käynnistä nimellä..."

mato1223 wrote:Kaverillani on Win XP Pro eikä Cool Basic toimi... MAV tulee vaikka mulla ei tule. Mistäköhän sekin johtuu... Microsoft tietysti möhliny Tosin

Code: Select all

Repeat
AddText "Hello"
DrawScreen
Forever

toimii...
Tässä koodi joka EI toimi:

Code: Select all

SCREEN 800,600
 
 
While 1
  n=HPBar(10,10,100,n,100)
  o=ManaBar(10,20,100,o,100)
  e=ExpBar(10,30,100,e,100)
  ä=(RightKey()-LeftKey())
  n=n+(ä)
  o=o+(ä)
  e=e+(ä)
  DrawScreen 
Wend
// x,y = koordinaatit
// w = leveys
// s = nykyinen arvo
// m = maksimi arvo
Function HPBar(x#,y#,w#,s#,m#)
  If s > m Then s = m
  n# = (w/100*s/m)*100
  For a = -1 To 3
    Color 160-(Abs(a)*19),160-(Abs(a)*19),160-(Abs(a)*19)
    Line x-(a>-1 And a<3),y+a,x+w+(a>-1 And a<3),y+a
  Next a
  If s > 0 Then
    For i = -1 To 3
      Color 250-(Abs(i)*6),60-(Abs(i)*6),60-(Abs(i)*19)
      Line x-(i>-1 And i<3),y+i,x+n+(i>-1 And i<3),y+i
    Next i
  EndIf 
  Return Int(s/m*100)
EndFunction
 
Function ManaBar(x#,y#,w#,s#,m#)
  If s > m Then s = m
  o# = (w/100*s/m)*100
  For a = -1 To 3
    Color 160-(Abs(a)*19),160-(Abs(a)*19),160-(Abs(a)*19)
    Line X-(A>-1 And a<3),y+a,x+w+(a>-1 And a<3),y+a
  Next a
  If s > 0 Then
    For i = -1 To 3
      Color 60-(Abs(i)*6),60-(Abs(i)*6),250-(Abs(i)*19)
      Line x-(i>-1 And i<3),y+i,x+o+(i>-1 And i<3),y+i
    Next i
  EndIf 
  Return Int(s/m*100)
EndFunction
 
Function ExpBar(x#,y#,w#,s#,m#)
  If s > m Then s = m
  e# = (w/100*s/m)*100
  For a = -1 To 3
    Color 160-(Abs(a)*19),160-(Abs(a)*19),160-(Abs(a)*19)
    Line x-(a>-1 And a<3),y+a,x+w+(a>-1 And a<3),y+a
  Next a
  If s > 0 Then
    For i = -1 To 3
      Color 100-(Abs(i)*6),60-(Abs(i)*6),250-(Abs(i)*19)
      Line x-(i>-1 And i<3),y+i,x+e+(i>-1 And i<3),y+i
    Next i
  EndIf 
  Return Int(s/m*100)
EndFunction

EDIT:

Mulla on Win XP Home Edition.

Voisiko olla mahdollista, että kaverisi kone ei tuo näyttötilaa 800x600?

Ei, sillä tuota ohjelmaa ei ajeta kokoruudulla. Ikkunatilassa minkä tahansa resoluution pitäisi kyllä toimia.

Ja väärä ikkunatila ei anna MAVia, siitä tulee "unable to set graphics mode".