NoPaste Gambas

[ealmuno]

spettacolare, ora mostra anche gli end if e il for....

[Golia]

Voglio provare anch'io  

Codice: gambas [Seleziona]

PUBLIC SUB riempigrid()
    DIM sql AS String 'ok
DIM i AS Integer

  GridView1.Clear        
            
           sql = "SELECT * FROM clienti"
           sql &= " WHERE (cognome  LIKE '%" & tbricerca.Text & "%'"     
           sql &= " OR nome LIKE '%" & tbricerca.Text & "%'"             
           sql &= " OR citta LIKE '%" & tbricerca.Text & "%')"             
           IF nsede = "1" THEN
           sql &= " AND dasede = 1"
           ENDIF
           IF nsede = "2" THEN
           sql &= " AND dasede = 2"
           ENDIF  
           sql &= " ORDER BY cognome"
                     
           MyRS = MODMain.$conn.Exec(sql)
                     lcont.Text = "Clienti N° " & MyRS.Count
          IF MyRS.Available = TRUE THEN    
                                           
                GridView1.Mode = Select.multiple
                'imposto le intestazioni solo orizzontali
                GridView1.Header = GridView1.Horizontal                
                GridView1.Columns.Count = 1               'imposta il numero di colonne della GridView1 
                GridView1.Columns[0].Text = "Clienti"                              
                GridView1.Rows.Count = MyRS.Count         'imposta il numero di record in base al numero di risuktati presenti
                i = 0
                FOR EACH MyRS                                   'inizio del ciclo

                  GridView1[i, 0].Text = MyRS!cognome & " " & MyRS!nome & " (" & MyRS!citta & ")"

                  INC i  
                NEXT
          ELSE                                      
                  GridView1.Columns.Count = 1
                  GridView1.Rows.Count = 1
                  GridView1[0, 0].Text = "Nessun dato"  'viene visualizzata la scritta "nessun dato"
          ENDIF 
  CATCH  
  Message.Error(Error.Text)   
END

Molto bello, finalmente

Se posso suggerire, e se si può fare, i testi tra le " " con colore magenta; e i testi dopo ' in grigio, proprio come gambas  
Bravo Leo

...lo so..l'indentazione

[leo72]

Io ho messo "Visuale" come schema cromatico ed i commenti me li mette in verde... ecco perché mi pareva uno schema normale XD.

Lo schema con i commenti in grigio è "Zaffiro", che ha anche i numeri in rosso e le stringhe in magenta.
Provvederò.

[Pixel]

Io ho messo "Visuale" come schema cromatico ed i commenti me li mette in verde... ecco perché mi pareva uno schema normale XD.

Lo schema con i commenti in grigio è "Zaffiro", che ha anche i numeri in rosso e le stringhe in magenta.
Provvederò.

E bravo il nostro Leo
Boh.. i colori mi sembrano giusti, io allora che uso lo sfondo nero con i caratteri verdi?

[leo72]

Io lo sfondo nero coi caratteri verdi ce l'ho nel terminale, perché mi ricordano i PC anni '80  (anche se poi io ero, a dir la verità, avevo un monitor a fosfori bianchi: i monitor a fosfori verdi ce l'avevano sugli Olivetti che usavo a scuola al laboratorio di informatica ).

Cmq ho risistemato i colori secondo lo schema "zaffiro". E' meglio o peggio?

[Pixel]

Io lo sfondo nero coi caratteri verdi ce l'ho nel terminale, perché mi ricordano i PC anni '80  (anche se poi io ero, a dir la verità, avevo un monitor a fosfori bianchi: i monitor a fosfori verdi ce l'avevano sugli Olivetti che usavo a scuola al laboratorio di informatica ).

Ehehe.. il fondo però credo di averlo toccato io quando lavoravo nel negozio di PC: una Amiga500 collegata ad un monitor a fosfori arancioni.... inguardabile

Cmq ho risistemato i colori secondo lo schema "zaffiro". E' meglio o peggio?

Mah.. mi piaceva di più prima però attendiamo i pareri degli altri 

[ealmuno]

usando questo tema io mi trovo meglio... ma mi adatto facilmente

Ma usavate ancora le schede perforate oppure no?

[leo72]

Ma quali schede perforate!
Per chi ci hai preso! 

Avevamo i mitici floppy da 5"1/4 
360 KB di morbidezza!

[Pixel]

usando questo tema io mi trovo meglio... ma mi adatto facilmente

Ma usavate ancora le schede perforate oppure no?

Un'altra battuta del genere e ti banno a vita

Avevamo i mitici floppy da 5"1/4 
360 KB di morbidezza!

Che diventavano 720 con un paio di forbici o con la famosa "taglierina" per chi poteva permettersela 

[ealmuno]

Avevamo i mitici floppy da 5"1/4 
360 KB di morbidezza!

io ho fatto appena a tempo a vedere la morte dei floppy a 3,14 pollici

Ma quali schede perforate!
Per chi ci hai preso! 

[Golia]

A me piace così grazie

..continuo il discorso "preistorico"
Ricordo quando ho comprato il mio 386 con disco da 80 MB!!!
Un mio amico mi ha detto...che te ne fai di tutta quella memoria!!!

[milio]

Codice: gambas [Seleziona]

PRIVATE FUNCTION Prova()
  PRINT "Prova nuovo codice"
END

Spettacolare assai!!!!

Penso che questo farà piacere a Milio che, poverino, ogni volta si colorava il testo dei codici a mano!

Mi fa MOOLTO piacere 

Leo bisognerebbe farti un monumento 

Io comunque preferisco il Visuale tra i temi standard

allego mio tema personale aanche mio tema personale nel caso qualcuno lo trovi carino:)