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 powerpoint

http://utenti.multimania.it/fumari/anno10/elenco.htm
http://utenti.multimania.it/fumari/anno10/mendel.htm
http://utenti.multimania.it/fumari/anno10/mendel.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 ("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

Informazioni su fumarino

interessato ad argomenti scientifici, ambienti naturali, parchi e monti
Questa voce è stata pubblicata in informatica. Contrassegna il permalink.

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...