Balance électronique

Commenter

Contenu du snippet

<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

A voir également

S'inscrire maintenant

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.