'----------------------------------------------------------------------------------------
Sub Gaugehour()                                             'pour calculer l'angle de la gauge minutes en fonctions des minutes
   Local Fxmin As Word
   Local Fxhour As Word
  Fxhour = Jhour
   Select Case Fxhour
       Case 0 To 8
       Fxhour = Fxhour * 30 : Fxhour = Fxhour + 90
      Case 9 To 12
         Fxhour = Fxhour -9 : Fxhour = Fxhour * 30          'sans les minutes
      Case 13 To 20
          Fxhour = Fxhour - 12
          Fxhour = Fxhour * 30
           Fxhour = Fxhour + 90                             'sans les minutes
          Case 21 To 23
          Fxhour = Fxhour - 21 : Fxhour = Fxhour * 30
   End Select
   Fxmin = Jminute : Fxmin = Fxmin \ 2                      'on ajoute le décalage des minutes ,
   ' 60 minutes de décallage dans l'heure  pleine pour 30 degrés Donc division entière des minutes
   ' Et Incément Toutes Les 2 Minutes.
   Fxhour = Fxhour + Fxmin

  Call Nex_gaugeval( "z1" , Fxhour)
End Sub

''HX711 weight----------------------------------------------


Sub Hx711()
'HX711 Wägezellen-Sensor michael@bascomforum.de
   Call Nex_page(2)                                         'give here the name of the weight page==============
   Waitms 100

'Dim Wert As Long                                            'Wandlerwert        Converter value        Valeur du convertisseur
'Dim C As Byte At Wert Overlay                            'serielles Byte LSB
'Dim B As Byte At Wert + 1 Overlay
'Dim A As Byte At Wert + 2 Overlay                           'serielles Byte MSB
'Dim X As Byte At Wert + 3 Overlay                           'MSB im Long
'Dim Tara As Long                                            'Offset
'Dim Wert_final As Long                                      'Rechnungsvariable
'Const Faktor = 1989

   Clock Alias Portc.5                                         ' the clock
   Config Clock = Output
   D_in Alias Pinc.4                                        ' data in
   Config D_in = Input

   Tara = 0
   Do
      For Ibyte = 7 To 0 Step -1
         Clock = 1
         Waitus 2
         A.ibyte = D_in
         Waitus 1
         Clock = 0
      Next
      If A.7 = 1 Then
         X = 255
      Else
         X = 0
      End If
      For Ibyte = 7 To 0 Step -1
         Clock = 1
         Waitus 2
         B.ibyte = D_in
         Waitus 1
         Clock = 0
      Next
      For Ibyte = 7 To 0 Step -1
         Clock = 1
         Waitus 2
         C.ibyte = D_in
         Waitus 1
         Clock = 0
      Next
      Clock = 1                                                '25 Clocks
      Waitus 2
      Waitus 1
      Clock = 0
      Waitms 20
      Device_id = 0
      Call Nex_returntime()
      Select Case Device_id
         Case 1                                             'tare
            Tara = Wert
            Debug #usb , "tare:" ; Wert
            Device_id = 0
            Wait 1
           Case 2                                           'retour
             Exit Sub

      End Select
      Waitms 200
      If Tara = 0 Then Call Nex_text( "t3" , "Zero ?" , Black , White , 4)
      Call Weighing()

   Loop
End Sub

Sub Weighing()
   If Tara > 0 Then
      Wert = Wert - Tara                                    'Offset abziehen    'deduct offset (tare) , soustraire le décalage
   End If
   If Tara = 0 Then
      Call Nex_text( "t3" , "Zero ?" , Black , White , 4)
       Debug #usb , "mesure vide " ; Wert
      Exit Sub
   End If
  Wert_final = Wert / Faktor                                'Faktor für metrische Gramm   Factor for metric grams        ' facteur pour les grammes
   Wert_final = Abs(wert_final)
   Debug #usb , "Wert_final " ; Wert_final
   Sentence = Str(wert_final) : Sentence = Sentence + " g"
   Call Nex_text( "t3" , Sentence , Black , White , 4)
   Device_id = 0
End Sub