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 für 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
//if notiz1 = " "
//    notiz1 = "keine Notiz vorhanden!"
//endif
msg msg.box,null,"         PROGRAMM-ENDE","ENDE",null,ende
msg msg.box,null,"                   NOTIZ",["LÖSCHEN","NEIN"],null,wahl
msg msg.box,"    letzte Notiz am "+zeit,"      test-Programm      'Eingabe von Notizen'                            ","WEITER",notiz1

proc wahl btn

    if str(btn) == 0

        msg msg.box, null,"     Eingabe  der  Notiz  hier","OK",["   ",131072+1],text// 131072 für Mehrzeileneingabe

    endif

    if 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+" "
    //if notiz2=" "
    //  notiz2="        keine Notizen1 vorhanden"           ---------------warum funktioniert das nicht???
    //endif
    print "
    "
    print c+notiz2, rgb (255,255,255) rgb (255,0,0)
    fwrite ("notiz1.txt",notiz2)

endproc

proc text1 btn eingabe

    var notiz = eingabe
    notiz2 = notiz
    //if notiz=" "
    //  notiz2="        keine Notizen2 vorhanden"             ---------------warum funktioniert das nicht???
    //endif
    print "
    "
    print 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,null,null,"ENDE",null,ende

proc ende btn buchstabe

    var b = buchstabe

    if b <> "°"

        sleep 5000
        end

    endif

endproc

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

quelltext

msg msg.box,null," PROGRAMM-ENDE","ENDE",null,ende
msg msg.box,null," NOTIZ",["LÖSCHEN","NEIN"],null,wahl
msg msg.box," letzte Notiz am "+zeit," test-Programm 'Eingabe von Notizen' ","WEITER",notiz1

10+20// gibt 30
10$20// gibt 1020
10+"km"// gibt 10km
10$"km"// gibt 10km
10+y// weiter unklar (? Typ der Variablen)
10+long(y)// gibt eine Zahl, ev. nur 10
10+float(y)// gibt eine Zahl, ev. nur 10
10$y// gibt einen String (hier Vorteil)