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 » Wed Jan 21, 2009 10:30 pm

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.


User avatar
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 » Wed Jan 21, 2009 10:36 pm

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.

User avatar
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 » Wed Jan 21, 2009 10:39 pm

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- » Thu Jan 22, 2009 4:57 pm

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 » Thu Jan 22, 2009 9:37 pm

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.

User avatar
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 » Tue Jan 27, 2009 6:46 pm

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 8:32 pm, edited 1 time in total.
Will the highways on the Internet become more few? --G.W.Bush

User avatar
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 » Tue Jan 27, 2009 6:50 pm

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 » Fri Feb 20, 2009 3:04 am

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 » Fri Feb 20, 2009 10:18 am

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

User avatar
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 » Fri Feb 20, 2009 4:16 pm

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

Post Reply