16
Programmazione / Re:Tutti i giorni alla stessa ora.
« il: 19 Dicembre 2020, 18:07:12 »
Se si esegue il programma allegato, mostra "/ "?
Gambas-it
News:
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
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.
17
Programmazione / Re:Tutti i giorni alla stessa ora.
« il: 19 Dicembre 2020, 16:16:18 »
Prova questo codice.
Codice: [Seleziona]
Public Sub Timer1_Timer()
If Str(Time(Now)) = "15:14:00" Then InviaEmail
End18
Programmazione / Re:Ping a altra macchina nella rete lan locale con Gambas
« il: 17 Settembre 2020, 17:09:16 »
Prova questo codice.
Codice: [Seleziona]
Public Sub Form_Open()
Dim sPing As String
Shell "ping -c 1 192.168.2.85" To sPing
Print sPing
End19
Domande tecniche / Re:Richiesta di test per Sleep Wait
« il: 03 Settembre 2020, 16:03:35 »
Questo è il mio risultato.
Button left = False - Button right = True
Sleep 1
Sleep 2
Sleep 3
Sleep 4
Sleep 5
Button left = True - Button right = False
Wait 1
Button left = False - Button right = True
Sleep 1
Sleep 2
Sleep 3
Sleep 4
Sleep 5
Button left = True - Button right = False
Wait 1
Button left = False - Button right = True
Sleep 1
Sleep 2
Sleep 3
Sleep 4
Sleep 5
Button left = True - Button right = False
Wait 1
Button left = True - Button right = False
Wait 1
Button left = False - Button right = True
Sleep 1
Sleep 2
Sleep 3
Button left = False - Button right = True
Sleep 1
Sleep 2
Sleep 3
Sleep 4
Sleep 5
Button left = True - Button right = False
Wait 1
Button left = False - Button right = True
Sleep 1
Sleep 2
Sleep 3
Sleep 4
Sleep 5
Button left = True - Button right = False
Wait 1
Button left = False - Button right = True
Sleep 1
Sleep 2
Sleep 3
Sleep 4
Sleep 5
Button left = True - Button right = False
Wait 1
Button left = True - Button right = False
Wait 1
Button left = False - Button right = True
Sleep 1
Sleep 2
Sleep 3
20
Programmazione / Re:Come Interrompere l'esecuzione di una Sub
« il: 11 Agosto 2020, 15:09:59 »
Questo aiuterà?
Codice: [Seleziona]
bStop As Boolean
Public Sub Form_Open()
Me.Show
Wait 0.25
Start
End
Public Sub Start()
Dim iInt As Integer
Do
Inc iInt
Wait 0.5
Print iInt
If bStop = True Then Return
Loop
End
Public Sub Form_Close()
bStop = True
End21
Programmazione / Re:Formula Float
« il: 20 Luglio 2020, 16:24:54 »
Considerate il risparmio come un intero.
€123.45 * 100 = 12345
12345/100 = €123.45
€123.45 * 100 = 12345
12345/100 = €123.45
22
Programmazione / Re:Aiuto per salvare file testo
« il: 23 Maggio 2020, 12:13:37 »
Non è possibile utilizzare '/' nei nomi dei file. Prova questo: -
Codice: [Seleziona]
File.Save(Application.Path &/ Format$(Now, "dd-mm-yyyy hh:nn:ss") & "Neo6M.log", txaLog.Text)23
Domande tecniche / Re:Colore pulsanti
« il: 04 Maggio 2020, 19:53:33 »
Che ne dici di un nuovo pulsante.
24
Programmazione / Re:Ricerca algoritmo per Sudoku
« il: 27 Aprile 2020, 15:48:50 »Citazione
..ma io sono troppo ignorante per capirci qualcosa.
Non siete soli.
25
Programmazione / Re:Ricerca algoritmo per Sudoku
« il: 26 Aprile 2020, 12:27:12 »
Ciao Gianluigi,
L'idea di base è che ci sia un array per ogni colonna e riga.
Viene creato un insieme casuale di numeri.
Si cerca di aggiungere il primo numero alla riga e alla colonna in questione, a condizione che non esista già. Poi il successivo fino a quando non si adatta o non fallisce. This creates one of the 9 blocks of 9.
Questa operazione fallirà molte volte e il tentativo verrà interrotto. Il processo ricomincia da capo.
Ho appena creato 5 nuove soluzioni e i tentativi sono stati 19, 216, 257, 64 e 3 prima che l'intero processo fosse completato con successo. Durante il processo una Stringa[9,9] viene riempita e poi restituita.
The attempts are printed in the Console. '464 arrays of 81 numbers were created before a solution was found' (Prima di trovare una soluzione sono state create 464 matrici di 81 numeri)
Spero che questo aiuti.
Non capisco esattamente cosa state cercando. Forse potrebbe spiegarlo in un altro modo. Non parlo italiano, quindi il suo punto di vista potrebbe essersi perso nella traduzione.
L'idea di base è che ci sia un array per ogni colonna e riga.
Codice: [Seleziona]
byRow0 As New Byte[] byRow1 As New Byte[] byRow2 As New Byte[] byRow3 As New Byte[] byRow4 As New Byte[] byRow5 As New Byte[] byRow6 As New Byte[] byRow7 As New Byte[] byRow8 As New Byte[]
byCol0 As New Byte[] byCol1 As New Byte[] byCol2 As New Byte[] byCol3 As New Byte[] byCol4 As New Byte[] byCol5 As New Byte[] byCol6 As New Byte[] byCol7 As New Byte[] byCol8 As New Byte[]Viene creato un insieme casuale di numeri.
Codice: [Seleziona]
byNumbers = [1, 2, 3, 4, 5, 6, 7, 8, 9]
byNumbers.Shuffle()Si cerca di aggiungere il primo numero alla riga e alla colonna in questione, a condizione che non esista già. Poi il successivo fino a quando non si adatta o non fallisce. This creates one of the 9 blocks of 9.
Codice: [Seleziona]
If Not oAllRows[byRow + byNextWorkRow].Exist(byNumbers[byCounter]) And If Not oAllCols[byCol + byNextWorkCol].Exist(byNumbers[byCounter]) Then..Codice: [Seleziona]
Repeat
byLines.Clear
ClearAll
CreateArray
Inc iTimes
Until bItWorks = TrueThe attempts are printed in the Console. '464 arrays of 81 numbers were created before a solution was found' (Prima di trovare una soluzione sono state create 464 matrici di 81 numeri)
Spero che questo aiuti.
Non capisco esattamente cosa state cercando. Forse potrebbe spiegarlo in un altro modo. Non parlo italiano, quindi il suo punto di vista potrebbe essersi perso nella traduzione.
26
Programmazione / Re:Ricerca algoritmo per Sudoku
« il: 24 Aprile 2020, 17:56:05 »
Ho dato un'occhiata a 'MySudoku'. C'è un problema perché crea numeri ripetitivi.
Ho scritto del codice che crea un puzzle completo. Crea numeri diversi ogni volta che la routine viene chiamata.
È questo quello che stai cercando?
Ho scritto del codice che crea un puzzle completo. Crea numeri diversi ogni volta che la routine viene chiamata.
È questo quello che stai cercando?
28
Programmazione / Re:Replicare gruppo di controlli
« il: 11 Aprile 2020, 15:02:51 »
Ecco la versione 2
29
Programmazione / Re:Replicare gruppo di controlli
« il: 10 Aprile 2020, 17:29:15 »
Prova questo codice
30
Programmazione / Re:Settare colori da codice
« il: 26 Marzo 2020, 17:26:22 »
Prova a eseguire questo codice: -
Codice: [Seleziona]
Button1 As Button
TextArea1 As TextArea
iCount As Integer
Public Sub Form_Open()
Dim HBox1 As HBox
With Me
.Height = 350
.Width = 350
.Arrangement = Arrange.Vertical
.Padding = 5
End With
TextArea1 = New TextArea(Me)
TextArea1.Expand = True
With HBox1 = New HBox(Me)
.Height = 40
.Padding = 4
End With
With Button1 = New Button(HBox1) As "Button1"
.Width = 100
.Text = "&Click!"
End With
End
Public Sub Button1_Click()
Dim sColor As String[] = ["&005FFF87", "&0043802F", "&005913A0", "&00A04F77", "&00000000", "&FFFFFFFF"]
TextArea1.Background = Val(sColor[iCount])
Inc iCount
If iCount > sColor.Max Then iCount = 0
End