geni associati al sesso
descrizione della trasmissione
dei caratteri sessuali
descrizione della trasmissione del daltonismo ed emofilia in
funzione
del sesso dei figli, della associazione o meno dei geni su X
esercitazione con vba su powerpoint
Private Sub CommandButton1_Click()
Rem determinazione sesso nei figli
ListBox1.Visible = True
ListBox1.AddItem ("il carattere -sesso-presenta due
alleli:maschile,femminile ")
ListBox1.AddItem ("i geni codificanti si trovano nella
coppia di eterocromosomi ")
ListBox1.AddItem ("simili nella femmina XX e diversi nel
maschio XY ")
ListBox1.AddItem ("lo zigote che riceve gameti entrambi
portatori di X ")
ListBox1.AddItem ("darà origine a una femmina ")
ListBox1.AddItem ("lo zigote che riceve due diversi gameti X
e Y ")
ListBox1.AddItem ("darà origine a un maschio ")
ListBox1.AddItem
("--------------------------------------------------------
")
ListBox1.AddItem ("padre e madre originano gameti portatori
")
ListBox1.AddItem ("di X (madre) e di X e Y (padre) ")
ListBox1.AddItem ("nella fecondazione l'incontro casuale
")
ListBox1.AddItem ("statistico origina in parti simili
")
ListBox1.AddItem ("individui maschili 50% e femminili 50%
")
End Sub
Private Sub CommandButton10_Click()
emo1.Visible = True
End Sub
Private Sub CommandButton11_Click()
emo2.Visible = True
End Sub
Private Sub CommandButton12_Click()
emo3.Visible = True
End Sub
Private Sub CommandButton13_Click()
emo4.Visible = True
End Sub
Private Sub CommandButton14_Click()
ListBox1.Visible = False
End Sub
Private Sub CommandButton2_Click()
sessofigli.Visible = True
End Sub
Private Sub CommandButton3_Click()
sessofigli.Visible = False
daltonico1.Visible = False
daltonico2.Visible = False
daltonico3.Visible = False
emo1.Visible = False
emo2.Visible = False
emo3.Visible = False
emo4.Visible = False
End Sub
Private Sub CommandButton4_Click()
ListBox1.Clear
End Sub
Private Sub CommandButton5_Click()
Rem trasmissione daltonismo legato a
cromosoma X
ListBox1.Visible = True
ListBox1.AddItem ("il cromosoma X codifica anche per la
visione a colori ")
ListBox1.AddItem ("se gene normale, la visione dei colori
risulta normale")
ListBox1.AddItem ("se gene modificato, non si distinguono
alcuni colori ")
ListBox1.AddItem ("es.rosso e blu >>> daltonismo
")
ListBox1.AddItem ("visione normale dominante rispetto a gene
del daltonismo ")
ListBox1.AddItem ("il cromosoma Y non codifica per la
visione ")
ListBox1.AddItem ("la presenza di un X normale nasconde la
presenza dell' X daltonico ")
ListBox1.AddItem ("il daltonismo compare solo in assenza di
un X normale ")
ListBox1.AddItem
("----------------------------------------------------------
")
ListBox1.AddItem ("interpretazione della maggior diffusione
del daltonismo nei maschi ")
ListBox1.AddItem ("rispetto alle femmine ")
ListBox1.AddItem
("-----------------------------------------------------------
")
ListBox1.AddItem ("un padre XY con X daltonico, risulta
fenotipicamente daltonico")
ListBox1.AddItem ("una madre XX con un X daltonico ,risulta
fenotipicamente normale ")
ListBox1.AddItem ("un figlio che riceve dalla madre X e dal
padre Y risulterà ")
ListBox1.AddItem ("daltonico se X della madre daltonico 50%
")
ListBox1.AddItem ("normale se X della madre normale 50%
")
ListBox1.AddItem ("una figlia che riceve dal padre X normale
o daltonico ")
ListBox1.AddItem ("risulterà normale o daltonica in
funzione dell' X della madre ")
ListBox1.AddItem ("Xp normale e Xm normale >>>
omozigote normale 25%")
ListBox1.AddItem ("Xp normale e Xm daltonico >>>
eterozigote, normale,portatrice 25%")
ListBox1.AddItem ("Xp daltonico e Xm normale >>>
eterozigote, normale, portatrice 25% ")
ListBox1.AddItem ("Xp daltonico e Xm daltonico >>>
omozigote ,daltonica 25%")
ListBox1.AddItem
("------------------------------------------------")
ListBox1.AddItem ("il carattere coagulazione del sangue si
trova pure solo su X ")
ListBox1.AddItem ("e presenta due alleli: coagulazione
normale e emofilia(recessivo)")
ListBox1.AddItem ("la trasmissione ai
figli segue, almeno in teoria, le modalità ")
ListBox1.AddItem ("del daltonismo:ma per la gravità della
anomalia si possono avere meno")
ListBox1.AddItem ("combinazioni possibili")
End Sub
Private Sub CommandButton6_Click()
daltonico1.Visible = True
End Sub
Private Sub CommandButton7_Click()
daltonico2.Visible = True
End Sub
Private Sub CommandButton8_Click()
daltonico3.Visible = True
End Sub
Private Sub CommandButton9_Click()
Rem daltonismo ed emofilia
ListBox1.Visible = True
ListBox1.AddItem ("carattere colore (normale,daltonismo)
")
ListBox1.AddItem ("e coagulazioe(normale,emofilia")
ListBox1.AddItem ("sono codificati sul cromosoma X ")
ListBox1.AddItem ("(geni associati ), non su Y ")
ListBox1.AddItem ("si possono quindi avere individui ")
ListBox1.AddItem ("completamente normali per entrambi i
caratteri")
ListBox1.AddItem ("anomali per entrambi i caratteri ")
ListBox1.AddItem ("anomali per un carattere e normali per
altro ")
ListBox1.AddItem ("con distribuzione anche in funzione del
sesso ")
ListBox1.AddItem
("------------------------------------------------- ")
ListBox1.AddItem ("(DE DE) (DE Y) >>> figli tutti
normali ")
ListBox1.AddItem ("(de de) (de Y) >>> figli tutti
anomali")
ListBox1.AddItem ("(De De) (De Y) >>>
variabilità")
ListBox1.AddItem ("(dE dE) (dE Y >>>
variabilità")
ListBox1.AddItem ("(de De)
>>>>>>>>>> variabilità")
ListBox1.AddItem ("(de de)
>>>>>>>>>> variabilità")
ListBox1.AddItem ("(dE De)
>>>>>>>>>> variabilità")
ListBox1.AddItem ("(De dE)
>>>>>>>>>> variabilità")
ListBox1.AddItem ("con geni associati nello stesso X i
fratelli maschi")
ListBox1.AddItem ("dovrebbero essere sempre o normali
")
ListBox1.AddItem ("per visione e coagulazione ED - Y")
ListBox1.AddItem ("o daltonici ed emofilici ed - y ")
ListBox1.AddItem ("se invece con fratello ed-Y daltonico ed
emofilico nasce ")
ListBox1.AddItem ("un fratello solo emofilico (eD - Y) o
solo daltonico (Ed - Y) ")
ListBox1.AddItem ("si deve ammettere che sia avvenuto
,durante la meiosi ")
ListBox1.AddItem ("uno scambio di geni
tra cromosomi omologhi ")
ListBox1.AddItem ("nella madre:crossing over")
ListBox1.AddItem ("da ed - ED >>> Ed - eD ")
End Sub
vedi daltonismo.ppt