PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → WX - Exemplo de código para o equipamento DT9800, by Carlo Ferreira
WX - Exemplo de código para o equipamento DT9800, by Carlo Ferreira
Iniciado por Boller, abr., 02 2021 12:16 PM - 1 resposta
Membro registado
3.274 mensagems
Popularité : +89 (91 votes)
Publicado em abril, 02 2021 - 12:16 PM
Bom dia a todos

WX - Exemplo de código para o equipamento DT9800, by Carlo Ferreira

We all now that WinDev continues to be the best development Tool in the market.

A good example for the DT9800 Series:
https://lnkd.in/ddr6Jrj

FREE CODE FROM MYNETQUEST.COM GUYS ENJOY

PROCEDURE GetDataVal()
DataBase is Class_DataBase
dataval is int

LOOP

dataval = WinMain.ATAcq>>DataFlow (1)
WinMain.ATAcq>>Config()

valor is int = WinMain.ATAcq>>GetSingleValue(channel,Gain)

//Output
//valorOutput is variant = WinMain.ATAcq>>PutSingleValue(channel,Gain,valor)

Wait(100)

DataBase.m_DeviceIDval = WinMain.Device
DataBase.m_DeviceData = valor
DataBase.m_TimeStampVal = DateSys() + TimeSys()

DataBase.SaveRawData()

TableDisplay(WinMain.Table_RawData)

grDraw(WinMain.Chart1)

ThreadExecute("AverageVal",threadNormal,Average)

DO WHILE dataval <> "N/A"

CASE ERROR:
ToastDisplay(WinMain.ATAcq>>LastErrDescription,toastShort,vaMiddle,haCenter,DarkRed)

CASE EXCEPTION:
ToastDisplay(WinMain.ATAcq>>LastErrDescription,toastShort,vaMiddle,haCenter,DarkRed)





Todos nós agora que a WinDev continua a ser a melhor ferramenta de desenvolvimento do mercado.

Um bom exemplo para a série DT9800:
https://lnkd.in/ddr6Jrj

CÓDIGO GRATUITO DE MYNETQUEST.COM CARAS DESFRUTAR

PROCEDIMENTO GetDataVal()
O DataBase é Class_DataBase
dataval é int

Loop

dataval = WinMain.ATAcq>>DataFlow (1)
WinMain.ATAcq>>Config()

valor é int = WinMain.ATAcq>>GetSingleValue (canal,Gain)

Saída
valorOutput é variante = WinMain.ATAcq>>PutSingleValue (canal,Gain,valor)

Espera(100)

DataBase.m_DeviceIDval = WinMain.Device
DataBase.m_DeviceData = valor
DataBase.m_TimeStampVal = DateSys() + TimeSys()

DataBase.SaveRawData()

TableDisplay (WinMain.Table_RawData)

grDraw (WinMain.Chart1)

ThreadExecute ("AverageVal", threadNormal,Average)

DO WHILE dataval <> "N/A"

ERRO DE CASO:
ToastDisplay (WinMain.ATAcq>>LastErrDescription,toastShort,vaMiddle,haCenter,DarkRed)

EXCEÇÃO DO CASO:
ToastDisplay (WinMain.ATAcq>>LastErrDescription,toastShort,vaMiddle,haCenter,DarkRed)


by Carlo Ferreira

Meu muito obrigado!!!

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membro registado
3.274 mensagems
Popularité : +89 (91 votes)
Publicado em abril, 02 2021 - 12:27 PM




--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/