test interattivo di geneticatest interattivo per riconoscimento genotipi in funzione di fenotipi proposti 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 powerpointhttp://utenti.multimania.it/fumari/anno10/elenco.htmhttp://utenti.multimania.it/fumari/anno10/testgenetica.htmhttp://utenti.multimania.it/fumari/anno10/testgenetica.ppt Private Sub CommandButton1_Click() Rem albero1rem 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
test interattivo su fenotipo, genotipo, albero genealogico
test interattivo di geneticatest interattivo per riconoscimento genotipi in funzione di fenotipi proposti 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 powerpointhttp://utenti.multimania.it/fumari/anno10/elenco.htmhttp://utenti.multimania.it/fumari/anno10/testgenetica.htmhttp://utenti.multimania.it/fumari/anno10/testgenetica.ppt Private Sub CommandButton1_Click() Rem albero1rem 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