Betaalsysteem

Nieuwe Liberty BASIC programmeurs kunnen hier om hulp vragen.

Moderators: anthonio, Abcott

Betaalsysteem

Berichtdoor ridick1 » ma jan 16, 2012 6:33 pm

Ik heb een progamma bedacht om uit te rekenen hoeveel te betalen:

Code: Selecteer alles
prijs1 = 0
prijs2 = 0
prijs3 = 0
prijs4 = 0
prijs5 = 0
prijs6 = 0
prijs7 = 0
prijs8 = 0
prijs9 = 0
prijs10 = 0
gosub [start]



[start]
'eerste product

notice "wees gewaarschuwd! bij De prijs van ... alleen een getal!"
notice "Maximaal 10 producten."
notice "gebruik een punt, BIJV: 1.90 euro inplaats van: 1,90 euro."
prompt "Uw product"; product1$
prompt "De prijs van " +product1$; prijs1
confirm "Nog een product?"; confirm1$
if confirm1$ = "yes" then gosub [2eproduct]
if confirm1$ = "no" then gosub [berekening]
wait

'2e product

[2eproduct]
prompt "Uw product"; product2$
prompt "De prijs van " +product2$ ; prijs2
confirm "Nog een product?"; confirm2$
if confirm2$ = "yes" then gosub [3eproduct]
if confirm2$ = "no" then gosub [berekening]
wait

'3e product

[3eproduct]
prompt "Uw product"; product3$
prompt "De prijs van " +product3$; prijs3
confirm "Nog een product?"; confirm3$
if confirm3$ = "yes" then gosub [4eproduct]
if confirm3$ = "no" then gosub [berekening]
wait

[4eproduct]
prompt "Uw product"; product4$
prompt "De prijs van " +product4$; prijs4
confirm "Nog een product?"; confirm4$
if confirm4$ = "yes" then gosub [5eproduct]
if confirm4$ = "no" then gosub [berekening]
wait

[5eproduct]
prompt "Uw product"; product5$
prompt "De prijs van " +product5$; prijs5
confirm "Nog een product?"; confirm5$
if confirm5$ = "yes" then gosub [6eproduct]
if confirm5$ = "no" then gosub [berekening]
wait

[6eproduct]
prompt "Uw product"; product6$
prompt "De prijs van " +product6$; prijs6
confirm "Nog een product?"; confirm6$
if confirm6$ = "yes" then gosub [7eproduct]
if confirm6$ = "no" then gosub [berekening]
wait

[7eproduct]
prompt "Uw product"; product7$
prompt "De prijs van " +product7$; prijs7
confirm "Nog een product?"; confirm7$
if confirm7$ = "yes" then gosub [8eproduct]
if confirm7$ = "no" then gosub [berekening]
wait

[8eproduct]
prompt "Uw product"; product8$
prompt "De prijs van " +product8$; prijs8
confirm "Nog een product?"; confirm8$
if confirm8$ = "yes" then gosub [9eproduct]
if confirm8$ = "no" then gosub [berekening]
wait

[9eproduct]
prompt "Uw product"; product9$
prompt "De prijs van " +product9$; prijs9
confirm "Nog een product?"; confirm9$
if confirm9$ = "yes" then gosub [10eproduct]
if confirm9$ = "no" then gosub [berekening]
wait

[10eproduct]
notice "LET OP: hierna zijn geen producten meer mogelijk!"
prompt "Uw product"; product10$
prompt "De prijs van " +product10$; prijs10
notice "Automatisch doorgestuurt naar berekening...."










[berekening]
notice "ga door voor de berekening."
print "Te betalen (euro)"
print prijs1 + prijs2 + prijs3 + prijs4 + prijs5 + prijs6 + prijs7 + prijs8 + prijs9 + prijs10
print "Producten:"
print product1$
print product2$
print product3$
print product4$
print product5$
print product6$
print product7$
print product8$
print product9$
print product10$


print "hartelijk dank voor het gebruik!"
print "Rechtermuisknop en dan Restart voor hergebruik."
print "Druk gewoon op kruisje om af te sluiten!"






het werkt prima, geen bugs alleen wil ik bij het product de prijs laten zien ( per product ) en ik wil een menu waar je kan kiezen uit product + prijs.
Dat scheeld voor de gebruiker namelijk veel invoer werk.
Kan iemand me daarmee helpen?
alvast bedankt!

