intermedia
esci con indice1.htm
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
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
vedi intermedia.ppt