K8063 AFFICHAGE DE L'HEURE DES DIGITS JUMBO POUR APPRENTISSAGE
Adn56
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
-
10 sept. 2009 à 10:55
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 10 sept. 2009 à 10:55
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 10 sept. 2009 à 10:55
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/50538-k8063-affichage-de-l-heure-des-digits-jumbo-pour-apprentissage
https://codes-sources.commentcamarche.net/source/50538-k8063-affichage-de-l-heure-des-digits-jumbo-pour-apprentissage
10 sept. 2009 à 10:55
private sub affiche (byval Val_a_afficher as integer, byval addr as integer)
checksum = 256 - (13 + (addr) + 65 + (Asc(Val_a_afficher)) Mod 256)
commandstring = Chr$(13) & Chr$(addr4) & Chr$(65) & Chr$(Asc(Val_a_afficher)) & Chr$(checksum)
Comm.Output = commandstring
end sub
tu peux ensuite faire une boucle aussi, place H1,H2,M1,etc dans un tableau Heure(6)
et appel 6 fois la fonction affiche comme suit :
for i as integer = 1 to 6
call affiche(heure(i),i)
next i
et voila 6 lignes pour faire pareil (c'est pour la philo du code, car je ne l'ai pas testé, je n'ai pas VB6 alors c'est pas forcément la bonne syntaxe)
kénavo