Powered By Blogger Submit Your Site To The Web's Top 50 Search Engines for Free! Online Marketing

Subscribe Now

Thursday, November 24

Program Sederhana DSS dengan VB6

Program DSS adalah program yang membantu anda untuk membantu anda untuk menentukan sebuah keputusan, berikut ini adalah contoh program DSS sederhana untuk menentukan Imunisasi apa yang bisa diberikan untuk anak kita.

Berikut ini adalah tampilah saat membuat di VB6:


dan saat program dijalankan akan menjadi seperti ini:

Adapun kode nya adalah sebagai berikut:

Private Sub isi_bulan()
CmbUmur.AddItem "00"
CmbUmur.AddItem "01"
CmbUmur.AddItem "02"
CmbUmur.AddItem "03"
CmbUmur.AddItem "04"
CmbUmur.AddItem "05"
CmbUmur.AddItem "06"
CmbUmur.AddItem "07"
CmbUmur.AddItem "08"
CmbUmur.AddItem "09"
CmbUmur.AddItem "10"
CmbUmur.AddItem "11"
CmbUmur.AddItem "12"
CmbUmur.AddItem "13"
CmbUmur.AddItem "14"
CmbUmur.AddItem "15"
CmbUmur.AddItem "16"
CmbUmur.AddItem "17"
CmbUmur.AddItem "18"
CmbUmur.AddItem "19"
CmbUmur.AddItem "20"
CmbUmur.AddItem "21"
CmbUmur.AddItem "22"
CmbUmur.AddItem "23"
CmbUmur.AddItem "24"
End Sub
Private Sub isi_tahun()
CmbUmur.AddItem "03"
CmbUmur.AddItem "04"
CmbUmur.AddItem "05"
CmbUmur.AddItem "06"
CmbUmur.AddItem "07"
CmbUmur.AddItem "08"
CmbUmur.AddItem "09"
CmbUmur.AddItem "10"
CmbUmur.AddItem "11"
CmbUmur.AddItem "12"
End Sub
Private Sub isi_umur()
Combo2.AddItem "Bulan"
Combo2.AddItem "Tahun"
End Sub
Private Sub Form_Load()
Form1.Height = "3000"
CmbUmur.Enabled = False
Label2.Caption = "" _
& vbCrLf & "Imunisasi  adalah  suatu  cara  untuk  meningkatkan  kekebalan tubuh" _
& vbCrLf & "secara aktif terhadap suatu penyakit, sehingga bila kelak ia terkena" _
& vbCrLf & "penyakit tersebut, maka dampaknya akan sedikit"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call MsgBox("" _
    & vbCrLf & "tingkatkan kesadaran imunisasi masyarakat Indonesia", vbOKOnly, "Terimakasih")
End Sub
Private Sub OptBulan_Click()
CmbUmur.Enabled = True
CmbUmur.Clear
isi_bulan
Label1.Caption = "Bulan"
End Sub
Private Sub OptTahun_Click()
CmbUmur.Enabled = True
CmbUmur.Clear
isi_tahun
Label1.Caption = "Tahun"
End Sub
Private Sub vbButton1_Click()
If OptBulan.Value = False And OptTahun.Value = False Then
MsgBox "anda melum memilih umur anak anda"
Exit Sub
End If
If CmbUmur = "" Then
MsgBox "Anda belum memilih umur anak anda"
Exit Sub
End If
If Not IsNumeric(CmbUmur) Then
MsgBox "Umur anak salah"
Exit Sub
End If
If OptBulan = True And CmbUmur < 0 Then
    Call MsgBox("Umur tidak boleh kurang dari nol")
    Exit Sub
ElseIf OptBulan = True And CmbUmur > 24 Then
    Call MsgBox("Nilai maksimum dalam Bulan adalah 24")
    Exit Sub
ElseIf OptTahun = True And CmbUmur < 0 Then
    Call MsgBox("Umur tidak boleh kurang dari nol")
    Exit Sub
ElseIf OptTahun = True And CmbUmur > 18 Then
    Call MsgBox("Umur anak anda melebihi kalender Imunisasi")
    Exit Sub
