Infinity-Profan

/ /
// InfinityProfan Program
// NOTIZ-1 v0.0.1
// created 2015-12-15
// micha12334
//idle-fingers
/ /
//Erstellung uno Notiz incl. Abspeicherung (TEST)
display display.rotation 0// es para smartphone mejor...
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+"  en "+time2
//if notiz1 = " "
//    notiz1 = "keine Notiz disponible!"
//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 al "+zeit,"      test-Programa      'Eingabe de Notizen'                            ","WEITER",notiz1

proc wahl btn

    if str(btn) == 0

        msg msg.box, null,"     Eingabe  el  Notiz  hier","OK",["   ",131072+1],texto// 131072 para Mehrzeileneingabe

    endif

    if str(btn) == 1

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

    endif

ENDPROC

proc texto btn eingabe

    var notiz = eingabe
    notiz2 =notiz1+" "+notiz+" "
    //if notiz2=" "
    //  notiz2="        no Notizen1 vorhanden"           ---------------por qué funktioniert el no???
    //endif
    imprimir "
    "
    imprimir c+notiz2, rgb (255,255,255) rgb (255,0,0)
    fwrite ("notiz1.txt",notiz2)

ENDPROC

proc texto1 btn eingabe

    var notiz = eingabe
    notiz2 = notiz
    //if notiz=" "
    //  notiz2="        no Notizen2 vorhanden"             ---------------por qué funktioniert el no???
    //endif
    imprimir "
    "
    imprimir 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 al "+zeit," test-Programa 'Eingabe de Notizen' ","WEITER",notiz1

10+20// son 30
10$20// son 1020
10+"km"// son 10km
10$"km"// son 10km
10+y// más unklar (? Typ el Variables)
10+long(y)// son una Zahl, ev. sólo 10
10+float(y)// son una Zahl, ev. sólo 10
10$y// son una String (hier Vorteil)