K8063 AFFICHAGE DE L'HEURE DES DIGITS JUMBO POUR APPRENTISSAGE

Signaler
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
-
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
-
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

Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
1
Re, Tiens essaye un truc du style pour voir :

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