ricerca genotipo in funzione di fenotipo noto:albero con emofilia

esci con indice1.htm

qemofilia.ppt

presentazione

area lavoro vuota

inserimento genotipi sicuri (il maschio se emofilico lo manifesta sempre nel fenotipo)
(la femmina solo se omozigotica xx , non se eterozigotica Xx)

completamento dell'inserimento , verifica, visualizza genotipi corretti con sigle

Private Sub CommandButton1_Click()
Rem mostra albero vuoto
Image3.Visible = True
End Sub

Private Sub CommandButton2_Click()
Rem mostra albero con sigle
Image4.Visible = True
End Sub

Private Sub CommandButton3_Click()
Rem verifica
g1 = "XY"
g2 = "Xx"
g3 = "Xn"
g4 = "XY"
g5 = "Xn"
g6 = "XY"
g7 = "Xn"
g8 = "Xx"
g9 = "XY"
g10 = "XY"
g11 = "Xx"
g12 = "XY"
g13 = "Xx"
g14 = "xY"
g15 = "Xn"
g16 = "Xn"
g17 = "xY"
g18 = "Xn"

r1 = TextBox1
r2 = TextBox2
r3 = TextBox3
r4 = TextBox4
r5 = TextBox5
r6 = TextBox6
r7 = TextBox7
r8 = TextBox8
r9 = TextBox9
r10 = TextBox10
r11 = TextBox11
r12 = TextBox12
r13 = TextBox13
r14 = TextBox14
r15 = TextBox15
r16 = TextBox16
r17 = TextBox17
r18 = TextBox18


If g1 <> r1 Then
TextBox1.BackColor = vbCyan
End If

If g2 <> r2 Then
TextBox2.BackColor = vbCyan
End If


If g3 <> r3 Then
TextBox3.BackColor = vbCyan
End If

If g4 <> r4 Then
TextBox4.BackColor = vbCyan
End If

If g5 <> r5 Then
TextBox5.BackColor = vbCyan
End If

If g6 <> r6 Then
TextBox6.BackColor = vbCyan
End If

If g7 <> r7 Then
TextBox7.BackColor = vbCyan
End If

If g8 <> r8 Then
TextBox8.BackColor = vbCyan
End If

If g9 <> r9 Then
TextBox9.BackColor = vbCyan
End If

If g10 <> r10 Then
TextBox10.BackColor = vbCyan
End If

If g11 <> r11 Then
TextBox11.BackColor = vbCyan
End If

If g12 <> r12 Then
TextBox12.BackColor = vbCyan
End If

If g13 <> r13 Then
TextBox13.BackColor = vbCyan
End If

If g14 <> r14 Then
TextBox14.BackColor = vbCyan
End If

If g15 <> r15 Then
TextBox15.BackColor = vbCyan
End If

If g16 <> r16 Then
TextBox16.BackColor = vbCyan
End If

If g17 <> r17 Then
TextBox17.BackColor = vbCyan
End If

If g18 <> r18 Then
TextBox18.BackColor = vbCyan
End If




End Sub

Private Sub CommandButton4_Click()
Rem cela sigle genotipi con label colorata
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
Label6.Visible = True
Label7.Visible = True
Label8.Visible = True
Label9.Visible = True
Label10.Visible = True
Label11.Visible = True
Label12.Visible = True
Label13.Visible = True
Label14.Visible = True
Label15.Visible = True
Label16.Visible = True
Label17.Visible = True
Label18.Visible = True


End Sub

Private Sub CommandButton5_Click()
Rem mostra sigle genotipi eliminando casella colorata
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False
Label10.Visible = False
Label11.Visible = False
Label12.Visible = False
Label13.Visible = False
Label14.Visible = False
Label15.Visible = False
Label16.Visible = False
Label17.Visible = False
Label18.Visible = False
End Sub

Private Sub CommandButton6_Click()
Rem cela tutto e normalizza colore

TextBox1.BackColor = vbYellow
TextBox2.BackColor = vbYellow
TextBox3.BackColor = vbYellow
TextBox4.BackColor = vbYellow
TextBox5.BackColor = vbYellow
TextBox6.BackColor = vbYellow
TextBox7.BackColor = vbYellow
TextBox8.BackColor = vbYellow
TextBox9.BackColor = vbYellow
TextBox10.BackColor = vbYellow
TextBox11.BackColor = vbYellow
TextBox12.BackColor = vbYellow
TextBox13.BackColor = vbYellow
TextBox14.BackColor = vbYellow
TextBox15.BackColor = vbYellow
TextBox16.BackColor = vbYellow
TextBox17.BackColor = vbYellow
TextBox18.BackColor = vbYellow


TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
TextBox15 = ""
TextBox16 = ""
TextBox17 = ""
TextBox18 = ""


Image3.Visible = False
Image4.Visible = False

Label19.Visible = False



End Sub

Private Sub CommandButton7_Click()
Rem inizia e informa
Label19.Visible = True
End Sub

Private Sub Image2_Click()

End Sub

Private Sub TextBox11_Change()

End Sub

Private Sub UserForm_Click()

End Sub