Die Blutgasanalyse , schnell und wichtig.
Wie kann man die Meßwerte interpretieren ? Was noch fehlt ist
der Lactatwert und die Hämoglobinwerte.
Die Blutgasanalyse Zurück
Die Blutgasanalyse , schnell und wichtig.
Wie kann man die Meßwerte interpretieren ? Was noch fehlt ist
der Lactatwert und die Hämoglobinwerte.
Der Programmcode
' ' Gambas class file
PUBLIC SUB Button7_Click()
ME.Close
END
PUBLIC SUB Button2_Click()
textbox1.text = 7
textbox2.text = 30
textbox3.text = -10
textbox4.text = 90
END
PUBLIC SUB Button3_Click()
textbox1.text = "7,6"
textbox2.text = 40
textbox3.text = 10
textbox4.text = 90
END
PUBLIC SUB Button6_Click()
textbox1.text = "7,4"
textbox2.text = 40
textbox3.text = 0
textbox4.text = 90
END
PUBLIC SUB Button4_Click()
textbox1.text = "7,4"
textbox2.text = 30
textbox3.text = 0
textbox4.text = 50
END
PUBLIC SUB Button5_Click()
textbox1.text = "7,1"
textbox2.text = 65
textbox3.text = 0
textbox4.text = 50
END
PUBLIC SUB TextBox1_KeyRelease(Ascii AS String, Code AS Integer, State AS Integer)
IF code = 4100 THEN textbox2.setfocus
END
PUBLIC SUB TextBox2_KeyRelease(Ascii AS String, Code AS Integer, State AS Integer)
IF code = 4100 THEN textbox3.setfocus
END
PUBLIC SUB TextBox3_KeyRelease(Ascii AS String, Code AS Integer, State AS Integer)
IF code = 4100 THEN textbox4.setfocus
END
PUBLIC SUB TextBox4_KeyRelease(Ascii AS String, Code AS Integer, State AS Integer)
IF code = 4100 THEN button1.setfocus
END
PUBLIC SUB Button1_Click()
' befehl3.SetFocus
DIM pc AS Float
DIM po AS Float
DIM be AS Float
DIM ph AS Float
DIM ergeb AS String
DIM b AS String
IF textbox1.text = "" THEN textbox1.text = 0
IF textbox2.text = "" THEN textbox2.text = 0
IF textbox3.text = "" THEN textbox3.text = 0
IF textbox4.text = "" THEN textbox4.text = 0
ph = Val(textbox1.text)
pc = Val(textbox2.text)
be = Val(textbox3.text)
po = Val(textbox4.text)
' PRINT ph,pc,be,po
ergeb = metabol(ph,pc,be)
b = sauerstoff(po,pc)
ergeb = ergeb & Chr$(13) & Chr$(10) & b
textarea1.text = ergeb
' PRINT ergeb
END
PUBLIC FUNCTION metabol(ph AS Float,pc AS Float,be AS Float) AS String
' Rem *****************************
' Rem * AUSSAGE 1 PH,BE,PCO2 *
' Rem *****************************
DIM a1 AS String
DIM a2 AS String
DIM a3 AS String
DIM a4 AS String
DIM a5 AS String
DIM a6 AS String
DIM a7 AS String
DIM a8 AS String
DIM a9 AS String
DIM a10 AS String
DIM a11 AS String
DIM a12 AS String
DIM e AS String
a1 = "Werte nicht mit dem Leben vereinbar"
a2 = "Metabolische Azidose " & Chr$(13) & Chr$(10) & "respiratorisch kompensiert Hyperventilation !"
a3 = "Metabolische Azidose nicht kompensiert"
a4 = "Respiratorische Azidose nicht kompensiert"
a5 = "Respiratorische + Metabolische Azidose "
a6 = "Hyperkapnie + Kompensatorische Alkalose"
a7 = "Ausgeglichener Säure Basen Haushalt "
a8 = "Metabolische Alkalose"
a9 = "Hyperventilation"
a10 = "Werte nicht plausibel "
a11 = "Hyperkapnie"
a12 = "metabolische Azidose"
' Rem * BEDINGUNGEN PH,BE,PCO2 *
IF be > 50 THEN
e = a1
RETURN e
ELSE IF be < -50 THEN
e = a1
RETURN e
ELSE IF ph > 7.9 THEN
e = a1
RETURN e
ELSE IF ph < 6.5 THEN
e = a1
RETURN e
ELSE IF pc < 1 THEN
e = a1
RETURN e
ELSE IF pc > 120 THEN
e = a1
RETURN e
ELSE IF ph < 7.35 AND be > -4 AND pc < 35 THEN
e = a10
RETURN e
ELSE IF ph < 7.45 AND be < -3 AND pc < 35 THEN
e = a2
RETURN e
ELSE IF ph < 7.35 AND be < -3 AND pc > 35 THEN
e = a3
RETURN e
ELSE IF ph < 7.35 AND be < 4 AND pc > 45 THEN
e = a4
RETURN e
ELSE IF ph < 7.35 AND be < -3 AND pc > 45 THEN
e = a5
RETURN e
ELSE IF ph > 7.34 AND be > 3 AND pc > 44 THEN
e = a6
RETURN e
ELSE IF ph < 7.45 AND ph > 7.35 AND be > -5 AND be < 5 AND pc > 35 AND pc < 45 THEN
e = a7
RETURN e
ELSE IF ph > 7.45 AND be > 3 THEN
e = a8
RETURN e
ELSE IF ph > 7.45 AND be < -5 THEN
e = a10
RETURN e
ELSE IF ph < 7.35 AND be < -5 THEN
e = a12
RETURN e
ELSE IF pc < 36 THEN
e = a9
RETURN e
ELSE IF pc > 44 THEN
e = a11
RETURN e
END IF
END
PUBLIC FUNCTION sauerstoff(po AS Float,pc AS Float) AS String
DIM b AS String
' Rem ******************************
' Rem * PO2 *
' Rem ******************************
IF po > 700 THEN
b = "Werte nicht mit dem Leben vereinbar"
RETURN b
ELSE IF pc > 300 THEN
b = "Werte nicht mit dem Leben vereinbar"
RETURN b
ELSE IF po < 1 AND pc < 1 THEN
b = "Werte nicht mit dem Leben vereinbar"
RETURN b
ELSE IF po < 1 THEN
b = "Werte nicht mit dem Leben vereinbar"
RETURN b
ELSE IF pc < 1 THEN
b = "Werte nicht mit dem Leben vereinbar"
RETURN b
ELSE IF po > 100 THEN
b = "Hyperventilation durch Beatmung oder Sauerstoffgabe ??"
RETURN b
ELSE IF po < 55 AND pc < 35 THEN
b = "Hypoxie und Hyperventilation Lungenembolie?"
RETURN b
ELSE IF po < 55 THEN
b = "Hypoxie Beatmungspflichtig ?"
RETURN b
ELSE IF po < 75 THEN
b = "Hypoxie "
RETURN b
ELSE IF pc > 50 THEN
b = "Hyperkapnie "
RETURN b
END IF
END
PUBLIC SUB ToggleButton1_Click()
DIM Help AS String
IF TextArea2.Visible = FALSE THEN
ToggleButton1.Text = "Info weglöschen"
Help = "Autor: " & Chr(13) & Chr(10)
Help = "Rho = Reiner Hoffmann " & Chr(13) & Chr(10)
Help = Help & "www.madeasy.de" & Chr(13) & Chr(10)
Help = Help & "rho54@gmx.de"
TextArea2.Visible = TRUE
TextArea2.text = Help
ELSE
TextArea2.Visible = FALSE
ToggleButton1.Text = "Info anschauen"
ENDIF
END
PUBLIC SUB Form_Open()
textbox1.setfocus
END