-----------------------------------

hey_joe42

Fri Mar 07, 2003 10:03 am


program reading and writing problem, complicated with gui

-----------------------------------

i have a gui program it attached just in case but the main problem is the reading and writign to the binary file
here is the reading code(my goal is to have it read it into a variable that displays the text, string, int, real, in the gui text fields it will work if i get this one problem fixed):
type inventory :
    record
        product : string (10)   %the product's name
        manufacturer : string (10) %The company that made product
        price : real        %the products price%real
        number : int        %the number of products in the warehouse%int
        reorder : int %the number which to order more; unsafe number%int
        numinstock : int   %the number that should be kept in stock %int
        prodnumber : string ( 8 )   %the products id number  %string
        %amtorder : int %the ammount to order
        cater : string (10) %what the product catergories as
        %ammount to reorder,
        %product number
        sale : boolean
    end record
var prod : array 1 .. 50 of inventory
var numRecords : int := 1
var currentRecord : int := 1
var produ : array 1 .. 50, 1 .. 9 of string
var pos : int
var recordnumb :=1
open : fn, "inventoryss.bin",read, seek
put fn
delay(1000)
if fn = 1 then
put"hi"
delay(5000)
    seek : fn, *
    tell : fn, pos
    put sizeof(inventory)
    put pos
    recordnumb := pos div (sizeof (inventory))
    put recordnumb
    delay(1000)
    for i : 1 .. recordnumb
        put fn
        
            read : fn, prod (i)
            put prod(i).product,"..."
            delay(1000)
            produ (i, 1) := prod (i).product
            put produ(i,1)
            delay(100)
            produ (i, 2) := prod (i).manufacturer
            produ (i, 3) := intstr (prod (i).number)
            produ (i, 4) := realstr (prod (i).price, 8  )
            produ (i, 5) := intstr (prod (i).reorder)
            produ (i, 6) := intstr (prod (i).numinstock)
            produ (i, 7) := prod (i).prodnumber
            produ (i, 8    ) := prod (i).cater
            if prod (i).sale = true then
                produ (i, 9) := "yes"
            else
                produ (i, 9) := "no"
            end if
                end for
        for z:recordnumb+1..50
        put z
        produ (z, 1) := ""
        produ (z, 2) := ""
        produ (z, 3) := "0"
        produ (z, 4) := "0"
        produ (z, 5) := "0"
        produ (z, 6) := "0"
        produ (z, 7) := "111-11" + intstr (z)
        produ (z, 8   ) := ""
        produ (z, 9) := ""
        end for
    else
            for z:recordnumb..50
        
        produ (z, 1) := ""
        produ (z, 2) := ""
        produ (z, 3) := "0"
        produ (z, 4) := "0"
        produ (z, 5) := "0"
        produ (z, 6) := "0"
        produ (z, 7) := "111-11" + intstr (z)
        produ (z, 8    ) := ""
        produ (z, 9) := ""
        end for

    end if

close : fn
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
This is the writing to the file part:
loop
    if buttonmoved ("down") then
        buttonwait ("down", mx, my, mbtn, mbtn)
        if mbtn = 1 then
            if mx > 15 and mx < 35 and my > 13 and my < 30 then
                %close:fn
                put currentRecord
                put produ (1, 3)
                open : fn, "inventorys.bin", write, mod, seek, read
                for i : 1 .. currentRecord - 1
                    %
                    prod (i).product := produ (i, 1)
                    prod (i).manufacturer := produ (i, 2)
                    if strintok (produ (i, 3)) then
                        put "asdf"
                        prod (i).number := strint (produ (i, 3))
                        put prod (i).number
                    end if
                    if strrealok (produ (i, 4)) then
                        put "sdf"
                        prod (i).price := strreal (produ (i, 4))
                    end if
                    if strintok (produ (i, 5)) then
                        put "sd"
                        prod (i).reorder := strint (produ (i, 5))
                    end if
                    if strintok (produ (i, 6)) then
                        prod (i).numinstock := strint (produ (i, 6))
                    end if
                    prod (i).prodnumber := produ (i, 7)
                    prod (i).cater := produ (i, 8      )
                    if produ (i, 9) = "yes" or produ (i, 9) = "true" then
                        prod (i).sale := true
                    else
                        prod (i).sale := false
                    end if
                    
                    seek : fn, (sizeof (inventory) * (i - 1))
                    write : fn, prod (i)
                    %read:fn, prod(i)
                    %put prod(i).product
                    %delay(1000)
                    %close : fn % goes to help
                end for
                close : fn
            end if
            if mx > 225 and mx < 250 and my > 13 and my < 30 then
                quit
            end if
        end if
    end if
    exit when GUI.ProcessEvent
