Buat teman-teman yang ingin mengembangkan software diagnosa penyakit, ini ada sedikit prototype >>>> program ini saya beri nama DOCE..... Doce???
Dokter Cepat >> maksudnya>>>>
download program:
http://downloads.ziddu.com/download/23926197/DOCE.rar.html
Tampilan Utama
Coding
Private Sub Command1_Click()
If Check1.Value = 1 And Check2.Value = 1 And Check3.Value = 1 And Check4.Value = 1 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog.Show
ElseIf Check1.Value = 1 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog16.Show
ElseIf Check1.Value = 1 And Check2.Value = 1 And Check3.Value = 1 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 1 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog17.Show
ElseIf Check1.Value = 1 And Check2.Value = 0 And Check3.Value = 1 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog.Show
ElseIf Check1.Value = 1 And Check2.Value = 1 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 1 And Check5.Value = 1 And Check6.Value = 1 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog3.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 1 And Check5.Value = 0 And Check6.Value = 1 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog3.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 1 And Check6.Value = 1 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog3.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 1 And Check5.Value = 1 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog3.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 1 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 1 And Check8.Value = 1 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog6.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 1 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog18.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 1 Then
Dialog19.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 1 And Check8.Value = 1 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 1 And Check12.Value = 0 Then
Dialog6.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 1 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 1 And Check12.Value = 0 Then
Dialog6.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 1 And Check8.Value = 0 And Check9.Value = 1 And Check10.Value = 1 And Check11.Value = 1 And Check12.Value = 0 Then
Dialog9.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 1 And Check10.Value = 1 And Check11.Value = 1 And Check12.Value = 0 Then
Dialog9.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 1 And Check11.Value = 1 And Check12.Value = 0 Then
Dialog9.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 1 And Check10.Value = 1 And Check11.Value = 0 And Check12.Value = 0 Then
Dialog9.Show
ElseIf Check1.Value = 1 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 1 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 1 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 1 Then
Dialog12.Show
ElseIf Check1.Value = 1 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 1 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 0 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 1 Then
Dialog12.Show
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 1 And Check5.Value = 0 And Check6.Value = 0 And Check7.Value = 0 And Check8.Value = 0 And Check9.Value = 1 And Check10.Value = 0 And Check11.Value = 0 And Check12.Value = 1 Then
Dialog12.Show
Else
Dialog15.Show
End If
End Sub
Private Sub Command2_Click()
Dialog20.Show
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Picture1_Click()
Command1.Value = True
End Sub
Private Sub Picture10_Click()
Check9.Value = 1 And Check9.Value = 0
End Sub
Private Sub Picture11_Click()
Check5.Value = 1 And Check5.Value = 0
End Sub
Private Sub Picture12_Click()
Check11.Value = 1 And Check11.Value = 0
End Sub
Private Sub Picture13_Click()
Check12.Value = 1 And Check12.Value = 0
End Sub
Private Sub Picture2_Click()
Check1.Value = 1 And Check1.Value = 0
End Sub
Private Sub Picture3_Click()
Check2.Value = 1 And Check2.Value = 0
End Sub
Private Sub Picture4_Click()
Check3.Value = 1 And Check3.Value = 0
End Sub
Private Sub Picture5_Click()
Check4.Value = 1 And Check4.Value = 0
End Sub
Private Sub Picture6_Click()
Check10.Value = 1 And Check10.Value = 0
End Sub
Private Sub Picture7_Click()
Check6.Value = 1 And Check6.Value = 0
End Sub
Private Sub Picture8_Click()
Check7.Value = 1 And Check7.Value = 0
End Sub
Private Sub Picture9_Click()
Check8.Value = 1 And Check8.Value = 0
End Sub
Private Sub Timer1_Timer()
Label3.ForeColor = RGB(241, 89, 111) * Rnd
End Sub
Klw mo download ini linknya http://downloads.ziddu.com/download/23926197/DOCE.rar.html
