onafhankelijke graphicboxen

Nieuwe Liberty BASIC programmeurs kunnen hier om hulp vragen.

Moderators: anthonio, Abcott

onafhankelijke graphicboxen

Berichtdoor ForNext » do okt 29, 2009 11:40 am

Hallo allemaal,

Ik krijg het niet voor elkaar om de graphicboxen compleet individueel te maken.
Als ik met de muis over de rode ga, moeten de blauwe en de groene niet oplichten; enz.

Welke komma of punt heb ik niet juist ingevuld?

--- Start Listing ---
Code: Selecteer alles
  nomainwin
  WindowWidth = 728 : WindowHeight = 460
  UpperLeftX = 250 : UpperLeftY = 250

'open de graphicboxen
  graphicbox #1.gb1,  35,  30, 40, 80
   stylebits #1.gb1, 0, _WS_BORDER, 0, _WS_EX_CLIENTEDGE
  graphicbox #1.gb2,  85,  30, 40, 80
   stylebits #1.gb2, 0, _WS_BORDER, 0, _WS_EX_CLIENTEDGE
  graphicbox #1.gb3, 135,  30, 40, 80
   stylebits #1.gb3, 0, _WS_BORDER, 0, _WS_EX_CLIENTEDGE

'open het basisvenster
  open "gekleurde graphicboxen" for graphics_nsb as #1
'het basisvenster kan worden afgesloten met het kruisje
  #1 "trapclose [quit]"

  #1      "setfocus; when mouseMove [k0]"
  #1.gb1  "setfocus; when mouseMove [k1]"
  #1.gb2  "setfocus; when mouseMove [k2]"
  #1.gb3  "setfocus; when mouseMove [k3]"

  wait

'kleuren:
'black, blue, brown, cyan, darkblue, darkcyan,
'darkgrey, darkgreen, darkpink, darkred, green,
'lightgray, palegray, pink, red, white, yellow.

[k0]
  #1      "fill white"
  #1.gb1  "down; fill white; flush"
  #1.gb2  "down; fill white; flush"
  #1.gb3  "down; fill white; flush"

  wait

[k1]
  #1.gb1,  "down; fill 0, 0, 255; flush"  'blauw
wait                         '<---------- toegevoegd


[k2]
  #1.gb2,  "down; fill 255, 0, 0; flush"  'rood
wait                          '<--------- toegevoegd

[k3]
  #1.gb3,  "down; fill 0, 255, 0; flush"  'groen
wait

[quit]
close #1 : end

--- End Listing ---

Ciao,
Roberto
Cursist LB Amstelveen
ForNext
 
Berichten: 60
Geregistreerd: za okt 27, 2007 9:40 am
Woonplaats: Amstelveen

Re: onafhankelijke graphicboxen

Berichtdoor Gordon » do okt 29, 2009 4:00 pm

Hallo Roberto,

Het werkt goed als je de tekst SET FOCUS wijzigt in SETFOCUS
Dat komt 4x voor.

Trouwens het was een moeilijk te vinden fout, omdat de opdracht
SET ook bestaat. LB gaf gewoon een witte stip denk ik.

Gordon

p.s. Ik heb je listing hier al gewijzigd
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Re: onafhankelijke graphicboxen

Berichtdoor ForNext » ma nov 02, 2009 4:09 pm

Beste Gordon,

Dank voor je reaktie en de tip.
Maar ........ het werkt nog steeds niet zoals ik wil.
Ik krijg nog steeds meerdere gekleurde boxen te zien als ik met de muis over de boxen ga.
Ik wil graag dat als ik er een raak dat alleen die ene te zien is en die anderen niet.
Maar misschien kan het ook niet.

m.vr.gr.
Roberto
Cursist LB Amstelveen
ForNext
 
Berichten: 60
Geregistreerd: za okt 27, 2007 9:40 am
Woonplaats: Amstelveen

Re: onafhankelijke graphicboxen

Berichtdoor Gordon » di nov 03, 2009 6:43 pm

Oeps,

Waar ben ik mee bezig....
ik las jouw bericht niet volledig.
Sorry.

Je vergat het wait statement op 2 plaatsen, waardoor
de uitvoering van jouw programma van blokje 1 naar 2 en 3 doorliep.

Gordon
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Re: onafhankelijke graphicboxen

Berichtdoor ForNext » wo nov 04, 2009 2:15 pm

Hallo Gordon,

Dank voor de aanwijzing.
Die 2 x "wait" was precies wat er mis was.
Nu werkt het.

Ciao,
Roberto
Cursist LB Amstelveen
ForNext
 
Berichten: 60
Geregistreerd: za okt 27, 2007 9:40 am
Woonplaats: Amstelveen


Keer terug naar Beginner

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron