willekeurig

Nieuwe Liberty BASIC programmeurs kunnen hier om hulp vragen.

Moderators: anthonio, Abcott

willekeurig

Berichtdoor pinda_kaas » vr feb 11, 2011 2:56 pm

Hallo, ik wil iets maken dat van een arry bijv 8 er 5 uit haalt ik heb nu dit;
Code: Selecteer alles
dim kopen$(4)
dim boodschap$(7)
boodschap$(0)  = "schoenen"
boodschap$(1) = "bruine bonen"
boodschap$(2) = "witte bonen"
boodschap$(3) = "t-shirt"
boodschap$(4) = "Broek"
boodschap$(5)  = "Ham"
boodschap$(6)  = "rookworst"
boodschap$(7)  = "pindakaas"


plezier = 100
energie = 100
tijd = 24

pin = geld/2
[hoofd]
cls
tot = con + pin
print "welkom in de hoofd straat.                   tijd: ";tijd; "            contant: ";con;" op de bank: ";pin;" totaal: ";tot;"$"
print "                                             plezier: " ;plezier; " engerie: " ;energie
print
INPUT plaats$ ;invoer


Hij doet het niet maar om een beeld te geven wat het doet
pinda_kaas
 
Berichten: 19
Geregistreerd: di mei 25, 2010 8:45 am

Re: willekeurig

Berichtdoor Gordon » za feb 12, 2011 1:34 am

Hmmm....,

INPUT plaats$;invoer

is een bekende Liberty BASIC bug....

Gebruik INPUT "";plaats$;invoer


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

Re: willekeurig

Berichtdoor pinda_kaas » za feb 12, 2011 11:24 am

weet ik heb het verbeterd maar heb je een antwoord?
pinda_kaas
 
Berichten: 19
Geregistreerd: di mei 25, 2010 8:45 am

Re: willekeurig

Berichtdoor Gordon » za feb 12, 2011 6:48 pm

Ik begrijp jouw vraag niet.

print boodschap$(rnd(0)*7)

of
Code: Selecteer alles
print boodschap$(invoer)

listbox #w.box1, boodschap$(),[keuze], 20 ,20 ,120 ,180
open "venster" for window as #w
wait

[keuze]
#w.box1 "selection? a$"
notice "U koos ";a$
wait



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

Re: willekeurig

Berichtdoor pinda_kaas » zo feb 13, 2011 5:35 pm

Gordon schreef:Ik begrijp jouw vraag niet.

print boodschap$(rnd(0)*7)

of
Code: Selecteer alles
print boodschap$(invoer)

listbox #w.box1, boodschap$(),[keuze], 20 ,20 ,120 ,180
open "venster" for window as #w
wait

[keuze]
#w.box1 "selection? a$"
notice "U koos ";a$
wait



Gordon

Ik heb een arry met 7 dingen en ik wil in een array 5 van die dingen van de andere array opslaan die 5 moeten wille keurig gekozen worden.
maar niet dat je bij voor beeld a a a b d hebt.
dus niet 3 dezelfde en 4 verschillende maar dat alles 1 keer kan voor komen
ik gebruik de mainwin dus niet een window
pinda_kaas
 
Berichten: 19
Geregistreerd: di mei 25, 2010 8:45 am

Re: willekeurig

Berichtdoor glpape » zo feb 13, 2011 10:32 pm

Zo iets bijvoorbeeld:
Code: Selecteer alles
dim kopen$(4)
dim boodschap$(7)

boodschap$(0)  = "schoenen"
boodschap$(1) = "bruine bonen"
boodschap$(2) = "witte bonen"
boodschap$(3) = "t-shirt"
boodschap$(4) = "Broek"
boodschap$(5)  = "Ham"
boodschap$(6)  = "rookworst"
boodschap$(7)  = "pindakaas"

while j < 5
rn = int((rnd(1)*8))
   if boodschap$(rn) <> "" then
   kopen$(j) = boodschap$(rn)
   boodschap$(rn) = ""
   j = j+1
   end if
wend

for n = 0 to 4
print "kopen$(" ; n; ") is : "; kopen$(n)
next

end


Het verandert array boodschap$(). Als je dat verder in je programma weer nodig hebt moet het dus anders, bv met een hulp-array dat een copie is van boodschap$().

Vr groet,

George pape.
glpape
 
Berichten: 83
Geregistreerd: za nov 08, 2008 5:32 pm

Re: willekeurig

Berichtdoor pinda_kaas » ma feb 14, 2011 5:47 pm

Bedank glpale

het werkt maar ik heb nu een error:
Code: Selecteer alles
print "";hyscorenaam$(q) "         ";hyscore(q)

Laatst bijgewerkt door pinda_kaas op ma feb 14, 2011 6:52 pm, in totaal 1 keer bewerkt.
pinda_kaas
 
Berichten: 19
Geregistreerd: di mei 25, 2010 8:45 am

Re: willekeurig

Berichtdoor Gordon » ma feb 14, 2011 6:47 pm

Code: Selecteer alles
plaats$ = "Amsterdam"
tijd$ = "15:45"
con = 600
pin = 4000
tot = pin + con



print "welkom in de ";plaats$;" ";"       tijd ";tijd$; "            contant: ";con;"          op de bank: ";pin;"         totaal: ";tot;"$"

print "welkom in de ";plaats$ ;tab(31);"tijd ";tijd$ ;tab(53);"contant: ";con ;tab(75);"op de bank: ";pin ;tab(100);"totaal: ";tot;"$"

print "welkom in de ";plaats$ ;tab(31);"tijd ";tijd$ ;tab(53);"contant: ";using("####.##",con) ;tab(75);"op de bank: ";using("####.##",pin) ;tab(100);"totaal: ";using("####.##",tot);"$"





Je vergat ergens een aanhalingsteken.

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

Re: willekeurig

Berichtdoor pinda_kaas » ma feb 14, 2011 7:33 pm

Dankjewel gordon,



heeft iemand een idee voor een hyscore? en hoe je dat maakt?


Koen
pinda_kaas
 
Berichten: 19
Geregistreerd: di mei 25, 2010 8:45 am

Re: willekeurig

Berichtdoor ridick1 » do jan 19, 2012 4:56 pm

Gewoon array/variable aanmaken, per actie kan je bijv:

let score = score + 1

van 1 kan je ook een ander getal maken.
succes!
ridick1
 
Berichten: 31
Geregistreerd: zo jan 15, 2012 12:48 pm

Re: willekeurig

Berichtdoor bluatigro » vr feb 10, 2012 11:38 am

voor n hyscore heb je nodig :
- 1 : n naam$( ) array
- 2 : n punten( ) array
- 3 : n sorteer sub [ die sorteert op punten( ) de array naam$( ) ]
en als je het echt moeilijk wil doen :
- 4 file i/o
- 5 n exsits( file$ ) function [ bij false n file aanmaken ]

als je hulp nodig hebt zien we t wel hier
bluatigro
 
Berichten: 306
Geregistreerd: za sep 27, 2008 6:01 pm


Keer terug naar Beginner

Wie is er online

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

cron