avertilo : a agenda whit some warning AI

[bluatigro]

this is the text version of a agenda whit some AI
i wil try to build a GUI version next

this is not tested code
but is error free says JB


''bluatigro 28 jun 2018
''avertilo 1.0
dim info$( 10 , 10 ) , card$( 2000 )
global cardtel
[info]
print "bluatigro presents : avertilo 1.0"
print "a text based agenda whit warning system ."
print "1 : add warning ."
print "2 : see warnings ."
print "3 : exit avertilo 1.0"
input "choise [ 1 , 2 , 3 ] = " ; in$
in = int( val( in$ ) )
if in <> 1 and in <> 2 and in <> 3 then
 print "ERROR : choise must be 1 or 2 or 3 !!"
 goto [info]
end if
if in = 1 then goto [add.warning]
if in = 2 then goto [see.warnings]
if in = 3 then
 print "end avertilo ."
 end
end if
goto [info]
[add.warning]
[dato.monato]
 input "month [ 3 chars ] = " ; monato$
 if dato.monato( monato$ ) = 0 then
   print "ERROR : month not good !!"
   goto [dato.monato]
 end if
[dato.tago]
 input "day [ 1 ... 31 ] = " ; tago$
 tago = val( tago$ )
 if tago < 1 or tago > 31 then
   print "ERROR : day not good !!"
   goto [dato.tago]
 end if
[dato.jaro]
 input "jear [ 2000 ... ] = " ; year$
 year = val( year$ )
 if year < 2000 then
   print "ERROR : year in far past !!"
   goto [dato.jaro]
 end if
 if year > 3000 then
   input "WARNING : wood you life that long ? [ y , n ] " ; in$
   if lower$( in$ ) = "n" then goto [dato.jaro]
 end if
 dato$ = monato$ + " " + tago$ + ", " + year$
[timo]
 input "time [ uu:mm:ss ] = " ; timo$
 u = val( word$( timo$ , 1 , ":" ) )
 m = val( word$( timo$ , 2 , ":" ) )
 s = val( word$( timo$ , 3 , ":" ) )
 if u < 0 or u > 24 then
   print "ERROR : hours not good !!"
   goto [timo]
 end if
 if m < 0 or m > 59 then
   print "ERROR : minutes not good !!"
   goto [timo]
 end if
 if s < 0 or s > 59 then
   print "ERROR : seconds not good !!"
   goto [timo]
 end if
 input "warning = " ; in$
 averto$ = date$() + "," + dato$ + "," + year$ + "," + in$
 open "avertilo.txt" for append as #uit
   print #uit , averto$
 close #uit
