|
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.657 mensagems Popularité : +175 (223 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:
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)
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:
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.657 mensagems Popularité : +175 (223 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/ |
| |
| |
| | | |
|
| | | | |
| | |
|