test interattivo di genetica
esci con indice1.htm

test interattivo per riconoscimento genotipi in funzione di fenotipi proposti
quattro esempi di alberi genealogici:conviene inserire prima i genotipi per individui certi
e poi cominciando dal fondo risalire inserendo i genotipi probabili per giustificare
quelli già inseriti (se genotipi possibili dubbi o doppi, inserire XX o NN come indicato)
trasmissione daltonismo, eredità intermedia gruppo AB0
anomalia scheletrica recessiva legata a X in animali
colore del pelo dominante, recessivo in animali
esercitazione con visual basic su powerpoint

testgenetica.ppt

Private Sub CommandButton1_Click()
Rem albero1

rem colore pelo
etero = "Rr"
omodo = "RR"
omore = "rr"
doppio = "XX"
g1 = TextBox1
g2 = TextBox2
g3 = TextBox3
g4 = TextBox4
g5 = TextBox5
g6 = TextBox6
g7 = TextBox7
g8 = TextBox8
g9 = TextBox9
g10 = TextBox10
g11 = TextBox11
g12 = TextBox12

If g1 = etero Then
ListBox1.AddItem ("1 esatto ")
Else
ListBox1.AddItem ("1 errato:era " & etero & " per n.6")
End If

If g2 = etero Then
ListBox1.AddItem ("2 esatto ")
Else
ListBox1.AddItem ("2 errato:era " & etero & " per n.6")
End If

If g3 = doppio Then
ListBox1.AddItem ("3 esatto ")
Else
ListBox1.AddItem ("3 errato:era " & doppio)
End If

If g4 = etero Then
ListBox1.AddItem ("4 esatto ")
Else
ListBox1.AddItem ("4 errato:era " & etero & " per n.7")
End If

If g5 = etero Then
ListBox1.AddItem ("5 esatto ")
Else
ListBox1.AddItem ("5 errato:era " & etero & " per n.7")
End If

If g6 = omore Then
ListBox1.AddItem ("6 esatto ")
Else
ListBox1.AddItem ("6 errato:era " & omore)
End If

If g7 = omore Then
ListBox1.AddItem ("7 esatto ")
Else
ListBox1.AddItem ("7 errato:era " & omore)
End If

If g8 = etero Then
ListBox1.AddItem ("8 esatto ")
Else
ListBox1.AddItem ("8 errato:era " & etero & " per n.12")
End If

If g9 = etero Then
ListBox1.AddItem ("9 esatto ")
Else
ListBox1.AddItem ("9 errato:era " & etero & " per n.12")
End If

If g10 = doppio Then
ListBox1.AddItem ("10 esatto ")
Else
ListBox1.AddItem ("10 errato:era " & doppio)
End If

If g11 = doppio Then
ListBox1.AddItem ("11 esatto ")
Else
ListBox1.AddItem ("11 errato:era " & doppio)
End If

If g12 = omore Then
ListBox1.AddItem ("12 esatto ")
Else
ListBox1.AddItem ("12 errato:era " & omore)
End If
ListBox1.AddItem ("---------------------------------")

End Sub

Private Sub CommandButton10_Click()
Rem dominanza intermedia AB0
gab = "AB" 'rosso
gaa = "AA" 'verde
gao = "A0" 'verde
gbb = "BB" 'blu
gbo = "B0" ' blu
goo = "00" 'giallo
gxx = "XX"

g1 = TextBox1
g2 = TextBox2
g3 = TextBox3
g4 = TextBox4
g5 = TextBox5
g6 = TextBox6
g7 = TextBox7
g8 = TextBox8
g9 = TextBox9
g10 = TextBox10
g11 = TextBox11
g12 = TextBox12

If g1 = gao Then
ListBox1.AddItem ("1 esatto ")
Else
ListBox1.AddItem ("1 errato:era " & gao & " per n.4")
End If

If g2 = gbo Then
ListBox1.AddItem ("2 esatto ")
Else
ListBox1.AddItem ("2 errato:era " & gbo & " per n.5")
End If

If g3 = gab Then
ListBox1.AddItem ("3 esatto ")
Else
ListBox1.AddItem ("3 errato:era " & gab)
End If

If g4 = gao Then
ListBox1.AddItem ("4 esatto ")
Else
ListBox1.AddItem ("4 errato:era " & gao & " per n.8")
End If