goto [info]
[see.warnings]
 files DefaultDir$ , "avertilo.txt" , info$()
 if val( info$( 0 , 0 ) ) <> 0 then
   open "avertilo.txt" for input as #in
     cardtel = 0
     while not( eof( #in ) )
       line input #in , q$
       dato2$ = word$( q$ , 2 , "," )
       tago2 = dato.tago( dato2$ )
       monato2 = dato.monato( dato2$ )
       jaro2 = dato.jaro( dato2$ )
       dato1$ = date$()
       tago1 = dato.tago( dato1$ )
       monato1 = dato.monato( dato1$ )
       jaro1 = dato.jaro( dato1$ )
       if tago2 >= 1 and tago2 <= 31 _
       and monato2 >= 1 and monato2 <= 12 _
       and jaro2 >= 2000 then
       ''dato2 is real
         tagoj1 = tagoj( tago1 , monato1 , jaro1 )
         tagoj2 = tagoj( tago2 , monato2 , jaro2 )
         if tagoj1 <= tagoj2 then
         ''dato2 is in future or now so store in waring
           card$( cardtel ) = q$
           cardtel = cardtel + 1
         end if
       end if
     wend
   close #in
 else
   print "no warnings file add warnings first ."
   goto [info]
 end if
 if cardtel = 0 then
   print "i cant find any warning in the futue or today ."
 else
   for i = 0 to cardtel
     print "warning number : " ; i ; "    of : " ; cardtel ; " ."
     print "inputed : " ; word$( card$( i ) , 1 , "," )
     print "date : " ; word$( card$( i ) , 2 , "," )
     print "time : " ; word$( card$( i ) , 3 , "," )
     print "warning = " ; word$( card$( i ) , 4 , "," )
     input "[ push return for next warning ]" ; in$
   next i
 end if
goto [info]
function dato.tago( dato$ )
 dato.tago = val( word$( dato$ , 2 ) )
end function
function dato.monato( dato$ )
 monato$ = lower$( word$( dato$ , 1 ) )
 q$ = "jan feb mrt apr may jun jul aug sep okt nov dec"
 uit = 0
 for i = 1 to 12
   if monato$ = word$( q$ , i ) then uit = i
 next i
 dato.monato = uit
end function
function dato.jaro( dato$ )
 dato.jaro = val( word$( dato$ , 3 ) )
end function
function tagoj( day , month , year )
   year = year - 1
   month = month + 12
   uit = int( 2.6001 * ( month - 2 ) - 0.2 ) _
   + day + year + int( year / 4 ) - 3
   tagoj = uit
end function



[tsh73]

Data entered:

choise [ 1 , 2 , 3 ] = 1
month [ 3 chars ] = jun
day [ 1 ... 31 ] = 28
jear [ 2000 ... ] = 2018
time [ uu:mm:ss ] = 13:55:00
warning = Hello there

(time was set 5 minutes up)
Data written to
avertilo.txt
Jun 28, 2018,jun 28, 2018,2018,Hello there

Obviously time is lost.

So it says
choise [ 1 , 2 , 3 ] = 2
i cant find any warning in the futue or today .


[bluatigro]

tsh73 :
i wil look in that next

update :
GUI version

WARNING :
if you do not type good info
the code wil punish you good

if you added a warning
you have to load the file next
or it wil not be fount


''bluatigro 28 jun 2018
''avertilo 2.0
''GUI version
dim info$( 10 , 10 ) , card$( 2000 )
global cardtel , file$
file$ = "avertilo.txt"
WindowWidth = 800
WindowHeight = 600
nomainwin
statictext #m.s.dato , "date" , 0 , 0 , 200 , 50
statictext #m.s.dato2 , "month day     year" , 0 , 50 , 800 , 50
textbox #m.txt.monato , 0 , 100 , 100 , 50
textbox #m.txt.tago , 120 , 100 , 100 , 50
textbox #m.txt.jaro , 240 , 100 , 150 , 50
statictext #m.s.timo , "time" , 0 , 150 , 200 , 50
textbox #m.txt.timo , 0 , 200 , 200 , 50
statictext #m.s.averto , "warning" , 0 , 250 , 200 , 50
textbox #m.txt.averto , 0 , 300 , 800 , 50
button #m.btn.add , "add" , [btn.add] , UL , 50 , 400 , 100 , 50
button #m.btn.look , "look" , [btn.look] , UL , 650 , 400 , 100 , 50
menu #m , "file" _
       , "load" , [load] _
       , "exit" , [quit]
menu #m , "read me" _
       , "read me" , [info]
open "avertilo 2.0" for window as #m
 #m "trapclose [quit]"
 #m "font 30 bold"
wait
[quit]
 close #m
end
[info]
 notice "bluatigro 28 jun 2018"
wait
[btn.add]
[dato.monato]
 #m.txt.monato "!contents? monato$"
 if dato.monato( monato$ ) = 0 then
   notice "ERROR" + chr$( 13 ) + "month not good !!"
   goto [dato.monato]
 end if
[dato.tago]
 #m.txt.tago "!contents? tago$"
 tago = val( tago$ )
 if tago < 1 or tago > 31 then
   notice "ERROR" + chr$( 13 ) + "day not good !!"
   goto [dato.tago]
 end if
[dato.jaro]
 #m.txt.year "!contents? year$"
 year = val( year$ )
 if year < 2000 then
   notice "ERROR" + chr$( 13 ) + "year in far past !!"
   goto [dato.jaro]
 end if
 if year > 3000 then
   confirm "WARNING" + chr$( 13 ) + "wood you life that long ?" ; in$
   if in$ = "no" then goto [dato.jaro]
 end if
 dato$ = monato$ + " " + tago$ + ", " + year$
[timo]
 #m.txt.timo "!contents? timo$"
 u = val( word$( timo$ , 1 , ":" ) )
 m = val( word$( timo$ , 2 , ":" ) )
 s = val( word$( timo$ , 3 , ":" ) )
 if u < 0 or u > 24 then
   notice "ERROR" + chr$( 13 ) + "hours not good !!"
   goto [timo]
 end if
 if m < 0 or m > 59 then
   notice "ERROR" + chr$( 13 ) + "minutes not good !!"
   goto [timo]
 end if
 if s < 0 or s > 59 then
   notice "ERROR" + chr$( 13 ) + "seconds not good !!"
   goto [timo]
 end if
 #m.txt.averto "!contents? in$"
 averto$ = date$() + "," + dato$ + "," + year$ + "," + in$
 open file$ for append as #uit
   print #uit , averto$
 close #uit
wait
[menu.load]
 filedialog "load avertilo file" , "*.txt" , file$
 if val( info$( 0 , 0 ) ) <> 0 then
   open file$ for input as #in
     cardtel = 0
     while not( eof( #in ) )
       line input #in , q$
       dato2$ = word$( q$ , 2 , "," )
       tago2 = dato.tago( dato2$ )
       monato2 = dato.monato( dato2$ )
       jaro2 = dato.jaro( dato2$ )
       dato1$ = date$()
       tago1 = dato.tago( dato1$ )
       monato1 = dato.monato( dato1$ )
       jaro1 = dato.jaro( dato1$ )
         tagoj1 = tagoj( tago1 , monato1 , jaro1 )
         tagoj2 = tagoj( tago2 , monato2 , jaro2 )
         if tagoj1 <= tagoj2 then
         ''dato2 is in future or now so store in waring
           card$( cardtel ) = q$
           cardtel = cardtel + 1
         end if
     wend
   close #in
 end if
wait
[btn.look]
 if cardtel = 0 then
   notice "REMARK" + chr$( 13 ) _
        + "there was no aventilo file loaded ." + chr$( 13 ) _
        + "or there are no warnings ."
 else
   for i = 0 to cardtel
     notice "warning number : " ; i ; "    of : " ; cardtel ; " ." ; chr$( 13 ) _
          + "inputed : " ; word$( card$( i ) , 1 , "," ) + chr$( 13 ) _
          + "date : " ; word$( card$( i ) , 2 , "," ) + chr$( 13 ) _
          + "time : " ; word$( card$( i ) , 3 , "," ) + chr$( 13 ) _
          + "warning = " ; word$( card$( i ) , 4 , "," )
   next i
 end if
wait
function dato.tago( dato$ )
 dato.tago = val( word$( dato$ , 2 ) )
end function
function dato.monato( dato$ )
 monato$ = lower$( word$( dato$ , 1 ) )
 q$ = "jan feb mrt apr may jun jul aug sep okt nov dec"
 uit = 0
 for i = 1 to 12
   if monato$ = word$( q$ , i ) then uit = i
 next i
 dato.monato = uit
end function
function dato.jaro( dato$ )
 dato.jaro = val( word$( dato$ , 3 ) )
end function
function tagoj( day , month , year )
   year = year - 1
   month = month + 12
   uit = int( 2.6001 * ( month - 2 ) - 0.2 ) _
   + day + year + int( year / 4 ) - 3
   tagoj = uit
end function



[bluatigro]

update :
avertilo 2.1 warns when warning is in verry near futore

WARNING :
dato.monato() may have error in the month string


''bluatigro 28 jun 2018
''avertilo 2.1
''GUI version
dim info$( 10 , 10 ) , card$( 2000 )
global cardtel , file$
file$ = "avertilo.txt"
WindowWidth = 800
WindowHeight = 600
nomainwin
statictext #m.s.dato , "date" , 0 , 0 , 200 , 50
statictext #m.s.dato2 , "month day     year" , 0 , 50 , 800 , 50
textbox #m.txt.monato , 0 , 100 , 100 , 50
textbox #m.txt.tago , 120 , 100 , 100 , 50
textbox #m.txt.jaro , 240 , 100 , 150 , 50
statictext #m.s.timo , "time" , 0 , 150 , 200 , 50
textbox #m.txt.timo , 0 , 200 , 200 , 50
statictext #m.s.averto , "warning" , 0 , 250 , 200 , 50
textbox #m.txt.averto , 0 , 300 , 800 , 50
button #m.btn.add , "add" , [btn.add] , UL , 50 , 400 , 100 , 50
button #m.btn.look , "look" , [btn.look] , UL , 650 , 400 , 100 , 50
menu #m , "file" _
       , "load" , [load] _
       , "exit" , [quit]
menu #m , "read me" _
       , "read me" , [info]
open "avertilo 2.0" for window as #m
 #m "trapclose [quit]"
 #m "font 30 bold"
wait
[quit]
 close #m
end
[info]
 notice "bluatigro 28 jun 2018"
wait
[btn.add]
[dato.monato]
 #m.txt.monato "!contents? monato$"
 monato = dato.monato( monato$ )
 if monato = 0 then
   notice "ERROR" + chr$( 13 ) + "month not good !!"
   goto [dato.monato]
 end if
[dato.tago]
 #m.txt.tago "!contents? tago$"
 tago = val( tago$ )
 if tago < 1 or tago > 31 then
   notice "ERROR" + chr$( 13 ) + "day not good !!"
   goto [dato.tago]
 end if
[dato.jaro]
 #m.txt.year "!contents? year$"
 year = val( year$ )
 if year < 2000 then
   notice "ERROR" + chr$( 13 ) + "year in far past !!"
   goto [dato.jaro]
 end if
 if year > 3000 then
   confirm "WARNING" + chr$( 13 ) + "wood you life that long ?" ; in$
   if in$ = "no" then goto [dato.jaro]
 end if
 dato$ = monato$ + " " + tago$ + ", " + year$
[timo]
 #m.txt.timo "!contents? timo$"
 u = val( word$( timo$ , 1 , ":" ) )
 m = val( word$( timo$ , 2 , ":" ) )
 s = val( word$( timo$ , 3 , ":" ) )
 if u < 0 or u > 24 then
   notice "ERROR" + chr$( 13 ) + "hours not good !!"
   goto [timo]
 end if
 if m < 0 or m > 59 then
   notice "ERROR" + chr$( 13 ) + "minutes not good !!"
   goto [timo]
 end if
 if s < 0 or s > 59 then
   notice "ERROR" + chr$( 13 ) + "seconds not good !!"
   goto [timo]
 end if
 m = dato.monato( dato$ )
 d = dato.tago( dato$ )
 y = dato.jaro( dato$ )
 if tagoj( m , d , y ) - tagoj( monato , tago , jaro ) < 2 then
   confirm "WARNING" + CHR$( 13 ) _
   + "this is verry soon ! store ?" ; yn$
   if yn$ = "yes" then
     #m.txt.averto "!contents? in$"
     averto$ = date$() + "|" + dato$ + "|" + year$ + "|" + in$
     open file$ for append as #uit
       print #uit , averto$
     close #uit
   end if
 end if
wait
[menu.load]
 filedialog "load avertilo file" , "*.txt" , file$
 if val( info$( 0 , 0 ) ) <> 0 then
   open file$ for input as #in
     cardtel = 0
     while not( eof( #in ) )
       line input #in , q$
       dato2$ = word$( q$ , 2 , "|" )
       tago2 = dato.tago( dato2$ )
       monato2 = dato.monato( dato2$ )
       jaro2 = dato.jaro( dato2$ )
       dato1$ = date$()
       tago1 = dato.tago( dato1$ )
       monato1 = dato.monato( dato1$ )
       jaro1 = dato.jaro( dato1$ )
         tagoj1 = tagoj( tago1 , monato1 , jaro1 )
         tagoj2 = tagoj( tago2 , monato2 , jaro2 )
         if tagoj1 <= tagoj2 then
         ''dato2 is in future or now so store in waring
           card$( cardtel ) = q$
           cardtel = cardtel + 1
         end if
     wend
   close #in
 end if
wait
[btn.look]
 if cardtel = 0 then
   notice "REMARK" + chr$( 13 ) _
        + "there was no aventilo file loaded ." + chr$( 13 ) _
        + "or there are no warnings ."
 else
   for i = 0 to cardtel
     notice "warning number : " ; i ; "    of : " ; cardtel ; " ." ; chr$( 13 ) _
          + "inputed : " ; word$( card$( i ) , 1 , "|" ) + chr$( 13 ) _
          + "date : " ; word$( card$( i ) , 2 , "|" ) + chr$( 13 ) _
          + "time : " ; word$( card$( i ) , 3 , "|" ) + chr$( 13 ) _
          + "warning = " ; word$( card$( i ) , 4 , "|" )
   next i
 end if
wait
function dato.tago( dato$ )
 dato.tago = val( word$( dato$ , 2 ) )
end function
function dato.monato( dato$ )
 monato$ = lower$( word$( dato$ , 1 ) )
 q$ = "jan feb mrt apr may jun jul aug sep okt nov dec"
 uit = 0
 for i = 1 to 12
   if monato$ = word$( q$ , i ) then uit = i
 next i
 dato.monato = uit
end function
function dato.jaro( dato$ )
 dato.jaro = val( word$( dato$ , 3 ) )
end function
function secondoj( u , m , s )
 secondoj = u * 3600 + m * 60 + s
end if
function tagoj( day , month , year )
   year = year - 1
   month = month + 12
   uit = int( 2.6001 * ( month - 2 ) - 0.2 ) _
   + day + year + int( year / 4 ) - 3
   tagoj = uit
end function