All Forums  GQ Electronics Forums  2.GQ Geiger Muller Counter  GQ EMF380v2 realtime datalogging TeraTerm macro

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!

Screensize: 640 x 480 800 x 600 1024 x 768 1280 x 1024 UserName: Password: Format Mode: Basic  Help  Prompt  Format: Font Andale Mono Arial Arial Black Book Antiqua Century Gothic Comic Sans MS Courier New Georgia Impact Lucida Console Script MT Bold Stencil Tahoma Times New Roman Trebuchet MS Verdana   Size 1 2 3 4 5 6   Color Black Red Yellow Pink Green Orange Purple Blue Beige Brown Teal Navy Maroon LimeGreen Message: * HTML is OFF * Forum Code is ON Smilies [quote][i]Originally posted by Neko2[/i] [br]Hello, I have made a macro for TeraTerm to acquire data in real time for the GQ EMF380v2 meter connected to the computer, the macro is very simple and generates a csv file with the Computer DateTime, EMF, EF, RFTotal and RFTotalPeak values every 10 seconds. Terminate data acquisition by closing the connection with teraterm. I apologize because the variables and error messages are in Spanish. --------------------------------------------- mtimeout=300 ValorEMF='0' UdsEMF='-' ValorEF='0' UdsEF='-' ValorRFTotal='0' UdsRFTotal='-' ValorRFTotalPico='0' UdsRFTotalPico='-' Primero=1 Cabecera='-' Linea='-' FechaHora='-' ; abre el archivo getdate FechaHora 'EMF_%Y%m%d_%H%M%S.csv' fileopen file FechaHora 0 if file=-1 then messagebox 'Error: No puedo abrir el archivo' 'Error' endif ; entra en modo sincrono setsync 1 testlink while result=2 getdate FechaHora '%d/%m/%Y %H:%M:%S' send '<GETEMF>' waitln '' strsplit inputstr ' ' 4 ValorEMF=groupmatchstr3 if Primero=1 Then UdsEMF=groupmatchstr4 endif send '<GETEF>' waitln '' strsplit inputstr ' ' 4 ValorEF=groupmatchstr3 if Primero=1 Then UdsEF=groupmatchstr4 endif send '<GETRFTOTALDENSITY>' waitln '' strsplit inputstr ' ' 4 ValorRFTotal=groupmatchstr1 if Primero=1 Then sprintf2 UdsRFTotal '%s %s'groupmatchstr2 groupmatchstr3 endif send '<GETRFTOTALDENSITYPEAK>' waitln '' strsplit inputstr ' ' 4 ValorRFTotalPico=groupmatchstr1 if Primero=1 Then sprintf2 UdsRFTotalPico '%s %s %s'groupmatchstr2 groupmatchstr3 groupmatchstr4 endif if Primero=1 Then sprintf2 Cabecera '%s,%s,%s,%s,%s' 'FechaHora' UdsEMF UdsEf UdsRFTotal UdsRFTotalPico filewriteln file Cabecera Primero=0 endif sprintf2 Linea '%s,%s,%s,%s,%s' FechaHora ValorEMF ValorEf ValorRFTotal ValorRFTotalPico filewriteln file Linea send '<RESETRFPEAK>' pause 10 testlink endwhile fileclose file ; entro en modo asincrono setsync 0 --------------------------------------------- [/quote]    Insert an Image File Check here to include your profile signature.