End If
Form1.Height = "4000"
Frame1.Enabled = False
Frame2.Enabled = False
vbButton1.Enabled = False
End Sub
Private Sub vbButton2_Click()
Form1.Height = "3000"
Frame1.Enabled = True
Frame2.Enabled = True
vbButton1.Enabled = True
End Sub
Private Sub vbButton3_Click()
If OptPanas = True Then
Call MsgBox("Maaf anak anda sedang dalam kondisi tidak layak imunisasi" _
    & vbCrLf & "akan membahayakan bila imunisasi tetap dilakukan", vbInformation, "Peringatan")
Exit Sub
End If
If OptBulan = True And CmbUmur = "00" And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi BCG" _
    & vbCrLf & "Imunisasi Hepatitis B (12 jam setelah lahir" _
    & vbCrLf & "Imunisasi Polio", vbInformation, "Imunisasi")
ElseIf OptBulan = True And CmbUmur = "00" And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi BCG (Jika sudah pernah maka tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Hepatitis B(Imunisasi kedua)", vbInformation, "Imunisasi")
ElseIf OptBulan = True And CmbUmur >= 2 And CmbUmur <= 3 And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi BCG (Jika sudah pernah maka tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Polio(Imunisasi kedua)" _
    & vbCrLf & "Imunisasi DTP" _
    & vbCrLf & "Imunisasi pendukung Hib(Hemophilus influenzae)" _
    & vbCrLf & "dan Pneumokokus (PCV).", vbInformation, "Imunisasi")
ElseIf OptBulan = True And CmbUmur >= 4 And CmbUmur <= 5 And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi Polio(Imunisasi ketiga)" _
    & vbCrLf & "Imunisasi DTP (Imunisasi kedua)" _
    & vbCrLf & "Imunisasi pendukung Hib (kedua)" _
    & vbCrLf & "Imunisasi Pneumokokus (kedua).", vbInformation, "Imunisasi")
ElseIf OptBulan = True And CmbUmur >= 6 And CmbUmur <= 8 And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi Hepatitis B (kedua)" _
    & vbCrLf & "Imunisasi Polio (Imunisasi keempat)" _
    & vbCrLf & "Imunisasi DTP (Imunisasi ketiga)" _
    & vbCrLf & "Imunisasi pendukung Hib (ketiga)" _
    & vbCrLf & "Imunisasi Pneumokokus (ketiga)" _
    & vbCrLf & "Imunisasi Influenza (selanjutnya diberikan setiap tahun)", vbInformation, "Imunisasi")
ElseIf OptBulan = True And CmbUmur = "09" And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi Campak" _
    & vbCrLf & "Imunisasi Influenza (bila tahun ini sudah pernah imunisasi influenza," _
    & vbCrLf & "     tidak perlu imunisasi lanjutan)", vbInformation, "Imunisasi")
ElseIf OptBulan = True And CmbUmur >= 12 And CmbUmur <= 15 And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi Hib (keempat)" _
    & vbCrLf & "Imunisasi Pneumokokus (keempat)" _
    & vbCrLf & "Imunisasi Influenza (bila tahun ini sudah pernah imunisasi influenza," _
    & vbCrLf & "     tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi pendukung Varisela (1x seumur hidup)" _
    & vbCrLf & "Imunisasi MMR(Bila sebelumnya belum mendapat Imunisasi Campak).", vbInformation, "Imunisasi")
ElseIf OptBulan = True And CmbUmur >= 16 And CmbUmur <= 18 And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi Polio (keempat)" _
    & vbCrLf & "Imunisasi DTP (keempat)" _
    & vbCrLf & "Imunisasi Influenza (bila tahun ini sudah pernah imunisasi influenza," _
    & vbCrLf & "     tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Varisela (bila sudah pernah, tidak perlu imunisasi lanjutan).", vbInformation, "Imunisasi")
ElseIf OptBulan = True And CmbUmur >= 19 And CmbUmur <= 24 And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi Polio (kelima)" _
    & vbCrLf & "Imunisasi DTP (kelima)" _
    & vbCrLf & "Imunisasi Campak (kedua)" _
    & vbCrLf & "Imunisasi Influenza (bila tahun ini sudah pernah imunisasi influenza," _
    & vbCrLf & "    tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Varisela (bila sudah pernah, tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi MMR (kedua bila sebelumnya pernah Imunisasi MMR" _
    & vbCrLf & "    Imunisasi Campak, MMR tidak perlu)" _
    & vbCrLf & "Imunisasi Tifoid (diulang setiap 3 tahun)" _
    & vbCrLf & "Imunisasi Hepatitis A (dilakukan 2kali dengan interval 6-12 bulan).", vbInformation, "Imunisasi")
