hi , i was a complete n00b and now i have finally made my first program. It is very basic and i would like to know what other people think about it.
` SOURCODE FOR PRODUCT PROGRAM
` made by Crazkidd55 (peter haas)
` 6th october 2004 21:42
dim pro(5,3)
if file exist("values.txt") = 1
load array "values.txt", pro(5,3)
endif
cls
PRINT "LOGIN SCREEN-- IF GUEST PLEASE TYPE anything at login prompt"
input "please enter a password to view and edit the product details>"; password$
` login --- administrator = admin guest = (anything)
if password$ = "guest" then gosub guestview
if password$ = "admin" then goto start
guestview:
for t=1 to 5
pro(t,3)=pro(t,2)-pro(t,1)
next t
print " "
print "these are 5 products"
print " "
wait 190
print "this is product 1's buying price -->";" ";pro(1,1)
print "this is product 1's selling price -->";" ";pro(1,2)
print "this is product 1's profit -->";" ";pro(1,3)
print " "
wait 100
print "this is product 2's buying price -->";" ";pro(2,1)
print "this is product 2's selling price -->";" ";pro(2,2)
print "this is product 2's profit -->";" ";pro(2,3)
print " "
wait 100
print "this is product 3's buying price -->";" ";pro(3,1)
print "this is product 3's selling price -->";" ";pro(3,2)
print "this is product 3's profit -->";" ";pro(3,3)
print " "
wait 100
print "this is product 4's buying price -->";" ";pro(4,1)
print "this is product 4's selling price -->";" ";pro(4,2)
print "this is product 4's profit -->";" ";pro(4,3)
print " "
wait 100
print "this is product 5's buying price -->";" ";pro(5,1)
print "this is product 5's selling price -->";" ";pro(5,2)
print "this is product 5's profit -->";" ";pro(5,3)
print " "
if pro(1,3)<0 then print "YOU ARE MAKING NO PROFIT ON PRODUCT 1!!!"
if pro(2,3)<0 then print "YOU ARE MAKING NO PROFIT ON PRODUCT 2!!!"
if pro(3,3)<0 then print "YOU ARE MAKING NO PROFIT ON PRODUCT 3!!!"
if pro(4,3)<0 then print "YOU ARE MAKING NO PROFIT ON PRODUCT 4!!!"
if pro(5,3)<0 then print "YOU ARE MAKING NO PROFIT ON PRODUCT 5!!!"
print "press any key to exit"
wait key
end
start:
for t=1 to 5
pro(t,3)=pro(t,2)-pro(t,1)
next t
print " "
print "these are 5 products"
print " "
wait 190
print "this is product 1's buying price -->";" ";pro(1,1)
print "this is product 1's selling price -->";" ";pro(1,2)
print "this is product 1's profit -->";" ";pro(1,3)
print " "
wait 100
print "this is product 2's buying price -->";" ";pro(2,1)
print "this is product 2's selling price -->";" ";pro(2,2)
print "this is product 2's profit -->";" ";pro(2,3)
print " "
wait 100
print "this is product 3's buying price -->";" ";pro(3,1)
print "this is product 3's selling price -->";" ";pro(3,2)
print "this is product 3's profit -->";" ";pro(3,3)
print " "
wait 100
print "this is product 4's buying price -->";" ";pro(4,1)
print "this is product 4's selling price -->";" ";pro(4,2)
print "this is product 4's profit -->";" ";pro(4,3)
print " "
wait 100
print "this is product 5's buying price -->";" ";pro(5,1)
print "this is product 5's selling price -->";" ";pro(5,2)
print "this is product 5's profit -->";" ";pro(5,3)
print " "
if pro(1,3)<0 then print "YOU ARE MAKING NO PROFIT ON PRODUCT 1!!!"
if pro(2,3)<0 then print "YOU ARE MAKING NO PROFIT ON PRODUCT 2!!!"
if pro(3,3)<0 then print "YOU ARE MAKING NO PROFIT ON PRODUCT 3!!!"
if pro(4,3)<0 then print "YOU ARE MAKING NO PROFIT ON PRODUCT 4!!!"
if pro(5,3)<0 then print "YOU ARE MAKING NO PROFIT ON PRODUCT 5!!!"
print " "
wait 100
print " "
print "which product would you like to edit the values of? (numbers 1-5) "
input " product number>"; choice$
ptbc=VAL(choice$)
Input "Edit buy(1) or sell(2) price?>"; choice$
bsedit=VAL(choice$)
Input "Change to?>"; choice$
tochange=VAL(choice$)
pro(ptbc,bsedit) = tochange
cls
save array "values.txt" , pro(5,3)
goto start
end
thanks
