Sokal Score

MedicoProgramming, Source Code

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:

  1. Risiko rendah, kurang dari 0.8
  2. Risiko sedang, 0.8 – 1.2
  3. 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.

image002Berdasarkan rumus di atas, Sokal Score bergantung pada

  1. Umur
  2. Ukuran pembesaran ginjal
  3. Jumlah platelet
  4. 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

http://www.morphostlab.com



Comments

Leave a Reply

Your email address will not be published. Required fields are marked *

Spam Protection by WP-SpamFree