dominanza
esci con indice1.htm
terminologia genetica mendeliana
classica
applicata a 1-2 legge di Mendel con individui razza
pura(omozigotici)
1 legge della dominanza F1
2 legge della disgiunzione F2
si richiede inserimento di
(facoltativo nome carattere)
fenotipo F1 (dominante) g1 (dominante) g2 (recessivo)
si forniscono terminologie varie , tabelle incroci. alberi, %
esempi
altezza (alto-basso)
superficie(rugosa, pelosa)
spessore(grosso, sottile)
con carattere colore(se azzurro :dominante, giallo :recessivo)
viene mantenuto il colore indicato
altri colori invece non vengono rappresentati come richiesto
ma solo elaborate le terminologie
(per colori rosso, giallo, azzurro, verde, blu
cfr.terminicolore.ppt)
apertura programma
area lavoro vuota
area di lavoro con inseriti dati richiesti : p1 per visualizzare termini elaborati, p2, p3, p4 per grafici, %
area di lavoro con inseriti dati richiesti : p1 per visualizzare termini elaborati, p2, p3, p4 per grafici, %
area di lavoro con inseriti dati richiesti : p1 per visualizzare termini elaborati, p2, p3, p4 per grafici, %
inserimento fenotipo errato
elaborazione e presentazione in parte errata come conseguenza
Private Sub CommandButton1_Click()
Rem sigle
Dim g1, g2, f1 As String
Dim c1, c2, c3 As String
Dim gf1 As String
Dim cx, cy As String
ca = TextBox1
c1 = TextBox2
c2 = TextBox3
c3 = TextBox4
If c3 <> c1 Then
MsgBox ("g1 e f1 devono essere uguali")
End If
If c2 = c3 Then
MsgBox ("g2 e f1 devono essere diversi")
End If
cx = UCase$(Left$(c3, 1))
cy = Left$(c3, 1)
Label28.Caption = cx
cd = vbCyan
cr = vbYellow
g1 = cx
g2 = cy
f1 = cx
fe1 = c1
fe2 = c2
fef1 = c3
gdo = c1
gre = c2
Label9.Caption = "fenotipo g1 : " & c1
Label10.Caption = "fenotipo g2 : " & c2
Label11.Caption = "fenotipo gf1 : " & c3
Label9.BackColor = cd
Label10.BackColor = cr
Label11.BackColor = cd
Label12.Caption = "allele dominante =" & gdo
Label13.Caption = "allele recessivo =" & gre
Label14.Caption = "carattere :" & ca
gedo = "g1 omozigote :"
gere = "g2 omozigote :"
gef1 = "f1 eterozigote 100% :"
Label12.BackColor = cd
Label13.BackColor = cr
Label15.Caption = gedo & g1 & g1
Label16.Caption = gere & g2 & g2
Label17.Caption = gef1 & g1 & g2
Label15.BackColor = cd
Label16.BackColor = cr
Label17.BackColor = cd
Label5.Caption = g1
Label6.Caption = g1
Label7.Caption = g2
Label8.Caption = g2
Label5.BackColor = cd
Label6.BackColor = cd
Label7.BackColor = cr
Label8.BackColor = cr
Label1.Caption = g1 & g2
Label2.Caption = g1 & g2
Label3.Caption = g1 & g2
Label4.Caption = g1 & g2
Label1.BackColor = cd
Label2.BackColor = cd
Label3.BackColor = cd
Label4.BackColor = cd
Label18.Caption = g1 & g1
Label19.Caption = g2 & g2
Label20.Caption = g1 & g2
Label21.Caption = g1 & g2
Label22.Caption = g1 & g2
Label23.Caption = g1 & g2
Label37.BackColor = cd
Label38.BackColor = cr
Label39.BackColor = cd
Label40.BackColor = cr
Label18.BackColor = cd
Label19.BackColor = cr
Label20.BackColor = cd
Label21.BackColor = cd
Label22.BackColor = cd
Label23.BackColor = cd
Label33.BackColor = cd
Label34.BackColor = cd
Label35.BackColor = cd
Label36.BackColor = cr
Label33.Caption = g1 & g1
Label34.Caption = g1 & g2
Label35.Caption = g1 & g2
Label36.Caption = g2 & g2
End Sub
Private Sub CommandButton10_Click()
Rem cela leggi
Label49.Visible = False
End Sub
Private Sub CommandButton2_Click()
Rem scopre tabella
Label42.Visible = False
End Sub
Private Sub CommandButton3_Click()
Rem scopre albero F1
Label43.Visible = False
End Sub
Private Sub CommandButton4_Click()
Rem scopre albero F2
Label44.Visible = False
Label48.Visible = False
End Sub
Private Sub CommandButton5_Click()
Rem copre tabella F1 F2
Label42.Visible = True
Label43.Visible = True
Label44.Visible = True
Label48.Visible = True
End Sub
Private Sub CommandButton6_Click()
Rem cancella tutto
Label9.Caption = ""
Label10.Caption = ""
Label11.Caption = ""
Label12.Caption = ""
Label13.Caption = ""
Label14.Caption = ""
Label15.Caption = ""
Label16.Caption = ""
Label17.Caption = ""
Label18.Caption = ""
Label28.Caption = ""
Label47.Caption = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
Label9.BackColor = vbWhite
Label10.BackColor = vbWhite
Label11.BackColor = vbWhite
Label12.BackColor = vbWhite
Label13.BackColor = vbWhite
Label14.BackColor = vbWhite
Label15.BackColor = vbWhite
Label16.BackColor = vbWhite
Label17.BackColor = vbWhite
Label18.BackColor = vbWhite
Label28.BackColor = vbWhite
Label49.Visible = False
Label45.Visible = False
End Sub
Private Sub CommandButton7_Click()
Rem mostra informa
Label45.Visible = True
End Sub
Private Sub CommandButton8_Click()
Rem cela informa
Label45.Visible = False
End Sub
Private Sub CommandButton9_Click()
Rem mostra leggi
Label49.Visible = True
End Sub
Private Sub Label14_Click()
End Sub
Private Sub Label18_Click()
End Sub
Private Sub Label28_Click()
End Sub
Private Sub Label33_Click()
End Sub
Private Sub UserForm_Click()
End Sub