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

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

vedi iride.ppt