VERSION 2.00 Begin Form ph BackColor = &H0080FFFF& BorderStyle = 1 'Nicht änderbar, einfach Caption = "Blutgaswerte Interpretation" ClientHeight = 5172 ClientLeft = 1092 ClientTop = 1488 ClientWidth = 8448 Height = 5592 Icon = PH.FRX:0000 Left = 1044 LinkTopic = "Form1" ScaleHeight = 5172 ScaleWidth = 8448 Top = 1116 Width = 8544 WindowState = 2 'Auf Vollbild Begin CommandButton Befehl8 Caption = "zB metabol. Alkalose" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 492 Left = 480 TabIndex = 18 Top = 5760 Width = 2172 End Begin CommandButton Befehl7 Caption = "zb.respirat.Azidose" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 492 Left = 2760 TabIndex = 17 Top = 5760 Width = 2172 End Begin CommandButton Befehl6 Caption = "zB Normalwerte" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 492 Left = 5040 TabIndex = 16 Top = 5160 Width = 1692 End Begin CommandButton Befehl5 Caption = "zB Lungenembolie" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 492 Left = 2760 TabIndex = 15 Top = 5160 Width = 2172 End Begin CommandButton Befehl4 Caption = "zB metabol.Azidose" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 492 Left = 480 TabIndex = 14 Top = 5160 Width = 2172 End Begin CommandButton Befehl3 Caption = "Ende" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 492 Left = 7080 TabIndex = 5 Top = 5760 Width = 1572 End Begin CommandButton Befehl2 Caption = "Info" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 492 Left = 7080 TabIndex = 12 Top = 5160 Width = 1572 End Begin CommandButton Befehl1 Caption = "Bewertung:" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 372 Left = 600 TabIndex = 4 Top = 3720 Width = 1692 End Begin TextBox be FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 375 Left = 1320 TabIndex = 2 Top = 2520 Width = 975 End Begin TextBox pc FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 375 Left = 1320 TabIndex = 1 Top = 1920 Width = 975 End Begin TextBox po FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 375 Left = 1320 TabIndex = 3 Top = 3120 Width = 975 End Begin TextBox ph FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 375 Left = 1320 TabIndex = 0 Top = 1320 Width = 975 End Begin TextBox ergeb FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 972 Left = 2520 MultiLine = -1 'True TabIndex = 13 Top = 3720 Width = 5052 End Begin Label Bezeichnung6 Alignment = 2 'Mitte BackColor = &H00FFFF80& BorderStyle = 1 'nicht änderbar, einfach Caption = "BE:" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 372 Left = 600 TabIndex = 11 Top = 2520 Width = 732 End Begin Label Bezeichnung5 Alignment = 2 'Mitte BackColor = &H00FFFF80& BorderStyle = 1 'nicht änderbar, einfach Caption = "PCO2:" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 372 Left = 600 TabIndex = 10 Top = 1920 Width = 732 End Begin Label Bezeichnung4 Alignment = 2 'Mitte BackColor = &H00FFFF80& BorderStyle = 1 'nicht änderbar, einfach Caption = "PO2:" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 372 Left = 600 TabIndex = 9 Top = 3120 Width = 732 End Begin Label Bezeichnung3 Alignment = 2 'Mitte BackColor = &H00FFFF80& BorderStyle = 1 'nicht änderbar, einfach Caption = "PH:" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 372 Left = 600 TabIndex = 8 Top = 1320 Width = 732 End Begin Label Bezeichnung2 BackColor = &H0080FFFF& Caption = " Bitte geben Sie aktuelle Meßwerte ein:" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 372 Left = 480 TabIndex = 7 Top = 720 Width = 4572 End Begin Label Bezeichnung1 BackColor = &H0080FFFF& Caption = " Diese Programm hilft bei der Interpretation von Blutgaswerten" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.6 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 372 Left = 480 TabIndex = 6 Top = 240 Width = 8412 End End Sub be_KeyPress (KeyAnsi As Integer) If KeyAnsi = 13 Then po.SetFocus 'if keyansi = "Pfeil runter " 'then po.setfocus End If End Sub Sub Befehl1_Click () befehl3.SetFocus GoSub metabol GoSub sauerstoff GoTo weiter metabol: Rem ***************************** Rem * AUSSAGE 1 PH,BE,PCO2 * Rem ***************************** a1 = "Werte nicht mit dem Leben vereinbar" a2 = "Metabolische Azidose 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 ergeb.Text = a1: Return If be < -50 Then ergeb.Text = a1: Return If ph > 7.9 Then ergeb.Text = a1: Return If ph < 6.5 Then ergeb.Text = a1: Return If pc < 0 Then ergeb.Text = a1: Return If pc > 120 Then ergeb.Text = a1: Return If po > 700 Then ergeb.Text = a1: Return If po < 0 Then ergeb.Text = a1: Return If ph < 7.35 And be > -4 And pc < 35 Then ergeb.Text = a10: Return If ph < 7.45 And be < -3 And pc < 35 Then ergeb.Text = a2: Return If ph < 7.35 And be < -3 And pc > 35 Then ergeb.Text = a3: Return If ph < 7.35 And be < 4 And pc > 45 Then ergeb.Text = a4: Return If ph < 7.35 And be < -3 And pc > 45 Then ergeb.Text = a5: Return If ph > 7.34 And be > 3 And pc > 44 Then ergeb.Text = a6: Return If ph < 7.45 And ph > 7.35 And be > -5 And be < 5 And pc > 35 And pc < 45 Then ergeb.Text = a7: Return If ph > 7.45 And be > 3 Then ergeb.Text = a8: Return If ph > 7.45 And be < -5 Then ergeb.Text = a10: Return If ph < 7.35 And be < -5 Then ergeb.Text = a12: Return If pc < 36 And po < 55 Then ergeb.Text = "": Return If pc < 36 Then ergeb.Text = a9: Return If pc > 44 Then ergeb.Text = a11: Return Return sauerstoff: Rem ****************************** Rem * PO2 * Rem ****************************** If ergeb.Text = a1 Then b = "": Return If po > 100 Then b = "Hyperventilation durch Beatmung oder Sauerstoffgabe ??": Return If po < 55 And pc < 35 Then b = "Hypoxie und Hyperventilation Lungenembolie?": Return If po < 55 Then b = "Hypoxie Beatmungspflichtig ?": Return If po < 75 Then b = "Hypoxie ": Return Return weiter: ergeb.Text = ergeb.Text + Chr$(13) + Chr$(10) + b End Sub Sub Befehl1_KeyPress (KeyAnsi As Integer) If KeyAnsi = 13 Then befehl3.SetFocus 'if keyansi = "Return" 'then auf Ende feld gehen End If End Sub Sub Befehl2_Click () msg = "Dieses Programm stammt von" msg = msg + Chr(13) + Chr(10) + "R.Hoffmann " msg = msg + Chr(13) + Chr(10) + "Grüne Au 5 " msg = msg + Chr(13) + Chr(10) + "96317 Kronach " msg = msg + Chr(13) + Chr(10) + "Tel 09261 61718" msg = msg + Chr(13) + Chr(10) + "email: ReinerHoffmannKC@t-online.de" msg = msg + Chr(13) + Chr(13) + "Es wurde mit Visual Basic 3.0 geschrieben" title = "Programminfo" MsgBox msg, 0, title End Sub Sub Befehl3_Click () End End Sub Sub Befehl4_Click () ph = 7 be = -10 pc = 30 po = 90 End Sub Sub Befehl5_Click () ph = 7.4 be = 0 pc = 30 po = 50 End Sub Sub Befehl6_Click () ph = 7.4 be = 0 pc = 40 po = 90 End Sub Sub Befehl7_Click () ph = 7.1 be = 0 pc = 65 po = 50 End Sub Sub Befehl8_Click () ph = 7.6 be = 10 pc = 40 po = 90 End Sub Sub pc_KeyPress (KeyAnsi As Integer) If KeyAnsi = 13 Then be.SetFocus 'if keyansi = "Pfeil runter " 'then be.setfocus End If End Sub Sub ph_KeyPress (KeyAnsi As Integer) If KeyAnsi = 13 Then pc.SetFocus 'if keyansi = "Pfeil runter " 'then pc.setfocus End If End Sub Sub po_KeyPress (KeyAnsi As Integer) If KeyAnsi = 13 Then befehl1.SetFocus 'if keyansi = "Pfeil runter " 'then befehl1.setfocus End If End Sub