Glycemic Index Database for Diabetics (Creative Commons)

[donnybowers]

This is a functioning program for collecting data about the Glycemic Index of foods. I want to make it so that you can cursor through the LISTBOX and hit enter to open the data into the form, but I don't want to sacrifice the MENU items. If anyone can show me a way to do this I would be very grateful. I intend to add a lot of MENU items, most of which will be for quick internet searches for the user to do research for their diet.

I recently found out I have diabetes and that prompted me to start work on this project. It's open source, so you can use the code for your own version and publish it under the license terms if you want to. I'm sure this program can be modified for use with something else besides the Glycemic Index. I intend to add more fields to for collecting all the info about carbs (fiber, sugar, etc.). Right now it only has total carbs.

I've tried this with both Just BASIC and Liberty BASIC in Linux Wine and in a Windows XP virtual machine. Let me know if there are any issues. Future posts of this code may be linked to a page at my website; as the code will probably get too big to post here.

The item in the "Search" menu will search the internet for the Glycemic Index of whatever food name you put in the first field at the top right of the screen, which is not labeled, but is the "food name" field. And when you save, the program automatically calculates the Glycemic Load for you as long as you have entered the Glycemic Index and the amount of carbs in a serving. You can learn how these numbers are helpful in your diet by googling "glycemic index" and "glycemic load". It's also useful for people who want to lose weight.



'--- Glycemic Index Database Program for Diabetics v0.1
'--- and others who use the GI in their diet.
'--- Open source - Creative Commons
'--- https://creativecommons.org/licenses/by/4.0/legalcode

   dim food$(5000,8), display$(5000)
   index=1
   browser$="C:\Program Files\Mozilla Firefox\firefox.exe"
