Teguh-Hafiz Blog's

PENJELASAN:

Program ini dibuat untuk mengetahui apakah calon pendonor darah memenuhi syarat sebagai pendonor atau tidak, program ini dibuat dengan aplikasi Microsoft Visual Studio 2008 (VB)

Syarat-syarat yang perlu dipenuhi untuk menjadi pihak pendonor antara lain:

A. usia antara 17-60 tahun; jika ingin menjadi pendonor sebelum usia 17 tahun, perlu adanya surat ijin dari pihak wali seperti misalnya orang tua. Sedangkan untuk usia diatas 70 tahun memerlukan surat keterangan sehat dari pihak dokter, dan sebaiknya frekuensi donor dibatasi dengan interval tidak berdekatan
B. berat badan cukup, minimal 45 tahun
C. tidak sedang demam (suhu < 37,5 ‘C)
D. tekanan darah tidak sedang tinggi maupun rendah yaitu batas atas sistolik jangan melewati 160 mmHg sedangkan batas bawah sebaiknya diatas 110 mmHg
E. denyut nadi teratur dan dalam rentang 60-110 kali per menit
F. hemoglobin darah sebaiknya diatas 12 g/dL (wanita) atau 12,5 g/dL (pria)
G. donor yang baik jika intervalnya paling dekat 3 bulan sekali
Sumber syarat pendonor: wikimu.com

SCREENSHOOT:

Proses Pengerjaan






Form



Kondisi 1:

Nama: Marzuki
Jenis Kelamin: Laki-laki
Umur: 23
Berat badan: 57
Suhu tubuh: 36
Tekanan darah: 130
Denyut nadi:80
Kadar Hemoglobin:12.5



Pak marzuki dapat mendonorkan darahnya.

Kondisi 2:

Nama: Muhaimin
Jenis Kelamin: Laki-laki
Umur: 35
Berat badan: 50
Suhu tubuh: 39
Tekanan darah: 150
Denyut nadi:70
Kadar Hemoglobin:12.5



Pak Muhaimin belum dapat mendonorkan darahnya dikarenakan belum memenuhi syarat.

CODING:

Public Class Form1

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim x As String
x = MsgBox("Yakin akan keluar?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")
If x = vbYes Then
Me.Close()
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = " "
TextBox2.Text = " "
TextBox3.Text = " "
TextBox4.Text = " "
TextBox5.Text = " "
TextBox6.Text = " "
TextBox7.Text = " "
TextBox8.Text = " "
TextBox9.Text = " "
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a
a = TextBox3.Text
Dim b
b = TextBox4.Text
Dim c
c = TextBox5.Text
Dim d
d = TextBox6.Text
Dim f
f = TextBox7.Text
Dim g
g = TextBox8.Text
If (a >= 17 And a <= 70) And (b >= 45) And (c <= 37.5) And (d >= 110 And d <= 160) And (f >= 60 And f <= 110) And (12 <= g <= 12.5) Then
TextBox9.Text = "Anda dapat mendonorkan darah anda"
Else
TextBox9.Text = "Anda belum dapat mendonorkan darah anda"
End If
End Sub
End Class

DATA MAHASISWA:

Nama: Muhammad Teguh Hafizuddin
NPM: 1006724532