Gr, ridick1
ridick1
 
Berichten: 31
Geregistreerd: zo jan 15, 2012 12:48 pm

Re: Betaalsysteem

Berichtdoor Gordon » di jan 17, 2012 1:26 am

Hoi Ridick,

Prima start.
Probeer:
print product1$,prijs1

of

print product1$; " ";prijs1

Natuurlijk kan het wat korter...
Lees alles over arrays

Dan kun je product$(1) ... product$(2) enz .... introduceren.
en je kunt misschien ook de prijzen in een array plaatsen
prijs(1)
prijs(2)
prijs(3)
enz....

Misschien ku je ook een lus (for next) o.i.d. toepassen
Gordon
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Re: Betaalsysteem

Berichtdoor ridick1 » di jan 17, 2012 7:50 am

Bedankt ik ga even uitproberen!!!
ridick1
 
Berichten: 31
Geregistreerd: zo jan 15, 2012 12:48 pm

Re: Betaalsysteem

Berichtdoor ridick1 » di jan 17, 2012 6:38 pm

Een probleem: het product+prijs lukt:

Code: Selecteer alles
prijs1 = 0
prijs2 = 0
prijs3 = 0
prijs4 = 0
prijs5 = 0
prijs6 = 0
prijs7 = 0
prijs8 = 0
prijs9 = 0
prijs10 = 0
gosub [start]




[start]
'eerste product

notice "wees gewaarschuwd! bij De prijs van ... alleen een getal!"
notice "Maximaal 10 producten."
notice "gebruik een punt, BIJV: 1.90 euro inplaats van: 1,90 euro."
prompt "Uw product"; product1$
prompt "De prijs van " +product1$; prijs1
confirm "Nog een product?"; confirm1$
if confirm1$ = "yes" then gosub [2eproduct]
if confirm1$ = "no" then gosub [berekening]
wait

'2e product

[2eproduct]
prompt "Uw product"; product2$
prompt "De prijs van " +product2$ ; prijs2
confirm "Nog een product?"; confirm2$
if confirm2$ = "yes" then gosub [3eproduct]
if confirm2$ = "no" then gosub [berekening]
wait

'3e product

[3eproduct]
prompt "Uw product"; product3$
prompt "De prijs van " +product3$; prijs3
confirm "Nog een product?"; confirm3$
if confirm3$ = "yes" then gosub [4eproduct]
if confirm3$ = "no" then gosub [berekening]
wait

[4eproduct]
prompt "Uw product"; product4$
prompt "De prijs van " +product4$; prijs4
confirm "Nog een product?"; confirm4$
if confirm4$ = "yes" then gosub [5eproduct]
if confirm4$ = "no" then gosub [berekening]
wait

[5eproduct]
prompt "Uw product"; product5$
prompt "De prijs van " +product5$; prijs5
confirm "Nog een product?"; confirm5$
if confirm5$ = "yes" then gosub [6eproduct]
if confirm5$ = "no" then gosub [berekening]
wait

[6eproduct]
prompt "Uw product"; product6$
prompt "De prijs van " +product6$; prijs6
confirm "Nog een product?"; confirm6$
if confirm6$ = "yes" then gosub [7eproduct]
if confirm6$ = "no" then gosub [berekening]
wait

[7eproduct]
prompt "Uw product"; product7$
prompt "De prijs van " +product7$; prijs7
confirm "Nog een product?"; confirm7$
if confirm7$ = "yes" then gosub [8eproduct]
if confirm7$ = "no" then gosub [berekening]
wait

[8eproduct]
prompt "Uw product"; product8$
prompt "De prijs van " +product8$; prijs8
confirm "Nog een product?"; confirm8$
if confirm8$ = "yes" then gosub [9eproduct]
if confirm8$ = "no" then gosub [berekening]
wait

[9eproduct]
prompt "Uw product"; product9$
prompt "De prijs van " +product9$; prijs9
confirm "Nog een product?"; confirm9$
if confirm9$ = "yes" then gosub [10eproduct]
if confirm9$ = "no" then gosub [berekening]
wait

[10eproduct]
notice "LET OP: hierna zijn geen producten meer mogelijk!"
prompt "Uw product"; product10$
prompt "De prijs van " +product10$; prijs10
notice "Automatisch doorgestuurt naar berekening...."










