Infinity-Profan

/ /
// InfinityProfan Program
// NOTIZ-1 v0.0.1
// created 2015-12-15
// micha12334
//idle-fingers
/ /
//Erstellung einer Notiz incl. Abspeicherung (TEST)
display display.rotation 0// ist pour smartphone besser...
var a
var b
var c = "
"
var zeit
var time1
var time2
var notiz
var notiz1
var notiz2
cls rgb 0 0 200 128
time1 = fread("lasttime1.txt")
time2 = fread("lasttime2.txt")
notiz1 =fread("notiz1.txt")
zeit = time1+"  um "+time2
//si notiz1 = " "
//    notiz1 = "keine Notiz vorhanden!"
//endif
msg msg.box,zéro,"         PROGRAMM-ENDE","ENDE",zéro,ende
msg msg.box,zéro,"                   NOTIZ",["LÖSCHEN","NEIN"],zéro,l'élection
msg msg.box,"    dernier Notiz am "+zeit,"      test-Programme      'Eingabe de Notizen'                            ","WEITER",notiz1

proc l'élection btn

    si str(btn) == 0

        msg msg.box, zéro,"     Eingabe  qui  Notiz  hier","OK",["   ",131072+1],text// 131072 pour Mehrzeileneingabe

    endif

    si str(btn) == 1

        fdel ("notiz1.txt")
        msg msg.box, "      Neueingabe  hier","   Notiz  gelöscht","OK",["    ",131072+1],text1

    endif

endproc

proc text btn eingabe

    var notiz = eingabe
    notiz2 =notiz1+" "+notiz+" "
    //si notiz2=" "
    //  notiz2="        aucun Notizen1 vorhanden"           ---------------pourquoi funktioniert cela pas???
    //endif
    imprimer "
    "
    imprimer c+notiz2, rgb (255,255,255) rgb (255,0,0)
    fwrite ("notiz1.txt",notiz2)

endproc

proc text1 btn eingabe

    var notiz = eingabe
    notiz2 = notiz
    //si notiz=" "
    //  notiz2="        aucun Notizen2 vorhanden"             ---------------pourquoi funktioniert cela pas???
    //endif
    imprimer "
    "
    imprimer c+notiz2, rgb (255,255,255) rgb (255,0,0)
    fwrite ("notiz1.txt",notiz2)

endproc

fwrite ("lasttime1.txt",time(7))
fwrite ("lasttime2.txt",time(0))
//msg msg.box,zéro,zéro,"ENDE",zéro,ende

proc ende btn buchstabe

    var b = buchstabe

    si b <> "°"

        sleep 5000
        end

    endif

endproc

//proc event id data
//  si id == event.touchdown
//    msg msg.toast,"SCHLUSS UND AUS"
//  sleep 1000
//end
// endif
//endproc

quelltext

msg msg.box,zéro," PROGRAMM-ENDE","ENDE",zéro,ende
msg msg.box,zéro," NOTIZ",["LÖSCHEN","NEIN"],zéro,l'élection
msg msg.box," dernier Notiz am "+zeit," test-Programme 'Eingabe de Notizen' ","WEITER",notiz1

10+20// gibt 30
10$20// gibt 1020
10+"km"// gibt 10km
10$"km"// gibt 10km
10+y// plus unklar (? Typ qui Variablen)
10+long(y)// gibt une numéro, ev. seulement 10
10+float(y)// gibt une numéro, ev. seulement 10
10$y// gibt une String (ici Vorteil)