Visualizza post

Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.


Topics - Top Fuel

Pagine: [1] 2 3 4
1
Progetti degli utenti / Il Caos
« il: 28 Marzo 2020, 17:54:42 »
Essendo chiuso in casa per le note ragioni, ho rispolverato un vecchio libro che parla delle leggi del Caos, e ho trovato un listato che ho subito adattato a Gambas; parla delle variazioni caotiche che accadono nella semplice formula x = k * x^2 - 1, e di come cambia completamente l'andamento dei valori anche con piccole variazioni di k.
Nel progettino c'è una DrawingArea nella quale viene tracciato un grafico con l'andamento della formula e una ListView che alla fine mostra tutti i valori di x calcolati, come potete vedere nello screenshot allegato insieme al progetto.
Alcune note: riguardo k non conviene usare un valore superiore a 2, altrimenti x sale a valori enormi e va in overflow dopo un certo numero di cicli; il bello è che basta un valore di k leggerissimamente superiore a 2 per mandare in bomba tutto... inoltre è inutile usare valori negativi, l'andamento è lineare e si va in overflow quasi subito.
Non sempre l'andamento è caotico, può capitare che dopo un certo numero di cicli l'andamento si stabilizzi su alcuni valori e li resta; il caos arriva quando k supera un certo valore, sapete dirmi quale? ;)


P.S. per Gianluigi: non fare le pulci al progetto come al solito, l'ho scritto solo per non smaronarmi tutto il giorno.  ;D :P

2
Domande tecniche / [risolto] Gambas non si apre per via delle qt5
« il: 04 Gennaio 2020, 21:40:09 »
Ho dovuto cambiare il disco rigido del mio pc che mi dava un sacco di problemi (ovvero, stava per schiattare), quindi ho anche reinstallato Debian e Gambas, quest'ultimo alla ultima versione tramite la compilazione.
Qualcosa deve essere andato storto, Gambas non parte perchè dice che non può caricare il componente gb.qt5. Che posso fare per sistemarlo? L'installazione crea da qualche parte un file di log da consultare per capire cosa può essere successo?

4
Progetti degli utenti / Caccia al tesoro
« il: 06 Dicembre 2019, 22:58:05 »
Piccolo giochino stupido da fare in due.  ;D
Bisogna percorrere una scacchiera raccogliendo più punti possibile. Non l'ho ancora testato al completo ma sembra che funzioni abbastanza bene.
Se volete provatelo e ditemi di eventuali errori e/o/u possibili miglioramenti (ce ne sarebbero...).

6
Debian, Ubuntu e derivate / Problemi di aggiornamento con Synaptic
« il: 27 Ottobre 2019, 18:53:07 »
Qualcuno di voi saprebbe dirmi perchè, quando cerco di aggiornare alcuni pacchetti con Synaptic, come ad es. Chromium o Gimp, invece di aggiornarli mi mette il quadratino rosso e me li schiaffa nelle dipendenze danneggiate?

7
Domande tecniche / Messaggi di warning che non capisco
« il: 05 Giugno 2019, 22:33:55 »
Ho ricompilato Gambas all'ultima versione e quando faccio partire certi progetti mi esce in console sempre questo messaggio di warning:

libEGL warning: DRI2: failed to open nouveau (search paths /usr/lib/x86_64-linux-gnu/dri:\$${ORIGIN}/dri:/usr/lib/dri)
libEGL warning: DRI2: failed to open swrast (search paths /usr/lib/x86_64-linux-gnu/dri:\$${ORIGIN}/dri:/usr/lib/dri)
libEGL warning: DRI2: failed to open swrast (search paths /usr/lib/x86_64-linux-gnu/dri:\$${ORIGIN}/dri:/usr/lib/dri)
libEGL warning: DRI2: failed to open nouveau (search paths /usr/lib/x86_64-linux-gnu/dri:\$${ORIGIN}/dri:/usr/lib/dri)
libEGL warning: DRI2: failed to open swrast (search paths /usr/lib/x86_64-linux-gnu/dri:\$${ORIGIN}/dri:/usr/lib/dri)
libEGL warning: DRI2: failed to open swrast (search paths /usr/lib/x86_64-linux-gnu/dri:\$${ORIGIN}/dri:/usr/lib/dri)

Cosa può significare?

8
Linux / [Risolto] La stampante non stampa
« il: 22 Dicembre 2018, 21:07:27 »
Ho da qualche anno una stampante Samsung ML-1670 che da quando ho reinstallato Debian non vuole più funzionare. Con le precedenti installazioni funzionava sempre benissimo. Se provo a stampare qualcosa, sul foglio esce sempre questo messaggio:

INTERNAL ERROR - Please use the proper driver
POSITION : 0x0 (0)
SYSTEM : h6fw_5.049/x1_op
VERSION : SPL 5.49 10-20-2010

Eppure ho CUPS, printer-driver-splix e ghostscript installati all'ultima versione. Cosa potrebbe essere? :-\
Se volete vederlo allego il file di debug creato dalla impostazione di stampa.

9
Altri linguaggi / QB64
« il: 18 Agosto 2018, 23:54:23 »
Se volete provare il brivido della programmazione procedurale ecco il QB64, una versione modernizzata e molto ampliata del caro vecchio Quick Basic. Oltre ad essere compatibile con quasi tutte le istruzione del vecchio QB ora supporta il mouse, il TCP/IP, OpenGL e altro ancora.
Se volete provarlo scaricatelo da qui:

https://www.qb64.org/

Avviato la prima volta mi sembrava di essere tornato indietro di 25 anni, ma appena ho fatto partire il programma d'esempio di OpenGL con un'animazione in 3D mi sono accorto che sono passati 25 anni... :rolleyes:

