Puoi spiegarmi come mai hai usato un intero per definire pi greco?Non sapevo dell'esistenza della costante Pi...grazie per avermelo detto modifico :) e poi rilascerò la 0.0.5 ben presto! Vi stupirò! U.U
Pi greco è quanto di meno intero esista. :D
Eppoi esiste già la costante Pi. :)
Comunque l'idea è buona.A me fa solo che piacere integrare nuove cose nel progetto per esempio piccolo spoiler :P nella versione 0.0.5 ho inserito la tavola periodica di 9bit l'ho migliorata e corretta in alcuni punti e l'ho unita al progetto :)
Se vuoi potrei dare il mio piccolo contributo rispolverando e adattando un valutatore di espressioni scritto nel vecchio QB 4.5.
Non dovrebbe essere troppo difficile. Che ne dici? :)
Va bene.p.s= non sò se tu hai mai creato un progetto open source comunitario...nel senso lavorare in tanto su un progetto unico anche essendo lontani...come fanno? Su che piattaforma lavorano? :)
Domani comincerò a lavorarci sopra. :coder:
Ho scoperto solo ora che Gambas ha già il suo valutatore di espressioni, il componente gb.eval. ;D
Però non so' come usarlo e cosa riesce a calcolare.
Vediamo cosa riesco a trovare.
Utile anche a me :D grazie!Ho scoperto solo ora che Gambas ha già il suo valutatore di espressioni, il componente gb.eval. ;D
Però non so' come usarlo e cosa riesce a calcolare.
Vediamo cosa riesco a trovare.
Come tutto ciò che è ignoto, non si sa, al primo approccio, cosa possa presentarsi, poi entrando nell'argomento si capisce subito che il componente gb.eval è uno strumento potente e semplicissimo da utilizzare.
Puoi guardare qui (http://www.gambas-it.org/smf/index.php?topic=492.msg4561#msg4561)
:ciao:
Però ci voglio lavorare lo stesso su quel valutatore, perchè ci sono alcune cose interessanti. ;)E chi dice nulla :rotfl:
Ma si possono avere due screenshot o un video dimostrativo?Quale onore :)
Ma si possono avere due screenshot o un video dimostrativo?
Io invece sto migliorando grafica, aggiungendo nuove formule e modificando scritte.Ma si possono avere due screenshot o un video dimostrativo?
Dacci il tempo di buttare giù qualcosa. :)
In questo momento sto cercando di adattare una routine per convertire una espressione in notazione RPN. Spero esca qualcosa di funzionante. :D
Però ci voglio lavorare lo stesso su quel valutatore, perchè ci sono alcune cose interessanti. ;)Grazie! :D Spero proverete anche la 0.0.5! :D
Ho finito il convertitore di espressioni in notazione RPN, ma come ho appena detto nella sezione bug, non riesco a testarlo perchè Gambas mi abortisce.Grazie per l'aiuto, cercherò di provarlo il prima possibile! Appena sarò a casa...
Lo allego comunque a questo post, così potete darci una occhiata e vedere se fa scherzi anche a voi, e magari dirmi se funziona. :)
Ci tengo a specificare che non è farina del mio sacco, e che non sono un matematico, quindi non garantisco che sia effettivamente funzionante. :D
Ho finito il convertitore di espressioni in notazione RPN, ma come ho appena detto nella sezione bug, non riesco a testarlo perchè Gambas mi abortisce.
Lo allego comunque a questo post, così potete darci una occhiata e vedere se fa scherzi anche a voi, e magari dirmi se funziona. Sorriso
Ci tengo a specificare che non è farina del mio sacco, e che non sono un matematico, quindi non garantisco che sia effettivamente funzionante. Felice
If espressione.text <> "" Then
compilata = Funzioni.CompilaespressioneRPN(espressione.text)
EndifHo finito il convertitore di espressioni in notazione RPN, ma come ho appena detto nella sezione bug, non riesco a testarlo perchè Gambas mi abortisce.Top a me non funziona :( mi da dei Bad character constant in string e altri piccoli errori!
Lo allego comunque a questo post, così potete darci una occhiata e vedere se fa scherzi anche a voi, e magari dirmi se funziona. :)
Ci tengo a specificare che non è farina del mio sacco, e che non sono un matematico, quindi non garantisco che sia effettivamente funzionante. :D
Accidenti... voglio provare a spostarlo su Gambas2 e vedere se almeno li funziona.Ma perchè non lo hai provato?
Ho dei problemi con questo progetto sotto Gambas 3: quando lo faccio partire mi da errore e Gambas viene terminato.Capito...sicuramente con il passaggio a gambas 3 alcune cose sono state modificate e non più accettate!
Così voglio portare tutto su Gambas 2 e vedere se almeno li funziona. Non c'è niente di specifico di Gambas 3, quindi dovrebbe funzionare anche sotto Gambas 2.
Qui non va in errore, buona cosa, almeno posso lavorarci su. :DGrande :)
Ho già corretto i primi errori di digitazione (soliti caratteri non digitati).
Adesso provo a correggere i successivi.
Ottimo programma, molto utile complimenti :2birre:Grazie :) è anche merito tuo! Tu hai dato una gran bella svolta al progetto...grazie alla tavola periodica!
Però ho notato che chiudendo il Form principale il programma nonSai come potrei risolvere questi due problemi?Consigli?
si chiude, ma sembra che venga nascosto.
Altra cosa, nei Form secondari se clicco sulla "X" invece di "Home"
si nasconde tutto....sarebbe meglio in ogni caso ritornare alla Form "Home" principale,
oppure aggiungere un bottone "chiudi tutto".
Nel frattempo il testing del convertitore sta andando per le lunghe perchè ci sono degli errori di logica e delle mancanze inaspettate che sto cercando di correggere.Tranquillo Top Fuel, prenditi tutto il tempo che vuoi! :) il tuo valutatore sarà una grande novità per Formulinux! Devi farlo bene!
Però ho notato che chiudendo il Form principale il programma non
si chiude, ma sembra che venga nascosto.
Sai come potrei risolvere....?Consigli?
Quit
CitazioneAltra cosa, nei Form secondari se clicco sulla "X" invece di "Home"Sai come potrei risolvere questi due problemi?Consigli?
si nasconde tutto....sarebbe meglio in ogni caso ritornare alla Form "Home" principale,
oppure aggiungere un bottone "chiudi tutto".
Dim iSwReturn as integer
iSwReturn = Form1.showmodal() Me.Close(x) ' dove x è un interof1.hide
FMain.ShowMi è appena venuta in mente una cosina da aggiungere. Ci stò già lavorando, ti piacerà. ;)vai :D
Ti conviene postare la versione corretta così possiamo vederla, perchè se aspetti me... :D :Dok metto tutto in ordine e procedo :) a metterla qui!
Public Function Fattoriale (Numero As Byte) As Long
Dim Risultato As Long = 1
Dim i As Byte
If Numero > 20 Then
Message.info("Il numero calcolato\n è troppo grande.\n Mi spiace.")
Risultato = 0
Return Risultato
Endif
For i = 2 To Numero
Risultato *= i
Next
Return Risultato
EndPurtroppo può arrivare al massimo fino a 20, oltre si va in overflow. Bisognerebbe trovare la maniera di calcolare e scrivere numeri più grossi.
Dim Risultato As Long = 1 Dim Risultato As Float = 1 8,1591528324789E+47:ciao:
Codice: [Seleziona]Così facendo,se poni numero=40, il risultato finale saràDim Risultato As Float = 1Citazione8,1591528324789E+47:ciao:
Lo so, ma andrebbero perse parecchie cifre. Se ti serve il numero esatto come fai? :-\
Public Sub Form_Open()
Dim Risultato As Float = 1
Dim i As Byte
Dim iCiclo As Integer
Dim imoltiplica As Integer
Dim $Risultato As String
Dim $Segno As String
Dim $StriMia As String
For iCiclo = 0 To 1
If iCiclo = 1 Then
Risultato = 2.34 * 1 / 100000000000
Else
For i = 2 To 40
Risultato *= i
Next
Endif
$Risultato = CFloat(Risultato)
Print "Risultato ='" & Risultato & "'"
i = InStr($Risultato, "E")
If i <> 0 Then
$StriMia = Right($Risultato, Len($Risultato) - (i))
imoltiplica = Int(Val(Right($StriMia, Len($StriMia) - 1)))
$Segno = Left($StriMia)
$Risultato = Left($Risultato, i - 1)
$Risultato = Replace($Risultato, ".", "")
If $Segno = "-" Then
$StriMia = String$(10, "0")
$Risultato = "0." & $StriMia & "234"
Else
Print String$(imoltiplica - Len($Risultato), "0")
$StriMia = String$(imoltiplica - Len($Risultato), "0")
$Risultato = Left($Risultato) & "." & Right($Risultato, Len($Risultato) - 1) & $StriMia
Endif
Print "$Risultato ='" & $Risultato & "'"
Endif
Next
Me.Close
End
Risultato ='8.1591528324789E+47'
000000000000000000000000000000000
$Risultato ='8.1591528324789000000000000000000000000000000000'
Risultato ='2.34E-11'
$Risultato ='0.0000000000234'
Interessante. ;)
Ma quello che mi piacerebbe sapere è come fanno certe applicazioni matematiche a darti tutte le cifre fino all'ultima.
CitazioneOttimo programma, molto utile complimenti :2birre:Grazie :) è anche merito tuo! Tu hai dato una gran bella svolta al progetto...grazie alla tavola periodica!CitazionePerò ho notato che chiudendo il Form principale il programma nonSai come potrei risolvere questi due problemi?Consigli?
si chiude, ma sembra che venga nascosto.
Altra cosa, nei Form secondari se clicco sulla "X" invece di "Home"
si nasconde tutto....sarebbe meglio in ogni caso ritornare alla Form "Home" principale,
oppure aggiungere un bottone "chiudi tutto".CitazioneNel frattempo il testing del convertitore sta andando per le lunghe perchè ci sono degli errori di logica e delle mancanze inaspettate che sto cercando di correggere.Tranquillo Top Fuel, prenditi tutto il tempo che vuoi! :) il tuo valutatore sarà una grande novità per Formulinux! Devi farlo bene!
Formulinux sta crescendo :)Bene! :)
cusami se ti rispondo solo adesso SorrisoMa che tranquillo :) anzi ringrazio tutti per la mano che mi state dando!
Ma noto che ti hanno dato la soluzione due delle colonne del Forum, io non avrei potuto aiutarti.
Bene! SorrisoSono proprio curioso! :)
Sto finendo un proggettino che ti può essere utile da inserire in Formulinux coder
Bene! Sorriso
Sto finendo un proggettino che ti può essere utile da inserire in Formulinux coder
Sono proprio curioso! :)Quasi finito il progettino :coder:
Ok, allora per adesso mi fermo....avevo ancora una ventina di progettini in mente :rotfl:Ma che postali falli pure :) Poi piano piano me li prendo e li inserisco versione dopo versione!
hey michy ho appena ultimato una calcolatrice scientifica e la scomposizione delle equazioni di 2° grado (trova le soluzioni alle equazioni di 2° grado)Grazie!! Sarà utilissima!
se vuoi implementalo nel tuo formulinux Ghigno
si infatti ;D ;DGrazie a tutti e due!
michy se ti serve da fare qualche progettino non c'è che da chiedere :ciao:
:bravo:
benissimoTU metti tutto quello che puoi in un progetto :) tanto poi implemento!
:ok:
le vuoi in un colpo solo o 1 per progettino??
per l'altra cosa che ne pensi???
alla fine non è complicato....
è scritto in gambas 2....Non mi apre proprio l'archivio di Azero...comunque sto costruendo piano piano la nuova versione di formulinux!
la sintassi è cambiata
a me lo apre però non lo posso avviare
ci vorrebbe qualcuno che conosce gambas 2
Indeciso vedremo
si potrbbe, visto che sta diventando abbastanza grandicello, un file libreria con tutte le costanti, ne sto aggiungendo una marea, e credo che tutti questi dati mirino un pò alla stabilità di tutto formulinux...Infatti vai Piano SIMO! :rotfl: Più semplici sono le cose che mi passi più sarà facile per me montarle! Comunque per quanto riguarda la libreria poi avrò una domanda da fare ;) e la posterò sul forum :)
un consiglio aggiungi qualcosa che limiti ai soli numeri l'accesso alle textbox altrimenti si rischiano crash imprevisti oppure semplici catch su tutti i pulsanti
per ora vado molto a rilento perchè sto cercando di facilitarti il lavoro di integrazione il più semplice possibile(un copia incolla molto rapido dell'intero form...)
i miei progettini mancano di icone ma se usi quelle di sempre le copio dalla precedente versione
;D ;D ;D ;D
anche io dovrò chiedere visto che non le ho mai usate...Stessa cosa :P
un consiglio aggiungi qualcosa che limiti ai soli numeri l'accesso alle textbox altrimenti si rischiano crash imprevisti oppure semplici catch su tutti i pulsantiHo letto ora il consiglio e sarà una delle prime cose da fare! FOrmulinux non deve Crashare MAI! :nono:
grandiosoE di cosa?! E' il minimo!
grazie michy
la fortuna di avere ancora il libro di fisica....Io l'ho ormai reciclato sfortunatamente!
State facendo un gran bel lavoro...appena ho un po' di tempo, cercheròGrazie da parte mia e da parte( credo di parlare a nome di tutti e due) di Simo :) Comunque tu hai già dato 9Bit molti tuoi progetti sono diventati parte integrante ormai di formulinux! :)
di dare un piccolo contributo Occhiolino
Grazie da parte mia e da parte( credo di parlare a nome di tutti e due) di Simo Comunque tu hai già dato 9Bit molti tuoi progetti sono diventati parte integrante ormai di formulinux!credi bene ;D ;D
---modifiche da approvare---Favorevole a tutti!
reinserito evalutator
attivato nuovo componente gb.eval
aggiunto "chimica/fisica" nella list "chimica"
corretto bug nella calcolatrice-eq 2°grado
---prossima integrazione----
i miei progettini
Bello! :coder: :yeah: :yeah: :yeah: :bravo:Grazie :) è ancora molto ma molto spartano :rotfl: però procede!
ecco...la 0.0.8
per i numeri negativi me ne ero già accorto però (meno la radice quadrata) il resto non dà errore quindi metterò solo qualche controllo in più
per la calcolatrice a nastro bell'idea....
Tanto bisognava stravolgere la grafica, faccia poi inviami su Skype.... ;)OK :)
Ditemi come posso essere utile.....tempo permettendo ;)
Ok, ricontrollo e sistemo il tutto, il minimo comune multiplo è già integrato, calcola entrambi.Ditemi come posso essere utile.....tempo permettendo ;)
Guarda se dai un occhiata al convertitore (sembra che non dia i risultati sperati....) e uniformarne la grafica....
Poi anche il MCD da controllare....
Poi se hai tempo fai il minimo comune multiplo che poi se riusciamo lo integriamo nella calcolatrice (in modo che risolva eq. Di primo grado autonomamente (5x+6/4=9x-5....alla fine x=....)
Altro qualche progettino non fa male...
:-[vero.......si dai cacciamolo via :rotfl:
---------------------------------------
fra un pò 9bit entra nello staff!!! :2birre:
e michy lo cacciamo :rotfl: :rotfl:
:bravo:Dopo gli do un'occhiata :coder:
dopo comtrolla il convertitore....
non so perchè ma non da i giusti risultati...
ho appena visto che esistono componenti che limitano l'accesso alle text ai soli numeri si potrebbe sostituire la mia funzione (che tra l'altro non è neanche finita..)
;D
...no scusa ero distratto, puoi continuare con la tua funzione che è molto utile al tutto il progetto :ok:
:rotfl: :rotfl: :rotfl::-[vero.......si dai cacciamolo via :rotfl:
---------------------------------------
fra un pò 9bit entra nello staff!!! :2birre:
e michy lo cacciamo :rotfl: :rotfl:
Che tipo di errore hai riscontrato? A me sembra che sia tutto ok :-\
Guarda se dai un occhiata al convertitore (sembra che non dia i risultati sperati....) e uniformarne la grafica....
Poi anche il MCD da controllare....
...la grafica...:D
ogni tanto qualche pezzo me lo perdo pure io :rotfl: :rotfl: :rotfl:
Allego solo i form modificati, "pesano poco" 8) (mcd/mcm- convertitore) poi basta inserirli in Formulinux eliminando o:o :o :o
sovrascrivere quelli vecchi.
Ditemi se va bene :ciao:
fatto....Ok! Poi vedremo cosa integrarci ancora... :coder:
;D
Due piccoli suggerimenti: OcchiolinoGrazie
http://it.wikipedia.org/wiki/Contrazione_delle_lunghezze
http://it.wikipedia.org/wiki/Dilatazione_del_tempo
Appena Torno a casa invio...Va bene!
Due piccoli suggerimenti: ;)daiiii.... non dovrà servire in qualche LHC!!
http://it.wikipedia.org/wiki/Contrazione_delle_lunghezze (http://it.wikipedia.org/wiki/Contrazione_delle_lunghezze)
http://it.wikipedia.org/wiki/Dilatazione_del_tempo (http://it.wikipedia.org/wiki/Dilatazione_del_tempo)
E' anche piuttosto semplice da implementare. :)bè si :P
--bò se avete altro--
Public Function Filtro(stringa As String)
If key.Text Like "[^0-9.,-]" Then
Stop Event
Endif
If Key.Text = "." Then
If ricerca(stringa, ".") = 1 Then
Stop Event
Endif
Endif
If Key.Text = "-" Then
If ricerca(stringa, "-") = 1 Then
Stop Event
Endif
Endif
If Key.Text = "," Then
If ricerca(stringa, ".") = 1 Then
Stop Event
Endif
Endif
Select Case Key.Text
Case "è", "é", "ò", "ç", "à", "°", "ù", "§", "£", "ì", "€", "¹", "²", "³", "¼", "½", "¬", "ł"
Stop Event
End Select
EndPublic Function ricerca(testo As String, lettera As String) As boolean
If instr(testo,lettera) <> rinstr(testo,lettera) then
return true
else
return false
endif
EndPer me signori qui stiamo creando la storia! :) Avanti così e Formulinux forse in un futuro avrà molte funzioni non solo per calcolare ecc ma anche per fare molte cose come la contabilità delle aziende o familiari, chimica, geometria e chi più ne ha più ne metta! Forza e coraggiO!fino a maggio :rotfl: :rotfl: :rotfl: :rotfl:
Due piccoli suggerimenti: ;)Ottimo! :ciao:
http://it.wikipedia.org/wiki/Contrazione_delle_lunghezze (http://it.wikipedia.org/wiki/Contrazione_delle_lunghezze)
http://it.wikipedia.org/wiki/Dilatazione_del_tempo (http://it.wikipedia.org/wiki/Dilatazione_del_tempo)
li faccio io o ci pensi tu??Due piccoli suggerimenti: ;)Ottimo! :ciao:
http://it.wikipedia.org/wiki/Contrazione_delle_lunghezze (http://it.wikipedia.org/wiki/Contrazione_delle_lunghezze)
http://it.wikipedia.org/wiki/Dilatazione_del_tempo (http://it.wikipedia.org/wiki/Dilatazione_del_tempo)
...visto il poco tempo che ho a disposizione ne posso fare uno, oppure tutti e due se non c'è fretta..li faccio io o ci pensi tu??Due piccoli suggerimenti: ;)Ottimo! :ciao:
http://it.wikipedia.org/wiki/Contrazione_delle_lunghezze (http://it.wikipedia.org/wiki/Contrazione_delle_lunghezze)
http://it.wikipedia.org/wiki/Dilatazione_del_tempo (http://it.wikipedia.org/wiki/Dilatazione_del_tempo)
1) cioè???
2) lo so ma in teoria dovrebbe funzionare....
3) nooo...
4) l'obbiettivo per ora non è stabilire se è un numero ma farlo diventare un numero, non permettendo di inserire altro
5) perchè in quel modo "funziona", troppo complicato da spiegare :P :rotfl:
ma perchè non riesci ad eseguilo :o :o :o
che ver. hai???
revisione???
Citazione di: simo97 - Oggi alle 16:04:47io la 3.4.1...
ma perchè non riesci ad eseguilo
che ver. hai???
revisione???
La 3.1.1, e mi da' Unknown symbol 'scrollbar' in class 'listbox'
devo trovare il modo di estendere il like a tutto l'unicode dopo è apposto per sempre!!!!
fretta non ce n'è tanto per ora si attende michy che lo alleggerisceContrazione_delle_lunghezze
contrazione della lunghezza...a bhe così è facile :P io intendevo qualcosa del genere leggi, (http://digilander.libero.it/fantinma/relativita/relativita.htm#contrazione) dai un occhio anche al simulatore ;)
-------premessa un oggetto se va molto veloce (+- velocità della luce) si contrae------
la lunghezza finale si calcola
=lunghezza iniziale* sqr(1- ((la velocità)^2)/((la velocità della luce)^2))
quindi i dati sono 3
-lunghezza iniziale
-velocità
-lungezza finale
le formule inverse te le fai!!! :devil:
:rotfl:
dopo vedo anche la dilatazione del tempo
risultato???
le funzioni cho ho fatto per ora stanno solo in campoelettrico
prova oraBeh, le prove dovresti farle tu (ho poco tempo anche per le mie cose!), non ti serve neanche il tuo progetto, prendi una textbox in un progetto di prova e fino a che ci trovi difetti continui a cambiare tutto :) Io, come tutti gli altri del forum, posso darti indicazioni, ma non e' che possiamo riguardare pezzo pezzo...
un parere non fa mai male....
hhahahahahahahah
.....
no comment
.....
hhahahahahahahah
.....
no comment
.....
??? non sembra fatto male!?
vi piace la nuova grafica?? :PMa tu non visualizzi il menu? DOve è finito? COmunque si molto meglio Simo...bravo! ;) hai rimodellato bene quello che avevo fatto :)
comunque lì manca una sezione (un combobox) che ancora non abbiamo deciso cosa sia...
sotto alla spiegazione di lo shu volevo metterci una picture box con la tartaruga
ovviamente non è tutto merito mio :2birre:
ditemi voi!!!
Lo so :)E' stato uno dei primi ad essere inseriti :)
Dovresti già essere già tra i collaboratori
:ciao:
vi piace la nuova grafica?? :PMolto carina la grafica! :ok: :ciao:
comunque lì manca una sezione (un combobox) che ancora non abbiamo deciso cosa sia...
sotto alla spiegazione di lo shu volevo metterci una picture box con la tartaruga
ovviamente non è tutto merito mio :2birre:
ditemi voi!!!
sto facendo la scomposizione polinomiale di equazioni di grado superiore al secondo con ruffini
:rolleyes: :rolleyes:sto facendo la scomposizione polinomiale di equazioni di grado superiore al secondo con ruffini
Sbiliguda come se fosse antani o scherziamo?
No perchè la supercazzola brematurata con il secondo scappellamento a destra ha perso i contatti con la terapia tapioco, insieme all'ispettore tombale (con fuochi fatui) di una cosa come dire VICESINDACO... ;D
Ragazzi andate piano :rotfl: Chi va piano va sano e va lontano XD Io sto facendo l'ottagono!io vado molto piano difatti con ieri ho solo impostato la grafica :hatecomputer:
dai su fatemelo stabilizzare eternamenteTroppa roba :rotfl:
fare il repo
il sito
la barra di ricerca
inserire qualcos'altro delle mie
altro???
:rotfl:
seite tutti mitici su 8)
:rotfl:
finalmente ho risolto il problema sia del like che del copia incolla:o sarebbe?
ma ne è sorto un altro....
i numeri esponenziali!!!
'' **filtro caratteri***
'' ***
'' da inserire in un keypress
'' ***
'' **ARGOMENTI:**
'' - stringa: il testo della text box da controllare
'' da inserire!!
Public Function Filtro(stringa As String)
If key.Text Like "[^0-9.,-e]" Then
Stop Event
Endif
If Key.Text = "." Then
If ricerca(stringa, ".") = 1 Then
Stop Event
Endif
Endif
If Key.Text = "-" Then
If ricerca(stringa, "-") = 1 Then
Stop Event
Endif
Endif
If Key.Text = "," Then
If ricerca(stringa, ".") = 1 Then
Stop Event
Endif
Endif
If Key.Text = "e" Then
If ricerca(stringa, "e") = 1 Then
Stop Event
Endif
Endif
If Not IsAscii(Key.Text) Then
Select Case Key.Text
Case Not ""
Stop Event
End Select
Endif
End
'' **controllo totale***
'' ***
'' da inserire nel change
'' ***
'' **ARGOMENTI:**
'' - stringa: il testo della textbox da controllare
''
'' **RITORNA:**
'' - la stringa corretta
''
'' -------attenzione---------
''
'' funziona solo con il primo carattere
Public Function controllochange(stringa As String) As String
Dim lettera, ls, rs, lstring As String
Dim l As Integer
lettera = Right(stringa, 1)
If lettera <> "" Then
Select Case lettera
Case "0" To "9" '''''''''''
lettera = lettera
Case ","
If (ricerca(stringa, ".") = 0) And Len(stringa) >= 1 Then
lettera = "." ''''''''''''caratteri consentiti
Else
lettera = ""
Endif
Case "."
If ricerca(stringa, ".") = 1 Then
lettera = "."
Else
lettera = ""
Endif
Case "-"
If InStr(stringa, "-") = 1 And ricerca(stringa, "-") = 1 Then
lettera = "-"
Else
lettera = ""
Endif
Case "e"
lettera = "e"
Case Else ''''''''''''''''''''''''''''''''''''''''''''''''
lettera = ""
End Select
stringa = Left(stringa, Len(stringa) - 1) & lettera
Endif
If Left(stringa, 1) = "." Then
stringa = Right(stringa, Len(stringa) - 1)
Endif
If ricerca(stringa, "-") = 1 Then
If Not (InStr(stringa, "-") = 1) Then
stringa = Replace(stringa, "-", "")
Endif
Endif
If ricerca(stringa, ",") = 1 Then
stringa = Replace(stringa, ",", ".")
Endif
For l = 1 To Len(stringa) ''''''parte copia incolla
Select Case Mid(stringa, l, 1)
Case "0" To "9", ".", ",", "e", "-"
stringa = stringa
Case Else
stringa = Replace(stringa, Mid(stringa, l, 1), "")
End Select
Next
Return stringa
End ''''''''''''''''''''''''''''''''''''''''''''''''''
'' **ricerca il numero di caratteri in una stringa***
'' ***
'' **ARGOMENTI:**
'' - testo: il testo in cui cercare
'' -lettera: la lettera da cercare
''
'' **RITORNA:**
'' - il numero di caratteri trovati
Public Function ricerca(testo As String, lettera As String) As Integer
Dim l, trovato As Integer
For l = 1 To Len(testo)
' Se il carattere controllato è uguale a quello che si sta cercando....
If Mid(testo, l, 1) = lettera Then
'...allora incrementa di un'unità il valore della variabile integer che tiene il conto:
Inc trovato
Endif
Next
Return trovato
End
:ciao:Io non ho mai parlato di ferie :rotfl:
grazie a lei che mi dà le ferie :P
Bene..... Si ricomincia!VAI :D
una cosa da sciegliere...
Come fare....Condivido il problema sollevato da Simo...come fare una cosa del genere?
Come può il il programma capire quale formula l'utente deve utilizzare....
Poi il numero di dati in ogni formula cambia...
E alcune necessitano di un combobox....
L'idea era venuta anche a me...
Condivido il problema sollevato da Simo...come fare una cosa del genere?
mà ai idea:o
quante configurazioni dovrebbe assumere un singolo form
Dim t As TextBox
t = New TextBox(Me)
t.Move(1, 1, 500, 50)
t.text = "xxxxxxxxxxxx"si ma il codi si allunga di molto...
una cosa da sciegliere...
se tenere la grafica 1 (un pò più complicato da realizzare ma più facile per chi lo utilizza e consigliato)
oppure
tenere la grafica 2 e lasciare tutto come sta....
ma dovendoci mettere le mani per modificare tutte le variabili da integrer a float e inserire tutti i controlli preferirei rifare anche la grafica....
Per ora credo sarebbe più facile per noi continuare su questa strada(cioè come stiamo facendo) in fatto di grafica e contenuti.
io sarei daccorbo con pastrankva bene fai pure...ovviamente ci saranno form che non si potranno unire! ;) tavola periodica, calcolatrice mi rifiuto di fare questa cosa :rotfl:
intanto comincio a fondere qualcosa....
tipo tutta geometria...
però ci soso alcune cose che terrei separate (tipo la tavola periodica, la calcolatrice...)
(ora vedete di rispondere perchè di tempo ne ho anche poco...)
non era riferito a te....ma a altri 2 "individui" che in teoria dovrebbero decidere....(ora vedete di rispondere perchè di tempo ne ho anche poco...)
Rotfl. Ti do' un po' di hint, tanto per farti capire cosa intendevo, ma, ti ripeto, non avere fretta e fai una cosa solo per provare, se no rischi di scassare tutto il resto. Puoi decidere di creare i controlli a runtime, o puoi tenerli nascosti uno per tipo o uso. Immagina una form con un bottone Annulla, uno Calcola, due textbox e una combobox. Io penserei di aggiungere i controlli in fila, magari tenendo, per facilitare i conti, una variabile pubblica, per spiegarsi
una che carichi la form ed e' 0, aggiungi un controllo posizionandolo (per esempio) a x 5, y (variabilepubblica + 5), setti variabilepubblica al valore della posizione y + height dell'ultimo controllo aggiunto o mostrato, e controlli se la finestra riesce a contenere tutto. Una volta fatto questo, ti bastera' fare una routine che aggiunge i controlli, e aggiungere 3 controlli diventa facile e leggibile: tipo
aggiungiControllo(textbox1)
aggiungiControllo(textbox2)
aggiungiControllo(combobox1)
Ovviamente nel pulsante Calcola ci dovrebbe essere un select case. Tieni anche conto che per fare questo ci sono un sacco di modi (puoi caricare i controlli a runtime, puoi tenerli pronti e mostrarli, puoi farti un array da uno nascosto, ci puoi aggiungere dei valori di default, etc etc), e appunto devi trovare quello che ti e' piu' congeniale, non tutti siamo uguali come gusti, quello che sembra semplice a me puo' sembrare un gran casino per gli altri (di solito e' cosi' infatti), e viceversa.
:ok: ok :ok:Va benissmo! :) tu intanto fai dei test cioè vedi come possiamo fare la nuova grafica ecc! E cosa possiamo correggere!
bene bene
dopo passa che lavoro lì
per il set di icone...Lascia stare set di icone ecc... abbiamo le icone di sistema usiamo quelle...non appesantiamo il programma e sono semplici ;)
si potrebbe chiedere....
Mi scuso se ci sto mettendo tanto...ma il lavoro mi sta succhiando via intere giornate! Scusatemi!non si scusi.... ma al costrario se la prenda comoda....
si....Dai che tra un pò te lo passo Simo! :)
alora, per l'addetto alla pubblicità chiedo una cosuccia da poco.....Simo ma non stiamo Correndo un pò troppo? :rotfl:
perchè non crei una pagina su wikipedia con una breve descrizione di formulinux...
autori, link del sito
oppure su sourceforge con direttamente i sorgenti repo etc
ps. per l'addetto alla pubblicità intendo il carissimo 9bit....
Simo ma non stiamo Correndo un pò troppo? :rotfl:
Dobbiamo creare un unica piattaforma ufficiale del prorgramma e non 40000 siti a destra e a manca...Comunque questa sera ti passerò quello che ho fatto e poi gli continui a dare una modificata (mancano dei controlli)...Arriverò a casa verso le 20:00 quindi per le 21:00 fatti trovare su skype!
P.S= Dobbiamo trovare un modo per "vederci" Tutti e tre tu, io e 9Bit per capire cosa bisogna fare che licenza usare GPL V ecc o altre. e mettere delle linee guida da seguire.io direi skype.... adesso sta a 9bit....
Ok...sempre se per te va bene ;) poi sei libero di fare come vuoi! Io mi adatto...ma ora non vedo il motivo di fare così grandi cambi!
bhè io le mani ce le devo mettere.... poi basta un copia incolla, al massimo c'è da cambiare qualche nome.....
il problema di avere 100 form è che occuperebbe abbastanza.... :D
;D ;D ;DLo prendo come un Va bene :rotfl:
:ciao:
io me ne vado 3/4 giorni in "vacanza", purtroppo senza gambas percui per non sprecarli vi passo il sorgente così qualche buon uomo continua ad aggiungere i controlli che per ora non stanno quasi da nessuna parte...ok scaricato :) Buone vacanze!
:ciao: :ciao: :ciao:
hehehehehehahahaa comunque cerchiamo di completare la 0.1.0 che sarà perfetta :)
ancora "non mi fanno cominciare"....
ok ma per geometria ci vorrà un pòòòòTranquillo prendi tutto il tempo che vuoi! :)
per l'iva bisogneregge vedere in che paese viene usato e con un database andare a leggere qual'è liva in quel momento...
Per quanto riguarda l'IVA di ogni paese non servirà nulla di tutto questo :rotfl: metteremo semplicemente una combo con i nomi degli Stati che poi l'utente sceglerà. E cambierà il valore dell'IVA a seconda del paese cliccato ;)noooo è brutto
allora????Tu fai quello che devi fare...Poi mi metti tutto in area di sviluppo e provo a fare le ultime modifiche :) e lo pubblichiamO!
comunque ho quasi finito geometria
dopo che finisco i controlli "finisco" quella delle formule chimiche...
puoi finire, intanto, mentre io inserisco i controlli, la geometria!!!!
Bravo per quanto riguarda il controlli...bè io direi di arrivare per ora a 20...e senza copia e incolla da Wikipedia ! >:( Comunque quando hai fatto passa! :D...poi ci penso io se vuoi :) dimmi tu!e perchè.... ci mettiamo fonte wiki e via...
Perchè se mettiamo rbba uguale a Wikipedia..che motivo vi è di installare un programma? :rotfl:Bravo per quanto riguarda il controlli...bè io direi di arrivare per ora a 20...e senza copia e incolla da Wikipedia ! >:( Comunque quando hai fatto passa! :D...poi ci penso io se vuoi :) dimmi tu!e perchè.... ci mettiamo fonte wiki e via...
come la tavola periodica....
poi oltre ci sarebbe da metterci l'img..... e anche qualche altro dato....
semplicemente perchè è più pratico....Se lo dici tu :o
per il caro michy: prego leggere lentamente!!!Si tranquillo ascolto! :rotfl:
e capire!!!
comunque adesso pubblico formulinux sul suo sito in area sviluppo.Ricevuto...Comunque la prossima volta non cancellare tutte le cose...cioè nelle zone delle formule chimiche me le hai tolte tutte...in più ruffini non è stato "semplificato" graficamente :'( e vabbè!
poi quando avete finito le modifiche fatemi dare un occhiata... prima di ufficializzare la 0.1.
anche per inserirla nei repo!!!
per le prossime versioni bisogna inserire qualcosa per segnalare eventuali errori (tipo un menù supplementare con scritto "segnala errori" e un sistema o per mandare una mail o bò.... a una mail di supporto.Per me va bene!
ci sarebbe da inserire anche una procedura di debug che specifichi a quale riga si è manifestato l'errore...
Per il Changelog ci penso io! No problem!2° volta!!!!!
no no fai.... se non hai finito fai con comodo....Va bene ;D Proverò a fare il prima possibile!
mi pare di aver letto qualcosa riguardo a cose del genere.... ora chiedo in progammazione...
With i = i.Load("img/pitagora.jpg")
If txt_importo.Text = "" Then
Public Sub txt_toelementi_KeyPress()
If txt_toelementi.Value = 0 Then txt_toelementi.SetFocus
End
Public Sub txt_eledausare_KeyPress()
If txt_eledausare.Value = 0 Then txt_eledausare.SetFocus
End
Public Sub txt_ripetiz_KeyPress()
If txt_ripetiz.Value = 0 Then txt_ripetiz.SetFocus
End
Public Sub txt_valore_Change() 'ok
txt_valore.Text = ctrl.controllochange(txt_valore.Text)
End
Public Sub txt_valore_keypress() 'ok
ctrl.Filtro(txt_valore.Text)
End