Mik&Toy
Participant hyperactif
- Inscrit
- 9 Juil. 2007
- messages
- 1,926
- Score de réaction
- 3
- Véhicule
- autre
Tachymètre
un tachymètre en VB :
réalisé en utilisant les propriétés X1,X2,Y1,Y2 d'une ligne épaisse
1/ Ajouter dans MainForm :
ainsi qu'un bouton "callCadran" :
2/ Créer un autre Form "Cadran_RPM" contenant l'image du cadran et l'aiguille :
la feuille "Cadran_ RPM" et l'image sont joints en .zip
nota:
avec cette instruction "Cadran_RPM.Show vbModal" on obtient une nouvelle fenêtre qui vient en partie masquer la fenêtre principale, et bloque ses contrôles.
Question aux spécialistes de la vitesse d'exécution du CanMonitor 500K:
Cet ajout positionné sous le timer 1 seconde ralentit-il par trop le programme, ou pourrait-on au contraire augmenter sa cadence , dans un timer à part au 1/10 éme de seconde par exemple.
un tachymètre en VB :
réalisé en utilisant les propriétés X1,X2,Y1,Y2 d'une ligne épaisse
1/ Ajouter dans MainForm :
Code:
Dim Cadran_actif As Boolean
If (Cadran_actif = True) Then Call Cadran_RPM.Cadran_bouge
Code:
Private Sub callCadran_click()
Cadran_actif = True
Cadran_RPM.Show vbModal ' affichage compteur régime moteur
End Sub
2/ Créer un autre Form "Cadran_RPM" contenant l'image du cadran et l'aiguille :
Code:
Option Explicit
___________________________________________________________
Public Sub Cadran_bouge()
Dim gradu As Double
' ziguy_rpm.X1 = 3600
' ziguy_rpm.Y2 = 6600 ' rayon = 6600 - 3600 = 3000
gradu = (MainForm.rpm + 90) * 3.141592 / 3000 ' angle en degrés
ziguy_rpm.X2 = 3600 - 3000 * Sin(gradu)
ziguy_rpm.Y2 = 3600 + 3000 * Cos(gradu)
CadranRpmValue = Left$(Format(MainForm.rpm, "0000"), 3) & "0"
End Sub
la feuille "Cadran_ RPM" et l'image sont joints en .zip
nota:
avec cette instruction "Cadran_RPM.Show vbModal" on obtient une nouvelle fenêtre qui vient en partie masquer la fenêtre principale, et bloque ses contrôles.
Question aux spécialistes de la vitesse d'exécution du CanMonitor 500K:
Cet ajout positionné sous le timer 1 seconde ralentit-il par trop le programme, ou pourrait-on au contraire augmenter sa cadence , dans un timer à part au 1/10 éme de seconde par exemple.