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
Inviato da: fumarinox
il 01/03/2023 alle 20:47
Inviato da: marabertow
il 24/02/2023 alle 20:59
Inviato da: cassetta2
il 20/12/2020 alle 16:11
Inviato da: cassetta2
il 12/10/2020 alle 10:01
Inviato da: cassetta2
il 05/08/2019 alle 20:30