Arduino Nano Excel Macro

[david.zovko#5920]

Slavko Koren pita:

Imam komunikaciju iz Excel macroa preko usb-a na FTDI FT2232D čip DLP-2232PB kartice, i treba mi ekvivalentna komunikacija iz Excel macroa preko usb-a na Arduino nano. Molim da mi pomogne onaj tko to zna. Hvala!

[david.zovko#5920]

Pozdrav Slavko,

možete nam dati link na primjer za Exccel Macro FT2232D, da vidimo o čemu se radi, kako bismo Vam onda mogli pomoći s istom stvari za Arduino NANO.

[slavko.koren.sk#3804]

Ne znam engleski, nisam učio programiranje terminologiju, ne znam vam precizno poslati to što tražite, samo znam što mi treba.
Šaljem vam cijeli program pa si izaberite to što trebate.
Alt+F11 ulaz u kod.
Počeo sam se nadati hvala unaprijed!
Izgleda da ću ja uspjeti poslati nešto.

[david.zovko#5920]

Pozdrav Slavko,

nažalost nismo dobili Vaš kod, a također da Vam pomognemo, ipak moramo znati što želite pa, možete li nam objasniti što je "Excel macro"?

[slavko.koren.sk#3804]

Prvenstveno sam napisao ono što ne znam.
Znam da bi ovakvim postupkom bespotrebno izgubili vrijeme bez ostvarenja rezultata.
Uz današnje mogućnosti komunikacija u vremenu kraćem od pet minuta lako se dolazi do spoznaje što mi treba i da li imate rješenje za to.
Pozovite me viberom ili fb video komunikacijom da vam pokažem kako to radi i što mi treba.
Prethodno telefonom zakažemo termin jer ja mobitel ne nosim sa sobom i ako nisam u stanu ne mogu to pokazati.
Lijepi pozdrav!

[slavko.koren.sk#3804]

Napisao sam poruku
Save draft
Izgubio poruku
Load draft i moje poruke nema
Siguran sam da ovakva komunikacija nema nikakve koristi.
Ako mi želite pomoći telefonom 098 255 029 zakažite kada me pozivate viberom ili fb video, da vam u vremenu kraćem od pet minuta predočim potrebu i dobijem odgovor da li imate to rješenje.
Lijepi pozdrav!

[slavko.koren.sk#3804]

Lijepi pozdrav Davide,
Okruženje Windows.
Excel macro je postupak snimanja radnji koje u Excelu ručno izvršavamo kako bi poslije macro automatski mogao ponavljati umjesto nas te radnje. Makro se uvijek izvršava samo iz svog zapisa to jest programskog koda. Pojedine postupke ili procedure možemo unijeti i smo pomoću programskog koda.
U privitku ponovno dostavljam Pxyz-Dlpe.xlsm, koja to sve izvršava.

Treba mi funkcija koja skenira - lista, otvara i zatvara Arduino USB portove u VB kodu. Jednako kao što to radi aplikacija Arduino.



Otvori datoteku Pxyz-Dlpe.xlsm Omogući izvršavanje makro naredbi
Klikni PlotXYz


Klikni proceduru List devices


Desni miš Viev code


Klikni W32 Open




Nije spojen hardware


Napisao sam što sve ne znam, nisam napisao da to neću pokušati naučiti.

Nedopušta privitak datoteke - treba nekako drugačije?

[slavko.koren.sk#3804]

Lijpi pozdrav Davide,

Procedura ListDevice

Kod: Označite sve

Public Sub ListDevicesp_Click()
Dim lnDevice As Integer
LoggerList.Clear
    ftStatus = FT_GetNumDevices(lngnumDevs, vbNullString, FT_LIST_BY_NUMBER_ONLY)
'ftStatus = 0
    If ftStatus <> FT_OK Then
        LoggerList.AddItem "FT_ListDevices failed status = " & ftStatus
        Exit Sub
    Else
        LoggerList.AddItem "Number of devices=" & lngnumDevs
        LoggerList.AddItem "---------------------------------"
    End If
       
    For lnDevice = 0 To lngnumDevs - 1
        ftStatus = FT_ListDevices(lnDevice, strDescription, FT_LIST_BY_INDEX Or FT_OPEN_BY_DESCRIPTION)
'ftStatus = 0
        If ftStatus <> FT_OK Then
            LoggerList.AddItem ("ListDevices failed" + Str(ftStatus))
            Exit Sub
        Else
            LoggerList.AddItem ("Device Description " & strDescription)
        End If
    
        If FT_ListDevices(lnDevice, strSerialNumber, FT_LIST_BY_INDEX Or FT_OPEN_BY_SERIAL_NUMBER) <> FT_OK Then
            LoggerList.AddItem ("ListDevices failed")
            Exit Sub
        Else
            LoggerList.AddItem ("Serial Number " & strSerialNumber)
            LoggerList.AddItem ("Device Number " & Str(lnDevice))
            LoggerList.AddItem "---------------------------------"
            txtDevicep = lnDevice
        End If
    Next lnDevice
End Sub

Procedura W32Openp Open Device

Kod: Označite sve

Public Sub W32Openp_Click()
 'Form_Load
    ftStatus = FT_ListDevices(txtDevicep, buf1, FT_LIST_BY_INDEX Or FT_OPEN_BY_SERIAL_NUMBER)
'ftStatus = 0
        If ftStatus <> FT_OK Then
            LoggerList.AddItem "Open Failed on Device " + Str(txtDevicep)
            Exit Sub
        Else
            LoggerList.AddItem "Attempt to open " & Trim(buf1)
            ftStatus = FT_Open(txtDevicep, lngHandle)
'ftStatus = 0
                 If ftStatus <> FT_OK Then
                    LoggerList.AddItem "FT_OPEN failed on Device " + Str(txtDevicep) + ftStatus
                 Else
                    LoggerList.AddItem "FT_Open Succeeded on Device " + Trim(buf1)
                    Enabled = True
 '                   Picture3.Enabled = True
  '                  Picture5.Enabled = True
   '                 Picture6.Enabled = True
    '                Picture7.Enabled = True
     '               Picture8.Enabled = True
                End If
        End If
End Sub

Procedura W32Closep Close Device

Kod: Označite sve

Private Sub W32Closep_Click()
    If FT_Close(lngHandle) <> FT_OK Then
        LoggerList.AddItem "Close Failed"
        Exit Sub
    Else
        LoggerList.AddItem "Closed Handle " + Str(lngHandle)
    End If
End Sub

Vidljivo je da napredujem u prezentiranju željenog sadržaja i osposobljenosti da možemo nastaviti komunicirati
Još nisam naučio kako poslati Excel datoteku što mi prije 20 godina nije bio problem.

Lijpi pozdrav

[david.zovko#5920]

Pozdrav Slavko,

hvala Vam na odličnoj prezentaciji problema! Sada je puno jasnije što želite napraviti.

Nažalost, kao hardveraš, VB kod mi nije niti malo poznat. Mi obećajemo dati tehničku podršku za sve vezano uz naše proizvode, ali tu smo i za sva pitanja iz elektronike, ali nažalost ne možemo znati sve, a ovo je jedna od stvari koje en znamo. Možda će se ovdje na forumu naći netko tko može pomoći s ovim problemom?

[slavko.koren.sk#3804]

Lijepi pozdrav Davide,
Zahvaljujem na tako brzom i jasnom odgovoru na pitanje koje je postalo jasno.
U samom početku sam najavio da mi je cilj ostvarenje komunikacije preko usb-a ekvivalentne serijskom monitoru. Pomozite mi, da mi predložite u kojoj croduino lekciji ili materijalu je objašnjena ta komunikacija.
Predloženo mi je korištenje foruma pa ga onda želim znati koristiti.
Smijem li nastaviti sa pokušajima slanja datoteke u atačmentu na forumu kako bi došao do jasne spoznaje kako to radi.

[david.zovko#5920]

Nema na čemu, hvala Vama na strpljenju. U ovom tutorijalu je objašnjen serijski monitor i kako ga koristiti: https://e-radionica.com/hr/blog/2016/07 ... l-monitor/

A postoji i cijela Croduino lekcija o serijskoj komunikaciji:

Za neke druge načine spajanja i "pričanja" s Croduinom putem serijske veze možemo pomoći ako znamo, ali nažalost VB ne znamo

Što se tiče slanja datoteka kao att na forumu, nažalost nije moguće, moguće je okačiti samo slike.

[slavko.koren.sk#3804]

Dobio sam sve odgovore na postavljena pitanja i pregledao sam lekciju serijske komunikacije.
Trebali veće motivacije da se prihvatim rješavanja željene problematike.
Lp!

[slavko.koren.sk#3804]

U radu se javljaju prepreke koje onemogućavaju i sam pristup rješavanju problema.
Arduino program mi je ponudio noviju verziju koju sam prihvatio.
Nakon instaliranja program više ne može prenositi skicu na čip. To još nisam uspio riješiti.
Nitko sam ne zna sve, surađujmo i obostrano ćemo sve riješiti.
Lp

[david.zovko#5920]

Pozdrav Slavko! Dajte nam molim Vas sceenshot kada otvorite "Tools" izbornik. Tamo je negdje greška..

Pod Tools -> Processor treba odabrati "Atmega328P (Old Bootloader)"

[slavko.koren.sk#3804]

Ju hu, Eureka!
Odmah proradilo!

Ne kupljenom Neno mi je program 3d printer
Mogu li ga kako kopirati, klonirati na drugi prazan Neno da ga eventualno nekakvom greškom ne izgubim.

Excel macro razvijam i očekujem povoljan rezultat koji ću prezentirati kad bude za prezentaciju.
Lijepi pozdrav i puno hvala!