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

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

vedi intermedia.ppt