If g5 = gab Then
ListBox1.AddItem ("5 esatto ")
Else
ListBox1.AddItem ("5 errato:era " & gab)
End If

If g6 = gao Then
ListBox1.AddItem ("6 esatto ")
Else
ListBox1.AddItem ("6 errato:era " & gao & " per n.11")
End If

If g7 = gxx Then
ListBox1.AddItem ("7 esatto ")
Else
ListBox1.AddItem ("7 errato:era " & gxx)
End If

If g8 = gbo Then
ListBox1.AddItem ("8 esatto ")
Else
ListBox1.AddItem ("8 errato:era " & gbo & " per n12 ")
End If

If g9 = gao Then
ListBox1.AddItem ("9 esatto ")
Else
ListBox1.AddItem ("9 errato:era " & gao)
End If

If g10 = gbo Then
ListBox1.AddItem ("10 esatto ")
Else
ListBox1.AddItem ("10 errato:era " & omodo)
End If

If g11 = goo Then
ListBox1.AddItem ("11 esatto ")
Else
ListBox1.AddItem ("11 errato:era " & goo)
End If

If g12 = gab Then
ListBox1.AddItem ("12 esatto ")
Else
ListBox1.AddItem ("12 errato:era " & gab)
End If
ListBox1.AddItem ("---------------------------------")


ListBox1.AddItem (" ")
ListBox1.AddItem (" ")
ListBox1.AddItem (" ")
ListBox1.AddItem (" ")
ListBox1.AddItem (" ")
ListBox1.AddItem (" ")
ListBox1.AddItem (" ")

End Sub

Private Sub CommandButton11_Click()
albero4.Visible = True
End Sub

Private Sub CommandButton2_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton3_Click()
albero1.Visible = False
albero2.Visible = False
albero3.Visible = False
albero4.Visible = False
End Sub

Private Sub CommandButton4_Click()
albero1.Visible = True
End Sub

Private Sub CommandButton5_Click()
etero = "Xx" 'portatore
omore = "xY" 'daltonico
omodo = "XY" 'normale
doppio = "NN"
g1 = TextBox1
g2 = TextBox2
g3 = TextBox3
g4 = TextBox4
g5 = TextBox5
g6 = TextBox6
g7 = TextBox7
g8 = TextBox8
g9 = TextBox9
g10 = TextBox10
g11 = TextBox11
g12 = TextBox12

If g1 = etero Then
ListBox1.AddItem ("1 esatto ")
Else
ListBox1.AddItem ("1 errato:era " & etero & " per n.6")
End If

If g2 = omodo Then
ListBox1.AddItem ("2 esatto ")
Else
ListBox1.AddItem ("2 errato:era " & omodo)
End If

If g3 = doppio Then
ListBox1.AddItem ("3 esatto ")
Else
ListBox1.AddItem ("3 errato:era " & doppio)
End If

If g4 = etero Then
ListBox1.AddItem ("4 esatto ")
Else
ListBox1.AddItem ("4 errato:era " & etero & " per n.7")
End If

If g5 = omodo Then
ListBox1.AddItem ("5 esatto ")
Else
ListBox1.AddItem ("5 errato:era " & omodo)
End If

If g6 = omore Then
ListBox1.AddItem ("6 esatto ")
Else
ListBox1.AddItem ("6 errato:era " & omore)
End If

If g7 = omore Then
ListBox1.AddItem ("7 esatto ")
Else
ListBox1.AddItem ("7 errato:era " & omore)
End If

If g8 = etero Then
ListBox1.AddItem ("8 esatto ")
Else
ListBox1.AddItem ("8 errato:era " & etero & " per n12 ")
End If

If g9 = omodo Then
ListBox1.AddItem ("9 esatto ")
Else
ListBox1.AddItem ("9 errato:era " & omodo)
End If

If g10 = omodo Then
ListBox1.AddItem ("10 esatto ")
Else
ListBox1.AddItem ("10 errato:era " & omodo)
End If

If g11 = doppio Then
ListBox1.AddItem ("11 esatto ")
Else
ListBox1.AddItem ("11 errato:era " & doppio)
End If

If g12 = omore Then
ListBox1.AddItem ("12 esatto ")
Else
ListBox1.AddItem ("12 errato:era " & omore)
End If
ListBox1.AddItem ("---------------------------------")

