fenotipo, genotipo in albero genealogico

test interattivo di genetica

test 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 powerpoint

http://utenti.multimania.it/fumari/anno10/elenco.htm
http://utenti.multimania.it/fumari/anno10/testgenetica.htm
http://utenti.multimania.it/fumari/anno10/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

Informazioni su fumarino

interessato ad argomenti scientifici, ambienti naturali, parchi e monti
Questa voce è stata pubblicata in informatica. Contrassegna il permalink.

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...