ereditarietà
colore iride
descrizione meccanismo di trasmissione del colore dell’occhio
terminologia da usare , grafici, determinazione del genotipo di
genitori e figli
in funzione del fenotipo osservato nei figli
dati prefissati
esercitazione con vba su powerpoint
http://digilander.libero.it/francescovise/chimica/iride.ppt
Private Sub CommandButton1_Click()
grafo1.Visible = False
grafo2.Visible = False
grafo3.Visible = False
End Sub
Private Sub CommandButton2_Click()
Rem colore degli occhi nero-azzurro
ListBox1.AddItem ("carattere considerato:colore
occhio(iride) ")
ListBox1.AddItem ("aspetto(allele):nero dominante N, azzurro
recessivo n ")
ListBox1.AddItem ("dominante se presente appare sempre
")
ListBox1.AddItem ("omozigote( NN ) , eterozigote (Nn)")
ListBox1.AddItem ("recessivo appare solo in assenza di
dominante :omozigote( nn) ")
ListBox2.AddItem ("cellule somatiche diploidi con 46
cromosomi ,23 coppie")
ListBox2.AddItem ("cellule gametiche aploidi con 23
cromosomi, generate da meiosi ")
ListBox2.AddItem ("ogni cellula somatica possiede due geni
per un carattere(colore) ")
ListBox2.AddItem ("con due alleli(su cromosomi omologhi),
che possono essere ")
ListBox2.AddItem ("uguali (dominanti),(recessivi) o diversi
(dominante e recessivo)")
ListBox2.AddItem ("individuo :omozigote dominante (NN),
recessivo (nn), eterozigote(Nn)")
ListBox3.AddItem ("fenotipo:insieme di caratteri che si
manifestano")
ListBox3.AddItem ("genotipo:insieme di caratteri codificati
nei geni cromosomici")
ListBox3.AddItem ("genotipo (con alleli dominanti e
recessivi)")
ListBox3.AddItem ("fenotipo:alleli dominanti,recessivi se
mancano dominanti")
End Sub
Private Sub CommandButton3_Click()
grafo1.Visible = True
End Sub
Private Sub CommandButton4_Click()
grafo2.Visible = True
End Sub
Private Sub CommandButton5_Click()
grafo3.Visible = True
End Sub
Private Sub CommandButton6_Click()
Rem esempio trasmissione colore iride
ListBox1.AddItem ("carattere colore dell’iride indipendente
dal sesso")
ListBox1.AddItem ("perchè codificato in cromosomi
somatici")
ListBox1.AddItem ("nero dominante su azzurro ")
ListBox1.AddItem ("genitore1
:fenotipicamente iride nera")
ListBox1.AddItem ("genitore2:fenotipiamente iride
nera")
ListBox1.AddItem ("figli:fenotipicamente iride nera o
azzurra ")
ListBox1.AddItem ("determinare genotipo dei genitori e dei
figli")
ListBox2.AddItem ("figlio fenotipicamente con iride
azzurro:omozigote nn")
ListBox2.AddItem ("figlio fenotipicamente con iride
nera:omozigote NN o eterozigote Nn")
ListBox2.AddItem ("i genitori devono essere entrambi
eterozigoti Nn ")
ListBox2.AddItem ("originando gameti tipo N o n che nella
fecondazione posssono generare")
ListBox2.AddItem ("omozigoti recessivi nn (azzurro)
:fenotipo = genotipo")
ListBox2.AddItem ("omozigoti dominanti NN (nero) :fenotipo =
genotipo")
ListBox2.AddItem ("eterozigoti Nn (nero) : fenotipo <>
genotipo")
ListBox3.AddItem ("dal fenotipo
azzurro recessivo del figlio si deduce genotipo nn")
ListBox3.AddItem ("perciò entrambi i genitori devono aver
prodotto gameti con allele n ")
ListBox3.AddItem ("pur possedendo nel genotipo anche allele
N ,essendo fenotipicamente neri")
ListBox3.AddItem ("i figli fenotipicamente neri possono aver
ricevuto dai genitori")
ListBox3.AddItem ("alleli N,N N,n ed essere quindi omozigoti
NN o eterozigoti Nn ")
End Sub
Private Sub CommandButton7_Click()
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
End Sub
Private Sub CommandButton8_Click()
Rem inizio e cancellazione
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
grafo1.Visible = False
grafo2.Visible = False
grafo3.Visible = False
End Sub
Private Sub UserForm_Click()
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
grafo1.Visible = False
grafo2.Visible = False
grafo3.Visible = False
End Sub
marino's space 