End Sub


Private Sub CommandButton6_Click()
albero2.Visible = True
End Sub

Private Sub CommandButton7_Click()
Rem informazioni su test proposti
ListBox2.AddItem ("inserire dati genotipici ")
ListBox2.AddItem ("usado sigle proposte ")
ListBox2.AddItem ("-------------------- ")
ListBox2.AddItem ("albero1 ")
ListBox2.AddItem ("colore pelo animali ")
ListBox2.AddItem ("RR rr Rr ")
ListBox2.AddItem ("se doppio XX ")
ListBox2.AddItem ("-------------------- ")
ListBox2.AddItem ("albero2 ")
ListBox2.AddItem ("anomalia in animali ")
ListBox2.AddItem ("recessiva su x ")
ListBox2.AddItem (" XX xx XY xY Xx")
ListBox2.AddItem ("se doppio NN ")
ListBox2.AddItem ("----------------------- ")
ListBox2.AddItem ("albero3 ")
ListBox2.AddItem ("daltonismo e visione normale ")
ListBox2.AddItem ("daltonismo recessivo su x ")
ListBox2.AddItem ("DD Dd dd DY dY ")
ListBox2.AddItem ("se dubbio NN ")
ListBox2.AddItem ("--------------------------- ")
ListBox2.AddItem ("dominanza incompleta")
ListBox2.AddItem ("gruppo ABO ")
ListBox2.AddItem (" A,B codominante:0 recessivo")
ListBox2.AddItem ("AA A0 BB B0 AB 00 ")
ListBox2.AddItem ("------------------------------")
End Sub

Private Sub CommandButton8_Click()
Rem albero con daltonismo
donnan = "DD"
donnap = "Dd"
donnad = "dd"
doppio = "NN"
maschion = "DY"
maschiod = "dY"
g1 = TextBox1
g2 = TextBox2
g3 = TextBox3
g4 = TextBox4
g5 = TextBox5
g6 = TextBox6
g7 = TextBox7
g8 = TextBox8
g9 = TextBox9
g10 = TextBox10
g11 = TextBox11
g12 = TextBox12

If g1 = donnap Then
ListBox1.AddItem ("1 esatto ")
Else
ListBox1.AddItem ("1 errato:era " & donnap & " per n.7-8")
End If

If g2 = maschion Then
ListBox1.AddItem ("2 esatto ")
Else
ListBox1.AddItem ("2 errato:era " & maschion)
End If

If g3 = maschion Then
ListBox1.AddItem ("3 esatto ")
Else
ListBox1.AddItem ("3 errato:era " & maschion)
End If

If g4 = donnap Then
ListBox1.AddItem ("4 esatto ")
Else
ListBox1.AddItem ("4 errato:era " & donnap & " per n.8")
End If

If g5 = maschion Then
ListBox1.AddItem ("5 esatto ")
Else
ListBox1.AddItem ("5 errato:era " & maschion)
End If

If g6 = donnap Then
ListBox1.AddItem ("6 esatto ")
Else
ListBox1.AddItem ("6 errato:era " & donnap & " per n.9-11")
End If

If g7 = doppio Then
ListBox1.AddItem ("7 esatto ")
Else
ListBox1.AddItem ("7 errato:era " & doppio)
End If

If g8 = maschiod Then
ListBox1.AddItem ("8 esatto ")
Else
ListBox1.AddItem ("8 errato:era " & maschiod)
End If

If g9 = donnap Then
ListBox1.AddItem ("9 esatto ")
Else
ListBox1.AddItem ("9 errato:era " & donnap & " per n.11-12")
End If

If g10 = maschion Then
ListBox1.AddItem ("10 esatto ")
Else
ListBox1.AddItem ("10 errato:era " & maschion)
End If

If g11 = donnad Then
ListBox1.AddItem ("11 esatto ")
Else
ListBox1.AddItem ("11 errato:era " & donnad)
End If

If g12 = maschiod Then
ListBox1.AddItem ("12 esatto ")
Else
ListBox1.AddItem ("12 errato:era " & maschiod)
End If
ListBox1.AddItem ("----------------")



End Sub

Private Sub CommandButton9_Click()
albero3.Visible = True
End Sub

vedi testgenetica.ppt