[start]
   '--- GET SIZE OF DATABASE ---
   open "glycemicIndex.dta" for append as #1
   numBytes = lof(#1)
   close #1
   '--- IF THE DATABASE HAS MORE THAN 0 BYTES, OPEN ---
   '--- AND READ IN THE RECORDS (carraige return delimited)
   if numBytes>0 then
       numfoods=0
       open "glycemicIndex.dta" for input as #1
       while eof(#1)=0
           numfoods=numfoods+1
[getdata]'--- LOOP TO ELIMINATE BLANK RECORDS
           line input #1, food$(numfoods,1)
           if food$(numfoods,1)="" then goto [getdata]
           display$(numfoods)=food$(numfoods,1)'--- ARRAY FOR THE LISTBOX ---
           line input #1, food$(numfoods,2)
           line input #1, food$(numfoods,3)
           line input #1, food$(numfoods,4)
           line input #1, food$(numfoods,5)
           line input #1, food$(numfoods,6)
           line input #1, food$(numfoods,7)
           line input #1, food$(numfoods,8)
       wend
       close#1
       '--- SORT THE RECORDS ALPHABETICALLY
       sort food$(),1,numfoods,1
   end if

   nomainwin
   WindowWidth=DisplayWidth
   ListWidth=int(WindowWidth/2)-10
   WindowHeight=DisplayHeight-40
   UpperLeftX=1
   UpperLeftY=1

   '--- MENU
   menu #main, "&File", "&New", [new],_
       "&Open", [open], "&Save", [save],|,_
       "E&xit", [quit]
   menu #main, "&Search", "&Glycemic Index", [search]
   menu #main, "&Help", "&License Summary", [license]

   '--- CONTROLS
   listbox #main.foods, display$(), [open], 5,5,ListWidth,500

   textbox #main.food, ListWidth+10,30,ListWidth,30

   statictext #main.st, "Glycemic Index (GI) ___",ListWidth+10,70,210,25
   textbox #main.GI, ListWidth+225,65,80,30

   statictext #main.st, "Glycemic Load (GL) ___ ",ListWidth+10,107,210,25
   textbox #main.GL, ListWidth+225,100,80,30

   statictext #main.st, "GL of whole container _ ",ListWidth+10,140,210,25
   textbox #main.GLcontainer, ListWidth+225,135,80,30

   statictext #main.st, "Servings Per Container _",ListWidth+10,175,215,25
   textbox #main.servings, ListWidth+225,170,80,30

   statictext #main.st, "Serving Size grams/ml _",ListWidth+10,210,210,25
   textbox #main.servingsize, ListWidth+225,205,80,30

   statictext #main.st, "Calories ____________",ListWidth+10,245,210,25
   textbox #main.calories, ListWidth+225,240,80,30

   statictext #main.st, "Carbohydrates _______ ",ListWidth+10,280,210,25
   textbox #main.carbs, ListWidth+225,275,80,30

   '--- OPEN WINDOW
   open "GLYCEMIC INDEX DATA" for window as #main
   print #main, "trapclose [quit]"
   print #main, "font 14"
   print #main.food, display$(index)
   print #main.foods, "selectindex ";str$(index)
   print #main.foods, "setfocus"
   print #main.food, "!font 14 bold"
   print #main.food, food$(index,1)
   print #main.GI, food$(index,2)
   print #main.GL, food$(index,3)
   print #main.GLcontainer, food$(index,4)
   print #main.servings, food$(index,5)
   print #main.servingsize, food$(index,6)
   print #main.calories, food$(index,7)
   print #main.carbs, food$(index,8)
   wait
[license]
   runDLL$="rundll32.exe url.dll,FileProtocolHandler"
   runner$=runDLL$+" https://creativecommons.org/licenses/by/4.0/"
   run runner$
wait
[search]
   print #main.food, "!contents? foodName$"
   length=len(foodName$)
   foodTitle$=""
   for i=1 to length
       char$=mid$(foodName$,i,1)
       if char$=" " then char$="+"
       foodTitle$=foodTitle$+char$

   next i
   runDLL$="rundll32.exe url.dll,FileProtocolHandler"
   runner$=runDLL$+" https://duckduckgo.com/?q=glycemic+index+of+"+foodTitle$
   run runner$
   wait

[open]' EVENTUALLY THIS WILL JUST PRINT THE DATA TO THE VARIOUS FIELDS INSTEAD OF
     ' LOOPING BACK TO THE BEGINNING OF THE PROGRAM. BUT IT WORKS FINE LIKE THIS.
   print #main.foods, "selectionindex? index"

   close #main
   goto [start]

[new]
   index=numfoods+1
   numfoods=numfoods+1
   print #main.food, ""
   print #main.GI, ""
   print #main.GL, ""
   print #main.GLcontainer, ""
   print #main.servings, ""
   print #main.servingsize, ""
   print #main.calories, ""
   print #main.carbs, ""
   print #main.food, "!setfocus"
   wait

[save]
   '--- GET THE DATA FROM THE FORM
   print #main.food, "!contents? foodName$"
   print #main.GI, "!contents? glycemicIndex$"
   print #main.GL, "!contents? glycemicLoad$"
   print #main.GLcontainer, "!contents? GLcontainer$"
   print #main.servings, "!contents? servings$"
   print #main.servingsize, "!contents? servingSize$"
   print #main.calories, "!contents? calories$"
   print #main.carbs, "!contents? carbs$"

   '--- CALCULATE THE GLYCEMIC LOAD FROM GI AND CARBS

   if glycemicIndex$<>"" and carbs$<>"" then
       GI=val(glycemicIndex$)
       carbs=val(carbs$)
       GL=(GI*carbs)/100
       glycemicLoad$=using("###", GL)
       servings=val(servings$)
       GLcontainer=GL*servings
       GLcontainer$=using("###", GLcontainer)
   end if

   '--- PUT DATA INTO THE DIMENSIONED ARRAY
   food$(index,1)=foodName$
   food$(index,2)=glycemicIndex$
   food$(index,3)=glycemicLoad$
   food$(index,4)=GLcontainer$
   food$(index,5)=servings$
   food$(index,6)=servingSize$
   food$(index,7)=calories$
   food$(index,8)=carbs$
   '--- FOR SOME REASON THE FIRST RECORD IS SOMETIMES BLANK
   '--- WHICH IS WHY I HAVE THIS IF THEN BEFORE UPDATING
   '--- THE FILE.
   if food$(index,1)<>"" then
       open "glycemicIndex.dta" for output as #1
       for i=1 to numfoods
           print #1, food$(i,1)
           print #1, food$(i,2)
           print #1, food$(i,3)
           print #1, food$(i,4)
           print #1, food$(i,5)
           print #1, food$(i,6)
           print #1, food$(i,7)
           print #1, food$(i,8)
       next i
       close#1
   end if
   close #main
   goto [start]
   wait
[quit]
   close #main
   end




[donnybowers]

Alright, I was scared to def. Humor me for just a minute. I shared this on the JB forum, but perhaps it would be better shared here because we have a discussion board for community projects:

Hey, I just opened this program as a GRAPHICS window. I always thought you had to use different commands to "PLACE" the text in graphics mode. Everything in this program is working in graphics mode! The only thing different is the font, which I'm sure I can fix. And the MENU works too. In graphics mode I think I can trap the [ENTER] key and use a GOTO or something to invoke the [OPEN] routine. Or maybe make the open routine a SUB or a function. Oops! would that still need a GOTO?.

I don't use graphics windows very often. I have written a couple of programs that plotted line graphs for visuals of some data. Most of my programs are text based. Mostly for saving and organizing information about various topics and personal interests. But this project may be worth digging into GRAPHICS mode and seeing if INKEY$ might be a solution. I have to at least kick the idea around a little.

Do you think this kind of program would be a good candidate for a an LB community project? This is going to be open source. I'm using the Creative Commons license as a place to start. I'm not signed up or committed to Creative Commons or anything. I would love it to become a community project. I don't think I would make a good leader, but I would definitely contribute to such a project. It's important to me that it be open source. I'm not really interested in becoming famous, but I may sell copies of my version for a dollar or two a copy or something (and let the customers know how they can download it and compile it for free through JB or LB if they prefer), which is why I chose Creative Commons. Anyone can sell the program or do whatever they want with it (hey, I'm a capitalist at heart, what can I say?). I just like the idea of it. Anyone can improve on it and anyone can fork their own version for whatever purpose they are pursuing.

My personal version would focus on keeping it simple, but providing tools that make it easier for Diabetics, or people who would like to prevent getting full blown diabetes to keep track of important dietary information. The project would involve more than just this program. It would need a simple calendar that could be used both to keep track of glucose tests and to separately keep track of appointments. It would also need a program (a token file module?) where you can keep healthy recipes. In fact, I have a dream of eventually making it so that one could create a new text database for anything they find helpful to keep notes on, whether a journal or a favorite diet plan. I want it to be simple but useful and versatile. Any touch of elegance added to the program will be minimal on resource usage. I love art, but in a computer program it can eat resources and slow a program down if there's too much detail.

Another thing I would like to do with it is make it so that one could use the Glycemic Index database program to track meals and daily nutrition. Another calendar perhaps where you would keep track of what you eat when you have the chance and it could even be compared to your glucose test numbers for that day.

This wouldn't be just for diabetics though. It would just have the "Glycemic Index" and the "Glycemic Load" included in the nutrition data. One module (or version) might focus on the diabetic aspect and another on a heart healthy diet, another could focus on something else and so on (they're all tied together). But each module would use the same database. I personally prefer a text database because I've had more luck with ascii files than I have with actual "databases" or random access files. They're simple and efficient and just about anyone can edit them as long as they understand some very simple rules. Text files are simple and uncomplicated to work with.

