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.


Post - Bias

Pagine: [1]
1
Programmazione (Gambas 2) / Re: Tipi definiti dall'utente
« il: 16 Novembre 2008, 19:48:28 »
Ciao e grazie,
ho necessità di riutilizzare il file di archivio delle estrazioni del lotto.
Sono riuscito in parte a riutilizzarlo :-)  :-) però adesso ho un problema con la data dell'estrazione; il sistema (Ubuntu 8.04) non la riconosce come tale e mi da un formato sconusciuto  e quindi inutilizzabile :muro:  :incredibile:.
Probabilmente ciò è dovuto al fatto che le date, nell'archivio, partono dal 1600? Non ne sono certo, cmq dovrebbe visualizzarmi di default la data minima supportata.
Un piccolo stralcio del listato l'ho già riportato nel primo mio messaggio.
Il concetto è quello di analizzare i numeri sortiti e farne statistica.

Ciao bias :ciao:

2
Programmazione (Gambas 2) / Re: Tipi definiti dall'utente
« il: 16 Novembre 2008, 18:24:11 »
Hei, qualcuno sa darmi una risposta!  8-)

3
Programmazione (Gambas 2) / Tipi definiti dall'utente
« il: 15 Novembre 2008, 15:26:44 »
Salve a tutti, sono nuovo del forum e di Gambas.
In VB6 avevo creato un programma per il gioco del Lotto. Ho necessità di utilizzare il file di archivio delle estrazioni. Per imparare Gambas2 vorrei ricreare il programma precedentemente sviluppato in VB6.
L'archivio era così strutturato:

Public Type DatiLotto
data as Date
NEstraz as Integer
BA1 as Byte: BA2 as Byte...

...etc.
End Type

Public Archivio as DatiLotto

.....

Private Sub Form_Load()
Open App.Path & "\Dati.dta" For Random As #1 Len = Len(Archivio)

ID = LOF(1) \ Len(Archivio)

..
With Archivio
For I= x to y
Get #1, I, Archivio
If .BA1=A Then
...

End Sub

Come posso ricreare in Gambas2 queste procedure. Ho provato, ma il Type in Gamabs2 non è supportato.

Per voi più esperti, potete darmi qualche suggerimento? Magari, traslando queste poche righe scritte in VB a gambas2?

Grazie Bias

Pagine: [1]