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