leggi di Mendel
esci testvba.htm

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

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
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

Private Sub UserForm_Click()

End Sub