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

Baca juga Tulisan berikut:

  1. Get Sokal Score Software
  2. Software Get Framingham Score
  3. Hitung Berat Badan Normal
  4. Source code Software Tensimeter
  5. Source Code Software Daftar Obat Indonesia
  6. Konsultasi
  7. Gangguan Perut Anak yang Berkaitan dengan Irritable Bowel Syndrome
  8. Hindari Leukemia Mielositik Kronis Sekarang Juga!
  9. Konsultasi#149: Operasi Plastik Bibir Sumbing
  10. Konsultasi#168: Mesial Temporal Scleosis dengan Hypotrophy Hippocampus Kanan
Share on Facebook: Share