Win XP Pro ongelma! MAV kaverilla vaikka mulla ei.

CoolBasiciin yleisesti liittyvä keskustelu.
Post Reply
mato1223
Member
Posts: 69
Joined: Sat Aug 16, 2008 12:04 pm
Location: Rääkkylä

Win XP Pro ongelma! MAV kaverilla vaikka mulla ei.

Post by mato1223 »

Kaverillani on Win XP Pro eikä Cool Basic toimi... MAV tulee vaikka mulla ei tule. :shock: Mistäköhän sekin johtuu... Microsoft tietysti möhliny :x 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.

temu92
Web Developer
Web Developer
Posts: 1226
Joined: Mon Aug 27, 2007 9:56 pm
Location: Gamindustri
Contact:

Re: Win XP Pro ongelma! MAV kaverilla vaikka mulla ei.

Post by temu92 »

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.
tuhoojabotti
Advanced Member
Posts: 485
Joined: Tue Aug 28, 2007 3:53 pm
Location: Suomi, Finland
Contact:

Re: Win XP Pro ongelma! MAV kaverilla vaikka mulla ei.

Post by tuhoojabotti »

Minulla on Xp Pro ja toimii täydellisesti (service pack 3)
Imagedev.tuhoojabotti.com — “Programmer (noun): An organism that turns caffeine into code.”
duck-

Re: Win XP Pro ongelma! MAV kaverilla vaikka mulla ei.

Post by duck- »

juu siis.
kotona on 2 konetta.
toisella koneella tulee monesti MAV yhtäkkiä.
toinen taas toimii lähes aina ilman MAVeja.
Awaclus
Forum Veteran
Posts: 2939
Joined: Tue Aug 28, 2007 2:50 pm

Re: Win XP Pro ongelma! MAV kaverilla vaikka mulla ei.

Post by Awaclus »

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.
Khamûl
Member
Posts: 73
Joined: Sat Sep 22, 2007 8:46 pm

Re: Win XP Pro ongelma! MAV kaverilla vaikka mulla ei.

Post by Khamûl »

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....
Last edited by Khamûl on Tue Jan 27, 2009 7:32 pm, edited 1 time in total.
Will the highways on the Internet become more few? --G.W.Bush
tuhoojabotti
Advanced Member
Posts: 485
Joined: Tue Aug 28, 2007 3:53 pm
Location: Suomi, Finland
Contact:

Re: Win XP Pro ongelma! MAV kaverilla vaikka mulla ei.

Post by tuhoojabotti »

kokeile ajaa järjestelmän valvojana se on ainakin muita auttanut, siis "käynnistä nimellä..."
Imagedev.tuhoojabotti.com — “Programmer (noun): An organism that turns caffeine into code.”
Guest

Re: Win XP Pro ongelma! MAV kaverilla vaikka mulla ei.

Post by Guest »

mato1223 wrote:Kaverillani on Win XP Pro eikä Cool Basic toimi... MAV tulee vaikka mulla ei tule. :shock: Mistäköhän sekin johtuu... Microsoft tietysti möhliny :x 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?
User avatar
Ruuttu
Devoted Member
Posts: 687
Joined: Thu Aug 30, 2007 5:11 pm
Location: Finland, Sipoo

Re: Win XP Pro ongelma! MAV kaverilla vaikka mulla ei.

Post by Ruuttu »

Ei, sillä tuota ohjelmaa ei ajeta kokoruudulla. Ikkunatilassa minkä tahansa resoluution pitäisi kyllä toimia.
koodaaja
Moderator
Moderator
Posts: 1583
Joined: Mon Aug 27, 2007 11:24 pm
Location: Otaniemi - Mikkeli -pendelöinti

Re: Win XP Pro ongelma! MAV kaverilla vaikka mulla ei.

Post by koodaaja »

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