Balance électronique

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 056 fois - Téléchargée 34 fois

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

Ajouter un commentaire Commentaires
isa911
Messages postés
63
Date d'inscription
mercredi 28 février 2001
Statut
Membre
Dernière intervention
25 novembre 2010

18 nov. 2010 à 11:07
Ben moi, meme sans commentaires, ca m'a bien aidée pour débuter ;)
CYM13
Messages postés
18
Date d'inscription
mercredi 24 mai 2006
Statut
Membre
Dernière intervention
16 octobre 2006

12 nov. 2006 à 17:06
La description et telement peu acceuillante que je n'ai même pas envie de tester cette source...........
NHenry
Messages postés
14927
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
18 mai 2022
162
28 févr. 2005 à 12:50
Ben g decouvert kon pouvait utiliser le port com avec VBS :)
sebmafate
Messages postés
4936
Date d'inscription
lundi 17 février 2003
Statut
Membre
Dernière intervention
14 février 2014
38
26 févr. 2005 à 08:25
yes je sévis aussi ici :p
mais là je ne suis pas modo lol, je donne mon avis c'est tout.
gwpkwz
Messages postés
51
Date d'inscription
mercredi 26 février 2003
Statut
Membre
Dernière intervention
10 août 2005

26 févr. 2005 à 07:54
Bonjour Seb
Alors tu sévis ici aussi :o))

Je ne vois pas l'intérêt de cette source à moins de travailler à la poste tunisienne !
Afficher les 6 commentaires

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.