Annuncio

Annuncio


Pagina 5 di 5 primaprima ... 3 4 5
Visualizzazione da 41 a 46 di 46
Discussione: Sinergy - creiamo un' app Android per una comunità virtuale di autoaiuto
  1. #41
     Colonnello
     
    Premium: 52º 170p.
    GT/GS/Vitt: 19/4/3
    Forum Utente accreditato Challenge
    Dal: giugno 2003
    Da: Varese
    Prov: VA - Varese
    Messaggi: 10 870
    Profilo: 5117 visite
    Gradimento: 84
    8.2

    Re: Sinergy - creiamo un' app Android per una comunità virtuale di autoaiuto

    Veniamo alla parte client. Per ora non ci preoccupiamo della parte grafica, lo faremo in futuro.

    sinergy.bas

    rem By Stefano Cimatti

    Menu:

    print "1 - Iscriviti alla comunità Sinergy"
    print
    print "2 - Visualizza le richieste di aiuto"
    print
    print "3 - Visualizza le richieste di aiuto entro 10 km da te"
    print
    print "4 - Visualizza le richieste di aiuto entro 1 km da te"
    print
    print "5 - Fai una richiesta di aiuto"
    PRINT
    PRINT
    print "Fai la tua scelta"

    Attesa:
    inkey$ k
    if (k<1 or k>5) then goto Attesa:
    if (k=1) then gosub Iscrizione
    if (k=2) then d$=0:gosub Info
    if (k=3) then d$=10:gosub Info
    if (k=4) then d$=1:gosub Info
    if (k=5) then gosub Richiesta


    Iscrizione:
    cls
    input "Con quale nickname vuoi iscriverti", a$
    print
    input "Scegli una passord"; b$
    sito$="http://ilmioserver/sinergy/sinergy-nuovo.utente.php?nome="+a$+"&pass="+b$
    BYTE .OPEN r, fn, sito$
    Byte.read.buffer fn, 50, risposta$
    Byte.close fn
    popup risposta$, 0, 0, 1
    if (mid$(risposta$,1,29,8)="successo" then gosub salvauser
    return

    salvauser:
    a$=a$+space$(20-len($a$))
    b$=b$+space$(10-len($b$))
    Byte.open w, dati, "dati-sinergy.txt"
    Byte.write.buffer dati, a$
    Byte.write.buffer dati, b$
    byte.close dati
    return

    Info:
    reurn

    Richiesta:
    return
    Giudicare preclude la possibilità di conoscere.
    "La mia libertà finisce dove comincia la vostra." - Martin Luther King

    Non abbandonerò alcuna partita, per alcun motivo, nemmeno subito dopo lo start. Questa comunicazione è da considerarsi sostitutiva di una analoga comunicazione pre-partita.

    http://forum.egcommunity.it/showthre...06#post1124806
    Quando diamo un giudizio assoluto (non limitato ad un fatto) su una persona, stiamo in realtà esprimendo il giudizio che abbiamo di noi stessi.
  2. #42
     Colonnello
     
    Premium: 52º 170p.
    GT/GS/Vitt: 19/4/3
    Forum Utente accreditato Challenge
    Dal: giugno 2003
    Da: Varese
    Prov: VA - Varese
    Messaggi: 10 870
    Profilo: 5117 visite
    Gradimento: 84
    8.2

    Re: Sinergy - creiamo un' app Android per una comunità virtuale di autoaiuto

    Quote puma67 ha scritto: Visualizza il messaggio
    si va beh...ma anche tu ci metti del tuo...se ci mettessimo con la clava e i codicilli a caccia di tutti quelli che fanno le battute saremmo un paese di querelati e la querela diventerebbe uno strumento di follia, ogni tanto occorre pure non prendersi sul serio. Sei stato oggetto ( è vero...) di giudizi peggiori, ma la battuta che ho letto ieri sera era una roba da mercato dell'usato. Fortebraccio si sta imborghesendo, non è più quello di una volta, dov'è che ci sono i campi di rieducazione ancora?
    Ogni tanto occorre non prendersi sul serio, ma ogni tanto anche certe persone dovrebbero rendersi conto della totale inutilità dei loro interventi.

    Non mi sta bene che una persona con dei grossi problemi della sfera sessuale esponga delle sue fantasie e poi le attribuisca a me, con l'aggravante che le persone di cui sopra per ignoranza o malafede gli vadano dietro.

    Non mi stanno bene i frequenti richiami di altre discussioni, ad esempio quella sulle probabilità di originare la divina commedia casualmente, che un utente ignorante o in malafede non riesce a comprendere o finge di non comprendere.

    Non mi stanno bene i frequenti interventi solo per sfoggiare un giudizio negativo su qualunque cosa scriva, quasi sempre pregno di ignoranza e/o malafede.

    Ecc.

    Non mi piace questo modo di "socializzare", è tipico di una società retrograda ed ignorante, fatta di persone che rispettano solo se stesse e vedono in chi ha una idea diversa un nemico da sconfiggere.

    Per chiarire, qui il punto non è la battuta, ma la persecuzione vuota, priva di qualunque contenuto, e del tutto OT. A te piacerà molto, io invece la trovo l'emblema di una società povera culturalmente ed umanamente.
  3. #43
     T. Colonnello
     
    Forum Utente accreditato Challenge
    Dal: maggio 2006
    Da: Lovere
    Prov: BG - Bergamo
    Messaggi: 6 415
    Profilo: 5076 visite
    Gradimento: 151
    8.9

    Re: Sinergy - creiamo un' app Android per una comunità virtuale di autoaiuto

    Quote paperinikredstar ha scritto: Visualizza il messaggio
    Per chiarire, qui il punto non è la battuta, ma la persecuzione vuota, priva di qualunque contenuto, e del tutto OT. A te piacerà molto, io invece la trovo l'emblema di una società povera culturalmente ed umanamente.
    Al tuo posto, non sarei così pessimista.

    Fortunatamente, per uno che scrive battute vuote, prive di spirito e di contenuto, c'è qualcun altro che grazie ai propri studi, al proprio lavoro, alla costante attività scientifica ed intellettuale, contribuisce seriamente al progresso culturale dell'umanità.

    Grazie ancora Valerio!


    Piove sui giusti e sugli ingiusti
    .
  4. #44
     Generale CSM
     SuperModerator
    Forum Utente accreditato Challenge
    Dal: febbraio 2008
    Messaggi: 10 368
    Profilo: 4623 visite
    Gradimento: 119
    8.9

    Re: Sinergy - creiamo un' app Android per una comunità virtuale di autoaiuto

    Quote fortebraccio ha scritto: Visualizza il messaggio
    Al tuo posto, non sarei così pessimista.

    Fortunatamente, per uno che scrive battute vuote, prive di spirito e di contenuto, c'è qualcun altro che grazie ai propri studi, al proprio lavoro, alla costante attività scientifica ed intellettuale, contribuisce seriamente al progresso culturale dell'umanità.

    Grazie ancora Valerio!
  5. #45
     Colonnello
     
    Premium: 52º 170p.
    GT/GS/Vitt: 19/4/3
    Forum Utente accreditato Challenge
    Dal: giugno 2003
    Da: Varese
    Prov: VA - Varese
    Messaggi: 10 870
    Profilo: 5117 visite
    Gradimento: 84
    8.2

    Re: Sinergy - creiamo un' app Android per una comunità virtuale di autoaiuto

    Ecco una versione grafica del lato client che può, almeno per la schermata iniziale, definirsi definitiva.

    L' ìscrizione è stata collaudata. Toccando il primo pulsante è effettivamente possibile iscriversi. Rientrando successivamente nel programma compare un "Bentornato tuonickname".

    Sto lavorando sulla richiesta (per ora senza mappa, ma inserendo i dati da pulsanti e/o da tastiera).

    Sarebbe carino collaudarlo insieme, se l' Highlander è favorevole.


    codice:
    rem Sinergy - 26-1-2014
    rem By Stefano Cimatti
    rem ottimizzato per schermi 800 x 480
    
    gosub init
    gosub schermouno
    lista:
    do
    gr.touch touched, x, y
    until touched
    do
    gr.touch touched, x, y
    until !touched
    if (x>bordo & X<(bordo+base) & y>bordo & y<(bordo+altezza)) then gosub iscrizione
    if (x>bordo & X<(bordo+base) & y>(bordo*2+altezza) & y<(bordo*2+altezza*2)) then gosub info
    if (x>bordo & X<(bordo+base) & y>(bordo*3+altezza*2) & y<(bordo*3+altezza*3)) then gosub infodieci
    if (x>bordo & X<(bordo+base) & y>(bordo*4+altezza*3) & y<(bordo*4+altezza*4)) then gosub infouno
    if (x>bordo & X<(bordo+base) & y>(bordo*5+altezza*4) & y<(bordo*5+altezza*5)) then gosub richiesta
    if (x>bordo & x<(bordo+base) & y>(bordo*6+altezza*5) & y<(bordo*6+altezza*6)) then goto esci
    goto lista
    
    iscrizione:
    if stato>0 then return
    cls
    input "Con quale nickname vuoi iscriverti?", a$
    print
    input "Scegli una password", b$
    sito$="http://ilmiosito/sinergy/sinergy.nuovo-utente.php?nome="+a$+"&pass="+b$
    BYTE .OPEN r, fn, sito$
    Byte.read.buffer fn, 54, risposta$
    Byte.close fn
    popup risposta$, 0, 0, 1
    if (mid$(risposta$,47,8))="successo" then gosub salvauser
    return
    
    salvauser:
    for conta=len(a$) to 19
    a$=a$+" "
    next conta
    for conta=len(b$) to 9
    b$=b$+" "
    next conta
    Byte.open w, dati, "dati-sinergy.txt"
    Byte.write.buffer dati, a$
    Byte.write.buffer dati, b$
    byte.close dati
    nome$=a$
    pw$=b$
    return
    
    info:
    distanza=0
    gosub informazioni
    return
    
    infodieci:
    distanza=10
    gosub informazioni
    return
    
    infouno:
    distanza=1
    gosub informazioni
    return
    
    informazioni:
    if stato<1 then return
    return
    
    richiesta:
    if stato<1 then return
    gosub schermodue
    listarichieste:
    sr=0
    do
    gr.touch touched, x, y
    until touched
    do
    gr.touch touched, x, y
    until !touched
    if (x>bordo & X<(bordo+base) & y>(bordo*2+altezza) & y<(bordo*2+altezza*2)) then gosub ricpassaggio
    if (x>bordo & X<(bordo+base) & y>(bordo*3+altezza*2) & y<(bordo*3+altezza*3)) then gosub ricconsegna
    if (x>bordo & X<(bordo+base) & y>(bordo*4+altezza*3) & y<(bordo*4+altezza*4)) then gosub ricmeeting
    if (x>bordo & X<(bordo+base) & y>(bordo*5+altezza*4) & y<(bordo*5+altezza*5)) then gosub ricaltro
    if (x>bordo & x<(bordo+base) & y>(bordo*6+altezza*5) & y<(bordo*6+altezza*6)) then gosub annulla
    if sr=1 then return
    goto listarichieste
    return
    
    init:
    File.exists stato, "dati-sinergy.txt"
    if stato>0 then gosub account
    gr.open 255,255,255,255
    pause 1000
    Gr.screen larghezzaschermo, altezzaschermo
    base=larghezzaschermo/1.57
    altezza=altezzaschermo/7.5
    testo=altezza/2
    bordo=altezza/10*2
    return
    
    account:
    Byte.open r, dati, "dati-sinergy.txt"
    Byte.read.buffer dati, 30, stringa$
    Byte.close dati
    nome$=left$(stringa$,20)
    pw$=right$(stringa$,10)
    return
    
    esci:
    gr.close
    popup "Arrivederci", 0, 0, 1
    end "Arrivederci"
    
    iscritto:
    gr.color 255,0,0,0,1
    gr.text.draw tuno,bordo*2,bordo+(altezza/2)+(altezza/5),"Bentornato "+nome$
    return
    
    ricpassaggio:
    persone=0
    gosub schermotre
    do
    gr.touch touched, x, y
    until touched
    do
    gr.touch touched, x, y
    until !touched
    if (x>bordo & X<(bordo+base) & y>(bordo*2+altezza) & y<(bordo*2+altezza*2)) then persone=1
    if (x>bordo & X<(bordo+base) & y>(bordo*3+altezza*2) & y<(bordo*3+altezza*3)) then persone=2
    if (x>bordo & X<(bordo+base) & y>(bordo*4+altezza*3) & y<(bordo*4+altezza*4)) then persone=3
    if (x>bordo & X<(bordo+base) & y>(bordo*5+altezza*4) & y<(bordo*5+altezza*5)) then persone=4
    if (x>bordo & x<(bordo+base) & y>(bordo*6+altezza*5) & y<(bordo*6+altezza*6)) then persone=5
    if persone=0 then goto ricpassaggio
    input "Da dove parti (Città - via - numero civico)?", partenza$
    input "Dove vuoi andare (Città - via - numero civico)?", arrivo$
    input "Che giorno vuoi partire? (gg-mm-aaaa)", giorno$
    input "A che ora vuoi partire? (hh:mm)", ora$
    gr.cls
    gr.color 255,0,0,0,1
    persone$=str$(persone)
    if persone=5 then persone$=" più di quattro persone"
    gr.text.draw tconfermauno,bordo*2,bordo+(altezza/2)+(altezza/5),"Passaggio per" + persone$ + " persone da "+ partenza$ + " a " + arrivo$ + "\nil giorno " + giorno $ + " alle " + ora$
    gosub schermoconferma
    confermapassaggio=0
    attesaconfermapassaggio:
    do
    gr.touch touched, x, y
    until touched
    do
    gr.touch touched, x, y
    until !touched
    if (x>(bordo*3) & X<(bordo*3+larghezzaschermo/3) & y>(bordo*2+altezza*2) & y<(bordo*2+altezza*4)) then confermapassaggio=1
    if (x>(larghezzaschermo-bordo*3-larghezzaschermo/3) & X<(larghezzaschermo-bordo*3) & y>(bordo*2+altezza*2) & y<(bordo*2+altezza*4)) then confermapassaggio=2
    if (confermapassaggio=0) then goto attesaconfermapassaggio
    if confermapassaggio=1 then popup "Richiesta passaggio anullata",0,0,1 else gosub registrapassaggio
    gosub schermouno
    sr=1
    return
    
    ricconsegna:
    popup "Consegna richiesta",0,0,1
    gosub schermouno
    sr=1
    return
    
    ricmeeting:
    popup "Meeting richiesto",0,0,1
    gosub schermouno
    sr=1
    return
    
    ricaltro:
    popup "Richiesta effettuata",0,0,1
    gosub schermouno
    sr=1
    return
    
    annulla:
    popup "Richiesta annullata",0,0,1
    gosub schermouno
    sr=1
    return
    
    schermouno:
    gr.cls
    gr.orientation 0
    Gr.text.size testo
    Gr.text.bold 1
    gr.color 255,255,0,0,1
    gr.text.draw tzero,bordo+base+(base/5),bordo*6+altezza*5+(altezza/2)+(altezza/5),"Sinergy"
    gr.color 255,0,0,0,1
    if stato<1 then 
    gr.rect runo, bordo,bordo,bordo+base,bordo+altezza
    endif
    gr.color 255,255,255,255,1
    if stato<1 then gr.text.draw tuno,bordo*2,bordo+(altezza/2)+(altezza/5),"Iscrizione a Sinergy" else gosub iscritto
    gr.color 255,0,0,255,1
    gr.rect rdue,bordo,bordo*2+altezza,bordo+base,bordo*2+altezza*2
    gr.color 255,255,0,0,1
    gr.text.draw tdue,bordo*2,bordo*2+altezza+(altezza/2)+(altezza/5),"Visualizza tutte le richieste"
    gr.color 255,0,255,0, 1
    gr.rect rtre,bordo,bordo*3+altezza*2,bordo+base,bordo*3+altezza*3
    gr.color 255,100,180,50,1
    gr.rect rquattro, bordo,bordo*4+altezza*3,bordo+base,bordo*4+altezza*4
    gr.color 255,255,0,0,1
    gr.rect rcinque,bordo,bordo*5+altezza*4,bordo+base,bordo*5+altezza*5
    gr.color 255,0,0,255,1
    gr.text.draw tcinque,bordo*2,bordo*5+altezza*4+(altezza/2)+(altezza/5),"Fai una richiesta"
    gr.color 255,150,50,0,1
    gr.rect rsei,bordo,bordo*6+altezza*5,bordo+base,bordo*6+altezza*6
    gr.color 255,0,0,255,1
    gr.text.draw ttre,bordo*2,bordo*3+altezza*2+(altezza/2)+(altezza/5),"Visualizza richieste entro 10 Km"
    gr.text.draw tquattro,bordo*2,bordo*4+altezza*3+(altezza/2)+(altezza/5),"Visualizza richieste entro 1 Km"
    gr.text.draw tsei,bordo*2,bordo*6+altezza*5+(altezza/2)+(altezza/5),"Uscita"
    gr.render
    gr.front 255
    return
    
    schermodue:
    gr.cls
    gr.color 255,255,0,0,1
    gr.text.draw rictzero,bordo+base+(base/5),bordo*6+altezza*5+(altezza/2)+(altezza/5),"Sinergy"
    gr.rect ricrdue,bordo,bordo*2+altezza,bordo+base,bordo*2+altezza*2
    gr.color 255,0,0,255,1
    gr.text.draw rictdue,bordo*2,bordo*2+altezza+(altezza/2)+(altezza/5),"Chiedi un passaggio in auto"
    gr.color 255,150,50,0,1
    gr.rect ricrsei,bordo,bordo*6+altezza*5,bordo+base,bordo*6+altezza*6
    gr.color 255,0,255,0, 1
    gr.rect ricrtre,bordo,bordo*3+altezza*2,bordo+base,bordo*3+altezza*3
    gr.color 255,100,180,50,1
    gr.rect ricrquattro, bordo,bordo*4+altezza*3,bordo+base,bordo*4+altezza*4
    gr.color 255,255,0,0,1
    gr.rect ricrcinque,bordo,bordo*5+altezza*4,bordo+base,bordo*5+altezza*5
    gr.color 255,0,0,255,1
    gr.text.draw rictcinque,bordo*2,bordo*5+altezza*4+(altezza/2)+(altezza/5),"Altro"
    gr.color 255,0,0,255,1
    gr.text.draw ricttre,bordo*2,bordo*3+altezza*2+(altezza/2)+(altezza/5),"Chiedi una consegna"
    gr.text.draw rictquattro,bordo*2,bordo*4+altezza*3+(altezza/2)+(altezza/5),"Chiedi compagnia per..."
    gr.text.draw rictsei,bordo*2,bordo*6+altezza*5+(altezza/2)+(altezza/5),"Annulla"
    gosub iscritto
    gr.render
    return
    
    schermotre:
    gr.cls
    gr.color 255,255,0,0,1
    gr.text.draw rictretzero,bordo+base+(base/5),bordo*6+altezza*5+(altezza/2)+(altezza/5),"Sinergy"
    gr.rect rictrerdue,bordo,bordo*2+altezza,bordo+base,bordo*2+altezza*2
    gr.color 255,0,0,255,1
    gr.text.draw rictretdue,bordo*2,bordo*2+altezza+(altezza/2)+(altezza/5),"Per una persona"
    gr.color 255,150,50,0,1
    gr.rect rictrersei,bordo,bordo*6+altezza*5,bordo+base,bordo*6+altezza*6
    gr.color 255,0,255,0, 1
    gr.rect rictrertre,bordo,bordo*3+altezza*2,bordo+base,bordo*3+altezza*3
    gr.color 255,100,180,50,1
    gr.rect rictrerquattro, bordo,bordo*4+altezza*3,bordo+base,bordo*4+altezza*4
    gr.color 255,255,0,0,1
    gr.rect rictrercinque,bordo,bordo*5+altezza*4,bordo+base,bordo*5+altezza*5
    gr.color 255,0,0,255,1
    gr.text.draw rictretcinque,bordo*2,bordo*5+altezza*4+(altezza/2)+(altezza/5),"Per quattro persone"
    gr.color 255,0,0,255,1
    gr.text.draw rictrettre,bordo*2,bordo*3+altezza*2+(altezza/2)+(altezza/5),"Per due persone"
    gr.text.draw rictretquattro,bordo*2,bordo*4+altezza*3+(altezza/2)+(altezza/5),"Per tre persone"
    gr.text.draw rictretsei,bordo*2,bordo*6+altezza*5+(altezza/2)+(altezza/5),"Per più di 4 persone"
    gosub iscritto
    gr.render
    return
    
    schermoconferma:
    Gr.text.bold 1
    gr.color 255,0,0,255,1
    gr.rect no,bordo*3,bordo*2+altezza*2,bordo*3+larghezzaschermo/3,bordo*2+altezza*4
    gr.color 255,255,0,0, 1
    gr.rect si,larghezzaschermo-bordo*3-larghezzaschermo/3,bordo*2+altezza*2,larghezzaschermo-bordo*3,bordo*2+altezza*4
    gr.text.draw vabene, lsrghezzaschermo-bordo-larghezzaschermo/3+bordo*2,altezza*2+altezza+bordo, "OK"
    gr.color 255,0,0,255,1
    gr.text.draw nonvabene, bordo*3+bordo*2,altezza*2+altezza+bordo, "Annulla"
    gr.render
    return
    
    registrapassaggio:
    popup "Passaggio richiesto",0,0,1
    return
  6. #46
     Colonnello
     
    Premium: 52º 170p.
    GT/GS/Vitt: 19/4/3
    Forum Utente accreditato Challenge
    Dal: giugno 2003
    Da: Varese
    Prov: VA - Varese
    Messaggi: 10 870
    Profilo: 5117 visite
    Gradimento: 84
    8.2

    Re: Sinergy - creiamo un' app Android per una comunità virtuale di autoaiuto

    Ecco la versione corretta dello script per l'iscrizione, lato server.

    codice:
    <HTML>
    <BODY>
    
    <?
    /* By Stefano Cimatti */
    $ok=1;
    $username=$_GET['nome'];
    if (strlen($username)<3) {
    $ok=0;
    echo "Errore: username troppo corta";
    }
    if (strlen($username)>20) $username=substr($username,0,20);
    for ($j=strlen($username);$j<20;$j++) $username=$username." ";
    
    $password=$_GET['pass'];
    if (strlen($password)<6) {
    $ok=0;
    echo "Errore: password troppo corta";
    }
    if (strlen($password)>10) $password=substr($password,0,10);
    for ($j=strlen($password);$j<10;$j++) $password=$password." ";
    
    if ($ok==1) {
    $f=fopen("../cgi-bin/sinergy/sinergy-utenti.txt","r");
    $record=fread($f,30);
    for ($trovato=0;!feof($f) && $trovato==0;$record=fread($f,30)) {
    if (substr($record,0,20)==$username) $trovato=1;
    }
    fclose($f);
    if ($trovato==1) {
    echo "Errore: esiste già un utente con questo nickname";
    $ok=0;
    }
    }
    
    if ($ok==1) {
    $f=fopen("../cgi-bin/sinergy/sinergy-utenti.txt","a");
    fputs($f,$username.$password);
    fclose($f);
    echo "L'iscrizione è avvenuta con successo\n Benvenuto/a ".$username." !!!!!";
    }
    ?>
    </BODY>
    </HTML>

Pagina 5 di 5 primaprima ... 3 4 5

Navigazione

Tag per questa discussione