dominanza intermedia descrizione della trasmissione ereditaria con alleli codominanti interazione con inserimento fenotipi genitori e filiale1 visualizzazione genotipi compatibili esercitazione con visual basic su powerpointhttp://utenti.multimania.it/fumari/anno10/elenco.htmhttp://utenti.multimania.it/fumari/anno10/intermedia.htmhttp://utenti.multimania.it/fumari/anno10/intermedia.pptPrivate 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
alleli codominanti ed ereditarietà
dominanza intermedia descrizione della trasmissione ereditaria con alleli codominanti interazione con inserimento fenotipi genitori e filiale1 visualizzazione genotipi compatibili esercitazione con visual basic su powerpointhttp://utenti.multimania.it/fumari/anno10/elenco.htmhttp://utenti.multimania.it/fumari/anno10/intermedia.htmhttp://utenti.multimania.it/fumari/anno10/intermedia.pptPrivate 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