Citazione:

---

Messaggio inserito da marco.santilli

Citazione:

---

Messaggio inserito da francescopaolo iacono

Ciao Marco mi passeresti se ti va lo Sketch? per l'apertura dei motori passo passo? grazie

---

questo sul pulsante, creo un nuovo Thread e gli passo la funzione del motore avanti

Private Sub btnMotore01Avanti_Click(sender As Object, e As EventArgs) Handles btnMotore01Avanti.Click

        trdMotore01 = New Thread(AddressOf Motore1_Avanti)
        trdMotore01.IsBackground = True
        trdMotore01.Start()

    End Sub

la funzione per il motore in avanti, ho aggiunto funzioni interne per fare lo stop nel ciclo. l'ho usato per simulare un finecorsa
statoMotore01 = i --> lo uso per una progressiveBAR, puoi anche toglierlo, è solo un effetto grafico.
Dim Fase01 As Integer = Motore_1_01 (sono i pin)
Dim Fase02 As Integer = Motore_1_02 (sono i pin)
Dim Fase03 As Integer = Motore_1_03 (sono i pin)
Dim Fase04 As Integer = Motore_1_04 (sono i pin)

    Private Sub Motore1_Avanti()
        motore_attivo_01 = True
        Dim motor_Speed As Integer = 4


        Dim Fase01 As Integer = Motore_1_01
        Dim Fase02 As Integer = Motore_1_02
        Dim Fase03 As Integer = Motore_1_03
        Dim Fase04 As Integer = Motore_1_04


        For i = 0 To 100

            If motore_attivo_01 = True Then


                Application.DoEvents()
                statoMotore01 = i
                Application.DoEvents()

                FirmataVB1.DigitalWrite(Fase01, HIGH)
                FirmataVB1.DigitalWrite(Fase02, LOW)
                FirmataVB1.DigitalWrite(Fase03, LOW)
                FirmataVB1.DigitalWrite(Fase04, LOW)
                Thread.Sleep(motor_Speed)
                FirmataVB1.DigitalWrite(Fase01, LOW)
                FirmataVB1.DigitalWrite(Fase02, HIGH)
                FirmataVB1.DigitalWrite(Fase03, LOW)
                FirmataVB1.DigitalWrite(Fase04, LOW)
                Thread.Sleep(motor_Speed)
                FirmataVB1.DigitalWrite(Fase01, LOW)
                FirmataVB1.DigitalWrite(Fase02, LOW)
                FirmataVB1.DigitalWrite(Fase03, HIGH)
                FirmataVB1.DigitalWrite(Fase04, LOW)
                Thread.Sleep(motor_Speed)
                FirmataVB1.DigitalWrite(Fase01, LOW)
                FirmataVB1.DigitalWrite(Fase02, LOW)
                FirmataVB1.DigitalWrite(Fase03, LOW)
                FirmataVB1.DigitalWrite(Fase04, HIGH)
                Thread.Sleep(motor_Speed)
            Else
                Exit For
            End If

        Next
        motore_attivo_01 = False
        Invoke(New EventHandler(AddressOf Motore1_FineCorsaAndata))
    End Sub

invoke finale, non è altro una funzione che mi scrive in una listbox tutte le cose che ha terminato

   Private Sub Motore1_FineCorsaAndata()
        ListBox1.Items.Add("Portone 1: Fine apertura")
    End Sub

---

Citazione:

---

Messaggio inserito da francescopaolo iacono

Ciao Marco mi passeresti se ti va lo Sketch? per l'apertura dei motori passo passo? grazie

---

