ricerca genotipo in funzione di fenotipo noto:albero con gruppo ABO
(nota : usare la O maiuscola , non lo zero 0)

esci con indice1.htm

xalbero.ppt

usare la O lettera con lo zero 0

Private Sub CommandButton1_Click()
Rem cela tutto
Image1.Visible = False
Image2.Visible = False
Label21.Visible = False

End Sub

Private Sub CommandButton2_Click()
Rem mostra albero vuoto
Image1.Visible = True
End Sub

Private Sub CommandButton3_Click()
Rem mostra fenotipi
Image2.Visible = True
End Sub

Private Sub CommandButton4_Click()
Rem verifica
g1 = "AO"
g2 = "AB"
g3 = "AB"
g4 = "BO"
g5 = "AB"
g6 = "AB"
g7 = "AB"
g8 = "AO"
g9 = "AB"
g10 = "AO"
g11 = "AO"
g12 = "BO"
g13 = "BO"
g14 = "AB"
g15 = "AO"
g16 = "BO"
g17 = "AO"
g18 = "OO"

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
r18 = TextBox18

Rem controlla risposte
If r1 = g1 Then
Label1.Caption = ""
Else
Label1.Caption = g1
Label1.BackColor = vbRed
End If

If r2 = g2 Then
Label2.Caption = ""
Else
Label2.Caption = g2
Label2.BackColor = vbRed
End If

If r3 = g3 Then
Label3.Caption = ""
Else
Label3.Caption = g3
Label3.BackColor = vbRed
End If

If r4 = g4 Then
Label4.Caption = ""
Else
Label4.Caption = g4
Label4.BackColor = vbRed
End If

If r5 = g5 Then
Label5.Caption = ""
Else
Label5.Caption = g5
Label5.BackColor = vbRed
End If

If r6 = g6 Then
Label6.Caption = ""
Else
Label6.Caption = g6
Label6.BackColor = vbRed
End If

If r7 = g7 Then
Label7.Caption = ""
Else
Label7.Caption = g7
Label7.BackColor = vbRed
End If

If r8 = g8 Then
Label8.Caption = ""
Else
Label8.Caption = g8
Label8.BackColor = vbRed
End If

If r9 = g9 Then
Label9.Caption = ""
Else
Label9.Caption = g9
Label9.BackColor = vbRed
End If

If r10 = g10 Then
Label10.Caption = ""
Else
Label10.Caption = g10
Label10.BackColor = vbRed
End If

If r11 = g11 Then
Label11.Caption = ""
Else
Label11.Caption = g11
Label11.BackColor = vbRed
End If

If r12 = g12 Then
Label12.Caption = ""
Else
Label12.Caption = g12
Label12.BackColor = vbRed
End If

If r13 = g13 Then
Label13.Caption = ""
Else
Label13.Caption = g13
Label13.BackColor = vbRed
End If

If r14 = g14 Then
Label14.Caption = ""
Else
Label14.Caption = g14
Label14.BackColor = vbRed
End If

If r15 = g15 Then
Label15.Caption = ""
Else
Label15.Caption = g15
Label15.BackColor = vbRed
End If

If r16 = g16 Then
Label16.Caption = ""
Else
Label16.Caption = g16
Label16.BackColor = vbRed
End If

If r17 = g17 Then
Label17.Caption = ""
Else
Label17.Caption = g17
Label17.BackColor = vbRed
End If

If r18 = g18 Then
Label18.Caption = ""
Else
Label18.Caption = g18
Label18.BackColor = vbRed
End If
End Sub

Private Sub CommandButton5_Click()
Rem cancella risposte
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
TextBox15 = ""
TextBox16 = ""
TextBox17 = ""
TextBox18 = ""


Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
Label7.Caption = ""
Label8.Caption = ""
Label9.Caption = ""
Label10.Caption = ""
Label11.Caption = ""
Label12.Caption = ""
Label13.Caption = ""
Label14.Caption = ""
Label15.Caption = ""
Label16.Caption = ""
Label17.Caption = ""
Label18.Caption = ""

Label1.BackColor = vbCyan
Label2.BackColor = vbCyan
Label3.BackColor = vbCyan
Label4.BackColor = vbCyan
Label5.BackColor = vbCyan
Label6.BackColor = vbCyan
Label7.BackColor = vbCyan
Label8.BackColor = vbCyan
Label9.BackColor = vbCyan
Label10.BackColor = vbCyan
Label11.BackColor = vbCyan
Label12.BackColor = vbCyan
Label13.BackColor = vbCyan
Label14.BackColor = vbCyan
Label15.BackColor = vbCyan
Label16.BackColor = vbCyan
Label17.BackColor = vbCyan
Label18.BackColor = vbCyan



End Sub

Private Sub CommandButton6_Click()
Rem informa per inizio
Label21.Visible = True
End Sub

Private Sub Image1_Click()
Rem albero vuoto
Image1.Visible = True
End Sub

Private Sub Image2_Click()
Rem albero con genotipi
Image2.Visible = True
End Sub

Private Sub UserForm_Click()

End Sub