ricerca genotipo in funzione di
fenotipo noto:albero con emofilia-daltonismo
(ipotesi: esclusione crossing-over, molteplicità di mutazioni)
esci con indice1.htm
descrizione teorica , terminologia, simboli per codificazione
esempio di applicazione a ricerca dei genotipi compatibili con fenotipi forniti
presentazione
area lavoro vuota
verifica p3 senza inserimento: caselle azzurre segnalano tutto errato
inserimento parziale, genotipi sicuri, verifica p3 parziale e mostra sigle p5
inserimento completo, p3 vericica, p5 sigle : tutto esatto
inserimento completo, p3 verifica, p5 sigle: alcuni errati
p1 mostra albero vuoto
p2 mostra albero 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 = "Xd"
g4 = "XY"
g5 = "Xx"
g6 = "xY"
g7 = "Xx"
g8 = "Xx"
g9 = "dY"
g10 = "dY"
g11 = "xd"
g12 = "XY"
g13 = "dx"
g14 = "xY"
g15 = "dx"
g16 = "Xn"
g17 = "dY"
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