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