fenotipo e genotipo
descrizione trasmissione
carattere colore dell'iride, daltonismo,emofilia
determinazione dei genotipi in funzione dei fenotipi
esercitazione con vba su powerpoint
Private Sub CommandButton1_Click()
Rem determinazione genotipo
ListBox1.AddItem ("esempi per
determinare genotipi in funzione di fenotipi")
ListBox1.AddItem ("fenotipo genitore1 e genitore2 :nero
")
ListBox1.AddItem ("fenotipo figlio1 :bianco")
ListBox1.AddItem ("determinare allele dominante, recessivo,
genotipi")
ListBox1.AddItem
("-----------------------------------------------------")
ListBox1.AddItem ("allele recessivo: bianco n perchè non
appare nei genitori")
ListBox1.AddItem ("allele dominante :nero N ")
ListBox1.AddItem ("genotipo figlio1 recessivo ,omozigote :
nn ")
ListBox1.AddItem ("genotipo genitori portatori dominante e
recessivo:eterozigoti Nn")
ListBox1.AddItem
("---------------------------------------------------------")
ListBox1.AddItem ("fenotipo madre
:visione normale; padre :visione normale")
ListBox1.AddItem ("fenotipo figlio1 :daltonico")
ListBox1.AddItem ("determinare genotipi")
ListBox1.AddItem
("-----------------------------------------------------")
ListBox1.AddItem ("genotipo figlio daltonico :Xd materno + Y
paterno")
ListBox1.AddItem ("genotipo padre normale :XD + Y ")
ListBox1.AddItem ("genotipo madre normale ma portatrice : Xd
+ XD ")
ListBox1.AddItem
("-------------------------------------------------")
ListBox1.AddItem ("fenotipo
genitori(nonni) visione normale ")
ListBox1.AddItem ("fenotipo figli maschio e femmina normali
")
ListBox1.AddItem ("fenotipo sposo normale ")
ListBox1.AddItem ("fenotipo figlio(nipote) daltonico ")
ListBox1.AddItem ("determinare tutti i genotipi ")
ListBox1.AddItem ("nipote daltonico:Xd + Y riceve daltonismo
da Xd materno")
ListBox1.AddItem ("sposo normale : XD+Y ")
ListBox1.AddItem ("madre portatrice: Xd + XD ")
ListBox1.AddItem ("fratello normale :XD+Y ")
ListBox1.AddItem ("nonna portatrice : Xd + XD ")
ListBox1.AddItem ("nonno normale : XD + Y")
ListBox1.AddItem
("------------------------------------")
ListBox1.AddItem ("determinare
genotipi possibili in funzione di fenotipi noti")
ListBox1.AddItem ("madre fenotipo nero, padre fenotipo
bianco ")
ListBox1.AddItem ("figlio 1 fenotipo bianco ")
ListBox1.AddItem ("ipotesi :bianco dominante ? ")
ListBox1.AddItem ("madre omozigote bb , padre
omozigote,eterozigote Bb , BB ")
ListBox1.AddItem ("figlio 1 eterozigote Bb ")
ListBox1.AddItem ("figlio 2 fenotipo nero : bb >>>
escluso padre omozigote ")
ListBox1.AddItem ("genotipi :madre bb , padre Bb, figlio1 Bb
, figlio2 bb ")
ListBox1.AddItem
("------------------------------------------------------------
")
ListBox1.AddItem ("determinare genotipi possibili in
funzione di fenotipi noti")
ListBox1.AddItem ("madre fenotipo nero, padre fenotipo
bianco ")
ListBox1.AddItem ("figlio 1 fenotipo bianco ")
ListBox1.AddItem ("ipotesi :nero dominante ? ")
ListBox1.AddItem ("madre eterozigote Bb , padre omozigote bb
")
ListBox1.AddItem ("figlio 1 omozigote bb ")
ListBox1.AddItem ("figlio 2 fenotipo nero : eterozigote Bb
")
ListBox1.AddItem ("genotipi :madre Bb , padre bb, figlio1 bb
, figlio2 Bb ")
ListBox1.AddItem
("------------------------------------------------------------
")
End Sub
Private Sub CommandButton2_Click()
genotipo1.Visible = True
End Sub
Private Sub CommandButton3_Click()
genotipo2.Visible = True
End Sub
Private Sub CommandButton4_Click()
genotipo3.Visible = True
End Sub
Private Sub CommandButton5_Click()
genotipo1.Visible = False
genotipo2.Visible = False
genotipo3.Visible = False
genotipo4.Visible = False
End Sub
Private Sub CommandButton6_Click()
genotipo4.Visible = True
End Sub
vedi genotipo.ppt