ereditarietà con alleli codominanti

dominanza intermedia
descrizione della trasmissione ereditaria con alleli codominanti
interazione con inserimento fenotipi genitori e filiale1
visualizzazione genotipi compatibili
esercitazione con visual basic su powerpoint

http://utenti.multimania.it/fumari/anno10/elenco.htm
http://utenti.multimania.it/fumari/anno10/intermedia.htm
http://utenti.multimania.it/fumari/anno10/intermedia.ppt



Private Sub CommandButton1_Click()
Rem generalità su terminologia genetica
ListBox1.Visible = True
ListBox2.Visible = False
ListBox1.AddItem ("nella trasmissione ereditaria di
caratteristiche ")
ListBox1.AddItem ("da genitori a figli (es.colore pelo)
")
ListBox1.AddItem ("si definiscono vari termini ")
ListBox1.AddItem ("carattere trasmesso :esempio
colore")
ListBox1.AddItem ("aspetti del carattere (alleli)
:es.bianco,nero ")
ListBox1.AddItem ("esempio con due alleli codominanti")
ListBox1.AddItem ("codominante compare nel fenotipo se
omozigote")
ListBox1.AddItem ("codominante non compare nel fenotipo
eterozigote")
ListBox1.AddItem ("lettera maiuscola per codominante1,
codominante2")
ListBox1.AddItem ("es.nero codominante N , bianco
codominante B ")
ListBox1.AddItem ("genotipo:alleli presenti
nell’individuo")
ListBox1.AddItem ("fenotipo:alleli manifestati
nell’individuo")
ListBox1.AddItem ("generazione parentale:genitore1 ,
genitore2 ")
ListBox1.AddItem ("generazione filiale 1 , filiale 2..
")
ListBox1.AddItem ("razza pura, omozigote:possiede un solo
allele ")
ListBox1.AddItem ("razza ibrida, eterozigote:possiede due
alleli ")
ListBox1.AddItem ("allele codominante1, codominante2 ")
ListBox1.AddItem ("individui generanti, diploidi,possiedono
due alleli ")
ListBox1.AddItem ("uguali o diversi ,per specifico carattere
")
ListBox1.AddItem ("in cromosomi omologhi:gli alleli")
ListBox1.AddItem ("nella formazione dei gameti ")
ListBox1.AddItem ("si separano in singoli gameti, che
perciò contengono ")
ListBox1.AddItem ("solo un allele del
carattere:codominante1, codominante2")
ListBox1.AddItem
("——————————————————–")
ListBox1.AddItem ("esempio:nero codominante1 e bianco
codominante2 ")
ListBox1.AddItem ("con parentale razza pura")
ListBox1.AddItem ("parentale:genitore1 nero : NN , genitore2
bianco :BB ")
ListBox1.AddItem ("gametogenesi : genitore1 N,N , genitore2
B,B")
ListBox1.AddItem ("filiale1:NB, NB, NB, NB eterozigoti,
grigio")
ListBox1.AddItem ("incrociando tra loro individui filiale1
si ottiene filiale2 ")
ListBox1.AddItem ("genitoref1 NB con gameti N , B ")
ListBox1.AddItem ("genitoref2 NB con gameti N , B ")
ListBox1.AddItem ("filiale2 : 25% NN, 50%(NB, NB), 25% BB
")
ListBox1.AddItem ("fenotipicamente nero 25% , bianco 25% ,
grigio 50%")
ListBox1.AddItem ("—-grafica p2
—————————–")
ListBox1.AddItem ("prima e seconda legge di mendel:dominanza
intermedia")

End Sub

Private Sub CommandButton10_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Sub

Private Sub CommandButton2_Click()
inter1.Visible = True
End Sub

Private Sub CommandButton3_Click()
inter1.Visible = False
inter2.Visible = False
inter3.Visible = False
End Sub

Private Sub CommandButton4_Click()
ListBox1.Clear
ListBox2.Clear
End Sub

Private Sub CommandButton5_Click()
inter2.Visible = True
End Sub

Private Sub CommandButton6_Click()
Rem inserire fenotipi parentale e filiale1
ListBox2.AddItem ("esempio con dominanza intermedia e due
alleli")
ListBox2.AddItem ("inserendo i fenotipi dei genitori e del
figlio filiale1")
ListBox2.AddItem ("si visualizzano genotipi
compatibili")
ListBox2.AddItem ("genotipo figlio, genotipi genitori")
ListBox2.AddItem
("—————————————————")
ListBox1.Visible = False
ListBox2.Visible = True
g1 = TextBox1
g2 = TextBox2
f1 = TextBox3

Rem lettera per codominante1
d1 = UCase$(Left$(g1, 1))
Rem lettera per codominante2
d2 = UCase$(Left$(g2, 1))
d3 = UCase$(Left$(f1, 1))
ListBox2.AddItem ("fenotipo genitore1 = " & g1)
ListBox2.AddItem ("fenotipo genitore2 = " & g2)
ListBox2.AddItem ("fenotipo filiale1 = " & f1)
ListBox2.AddItem ("vedi compatibilità cfr.schema inter3
")
ListBox2.AddItem
("——————————————————-")

If f1 <> g1 And g1 <> g2 Then
genof1 = d1 & d2
genog1 = d1 & d1
genog2 = d2 & d2
End If

If f1 = g1 And g1 = g2 Then
genof1 = d1 & d1
genog1 = d1 & d1
genog2 = d1 & d1
ListBox2.AddItem ("se tutti intermedi: genotipo XY o
iniziali fenotipo")
ListBox2.AddItem ("non conoscendo alleli codominanti")
ListBox2.AddItem ("es.verde + rosso >>> intermedio=
giallo")
ListBox2.AddItem ("se fenotipi tutti gialli, mancano
iniziali per alleli")
ListBox2.AddItem ("verde e rosso :scriviamo XY o GG ")
ListBox2.AddItem
("———————————————")
End If

If f1 = g2 And g2 <> g1 Then
genof1 = d1 & "X"
genog1 = d1 & d1
genog2 = d1 & "X"
End If

If f1 = g1 And g1 <> g2 Then
genof1 = d1 & d1
genog1 = d1 & d1
genog2 = d1 & "X"
End If

If g1 = g2 And g2 <> f1 Then
genof1 = d3 & d3
genog1 = d3 & "X"
genog2 = d3 & "X"
End If

ListBox2.AddItem ("genotipo genitore1 " & genog1)
ListBox2.AddItem ("genotipo genitore2 " & genog2)
ListBox2.AddItem ("genotipo filiale1 " & genof1)
End Sub

Private Sub CommandButton7_Click()
Rem dominanza intermedia con tre alleli AB0
ListBox1.Visible = True
ListBox2.Visible = False
ListBox1.AddItem ("esempio con due alleli codominanti e uno
recessivo")
ListBox1.AddItem ("codominante compare nel fenotipo se
omozigote ")
ListBox1.AddItem ("codominante compare nel fenotipo se
presente recessivo")
ListBox1.AddItem ("codominante non compare nel fenotipo
eterozigote")
ListBox1.AddItem ("recessivo compare solo in assenza di
codominanti")
ListBox1.AddItem ("maiuscola per codominante1, codominante2,
minuscola recessivo")
ListBox1.AddItem ("es.nero codominante N , bianco
codominante B rosso r")
ListBox1.AddItem ("genotipo:alleli presenti
nell’individuo")
ListBox1.AddItem ("fenotipo:alleli manifestati
nell’individuo")
ListBox1.AddItem ("generazione parentale:genitore1 ,
genitore2 ")
ListBox1.AddItem ("generazione filiale 1 , filiale 2..
")
ListBox1.AddItem ("razza pura, omozigote:possiede un solo
allele ")
ListBox1.AddItem ("razza ibrida, eterozigote:possiede due
alleli ")
ListBox1.AddItem ("allele codominante1, codominante2 o
recessivo")
ListBox1.AddItem ("individui generanti, diploidi,possiedono
due alleli ")
ListBox1.AddItem ("uguali o diversi ,per specifico carattere
")
ListBox1.AddItem ("in cromosomi omologhi:gli alleli")
ListBox1.AddItem ("nella formazione dei gameti ")
ListBox1.AddItem ("si separano in singoli gameti, che
perciò contengono ")
ListBox1.AddItem ("solo un allele del
carattere:codominante1, codominante2,recessivo")
ListBox1.AddItem
("——————————————————–")
ListBox1.AddItem ("esempio gruppo AB0 :codominanti A,B
recessivo 0")
ListBox1.AddItem ("con parentale ibrida eterozigote con
recessivo")
ListBox1.AddItem ("parentale:genitore1 A : A0 , genitore2 B
:B0 ")
ListBox1.AddItem ("gametogenesi : genitore1 A,0 , genitore2
B,0")
ListBox1.AddItem ("filiale1:AB, A0, B0, 00
eterozigoti,recessivo omozigote")
ListBox1.AddItem ("—-grafica p5 schema
p8—————————–")
End Sub

Private Sub CommandButton8_Click()
Rem schema due codominanti
inter3.Visible = True
End Sub

Private Sub CommandButton9_Click()
Rem cela testo
ListBox1.Visible = False
ListBox2.Visible = False

End Sub

Informazioni su fumarino

interessato ad argomenti scientifici, ambienti naturali, parchi e monti
Questa voce è stata pubblicata in informatica. Contrassegna il permalink.

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...