I see, thanks!
Here is my complete code (dont steal it
)
I would like you to take a look at it, I know it is a complete mess but its my first program in DbPro
Rem Project: Snickeri
Rem Created: Tuesday, October 20, 2009
Rem ***** Main Source File *****
//filesetup
set text font "Arial"
set text size 20
//Startskärm
Start:
cls
print "Välkommen!"
print "-För att göra en ny kategori (nytt quiz) tryck 1"
print "-För att göra frågor till en existerande kategori tryck 2"
input "Ditt val: ", val1
gosub _choices
wait key
end
_choices:
select val1
case 1
goto setup
endcase
case 2
goto kategori
endcase
case default
print "Nu blev det fel, försök igen"
wait 800
cls
goto start
endcase
endselect
return
//Gör setup Quiz fil -VIKTIG!-
Setup:
//Rensar upp
cls
//Själva grejen
quiz$ as string
cNamn$ as string
datum$ as string
mapp$ as string
Print "Starta en ny kategori/folder"
Input "Namn på kategori: ", quiz$
Input "Ditt namn: ", cNamn$
Input "Datum: ", datum$
gosub writedata
print "Sparad"
wait 400
cls
print "Tryck mellanslag för att gå tillbaka"
If spacekey()=1 then goto start
wait key
end
writedata:
// Vi repeterar det här tills filnamnet är ledigt
while file exist (quiz$ + str$(x) + ".set" )
inc x // Ökar värdet på x med 1. Något snabbare än x = x + 1.
endwhile
// När vi då kommer hit är filnamnet garanterat ledigt
open to write 1, quiz$ + str$(x) + ".set"
write string 1 , quiz$
write string 1 , cNamn$
write string 1 , datum$
write string 1 , mapp$
close file 1
return
//Välj kategori att göra frågor till
Kategori:
print "Välj vilken kategori du vill göra frågor till"
print "Kom ihåg att du måste skapa en mapp med samma namn som kategorin för att det ska fungera"
input "Kategori: ",kategori$
open to read 3, kategori$ + ".set"
read 3, quiz$
read 3, cNamn$
read 3, datum$
read 3, mapp$
close file 3
goto quest
//Gör frågor -VIKTIG!-
quest:
//Rensar skärmen
cls
//Variabler
Qnamn$ as string
ID$ as string
question$ as string
alternativ1$ as string
alternativ2$ as string
alternativ3$ as string
alternativ4$ as string
svar$ as string
picture$ as string
//Själva grejen
print "För att avbryta, tryck Escape"
print
Print "Gör en ny fråga"
print
input "Namn på frågan: ",Qnamn$
Input "Nummer på frågan: ", ID$
print
input "Frågan: ", question$
print
input "Alternativ 1: ",alternativ1$
//Kommandon för snabbskrift
select alternativ1$
case "stilar1"
alternativ1$ = "Barock"
alternativ2$ = "Rokoko"
alternativ3$ = "Gustavianskt"
alternativ4$ = "Karl Johan"
print "1:" : print alternativ1$
print "2:" : print alternativ2$
print "3:" : print alternativ3$
print "4:" : print alternativ4$
goto bookmark1
endcase
case default
endcase
endselect
input "Alternativ 2: ", alternativ2$
input "Alternativ 3: ", alternativ3$
input "Alternativ 4: ", alternativ4$
bookmark1:
print
input "Rätt alternativ: ", svar$
input "Bildens namn (inklusive filfromat, t.ex. .jpg): ", picture$
gosub writequestion
print "sparad"
wait 500
goto quest
end
writequestion:
open to write 2, mapp$ + "\" + ID$ + ".frg"
write string 2 , Qnamn$
write string 2 , ID$
write string 2 , question$
write string 2 , alternativ1$
write string 2 , alternativ2$
write string 2 , alternativ3$
write string 2 , alternativ4$
write string 2 , svar$
write string 2 , picture$
close file 2
return
I dont have that much of a problem with it.
But for some reason it dont want to write files for the "Ny kategori", and I dont know why
But I think it has everything to make questions for my quiz. I even made another code which read the files written from this code.
I am so proud of myself