[berekening]
notice "ga door voor de berekening."
print "Te betalen (euro)"
print prijs1 + prijs2 + prijs3 + prijs4 + prijs5 + prijs6 + prijs7 + prijs8 + prijs9 + prijs10
print "Producten + prijs:"
print product1$;" ";prijs1
print product2$;" ";prijs2
print product3$;" ";prijs3
print product4$;" ";prijs4
print product5$;" ";prijs5
print product6$;" ";prijs6
print product7$;" ";prijs7
print product8$;" ";prijs8
print product9$;" ";prijs9
print product10$;" ";prijs10


print "hartelijk dank voor het gebruik!"
print "Rechtermuisknop en dan Restart voor hergebruik."
print "Druk gewoon op kruisje om af te sluiten!"






Daar ligt het probleem niet, het ligt bij de array's.
Ik kan min of meer met arrays werken maar doe het toch het liefste met variabelen.
Is er ook iets met prijs1 TO prijs10 = 0 ofzo?
Ik progammeer nu net iets minder dan een maand...


MVG
ridick1
 
Berichten: 31
Geregistreerd: zo jan 15, 2012 12:48 pm

Re: Betaalsysteem

Berichtdoor Gordon » di jan 17, 2012 9:18 pm

mooi .... array variabelen zijn ook gewoon variabelen.
Ze hebben gewoon éénzelfde naam met een verschillend sub nummer.

Code: Selecteer alles
'Ridick1
'17-1-12

notice  "Betaal Systeem" + CHR$(13) + _
        "Wees gewaarschuwd!" + chr$(13) +_
        "bij de prijs van ... alleen een getal invullen!" + chr$(13) + _
        "Maximaal 10 producten." + CHR$(13) + _
        "en gebruik een punt, BIJV: 1.90 euro inplaats van: 1,90 euro."


[opnieuw]
prompt "Uw product"; product$
product$(a) = product$
prompt "De prijs van "+ product$(a)+ " ";prijs
prijs(a) = prijs
confirm "Nog een product?"; confirm1$
if confirm1$ = "yes" then a = a +1 :goto [opnieuw]
if confirm1$ = "no" then goto [berekening]
wait

[berekening]
 for q = 0 to a
 totalePrijs = totalePrijs + prijs(q)
 next q

 for q = 0 to a
    print product$(q),prijs(q)
 next q

print "Totaal ",totalePrijs



Kijk of je dit kunt volgen.....
Ik wil natuurlijk niet jouw fun verpestten....

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

Re: Betaalsysteem

Berichtdoor ridick1 » wo jan 18, 2012 7:57 am

Bedankt, ik zal het vanmiddag uitproberen en doornemen.
ridick1
 
Berichten: 31
Geregistreerd: zo jan 15, 2012 12:48 pm

Re: Betaalsysteem

Berichtdoor ridick1 » wo jan 18, 2012 5:15 pm

Ik snap het aardig, ik ga er nu zelf wat aan klooien.
Bedankt!!!!!

Ridick1.
ridick1
 
Berichten: 31
Geregistreerd: zo jan 15, 2012 12:48 pm

Re: Betaalsysteem

Berichtdoor Gordon » zo jan 29, 2012 2:15 pm

Hallo Ridick,

Ik heb jouw betaalsysteem als "huiswerkopdracht" gegeven tijdens
een workshop Liberty BASIC. De beginners zijn druk bezig.

Beginners mogen het programma in mainwin schrijven.
Gevorderden moeten vensters gebruiken en knoppen vanaf
het Internet halen.

Je kunt alvast zien wat Rob ervan gemaakt heeft.

viewtopic.php?f=4&t=584

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

Re: Betaalsysteem

Berichtdoor ridick1 » do feb 02, 2012 5:00 pm

Ik heb het gezien, ziet er cool uit.
hoe die keuze lijsten toe te voegen???
mijn zusje kent de tafels wel redelijk maar lijkt me toch grappig om voor haar een oefen progamma te maken, waar je dus moet kiezen uit tafels.
Bedankt!
en, leuk dat je dit progamma hebt opgegeen :)
ridick1
 
Berichten: 31
Geregistreerd: zo jan 15, 2012 12:48 pm

Re: Betaalsysteem

Berichtdoor ridick1 » do feb 02, 2012 5:00 pm

*opgegeven
ridick1
 
Berichten: 31
Geregistreerd: zo jan 15, 2012 12:48 pm


Keer terug naar Beginner

Wie is er online

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

cron