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 - vir1966

Pagine: 1 2 [3]
31
Programmazione / Re:Cercato float ottenuto string
« il: 02 Giugno 2019, 21:10:22 »
Ti ringrazio molto per l'aiuto  :ok:

32
Programmazione / Re:Cercato float ottenuto string
« il: 02 Giugno 2019, 20:59:40 »
Citazione da: vuott - 02 Giugno 2019, 20:50:12
...insomma, ti andrebbe bene una cosa così ?

Codice: [Seleziona]
Public Sub Button1_Click()

   Dim lucelarghezza, differenza, larghezzaanta As Float

   lucelarghezza = ValueBox1.Value - (ValueBox2.Value * 2 / 10) + 0.2 '
   larghezzaanta = lucelarghezza / ValueBox3.Value + differenza
   TextBox1.Text = Format(larghezzaanta, "###.#")



End
Quali vantaggi avrei usando Valuebox

33
Programmazione / Re:Cercato float ottenuto string
« il: 02 Giugno 2019, 20:42:41 »
intanto grazie per la risposta....si anche larghezzaanta è Variant.....in Vb era solo Dim larghezzaanta e funzionava, in Gambas non funziona e ho messo Variant solo che se txtLargoTelaio.Text e un numero intero tipo 120 non mi da errore, se è 120,5 (con la virgola) mi da errore nella riga:
lucelarghezza = txtLargoTelaio.Text - (cboSezTelaio.text * 2 / 10) + 0.2

edit:
adesso ho visto che se ometto la virgola ma metto il punto non da errore

34
Programmazione / Cercato float ottenuto string
« il: 02 Giugno 2019, 19:51:38 »
Premetto che mi ritengo un assoluto ignorante in programmazione per cui chiedo un aiuto....stò riscrivendo in Gambas un programma che avevo scritto in Vb5 e poi portato avanti con Vb6, si tratta di un applicativo per elaborare misure di serramenti in legno che ho scritto ad uso personale visto che io sono un serramentista.....tornando al punto del problema la parte ci codice in oggetto mentre in vb non da errore in Gambas mi dice Tipo non corrispondente, cercato Float ottenuto string...


Codice: [Seleziona]
Dim lucelarghezza As Variant

lucelarghezza = txtLargoTelaio.Text - (cboSezTelaio.text * 2 / 10) + 0.2 '
larghezzaanta = lucelarghezza / cboNumAnte.Text + differenza
txtLarghezzaAnta.Text = Format(larghezzaanta, "###.#")

35
Programmazione / Re:[RISOLTO] Dove stò sbagliando?
« il: 02 Febbraio 2017, 22:27:21 »
Citazione da: Gianluigi - 02 Febbraio 2017, 22:18:14
Senti Vir1966 è già stato cortese così, vista la mia precedente ruvidità, anzi ti comunico che gli ho scritto privatamente per scusarmi.

 :ciao: :ciao:
Nessun problema...grazie :coder:

36
Programmazione / Re:Dove stò sbagliando?
« il: 02 Febbraio 2017, 21:01:30 »
Complimenti per il vostro codice per ottenere la stessa cosa per cui ho chiesto aiuto, oltre che funzionale è anche bello da vedere  :ok: ritornando al mio ormai secolare programmino che in Gambas2 funzionava e una volta convertito da Gambas3 non ne voleva sapere, ho modificato
Codice: [Seleziona]
Dim v[i] As Integer
che non funzionava con
Codice: [Seleziona]
Dim v As New Integer[6]
Ho modificato
Codice: [Seleziona]
For i = 0 To 5
con
Codice: [Seleziona]
For i = 0 To v.Max
ho modificato
Codice: [Seleziona]
v[i] = Int[Rnd* 90] +1
che non funzionava e per il fatto delle parentesi quadre mi vedeva Int come variabile con
Codice: [Seleziona]
v[i] = Int(Rnd(1, 90))
adesso il programmino è ripartito e quidi RISOLTO
Grazie a tutti  :2birre:

37
Programmazione / Re:Dove stò sbagliando?
« il: 02 Febbraio 2017, 13:11:25 »
Per vuott:
Ti ringrazio di cuore per la spiegazione....mi metterò all'opera per ripristinare questo programmino seguendo le tue indicazioni  :ok:

38
Programmazione / Re:Dove stò sbagliando?
« il: 01 Febbraio 2017, 23:17:25 »
Citazione da: allegfede - 01 Febbraio 2017, 22:04:09
dim v As Integer[]

dovrebbe andare
Ho già provato e funziona ma poi si blocca su questa riga:
Codice: [Seleziona]
v[i] = Int[Rnd * 90] + 1       ' mi da errore con NOT AN OBJECT


Per Gianluigi:
Codice: [Seleziona]
If v[i] = v[i - 1] Then Goto ricalcola
questo programmino genera 6 numeri da 1 a 90 in modo casuale,diversi e in ordine crescente....per cui se v è uguale al precedente valore ....allora ricalcola

39
Programmazione / [RISOLTO] Dove stò sbagliando?
« il: 01 Febbraio 2017, 21:24:58 »
Ciao a tutti....e scusate la mia ignoranza, sono alle prese di un codice che ha funzionato (con vari adattamenti) con GwBasic, Qbasic, VisualBasic per Dos, VisualBasic 5 e 6, Gambas 2 ma non ne vuol sapere di funzionare su Gambas 3 versione 3.9.2, dove stò sbagliando?
Codice: [Seleziona]
Dim v[i] As Integer ' su questa riga mi da errore: Embedded arrays are forbidden here
Dim i As Integer
Dim min As Integer
Dim j As Integer
Dim SWP As Integer
Dim R As Integer
Dim Int As Integer



For i = 0 To 5
  
'Next
Randomize

ricalcola:
v[i] = Int[Rnd * 90] + 1
If i = 0 Then Goto vai

If i = 1 Then
   If v[i] = v[i - 1] Then Goto ricalcola
End If

If i = 2 Then
   If v[i] = v[i - 1] Or v[i] = v[i - 2] Then Goto ricalcola
End If

If i = 3 Then
   If v[i] = v[i - 1] Or v[i] = v[i - 2] Or v[i] = v[i - 3] Then Goto ricalcola
End If

If i = 4 Then
   If v[i] = v[i - 1] Or v[i] = v[i - 2] Or v[i] = v[i - 3] Or v[i] = v[i - 4] Then Goto ricalcola
End If

If i = 5 Then
   If v[i] = v[i - 1] Or v[i] = v[i - 2] Or v[i] = v[i - 3] Or v[i] = v[i - 4] Or v[i] = v[i - 5] Then Goto ricalcola
End If

vai:
Next
'Rem 170 REM Ordinamento crescente con Selection Sort
For i = 0 To 5
Min = i
For J = i + 1 To 5
If v[J] < v[Min] Then Min = J
Next
SWP = v[i]
v[i] = v[Min]
v[Min] = SWP
Next

Pagine: 1 2 [3]