Sokal score merupakan penghitungan tinggi rendahnya risiko dari penyakit Idiopathic Thrombocytopenia Purpura (Immune Thrombocytopenia Purpura). Penghitungan ini terkadang harus dilakukan sebagai bahan dasar untuk tindak lanjut apa yang akan dilakukan pada pasien ITP.
Ada tiga kategori dari Sokal Score:
- Risiko rendah, kurang dari 0.8
- Risiko sedang, 0.8 – 1.2
- Risiko tinggi, lebih dari 1.2
Rumus dari Sokal Score adalah
Sokal Score = (0.011 (age – 43) + 0.0345 (spleen – 7.5 cm) + 0.188 [(platelets/700)2 – 0.563] + 0.0887 (% blasts in blood – 2.1).
Catatan: umur pasien harus di antara 5 sampai 84 tahun.
Perhatikan form di bawah ini.
Berdasarkan rumus di atas, Sokal Score bergantung pada
- Umur
- Ukuran pembesaran ginjal
- Jumlah platelet
- Persentasi sel blasts yang ada di dalam darah
Coba buat satu form yang sesuai dengan form disamping.
Ketik source code berikut (Atau download source code software ini)
Private Sub Command1_Click()
Dim NIlai1, Nilai2, Nilai3, Nilai4 As String
NIlai1 = (Val(Text1.Text) – 43) * 0.011
Nilai2 = (Val(Text2.Text) – 7.5) * 0.0345
Nilai3 = (Val((Val(Text3.Text) / 700) ^ 2) – 0.563) * 0.188
Nilai4 = (Val(Text4.Text) – 2.1) * 0.0887
MsgBox Val(NIlai1) + Val(Nilai2) + Val(Nilai3) + Val(Nilai4)
End Sub
Private Sub Form_Load()
Label10.Caption = _
“(1) low risk, < 0,8” & vbCrLf & _
“(2) Intermediate risk, 0,8 – 1,2” & vbCrLf & _
“(3) High risk, > 1.2”
End Sub
Download Source code Sokal Score
Sekian tutorial medicoprogramming kali ini
By: Samuel Pola Karta Sembiring