end loop
%%%%%%%%%%%%%%%%%%%%%%%

If your looking at this, and might have an idea, plz give feedback, advice, etc, websites whatever,  tho if you think it might be a problem somewhere else feel free to check the file, run it or whatnot, it will work i presume if you change the beginning in read; change the line that says, if fn=1 to if fn=10


-----------------------------------

Tony

Fri Mar 07, 2003 11:44 am



-----------------------------------

I dont exactly understand your problem... If you're reading a value, shoudn't you know what type it is based on file format?

otherwise you can read everything as a string, then use strint and strreal to convert it to other formats.

If thats not it, plz specify whats wrong :?


-----------------------------------

hey_joe42

Mon Mar 10, 2003 5:52 pm


solved reading problem stuck on writing

-----------------------------------

im going to post this msg twice because i really need an answer on this question
okay i solved the original reading problem i was having( you can see for yourself how i did so) but now i can't figure out the writing to a file part, 
Plz try out the program yourself cuz the problem probably lies somewhere else, thank you for your time!
here is my code for writing to the file:
var font1:int
font1 := Font.New ("serif:12")
loop
    if buttonmoved ("down") then
        buttonwait ("down", mx, my, mbtn, mbtn)
        if mbtn = 1 then
            if mx > 15 and mx < 35 and my > 13 and my < 30 then
                %close:fn
                open : fn, "inventory.bin", write, mod, seek, read
                for i : 1 .. currentRecord - 1
                    %
                    prod (i).product := produ (i, 1)
                    prod (i).manufacturer := produ (i, 2)
                    if strintok (produ (i, 3)) then
                        prod (i).number := strint (produ (i, 3))
                    end if
                    if strrealok (produ (i, 4)) then
                        prod (i).price := strreal (produ (i, 4))
                    end if
                    if strintok (produ (i, 5)) then
                       prod (i).reorder := strint (produ (i, 5))
                    end if
                    if strintok (produ (i, 6)) then
                        prod (i).numinstock := strint (produ (i, 6))
                    end if
                    prod (i).prodnumber := produ (i, 7)
                    prod (i).cater := produ (i, 8)
                    prod(i).sale:=produ(i,9)
                    seek : fn, (sizeof (inventory) * (i - 1))
                    Font.Draw ("Writing to file!", 50, 30, font1, red)
                    write : fn, prod (i)
                    delay(5000)
                    Font.Draw("Writing to file!",50,30,font1,white)
                    %read:fn, prod(i)
                    %put prod(i).product
                    %delay(1000)
                    %close : fn % goes to help
                end for
                close : fn
            end if
            if mx > 225 and mx < 250 and my > 13 and my < 30 then
                quit
            end if
        end if
    end if
    exit when GUI.ProcessEvent
end loop


-----------------------------------

Tony

Tue Mar 11, 2003 12:01 pm



-----------------------------------

to be honest, I dont know about reading/writing to a binary file. When I need random access, I usually use a database such as MS Access or MySQL.

And I cant say where the problem is since I cant even run the file. Datafile is missing.


-----------------------------------

hey_joe42

Wed Mar 12, 2003 12:13 pm


data file

-----------------------------------

heres the datafile just change the file name to .bin or change it in the program to .t


-----------------------------------

Tony

Wed Mar 12, 2003 10:57 pm



-----------------------------------

first of all... your add record doesnt work... some value for settext price is missing :?

as for writing part, you got a loop running 1 .. currentRecord - 1

so its running from 1 to 0, which means NOTHING will be writen to the file.

here's the kicker - you need to add more records to save something, but that brings us back to the "add record" function that doesnt work :?