Anyway the basic idea, or my particular aspect of the idea is that you can go to websites and you can read books, but none of them have the exact information that any particular individual needs because each individual is different and there are so many different variables. The GI testing results can vary quite a bit. Plus, the science appears to be new and the information varies from source to source because like anything else; glucose effects everyone a little differently. This is why I'm developing what I have so far for my own use. So that I can have my own database of information about the foods I personally choose to eat.

And the idea is not to provide the data, but rather the means to collect and evaluate the data that is available, whether Glycemic Index data, data about carbs, info about meal planning and really a host of other tools that are available out there, but the vast amount of information (sometimes conflicting) can be overwhelming, especially for someone who has just recently become diabetic or hasn't had good success in controlling it. Having a program where they can keep notes and data about these things is amazingly helpful.

If anyone else is interested in contributing to a project like this please let me know. I have no experience on leading something like this, but I do have some minor leadership skills. Perhaps enough to at least get the thing started. I just have always hated being a manager or a supervisor. I've had to do it at times, but it just isn't my gift. I think the main reason I took an interest in programming at all was because I'm not the most organized person in the world; so I try to create simple custom made programs to help me organize my life of diversified interests. Too diversified! I'm more of a doer and even more of a creative thinker than I am a manager. And even though I'm a singer and a musician, I actually don't prefer the limelight.

Oops! Okay, I know. I should have blogged this or something right? And another Oops! I haven't tried this graphics window thing in Just BASIC yet.

[Rod]

I would stick with a normal window, especially if you are hosting normal controls on it. Graphics tend to need everything graphical.

I have made a couple of amendments, firstly some data to actually allow it to run, secondly I sorted display$() and then I put in the stylebits hidden button that invokes [open] on pressing enter.

open "glycemicIndex.dta" for output as #1
#1 "bananna"
#1 100
#1 2
#1 3
#1 4
#1 5
#1 6
#1 7
#1 "apple"
#1 50
#1 2
#1 3
#1 4
#1 5
#1 6
#1 7
close #1

'--- Glycemic Index Database Program for Diabetics
'--- and others who use the GI in their diet.
'--- Open source - Creative Commons
'--- https://creativecommons.org/licenses/by/4.0/legalcode

   dim food$(5000,8), display$(5000)
   index=1
   browser$="C:\Program Files\Mozilla Firefox\firefox.exe"
