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