forum.hwkitchen.cz

Kód: Vybrat vše

Const koef_A As Double = 0.0039083
Const koef_B As Double = -0.0000005775
Const koef_C As Double = -0.000000000004183




Public Function celsius_odpor(teplota)
  On Error GoTo chyba
  Me.R_vystup.BackColor = vbWhite
  teplota = Val(Replace(teplota, ",", "."))
  If (teplota > 850 Or teplota < -200) Then
    GoTo chyba
  End If
  
  If (teplota < 0) Then
    celsius_odpor = 100 * (1 + koef_A * teplota + koef_B * (teplota ^ 2) + koef_C * (teplota ^ 3) * (teplota - 100))
  Else
    celsius_odpor = 100 * (1 + koef_A * teplota + koef_B * (teplota ^ 2))
  End If
  Exit Function
  
chyba:
  Me.R_vystup.BackColor = vbRed
  celsius_odpor = 0

End Function





Public Function odpor_celsius(odpor)
  On Error GoTo chyba
  Me.T_vystup.BackColor = vbWhite
  
  odpor = Val(Replace(odpor, ",", "."))
  If (odpor < 19 Or odpor > 391) Then
    GoTo chyba
  End If
  
  pom_x = Round((odmocnina((koef_B * odpor) - (100 * koef_B) + (25 * (koef_A ^ 2)))), 10)
  pom_y = Round((-5 * koef_A), 10)
  odpor_celsius = Round((pom_x + pom_y) / (10 * koef_B), 1)
  Exit Function

chyba:
  Me.T_vystup.BackColor = vbRed
  odpor_celsius = 0

End Function



Public Function odmocnina(cislo)
  odmocnina = cislo ^ 0.5
End Function