[start]
   '--- GET SIZE OF DATABASE ---
   open "glycemicIndex.dta" for append as #1
   numBytes = lof(#1)
   close #1
   '--- IF THE DATABASE HAS MORE THAN 0 BYTES, OPEN ---
   '--- AND READ IN THE RECORDS (carraige return delimited)
   if numBytes>0 then
       numfoods=0
       open "glycemicIndex.dta" for input as #1
       while eof(#1)=0
           numfoods=numfoods+1
[getdata]'--- LOOP TO ELIMINATE BLANK RECORDS
           line input #1, food$(numfoods,1)
           if food$(numfoods,1)="" then goto [getdata]
           display$(numfoods)=food$(numfoods,1)'--- ARRAY FOR THE LISTBOX ---
           line input #1, food$(numfoods,2)
           line input #1, food$(numfoods,3)
           line input #1, food$(numfoods,4)
           line input #1, food$(numfoods,5)
           line input #1, food$(numfoods,6)
           line input #1, food$(numfoods,7)
           line input #1, food$(numfoods,8)
       wend
       close#1
       '--- SORT THE RECORDS ALPHABETICALLY
       sort food$(),1,numfoods,1
       sort display$(),1,numfoods

   end if

   nomainwin
   WindowWidth=DisplayWidth
   ListWidth=int(WindowWidth/2)-10
   WindowHeight=DisplayHeight-40
   UpperLeftX=1
   UpperLeftY=1

   '--- MENU
   menu #main, "&File", "&New", [new],_
       "&Open", [open], "&Save", [save],|,_
       "E&xit", [quit]
   menu #main, "&Search", "&Glycemic Index", [search]
   menu #main, "&Help", "&License Summary", [license]

   '--- CONTROLS

   button #main.ok,"choice",[open],UL,-100,-100
   stylebits #main.ok, _BS_DEFPUSHBUTTON, 0, 0, 0

   listbox #main.foods, display$(), [open], 5,5,ListWidth,500

   textbox #main.food, ListWidth+10,30,ListWidth,30

   statictext #main.st, "Glycemic Index (GI) ___",ListWidth+10,70,210,25
   textbox #main.GI, ListWidth+225,65,80,30

   statictext #main.st, "Glycemic Load (GL) ___ ",ListWidth+10,107,210,25
   textbox #main.GL, ListWidth+225,100,80,30

   statictext #main.st, "GL of whole container _ ",ListWidth+10,140,210,25
   textbox #main.GLcontainer, ListWidth+225,135,80,30

   statictext #main.st, "Servings Per Container _",ListWidth+10,175,215,25
   textbox #main.servings, ListWidth+225,170,80,30

   statictext #main.st, "Serving Size grams/ml _",ListWidth+10,210,210,25
   textbox #main.servingsize, ListWidth+225,205,80,30

   statictext #main.st, "Calories ____________",ListWidth+10,245,210,25
   textbox #main.calories, ListWidth+225,240,80,30

   statictext #main.st, "Carbohydrates _______ ",ListWidth+10,280,210,25
   textbox #main.carbs, ListWidth+225,275,80,30

   '--- OPEN WINDOW
   open "GLYCEMIC INDEX DATA" for window as #main
   print #main, "trapclose [quit]"
   print #main, "font 14"
   print #main.food, display$(index)
   print #main.foods, "selectindex ";str$(index)
   print #main.foods, "setfocus"
   print #main.food, "!font 14 bold"
   print #main.food, food$(index,1)
   print #main.GI, food$(index,2)
   print #main.GL, food$(index,3)
   print #main.GLcontainer, food$(index,4)
   print #main.servings, food$(index,5)
   print #main.servingsize, food$(index,6)
   print #main.calories, food$(index,7)
   print #main.carbs, food$(index,8)
   wait


[donnybowers]

That is beautiful. I've got several programs that have data fields like that. Eventually I'll be upgrading most if not all of them to "window" style windows with that stylebit command. I already put it in the version I'm working on and it's working exactly like I've always wanted a program like this to behave. I'm so thankful for that suggestion. I bet there are more style bits I should know about. I guess I haven't read up on that stuff in about ten years or so. I should look it up and see what else there is like that I can use in my programs. But this one solves an issue that's always bothered me. I love Liberty BASIC. This is perfect!

[donnybowers]

Here's a major update of the program. It's fairly large (about 15k). Eventually I would like to add a search box for the LISTBOX, but I haven't figured out how to implement it yet. I tried but I couldn't seem to get it right.

I try to use descriptive variable names and I've included some remarks to try to make it easier for anyone who wants to do their own upgrade to the program to navigate it.


   '--- Glycemic Index Database Program for Diabetics v1.0
   '--- and others who use the GI in their diet.
   '--- Open source - Creative Commons
   '--- https://creativecommons.org/licenses/by/4.0/legalcode

' COPY THE PROGRAM INTO THE LIBERTY BASIC IDE AND RUN IT. SELECT 'New record' FROM THE FILE MENU
' AND GIVE YOUR FIRST FOOD RECORD A NAME IN THE TOP BOX. THEN SELECT 'Save record' AND THE ASCII
' DATA FILE WILL BE CREATED. USE THE TWO BUTTONS TO SEARCH THE INTERNET FOR DATA TO FILL IN
' THE DATA FIELDS.

' THE IDEA IS FOR THE USER (DIABETIC OR DIETER) TO CREATE A DATABASE OF THE FOODS THAT
' THEY NORMALLY EAT, BUT IF I EVER DISTRIBUTE THE PROGRAM FOR SALE OR FOR FREE, I PLAN TO
' INCLUDE AT LEAST A FEW HUNDRED FOODS IN THE PACKAGE.  LET ME KNOW HERE IN THE FORUM IF YOU
' FIND ANY ISSUES. I HAVEN'T TRIED IT IN LB5 YET. THERE WILL BE ISSUES WITH FONT SIZE IN THE
' CURRENT BUILD I'M PRETTY SURE.
'
' THE PREVIOUS VERSION THAT I ORIGINALLY POSTED HERE IS DEPRECATED BECAUSE THE ORDER OF THE
' DATA FIELDS, AND THE ORDER IN WHICH THEY ARE STORED IN THE FILE HAS CHANGED. I BELIEVE THIS
' WILL BE THE PERMANENT ORDER OF THE DATA FIELDS GOING FORWARD. CONSIDER THIS VERSION 1.

'----- DIMENSION THE ARRAYS -----
   dim food$(5000,28), display$(5000)
   index=1

'----- INDIVIDUALIZED NUTRITION NEEDS (will eventually have a way for the user to
'      input this data and it will be saved to a .ini file which will be opened here.

   dailyCalories=2510
   dailyFat=70
   dailyCholesterol=200
   dailySodium=2000
   dailyCarbs=251
   dailyFiber=35
   dailyNetCarbs=dailyCarbs-dailyFiber
   dailyProtein=220

[start]
   '--- GET SIZE OF DATABASE ---
   open "glycemicIndex.dta" for append as #1
   numBytes = lof(#1)
   close #1
   '--- IF THE DATABASE HAS MORE THAN 0 BYTES, OPEN ---
   '--- AND READ IN THE RECORDS (carraige return delimited)
   if numBytes>0 then
       numfoods=0

       open "glycemicIndex.dta" for input as #1
       while eof(#1)=0
           numfoods=numfoods+1

[getdata]
           line input #1, food$(numfoods,1)
           if food$(numfoods,1)="" then goto [getdata]
           line input #1, food$(numfoods,2)
           line input #1, food$(numfoods,3)
           line input #1, food$(numfoods,4)
           temp=val(food$(numfoods,4))
           temp2=(temp/dailyCalories)*100
           food$(numfoods,21)=using("###", temp2)
           line input #1, food$(numfoods,5)
           temp=val(food$(numfoods,5))
           temp2=(temp/dailyFat)*100
           food$(numfoods,22)=using("###", temp2)
           line input #1, food$(numfoods,6)
           temp=val(food$(numfoods,6))
           temp2=(temp/dailyCholesterol)*100
           food$(numfoods,23)=using("###", temp2)
           line input #1, food$(numfoods,7)
           temp=val(food$(numfoods,7))
           temp2=(temp/dailySodium)*100
           food$(numfoods,24)=using("###", temp2)
           line input #1, food$(numfoods,8)
           temp=val(food$(numfoods,8))
           temp2=(temp/dailyCarbs)*100
           food$(numfoods,25)=using("###", temp2)

           line input #1, food$(numfoods,9)
           temp=val(food$(numfoods,9))
           temp2=(temp/dailyFiber)*100
           food$(numfoods,26)=using("###", temp2)

           line input #1, food$(numfoods,10)
           temp=val(food$(numfoods,10))
           temp2=(temp/dailyNetCarbs)*100
           food$(numfoods,27)=using("###", temp2)


           line input #1, food$(numfoods,11)
           temp=val(food$(numfoods,11))
           temp2=(temp/dailyProtein)*100
           food$(numfoods,28)=using("###", temp2)


           line input #1, food$(numfoods,12)
           if food$(numfoods,12)<>"" then
               food$(numfoods,18)="LOW"
               if val(food$(numfoods,12))>55 then food$(numfoods,18)="MOD"
               if val(food$(numfoods,12))>69 then food$(numfoods,18)="HIGH"
           end if
           line input #1, food$(numfoods,13)
           if food$(numfoods,13)<>"" then
               food$(numfoods,19)="LOW"
               if val(food$(numfoods,13))>10 then food$(numfoods,19)="MOD"
               if val(food$(numfoods,13))>19 then food$(numfoods,19)="HIGH"
           end if
           line input #1, food$(numfoods,14)
           if food$(numfoods,14)<>"" then
               food$(numfoods,20)="LOW"
               if val(food$(numfoods,14))>10 then food$(numfoods,20)="MOD"
               if val(food$(numfoods,14))>19 then food$(numfoods,20)="HIGH"
           end if

           line input #1, food$(numfoods,15)
           line input #1, food$(numfoods,16)
           line input #1, food$(numfoods,17)
       wend
       close#1
   end if

   sort food$(),1,numfoods,1

   for i=1 to numfoods
       display$(i)=food$(i,1)
   next i
'----- WINDOW DIMENSIONS AND SOME CUSTOM DIMENSIONS FOR THE LISTBOX -----
' NOTE: I created this in a virtual machine using 800 x 600 graphics mode which is the smallest
' screen size this program will work with. It works fine with my 1366 × 768 screen with some blank
' space that I may eventually fill with some graphics or something?

   nomainwin
   WindowWidth=DisplayWidth
   ListWidth=int(WindowWidth/2)-10
   WindowHeight=DisplayHeight-40
   ListHeight=WindowHeight-60
   UpperLeftX=1
   UpperLeftY=1

'----- MENU (this should probably be called the "&Data" menu, but I can't get used to pressing
'      [alt]+D instead of [alt]+F so for now I'll leave it like this. I find it more intuitive.
   menu #main,"&File",_
       "&New record", [new],_
       "&Open-View-Edit record", [open],_
       "&Save record", [save],|,_
       "E&xit", [quit]

'----- STYLEBIT ALLOWS USER TO PRESS ENTER TO OPEN A FOOD DATA RECORD FOR VIEWING AND EDITING
'      I'M PRETTY SURE THIS PROGRAM WON'T WORK IN JUSTBASIC UNLESS YOU REMOVE THIS STYLEBIT.

   button #main.ok,"choice",[open],UL,-100,-100
   stylebits #main.ok, _BS_DEFPUSHBUTTON, 0, 0, 0
'----- END STYLEBIT

   listbox #main.foods, display$(), [open], 5,1,ListWidth,ListHeight

   textbox #main.food, ListWidth+10,0,ListWidth,30

'---- CONTROLS FOR USER INPUT -----

   statictext #main.st, "Servings Per Container..",ListWidth+10,35,212,25
   textbox #main.servings, ListWidth+225,30,80,30

   statictext #main.st, "Serving Size grams/ml...",ListWidth+10,65,212,25
   textbox #main.servingSize, ListWidth+225,60,80,30

   statictext #main.st, "Calories............................",ListWidth+10,95,212,25
   textbox #main.calories, ListWidth+225,90,80,30

   statictext #main.st, "Total Fat...........................",ListWidth+10,125,212,25
   textbox #main.fat, ListWidth+225,120,80,30

   statictext #main.st, "Cholesterol........................",ListWidth+10,155,212,25
   textbox #main.cholesterol, ListWidth+225,150,80,30

   statictext #main.st, "Sodium.............................",ListWidth+10,185,212,25
   textbox #main.sodium, ListWidth+225,180,80,30

   statictext #main.st, "Total Carbohydrates ......",ListWidth+10,215,212,25
   textbox #main.carbs, ListWidth+225,210,80,30

   statictext #main.st, " - Carbs from Fiber..........",ListWidth+10,245,212,25
   textbox #main.carbsFiber, ListWidth+225,240,80,30

   statictext #main.st, " - Net Carbs.....................",ListWidth+10,275,212,25
   textbox #main.netCarbs, ListWidth+225,270,80,30

   statictext #main.st, "Protein..............................",ListWidth+10,305,212,25
   textbox #main.protein, ListWidth+225,300,80,30

   statictext #main.st, "Glycemic Index (GI)........",ListWidth+10,335,212,25
   textbox #main.GI, ListWidth+225,330,80,30

   statictext #main.st, "Glycemic Load (GL)........",ListWidth+10,365,212,25
   textbox #main.GL, ListWidth+225,360,80,30

   statictext #main.st, "GL of whole container....",ListWidth+10,395,212,25
   textbox #main.GLcontainer, ListWidth+225,390,80,30

   textbox #main.notes1, ListWidth+10,420,ListWidth,30
   textbox #main.notes2, ListWidth+10,445,ListWidth,30
   textbox #main.notes3, ListWidth+10,470,ListWidth,30

'----- GLYCEMIC INDEX AND NUTRITION SEARCH BUTTONS (there's more of this to come in the menu)

   button #main.glycemicIndex, "Search GI", [glycemicIndex], UL, ListWidth+305,30,98,30
   button #main.nutritionData, "Nutrition", [nutritionData], UL, ListWidth+305,60,98,30

'----- DISPLAYS PERECENTAGES OF DAILY NEEDS FOR THE SPECIFIED FOOD -----
   textbox #main.caloriePct, ListWidth+305,90,65,30

   statictext #main.st, "%", ListWidth+375,90,20,30

   textbox #main.fatPct,ListWidth+305,120,65,30
   statictext #main.st, "%", ListWidth+375,120,20,30
   textbox #main.cholesterolPct, ListWidth+305,150,65,30
   statictext #main.st, "%", ListWidth+375,150,20,30
   textbox #main.sodiumPct, ListWidth+305,180,65,30
   statictext #main.st, "%", ListWidth+375,180,20,30
   textbox #main.carbPct, ListWidth+305,210,65,30
   statictext #main.st, "%", ListWidth+375,210,20,30
   textbox #main.fiberPct, ListWidth+305,240,65,30
   statictext #main.st, "%", ListWidth+375,240,20,30
   textbox #main.netCarbPct, ListWidth+305,270,65,30
   statictext #main.st, "%", ListWidth+375,270,20,30
   textbox #main.proteinPct, ListWidth+305,300,65,30
   statictext #main.st, "%", ListWidth+375,300,20,30

'----- DISPLAYS LOW/MED/HIGH GI AND GL FOR EASY REFERENCE
   textbox #main.GIlevel, ListWidth+305,330,65,30
   textbox #main.GLlevel, ListWidth+305,360,65,30
   textbox #main.GLall, ListWidth+305,390,65,30

'----- OPEN THE WINDOW -----
   open "GLYCEMIC INDEX / LOAD" for window as #main
   print #main, "trapclose [quit]"
   print #main, "font 14"
   print #main.food, display$(index)
   print #main.foods, "selectindex ";str$(index)
   print #main.foods, "setfocus"
   print #main.food, "!font 14 bold"
   print #main.food, food$(index,1)
   print #main.servings, food$(index,2)
   print #main.servingSize, food$(index,3)
   print #main.calories, food$(index,4)
   print #main.fat, food$(index,5)
   print #main.cholesterol, food$(index,6)
   print #main.sodium, food$(index,7)
   print #main.carbs, food$(index,8)
   print #main.carbsFiber, food$(index,9)
   print #main.netCarbs, food$(index,10)
   print #main.protein, food$(index,11)
   print #main.GI, food$(index,12)
   print #main.GL, food$(index,13)
   print #main.GLcontainer, food$(index,14)
   print #main.notes1, food$(index,15)
   print #main.notes2, food$(index,16)
   print #main.notes3, food$(index,17)
   print #main.GIlevel, food$(index,18)
   print #main.GIlevel, "!disable"
   print #main.GLlevel, food$(index,19)
   print #main.GLlevel, "!disable"
   print #main.GLall, food$(index,20)
   print #main.GLall, "!disable"
   print #main.caloriePct, food$(index,21)
   print #main.caloriePct, "!disable"
   print #main.fatPct, food$(index,22)
   print #main.fatPct, "!disable"
   print #main.cholesterolPct, food$(index,23)
   print #main.cholesterolPct, "!disable"
   print #main.sodiumPct, food$(index,24)
   print #main.sodiumPct, "!disable"
   print #main.carbPct, food$(index,25)
   print #main.carbPct, "!disable"
   print #main.fiberPct, food$(index,26)
   print #main.fiberPct, "!disable"
   print #main.netCarbPct, food$(index,27)
   print #main.netCarbPct, "!disable"
   print #main.proteinPct, food$(index,28)
   print #main.proteinPct, "!disable"

   print #main.netCarbs, "!disable"
   print #main.GL, "!disable"
   print #main.GLcontainer, "!disable"
   wait

'----- ROUTINE THAT RUNS A GI SEARCH ON THE INTERNET USING DUCKDUCKGO.COM
[glycemicIndex]
   print #main.food, "!contents? foodName$"
   length=len(foodName$)
   foodTitle$=""
   for i=1 to length
       char$=mid$(foodName$,i,1)
       if char$=" " then char$="+"
       foodTitle$=foodTitle$+char$

   next i
   runner$=" https://duckduckgo.com/?q=glycemic+index+of+"+foodTitle$
   RUN "rundll32.exe url.dll,FileProtocolHandler ";runner$
   wait


'----- DATA MENU ROUTINES -----
[open]
   print #main.foods, "selectionindex? index"
   close #main
   goto [start]

[new]
   index=numfoods+1
   numfoods=numfoods+1
   print #main.food, ""
   print #main.servings, ""
   print #main.servingSize, ""
   print #main.calories, ""
   print #main.fat, ""
   print #main.cholesterol, ""
   print #main.sodium, ""
   print #main.carbs, ""
   print #main.carbsFiber, ""
   print #main.netCarbs, ""
   print #main.protein, ""
   print #main.GI, ""
   print #main.GL, ""
   print #main.GLcontainer, ""
   print #main.notes1, ""
   print #main.notes2, ""
   print #main.notes3, ""
   print #main.food, "!setfocus"
   wait

[save]
   print #main.food, "!contents? foodName$"
   print #main.servings, "!contents? servings$"
   print #main.servingSize, "!contents? servingSize$"
   print #main.calories, "!contents? calories$"
   print #main.fat, "!contents? fat$"
   print #main.cholesterol, "!contents? cholesterol$"
   print #main.sodium, "!contents? salt$"
   print #main.carbs, "!contents? carbs$"
   print #main.carbsFiber, "!contents? carbsFiber$"
   print #main.netCarbs, "!contents? netCarbs$"
   print #main.protein, "!contents? protein$"
   print #main.GI, "!contents? glycemicIndex$"
   print #main.GL, "!contents? glycemicLoad$"
   print #main.GLcontainer, "!contents? GLcontainer$"
   print #main.notes1, "!contents? notes1$"
   print #main.notes2, "!contents? notes2$"
   print #main.notes3, "!contents? notes3$"

'----- CALCULATE THE GLYCEMIC LOAD NUMBER
   if glycemicIndex$<>"" and carbs$<>"" then
       GI=val(glycemicIndex$)
       carbs=val(carbs$)
       GL=(GI*carbs)/100
       glycemicLoad$=using("###", GL)
       servings=val(servings$)
       GLcontainer=GL*servings
       GLcontainer$=using("###", GLcontainer)
   end if


'----- CALCULATE NET CARBS
   if carbs$<>"" and carbsFiber$<>"" then
       carbs=val(carbs$) : carbsFiber=val(carbsFiber$)
       netCarbs=carbs-carbsFiber
       netCarbs$=using("###",netCarbs)
   end if

   food$(index,1)=foodName$
   food$(index,2)=servings$
   food$(index,3)=servingSize$
   food$(index,4)=calories$
   food$(index,5)=fat$
   food$(index,6)=cholesterol$
   food$(index,7)=salt$
   food$(index,8)=carbs$
   food$(index,9)=carbsFiber$
   food$(index,10)=netCarbs$
   food$(index,11)=protein$
   food$(index,12)=glycemicIndex$
   food$(index,13)=glycemicLoad$
   food$(index,14)=GLcontainer$
   food$(index,15)=notes1$
   food$(index,16)=notes2$
   food$(index,17)=notes3$

   if food$(index,1)<>"" then
       open "glycemicIndex.dta" for output as #1
       for i=1 to numfoods
           print #1, food$(i,1)
           print #1, food$(i,2)
           print #1, food$(i,3)
           print #1, food$(i,4)
           print #1, food$(i,5)
           print #1, food$(i,6)
           print #1, food$(i,7)
           print #1, food$(i,8)
           print #1, food$(i,9)
           print #1, food$(i,10)
           print #1, food$(i,11)
           print #1, food$(i,12)
           print #1, food$(i,13)
           print #1, food$(i,14)
           print #1, food$(i,15)
           print #1, food$(i,16)
           print #1, food$(i,17)
       next i
       close#1
   end if
   close #main
   goto [start]
   wait

[quit]
   close #main
   end




[tsh73]

' THE PREVIOUS VERSION THAT I ORIGINALLY POSTED HERE IS DEPRECATED BECAUSE THE ORDER OF THE
' DATA FIELDS, AND THE ORDER IN WHICH THEY ARE STORED IN THE FILE HAS CHANGED. I BELIEVE THIS
' WILL BE THE PERMANENT ORDER OF THE DATA FIELDS GOING FORWARD. PLEASE CONSIDER THIS "VERSION 1"
' (if you will).

You already started changing it. Change is the only constant
So I suggest adding a version information on top of file, like "Glycemic Index Database v.1" or something.

It would be nice if prgram could read files with extra /missing filelds, but it will require all fileds to be labeled - likely big change/does not worth the effort?

SELECT 'New' FROM THE FILE MENU
' AND GIVE YOUR FIRST FOOD RECORD A NAME IN THE TOP BOX. THEN SELECT 'Save'

Sorry, noone does this that way.
Logically, File/new, File/save is to work with whole database
Please add two buttons "new record" "save record", say above top line (or under bottom line)
- that way it'll be much more intuitive.

[donnybowers]

Yea, I suppose normally the File menu would be called the Data menu. You can change that if you like. I'm just so used to using ALT+F and then N for New, so it's it's easier for me right now. ALT+D and then N for New is hard to get used to. I kind of think of each record as a sort of file. If I ever get to the point that I want to distribute the program I will have to consider what convention to use. But, yea, It wouldn't hurt to use 'New record', 'Save record' and 'Edit record' in the menu.

I'm writing this in 800 x 600 graphics so there's no room in this version for more buttons. I plan to do a version for 1200px wide screens in the near future once I have the full functionality that I'm trying to create. That version will probably have those buttons in a column to the right of the data fields. I originally had the buttons in my first version, but I realized I needed more fields for the basic nutrition information necessary for a healthy diet. I actually wish I could put even more detail, but I felt I should stick to the basics. People can expand on the old version if they want to though.

I try to write my programs with as big a font as I can because I'm having vision problems and I hate wearing glasses, though I'm starting to get used to it. I'm actually writing this program mainly for my own use well into the future, so I want it to be easy to see the data. Diabetes is hell on the eyes. I was an uncontrolled diabetic for probably at least a year and didn't realize it, so I've probably done some damage to more than one of my organs, including my eyes.

Adding version numbers is a good idea. I'll label the first one as version 0.1 and the new version as 1.0. I usually write programs for myself so I just call the versions whatever I want. I probably should get used to the more conventional ways of doing some of these things if I'm going to collaborate with others. Sorry for the major file format change, but I really felt I needed to redo that. It should stay pretty much the same now for the foreseeable future though.

[donnybowers]

Another thing I'll need to add to this is a "Delete record" function. I've already created a database of about 250 foods and sometimes I forget that I already added a food and end up with a duplicate. There has to be a convenient way to get rid of records that you don't need any more.

[tsh73]

and sometimes I forget that I already added a food and end up with a duplicate

Check for duplicate, looping through array
(may be )
then ask something alog
"You seem already have record titled "+food$(i,1)
"Do you really want to add another one?"

new$="potato"

old$="Mashed potato"

if instr(lower$(old$), lower$(new$)) <>0 then
   notice "new item: "+new$+chr$(13)+"You seem already have record titled ";old$
end if



[donnybowers]

It's funny you would use potato for your example. I have 28 different entries as of now with the word 'potato' in them. LOL.

Potatoes is one of the biggest no-nos for a diabetic right up there alongside white breads and sugar. And believe it or not, even how one cooks a potato as well as the type of potato makes a difference in how high it is on the glycemic index. I only eat very small portions of potatoes these days.

You're on to something there tsh73. Having a way to catch potential repeats makes a lot of sense. And as you've shown above, it won't take many lines of code to do it.

[tsh73]

I'm writing this in 800 x 600 graphics so there's no room in this version for more buttons.

just so people understand the problem (numbers are bogus, of cource)

[donnybowers]

I guess I could put the "Save" and "New" buttons where the "Search GI" and "Nutrition" search buttons are now in the upper right. I may do that because I'm planning to have a Search menu anyway. Of course I'll still keep the Save and New menu options because some people prefer to do everything with the keyboard. Including me.

By the way, as I'm sure you probably already figured out; the bottom 3 long fields are for notes. There are a million ways to use this for personal notes. For example, under 'Crackers, Saltine' I have a serving size of 16 grams. So on one of the note lines I have "5 crackers".  Under "Crackers, whole wheat, woven" I have this note to myself, "I can have 6 to 8 with an apple and some cheese".

I did this because it wouldn't be practical to have a TEXTEDITOR control when you're using a line by line ASCII text format for your database. You could do it, but it would mean having a separate text file for each data item. If you had to rename an item you would also have to have a routine to rename the corresponding text file. Those 3 lines should be plenty of room for just about any notes one might need for a given food item.

[donnybowers]

I guess another idea might be to shorten the LISTBOX by 1 line and put the buttons on top of there, or else under it.