10
Debian, Ubuntu e derivate / Problema con il login
« il: 02 Agosto 2018, 21:01:03 »
Ho installato Virtualbox con Synaptic e nel farlo ha messo dentro alcuni file di xserver-xorg, il guaio è che dopo averlo fatto nella schermata di login dopo aver immesso user e password invece di aprirmi il desktop (xfce) continua rimbalzarmi sulla schermata di login. Ho provato a eliminare Virtualbox e gli altri file ma niente, ho provato a fare un apt-get dist-upgrade sperando che rimediasse ma niente anche qui, anzi, da quel momento non ho più nemmeno la connessione a internet, ho provato a usare tasksel come mi hanno suggerito per reistallare xfce ma apt-get non riesce a risolvere gli indirizzi. Che posso fare per cercare di risolvere la cosa?
Spero di essermi spiegato.

11
Ed ecco una funzioncina per convertire una coordinata dal formato gradi/primi/secondi al formato decimale:  :)
Codice: [Seleziona]
' Gambas class file


Public Sub Form_Open()
Dim coordinata As String = "115°48'35"
Dim decimale As Float 'coordinata in formato decimale
decimale = converti(coordinata)
Print decimale
End

Public Function converti(coordinata As String) As Float 'converte una coordinata da gradi/primi/secondi in cooordinata decimale
Dim scanna As String[] 'array per splittare la coordinata
Dim gradi As Short
Dim primi, secondi As Byte
Dim decimale As Float
scanna = Scan(coordinata, "*°*'*") 'separiamo i componenti della coordinata
gradi = CShort(scanna[0]) 'convertiamoli in numeri
primi = CByte(scanna[1])
secondi = CByte(scanna[2])
decimale = gradi + primi / 60 + secondi / 3600 'calcoliamo il risultato
Return decimale
End

Qualcuno però mi deve spiegare come mai Split mi mette i primi e i secondi nel 3° e 4° elemento dell'array mentre nel 2° ci mette uno spazio (o nulla, non si capisce).

12
Programmazione / Usare una variabile intera come array di flag
« il: 01 Ottobre 2017, 00:55:46 »
Ecco un mio piccolo studio su come usare i singoli bit di una variabile intera come tanti flag vero/falso per tenere controllato se una serie di condizioni si verificano oppure no:

Codice: [Seleziona]
' Gambas class file

Private flags As Byte 'i nostri flag, saranno 8
Private variabile As Byte 'variabile di test
Public Const flag1 As Byte = 0 'costanti per sapere quali bit usare, da destra a sinistra
Public Const flag2 As Byte = 1
Public Const flag3 As Byte = 2
Public Const flag4 As Byte = 3
Public Const flag5 As Byte = 4
Public Const flag6 As Byte = 5
Public Const flag7 As Byte = 6
Public Const flag8 As Byte = 7

Public Sub Form_Open()
'controlliamo se il valore di variabile è inferiore a 100 oppure no usando il flag numero 5
variabile = Val(InputBox("Valore della variabile (0-255)?")) 'assegnamo un valore alla variabile
If variabile > 99 Then 'se vale 100 o superiore
   flags = BSet(flags, flag5) 'mettiamo a 1 il flag num. 5
Else
   flags = BClr(flags, flag5) ' 0 altrimenti
Endif
Print Bin$(flags, 8) 'stampiamo i flag in formato binario; se variabile è > di 99 il 5° bit da destra sarà 1, 0 altrimenti
'ora facciamo il test per vedere se il flag num. 5 è settato oppure no
If BTst(flags, flag5) = True Then 'se il 5° bit vale 1
   Print "Variabile è maggiore di 99: "; variabile
Else 'altrimenti vale 0
   Print "Variabile è minore di 100: "; variabile
Endif
End

Io ho usato una semplice variabile Byte, ma con un Long si possono tenere sotto controllo fino a 64 condizioni contemporaneamente.
E ovviamente si possono testare più condizioni contemporaneamente controllando più flag ogni volta.

13
Segnalazione bug / [risolto]Forse un bug nella GridView?
« il: 04 Gennaio 2017, 18:10:25 »
Quando devo stabilire la larghezza di tutte le colonne di una GridView, devo fare in questa maniera:
Codice: [Seleziona]
With GridView1 
   .Rows.Height = 32 'qui tutto ok
   .Rows.Count = 15
   .Columns.Width = 32 'NON funziona
   .Columns.Count = 15
End With
For i = 0 To 14
   GridView.Columns[i].Width = 32 'così funziona
Next
Capita anche a voi o solo a me?

14
Progetti degli utenti / Crivello di Eratostene
« il: 04 Ottobre 2016, 23:38:36 »
Semplice implementazione del Crivello di Eratostene per la ricerca dei numeri primi.
Se non sapete cosa è cercate su Wikipedia che non ho voglia di spiegarlo. :P
Ditemi che ne pensate. :)

15
Debian, Ubuntu e derivate / Problema con gli aggiornamenti
« il: 11 Settembre 2016, 23:36:39 »
Problema: Synaptic all'avviamento esce dicendomi che dpkg è stato interrotto e che bisogna fare dpkg --configure -a.
Lo faccio da terminale ed esce l'installer di NVidia come nella prima schermata. Rispondo si e torna al terminale come nella seconda schermata. A quel punto qualsiasi tasto digiti come risposta il programma si ferma a tempo indeterminato senza fare assolutamente nulla. Non mi blocca il computer, posso usarlo normalmente e l'utilizzo della cpu è pressoché zero, semplicemente rimane li...
C'è una maniera di risolvere?




Pagine: [1] 2 3 4