terminologia genetica descrizione prima e seconda legge di mendel carattere, allele dominante e recessivo inserimento fenotipi genitori e filiale1 per riconoscere allele dominante,recessivo e stabilire genotipo figlio e genitori:interattivo esercitazione con visual basic su powerpointhttp://utenti.multimania.it/fumari/anno10/elenco.htmhttp://utenti.multimania.it/fumari/anno10/mendel.htmhttp://utenti.multimania.it/fumari/anno10/mendel.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 ("lettera maiuscola per dominante, minuscola per recessivo") ListBox1.AddItem ("es.nero dominante N , bianco recessivo n ") ListBox1.AddItem ("allele dominante: compare sempre nel fenotipo") ListBox1.AddItem ("allele recessivo:compare solo in assenza del dominante") 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 dominante e allele 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:dominante o recessivo") ListBox1.AddItem ("--------------------------------------------------------") ListBox1.AddItem ("esempio:nero dominante e bianco recessivo ") ListBox1.AddItem ("con parentale razza pura") ListBox1.AddItem ("parentale:genitore1 nero : NN , genitore2 bianco :nn ") ListBox1.AddItem ("gametogenesi : genitore1 N,N , genitore2 n,n") ListBox1.AddItem ("filiale1:Nn Nn, Nn ,Nn eterozigoti, neri") ListBox1.AddItem ("incrociando tra loro individui filiale1 si ottiene filiale2 ") ListBox1.AddItem ("genitoref1 Nn con gameti N , n ") ListBox1.AddItem ("genitoref2 Nn con gameti N , n ") ListBox1.AddItem ("filiale2 : 25% NN, 50%(Nn, Nn), 25% nn ") ListBox1.AddItem ("fenotipicamente nero 75% , bianco 25% ") ListBox1.AddItem ("----grafica p2 - p5 -----------------------------") ListBox1.AddItem ("prima e seconda legge di mendel") End Sub Private Sub CommandButton2_Click() mendel1.Visible = True End Sub Private Sub CommandButton3_Click() mendel1.Visible = False mendel2.Visible = False End Sub Private Sub CommandButton4_Click() ListBox1.Clear ListBox2.Clear End Sub Private Sub CommandButton5_Click() mendel2.Visible = True End Sub Private Sub CommandButton6_Click() Rem inserire fenotipi parentale e filiale1 ListBox2.AddItem ("esempio per riconoscere allele dominante e recessivo") ListBox2.AddItem ("inserendo i fenotipi dei genitori e del figlio filiale1") ListBox2.AddItem ("si visualizza allele dominante e recessivo") ListBox2.AddItem ("genotipo figlio, genitore recessivo") ListBox2.AddItem ("genotipo con due possibilità ,genitore dominante") ListBox2.AddItem ("omozigote o eterozigote") ListBox2.AddItem ("definibile eterozigote ,se nasce un figlio omozigote recessivo") ListBox2.AddItem ("---------------------------------------------------") ListBox1.Visible = False ListBox2.Visible = True g1 = TextBox1 g2 = TextBox2 f1 = TextBox3 Rem lettera per dominante d = UCase$(Left$(f1, 1)) Rem lettera per recessivo r = Left$(f1, 1) g1 = TextBox1 g2 = TextBox2 If g2 = g1 Then MsgBox ("devono essere fenotipi diversi") k = 1 End If f1 = TextBox3 If f1 <> g1 And f1 <> g2 Then MsgBox ("deve essere come un genitore") k = 1 End If Rem lettera per dominante d = UCase$(Left$(f1, 1)) Rem lettera per recessivo r = Left$(f1, 1) If f1 = g1 Then dominante = g1 recessivo = g2 Else dominante = g2 recessivo = g1 End If If k = 1 Then ListBox2.AddItem ("inserire fenotipi corretti") Else ListBox2.AddItem ("fenotipo genitore1 = " & g1) ListBox2.AddItem ("fenotipo genitore2 = " & g2) ListBox2.AddItem ("fenotipo filiale1 = " & f1) ListBox2.AddItem (f1 & " " & d & " dominante su " & recessivo & " " & r) ListBox2.AddItem ("dominante : " & dominante & " recessivo : " & recessivo) ListBox2.AddItem ("genotipo genitore omozigote recessivo :" & r & r) ListBox2.AddItem ("possibili due genotipi per genitore dominante") ListBox2.AddItem ("genotipo genitore omozigote dominante :" & d & d) ListBox2.AddItem ("genotipo genitore eterozigote dominante :" & d & r) ListBox2.AddItem ("genotipo filiale1 eterozigote :" & d & r) ListBox2.AddItem ("-------------------------------------------------------") ListBox2.AddItem (" ") ListBox2.AddItem (" ") ListBox2.AddItem (" ") end if End Sub
terminologia genetica e leggi di mendel
terminologia genetica descrizione prima e seconda legge di mendel carattere, allele dominante e recessivo inserimento fenotipi genitori e filiale1 per riconoscere allele dominante,recessivo e stabilire genotipo figlio e genitori:interattivo esercitazione con visual basic su powerpointhttp://utenti.multimania.it/fumari/anno10/elenco.htmhttp://utenti.multimania.it/fumari/anno10/mendel.htmhttp://utenti.multimania.it/fumari/anno10/mendel.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 ("lettera maiuscola per dominante, minuscola per recessivo") ListBox1.AddItem ("es.nero dominante N , bianco recessivo n ") ListBox1.AddItem ("allele dominante: compare sempre nel fenotipo") ListBox1.AddItem ("allele recessivo:compare solo in assenza del dominante") 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 dominante e allele 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:dominante o recessivo") ListBox1.AddItem ("--------------------------------------------------------") ListBox1.AddItem ("esempio:nero dominante e bianco recessivo ") ListBox1.AddItem ("con parentale razza pura") ListBox1.AddItem ("parentale:genitore1 nero : NN , genitore2 bianco :nn ") ListBox1.AddItem ("gametogenesi : genitore1 N,N , genitore2 n,n") ListBox1.AddItem ("filiale1:Nn Nn, Nn ,Nn eterozigoti, neri") ListBox1.AddItem ("incrociando tra loro individui filiale1 si ottiene filiale2 ") ListBox1.AddItem ("genitoref1 Nn con gameti N , n ") ListBox1.AddItem ("genitoref2 Nn con gameti N , n ") ListBox1.AddItem ("filiale2 : 25% NN, 50%(Nn, Nn), 25% nn ") ListBox1.AddItem ("fenotipicamente nero 75% , bianco 25% ") ListBox1.AddItem ("----grafica p2 - p5 -----------------------------") ListBox1.AddItem ("prima e seconda legge di mendel") End Sub Private Sub CommandButton2_Click() mendel1.Visible = True End Sub Private Sub CommandButton3_Click() mendel1.Visible = False mendel2.Visible = False End Sub Private Sub CommandButton4_Click() ListBox1.Clear ListBox2.Clear End Sub Private Sub CommandButton5_Click() mendel2.Visible = True End Sub Private Sub CommandButton6_Click() Rem inserire fenotipi parentale e filiale1 ListBox2.AddItem ("esempio per riconoscere allele dominante e recessivo") ListBox2.AddItem ("inserendo i fenotipi dei genitori e del figlio filiale1") ListBox2.AddItem ("si visualizza allele dominante e recessivo") ListBox2.AddItem ("genotipo figlio, genitore recessivo") ListBox2.AddItem ("genotipo con due possibilità ,genitore dominante") ListBox2.AddItem ("omozigote o eterozigote") ListBox2.AddItem ("definibile eterozigote ,se nasce un figlio omozigote recessivo") ListBox2.AddItem ("---------------------------------------------------") ListBox1.Visible = False ListBox2.Visible = True g1 = TextBox1 g2 = TextBox2 f1 = TextBox3 Rem lettera per dominante d = UCase$(Left$(f1, 1)) Rem lettera per recessivo r = Left$(f1, 1) g1 = TextBox1 g2 = TextBox2 If g2 = g1 Then MsgBox ("devono essere fenotipi diversi") k = 1 End If f1 = TextBox3 If f1 <> g1 And f1 <> g2 Then MsgBox ("deve essere come un genitore") k = 1 End If Rem lettera per dominante d = UCase$(Left$(f1, 1)) Rem lettera per recessivo r = Left$(f1, 1) If f1 = g1 Then dominante = g1 recessivo = g2 Else dominante = g2 recessivo = g1 End If If k = 1 Then ListBox2.AddItem ("inserire fenotipi corretti") Else ListBox2.AddItem ("fenotipo genitore1 = " & g1) ListBox2.AddItem ("fenotipo genitore2 = " & g2) ListBox2.AddItem ("fenotipo filiale1 = " & f1) ListBox2.AddItem (f1 & " " & d & " dominante su " & recessivo & " " & r) ListBox2.AddItem ("dominante : " & dominante & " recessivo : " & recessivo) ListBox2.AddItem ("genotipo genitore omozigote recessivo :" & r & r) ListBox2.AddItem ("possibili due genotipi per genitore dominante") ListBox2.AddItem ("genotipo genitore omozigote dominante :" & d & d) ListBox2.AddItem ("genotipo genitore eterozigote dominante :" & d & r) ListBox2.AddItem ("genotipo filiale1 eterozigote :" & d & r) ListBox2.AddItem ("-------------------------------------------------------") ListBox2.AddItem (" ") ListBox2.AddItem (" ") ListBox2.AddItem (" ") end if End Sub