QUESTO (http://nopaste.hybris-lang.org/new) ha anche la scelta di GAMBAS, guarda se può andare bene.
Scusate l'ignoranza. What's NoPaste ?
Dalla breve nota di Ceskho, capisco che dovrebbe contenere in dettaglio il formato corretto di ciascuna istruzione/funzione disponibile nel linguaggio. Ma, se ho capito bene, sarebbe disponibile solo in lettura, o sarebbe, imprementabile come il wiki, dove, fra l'altro, già esiste un approccio del genere?
Ciao a tutti.
è molto più comodo che lo faccia in automatico....Indubbiamente, ma anche noi di Ubuntu-it usiamo un servizio esterno.
Indubbiamente, ma anche noi di Ubuntu-it usiamo un servizio esterno.Davvero??? e quale? Non lo ho mai notato
Attendiamo che Leo si esprima :D
Davvero??? e quale? Non lo ho mai notatoProbabilmente non lo hai mai notato perchè lo usano principalmente gli editori del wiki ed i traduttori e non è presente come link o bottone all'interno del portale.
PUBLIC SUB Button2_Click()
DIM i AS Integer
Testo = NEW TextArea(TabStrip1)
Testo.Text = "1"
Testo.Name = Testo.Text
Testo.X = 50
Testo.Y = 50
Testi.Add(Testo)
TabStrip1.Count += 1
TabStrip1[1].Text = "Tab2"
TabStrip1.Index = 1
Testo = NEW TextArea(TabStrip1)
Testo.Text = "2"
Testo.Name = Testo.Text
Testo.X = 50
Testo.Y = 50
Testi.Add(Testo)
END
PUBLIC SUB Button3_Click()
DIM hObject1, hObject2 AS Object
TabStrip1.Index = 1
FOR EACH hObject1 IN ME.Children
IF Lower(Object.Type(hObject1)) = "tabstrip" THEN
FOR EACH hObject2 IN hObject1.Children
IF hObject2.name = "2" THEN
hObject2.delete
ENDIF
NEXT
ENDIF
NEXT
WAIT '-- questo non va tolto perché devi dare tempo al form di cancellare materialmente l'oggetto
TabStrip1.Index = 0
TabStrip1.Count -= 1
END
inizio.Center
IF NOT Exist(User.home) THEN
ME.Close
ELSE
x.show
ENDIF
END
PUBLIC SUB Button2_Click()
Desktop.Open("http://gambas-it.org")
END
Bel lavoroidentazione a parte
IF User.Name = "f.surfing" THEN
PRINT "Accontanti"
ELSE IF User.Name = "Ceskho" THEN
FOR i = 0 TO 10
PRINT "Il migliore"
NEXT
ELSE
PRINT "Ciao!!!"
END IF
sbagli, nell'anteprima non lo vedi ma qui si....
PRIVATE FUNCTION Prova()
PRINT "Prova nuovo codice"
END
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
Io ho messo "Visuale" come schema cromatico ed i commenti me li mette in verde... ecco perché mi pareva uno schema normale XD.E bravo il nostro Leo :D
Lo schema con i commenti in grigio è "Zaffiro", che ha anche i numeri in rosso e le stringhe in magenta.
Provvederò.
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 :P).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 :-X
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 ;)
usando questo tema io mi trovo meglio... ma mi adatto facilmente
Ma usavate ancora le schede perforate oppure no?
Avevamo i mitici floppy da 5"1/4 ;D
360 KB di morbidezza!
Avevamo i mitici floppy da 5"1/4 ;Dio ho fatto appena a tempo a vedere la morte dei floppy a 3,14 pollici
360 KB di morbidezza!
Ma quali schede perforate!;D ;D
Per chi ci hai preso! :P
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!