11131
Progetti degli utenti / Re: Milvus, editor wysiwyg per pagine web
« il: 25 Maggio 2012, 13:00:44 »eheheheh, è così che ho messo su una birreria...
...ed io pago !
19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
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.
eheheheh, è così che ho messo su una birreria...
In realtà facevo riferimento al tuo esempio, in quanto per il pulsante usavi le coordinate della form, e non della sua area interna...Ma, scusa, avendo posto (FMain.W * 80) / 100 e (FMain.H * 80) / 100, non faccio appunto riferimento alla sua area interna e non alle sue coordinate (che invece sarebbero: X ed Y) ?
Insomma, un ottimizzatore di codice... un pò strano ma se i risultati sono evidenti, allora...
Un paio di dubbi:
1) se è necessario un ottimizzatore (generico in quanto non mi sembra sia parametrizzabile), vuol dire (cosa che già sapevo) che Gambas è da sistemare;
2) da quanto si evince dal messaggio ad inizio thread, ha delle limitazioni. Questo non vuol dire che abbia dei problemi, solo che potrebbe crearli con codice non perfetto.
Mi associo a vuott nel farti i complimenti....qua mi sa che se ne vanno casse di birra da pagarti !
Lo spazio all'interno di un contenitore deve essere referenziato tramite le proprietà ClientH e ClientW....ma mi pare di aver capito che eevan faccia riferimento all'intero contenitore-Form... o sbaglio ?
Le proprietà W e H si riferiscono all'intero contenitore, inclusi margini, heade e quant'altro, quindi fare riferimento a questi due valori può portare a calcoli errati.
c'e' il link a fine messaggio.
Ho appena presentato lo stesso progetto anche sul forum di ubuntu, spero sia permesso.
Dopo un paio di settimane, posso presentare il mio primo programma in assoluto: Milvus.
..........
Sono ovviamente accetti commenti, e soprattutto aiuti nel codice. Spero che vi piaccia
Mi perdo nelle cose piu facili.
Public Sub Form_Resize()
' in modo proporzionale:
With Button1
.X = ((FMain.W * 80) / 100) - Button1.W
.Y = ((FMain.H * 80) / 100) - Button1.H
End With
' in modo assoluto:
With Button2
.X = FMain.W - 100
.Y = FMain.H - 100
End With
End
Fast
Public Sub Button1_Click()
Dim i As Long
For i = 1 To 1000000000
Next
Print "Funziona !"
End
Fast
Public Sub Button1_Click()
Dim I As Integer
For I = 1 To 10
Print Test(0.2)
Next
End
Sub Test(X As Float) As Float
Dim Mu As Float = 10.0
Dim Pu, Su As Float
Dim I, J, N As Integer
Dim aPoly As New Float[100]
N = 500000
For I = 0 To N - 1
For J = 0 To 99
Mu = (Mu + 2.0) / 2.0
aPoly[J] = Mu
Next
Su = 0.0
For J = 0 To 99
Su = X * Su + aPoly[J]
Next
Pu += Su
Next
Return Pu
End
Public Sub Button1_Click()
' se non esiste la cartella "alibaba" in /tmp, allora...
If Not Exist("/tmp/alibaba") Then
'...viene creata:
Mkdir "/tmp/alibaba"
Endif
End