<SCRIPT language="VBscript">
public com_port
sub creerInstance()
Set com_port = CreateObject("MSCOMMLib.MSComm")
end sub
sub configPortB(num)
com_port.commport = num
com_port.settings = "9600,N,8,1"
com_port.InputLen = 1024
com_port.RThreshold = 0
com_port.RThreshold = 0
com_port.PortOpen = True
end sub
function affiche()
affiche= com_port.Input
end function
sub closePort()
com_port.PortOpen = False
end sub
</SCRIPT>
<script>
function readBalance(){
var val =trim(affiche());
val = trim(val);
if (val!='' ){
if(val.lastIndexOf(' ') != -1)
val = val.substring(val.lastIndexOf(' ')+1, val.length);
document.all('WeightSendPS').value = val;
CheckWeightSendPS('WFDecisionAliasPS');
}
setTimeout("readBalance()",1000);
}
function EnablePort(t){
window.document.all('balance').checked = true;
pass=true;
creerInstance();
configPortB(t);
setTimeout("readBalance()",1000);
}
EnablePort(1);
</script>
Conclusion :
cette source permet de lécture le poids automatiquement debalance
électronique sur com1 ou com2 en web
tester et marche mais:
existe erreur N° 429 : objet ne peut pas être créer
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.