Private Sub btnMotore01Avanti_Click(sender As Object, e As EventArgs) Handles btnMotore01Avanti.Click

        trdMotore01 = New Thread(AddressOf Motore1_Avanti)
        trdMotore01.IsBackground = True
        trdMotore01.Start()

    End Sub

    Private Sub Motore1_Avanti()
        motore_attivo_01 = True
        Dim motor_Speed As Integer = 4


        Dim Fase01 As Integer = Motore_1_01
        Dim Fase02 As Integer = Motore_1_02
        Dim Fase03 As Integer = Motore_1_03
        Dim Fase04 As Integer = Motore_1_04


        For i = 0 To 100

            If motore_attivo_01 = True Then


                Application.DoEvents()
                statoMotore01 = i
                Application.DoEvents()

                FirmataVB1.DigitalWrite(Fase01, HIGH)
                FirmataVB1.DigitalWrite(Fase02, LOW)
                FirmataVB1.DigitalWrite(Fase03, LOW)
                FirmataVB1.DigitalWrite(Fase04, LOW)
                Thread.Sleep(motor_Speed)
                FirmataVB1.DigitalWrite(Fase01, LOW)
                FirmataVB1.DigitalWrite(Fase02, HIGH)
                FirmataVB1.DigitalWrite(Fase03, LOW)
                FirmataVB1.DigitalWrite(Fase04, LOW)
                Thread.Sleep(motor_Speed)
                FirmataVB1.DigitalWrite(Fase01, LOW)
                FirmataVB1.DigitalWrite(Fase02, LOW)
                FirmataVB1.DigitalWrite(Fase03, HIGH)
                FirmataVB1.DigitalWrite(Fase04, LOW)
                Thread.Sleep(motor_Speed)
                FirmataVB1.DigitalWrite(Fase01, LOW)
                FirmataVB1.DigitalWrite(Fase02, LOW)
                FirmataVB1.DigitalWrite(Fase03, LOW)
                FirmataVB1.DigitalWrite(Fase04, HIGH)
                Thread.Sleep(motor_Speed)
            Else
                Exit For
            End If

        Next
        motore_attivo_01 = False
        Invoke(New EventHandler(AddressOf Motore1_FineCorsaAndata))
    End Sub

   Private Sub Motore1_FineCorsaAndata()
        ListBox1.Items.Add("Portone 1: Fine apertura")
    End Sub

Citazione:

---

Messaggio inserito da armandinoc

Non so se sia uguale come programmazione cmq,
se devi fare più cose contemporaneamente, per esempio aprire un portone e chiudere una finestra non puoi usare il delay come pausa perché il delay blocca l'esecuzione del programma per la durata della pausa. Quindi se hai il delay di 1000 tra uno step e l'altro del motore passo passo in quel secondo non puoi azionare il motore della finestra. Con la funzione millis durante la pausa puoi fare svolgere altre righe del codice quindi puoi far funzionare la finestra mentre la porta di chiude.

---

Citazione:

---

Messaggio inserito da armandinoc

Puoi collegarli tramite porta i2c e vista la lunghezza del cavo puoi usare un modulo i2c.externder per far arrivare il segnale. Avrai un Arduino master che invia i comandi agli altri Arduino slave.
Non so come gestirai il progetto ma secondo me ti basterà collegare al PC solo l'arduino master

Sulle mie centraline uso un LCD per visualizzare cosa sta facendo Arduino e gestito il passare della giornata con la funzione millis

---

Citazione:

---

Messaggio inserito da armandinoc

L'alimentatore del motore passo passo conviene prenderla da una alimentazione esterna ad Arduino e dovrai mettere il gnd delle alimentazioni esterne su gnd di Arduino altrimenti, vista la lunghezza non ti arriveranno i 5v.

---

Citazione:

---

Messaggio inserito da armandinoc


Ti servono solo 4 PIN per la scheda del motore + 1 per il finecorsa.
Innanzitutto puoi mettere Arduino in posizione centrale rispetto al presepe per accorciare la lunghezza dei fili, comunque fai delle prove visto che li hai smontati. Altrimenti devi usare dei Arduino nano e metterli "dietro" la casa.

---

Citazione:

---

Messaggio inserito da armandinoc

Considera che anche i PIN analogici possono diventare digitali se non ti bastano i PIN oppure puoi usare finecorsa analogici tipo tcrt5000

---

Citazione:

---

Messaggio inserito da armandinoc

Trovo più semplice usare i passo passo, sia perché è più facile regolare la velocità che il raggio di apertura.
Con i motori DC dovresti usare un ponte h per l'inversione orario antiorario e un regolatore di tensione per motori DC per la velocità, per non perdere la "coppia motore"
Con i MOSFET se abbassi troppo la tensione il motorino si ferma. Oppure devi usare dei motoriduttori da 1 giro/ minuto.
Sicuramente dovrai usare la funzione millis per gestire il tutto.

---

Citazione:

---

Messaggio inserito da Amministratore

Se hai diversi motori da azionare farli partire tutti insieme mi sembra brutto.
Io agirei così:
5 pin per controllare ogni motore quindi:
2 in input per i fine corsa
1 per l'iversione dell'alimentazione per il senso di rotazione
1 per alimentare il motore
1 in imput per il controllo 1=apre 0=chiude o viceversa
Per regolare entro un certo limite la velocità di apertra/chiusura puoi usare le uscite pwm.
Usando un solo pin per i fine corsa parallelandoli, con Arduino uno puoi controllare tre motori.

---