PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2024 → basic vers windev
basic vers windev
Débuté par labadiemichel, 11 déc. 2005 20:58 - 1 réponse
#1
Posté le 11 décembre 2005 - 20:58
//--VB-----------------------------------------------------
// Private Sub Command1_Click()
// Dim Result() As Byte
// Dim X As Integer
//
// Result = Modbus1.DoReadCoilStatus(CInt(txtSlave.Text), CInt(Text1.Text), 16, 1)
// Risultato.Clear
// For X = 0 To UBound(Result)
// Risultato.AddItem Result(X)
// Next
//
//--WL-----------------------------------------------------
Res est un tableau de 16 entier
X est entier

Res = modbus2>>DoReadCoilStatus(1, 0, 16, 1)
ListeSupprimeTout(Risultato)
POUR X = 1 A 17
ListeAjoute(Risultato, Res[X])
FIN

modbus2 est un activex qui marche, les fonctions simples tournent, le probleme est le passage de données dans un tableau

probleme line
Res = modbus2>>DoReadCoilStatus(1, 0, 16, 1)
#2
Posté le 12 décembre 2005 - 08:29
Salut,

Merci pour cet exemple de code en VB.

Que veux-tu qu'on en fasse, et à quoi sert-il ?

Ici nous sommes sur un site dédié aux produits de PCSoft.

Quelques précisions et un peu de mots courts (bonjour, au revoir....), ça aide quand même.

Ciao
→ Revenir à WINDEV 2024