ElseIf OptTahun = True And CmbUmur >= 3 And CmbUmur <= 5 And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi Campak (kedua" _
    & vbCrLf & "     bila bulan lalu sudah Imunisasi Campak, tidak perlu Imunisasi Lanjutan)" _
    & vbCrLf & "Imunisasi Influenza (bila tahun ini sudah pernah imunisasi influenza," _
    & vbCrLf & "     tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Varisela (bila sudah pernah, tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi MMR (kedua, bila sudah Imunisasi Campak" _
    & vbCrLf & "     dan sudah melakukan Imunisasi MMR, tidak perlu Imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Tifoid (diulang setiap 3 tahun" _
    & vbCrLf & "     bila sebelumnya sudah pernah, tidak perlu Imunisasi Lanjutan)" _
    & vbCrLf & "Imunisasi Hepatitis A (dilakukan 2kali dengan interval 6-12 bulan" _
    & vbCrLf & "     bila sebelumnya sudah pernah, tidak perlu imunisasi lanjutan).", vbInformation, "Imunisasi")
ElseIf OptTahun = True And CmbUmur >= 6 And CmbUmur <= 7 And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi Campak (kedua" _
    & vbCrLf & "     bila bulan lalu sudah Imunisasi Campak, tidak perlu Imunisasi Lanjutan)" _
    & vbCrLf & "Imunisasi Influenza (bila tahun ini sudah pernah imunisasi influenza," _
    & vbCrLf & "     tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Varisela (bila sudah pernah, tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi MMR (kedua, bila sudah Imunisasi Campak" _
    & vbCrLf & "     dan sudah melakukan Imunisasi MMR, tidak perlu Imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Tifoid (diulang setiap 3 tahun" _
    & vbCrLf & "     bila sebelumnya sudah pernah, tidak perlu Imunisasi Lanjutan)" _
    & vbCrLf & "Imunisasi Hepatitis A (dilakukan 2kali dengan interval 6-12 bulan" _
    & vbCrLf & "     bila sebelumnya sudah pernah, tidak perlu imunisasi lanjutan).", vbInformation, "Imunisasi")
ElseIf OptTahun = True And CmbUmur >= 8 And CmbUmur <= 9 And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi Influenza (bila tahun ini sudah pernah imunisasi influenza," _
    & vbCrLf & "     tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Varisela (bila sudah pernah, tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi MMR (kedua, bila sudah Imunisasi Campak" _
    & vbCrLf & "     dan sudah melakukan Imunisasi MMR, tidak perlu Imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Tifoid (diulang setiap 3 tahun" _
    & vbCrLf & "     bila sebelumnya sudah pernah, tidak perlu Imunisasi Lanjutan)" _
    & vbCrLf & "Imunisasi Hepatitis A (dilakukan 2kali dengan interval 6-12 bulan" _
    & vbCrLf & "     bila sebelumnya sudah pernah, tidak perlu imunisasi lanjutan).", vbInformation, "Imunisasi")
ElseIf OptTahun = True And CmbUmur >= 10 And CmbUmur <= 18 And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi Influenza (bila tahun ini sudah pernah imunisasi influenza," _
    & vbCrLf & "     tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Varisela (bila sudah pernah, tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi MMR (kedua, bila sudah Imunisasi Campak" _
    & vbCrLf & "     dan sudah melakukan Imunisasi MMR, tidak perlu Imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Tifoid (diulang setiap 3 tahun" _
    & vbCrLf & "     bila sebelumnya sudah pernah, tidak perlu Imunisasi Lanjutan)" _
    & vbCrLf & "Imunisasi Hepatitis A (dilakukan 2kali dengan interval 6-12 bulan" _
    & vbCrLf & "     bila sebelumnya sudah pernah, tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi HPV (sebanyak 3 kali dengan jeda 1 tahun" _
    & vbCrLf & "     bila tahun ini sudah pernah, tidak perlu imunisasi lanjutan).", vbInformation, "Imunisasi")
End If
Form1.Height = "4500"
End Sub
Private Sub vbButton4_Click()
Unload Me
End Sub

Related Posts


0 Comments:

Post a Comment

Popular Posts This Months

Related Posts Plugin for WordPress, Blogger...

IP