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 incompleta F1
2 legge della disgiunzione F2

F1 codominanza

F1 dominanza

si richiede inserimento di (facoltativo nome carattere)
fenotipo F1 (eterozigote medio) g1 (codominante1) g2 (codominante2)
si forniscono terminologie varie , tabelle incroci. alberi, %

incompleta.ppt

apertura programma

area di lavoro con inseriti dati richiesti : p1 per visualizzare termini elaborati, p2, p3, p4 per grafici, %
carattere colore e alleli (giallo, rosso, azzurro) riconosciuti da programma e usati nella corretta descrizione

area di lavoro con inseriti dati richiesti : p1 per visualizzare termini elaborati, p2, p3, p4 per grafici, %
carattere colore e alleli (verde, rosso, blu) non considerati da programma e non usati nella descrizione

area di lavoro con inseriti dati richiesti : p1 per visualizzare termini elaborati, p2, p3, p4 per grafici, %
carattere altezza, alleli media, alto, basso

area di lavoro con inseriti dati richiesti : p1 per visualizzare termini elaborati, p2, p3, p4 per grafici, %
carattere pelo, alleli ricciuto, peloso, irsuto

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, cz As String
ca = TextBox1
c1 = TextBox2
c2 = TextBox3
c3 = TextBox4





cx = UCase$(Left$(c1, 1))
cy = UCase$(Left$(c2, 1))
cz = UCase$(Left$(c3, 1))


cd1 = vbYellow
cd2 = vbRed
cd3 = vbCyan
g1 = cx
g2 = cy
f1 = cz


fe1 = c1
fe2 = c2
fef1 = c3

gdo1 = c1
gdo2 = c2
gdof = c3


Label9.Caption = "fenotipo g1 : " & c1
Label10.Caption = "fenotipo g2 : " & c2
Label11.Caption = "fenotipo f1 : " & c3

Label9.BackColor = cd2
Label10.BackColor = cd3
Label11.BackColor = cd1

Label12.Caption = "allele codominante1 =" & gdo1
Label13.Caption = "allele codominante2 =" & gdo2
Label14.Caption = "carattere :" & ca
gedo = "g1 omozigote :"
gere = "g2 omozigote :"
gef1 = "f1 eterozigote 100% :"

Label12.BackColor = cd2
Label13.BackColor = cd3
Label17.BackColor = cd3

Label15.Caption = gedo & g1 & g1
Label16.Caption = gere & g2 & g2
Label17.Caption = gef1 & g1 & g2

Label15.BackColor = cd2
Label16.BackColor = cd3
Label17.BackColor = cd1

Label5.Caption = g1
Label6.Caption = g1
Label7.Caption = g2
Label8.Caption = g2
Label5.BackColor = cd2
Label6.BackColor = cd2
Label7.BackColor = cd3
Label8.BackColor = cd3


Label1.Caption = g1 & g2
Label2.Caption = g1 & g2
Label3.Caption = g1 & g2
Label4.Caption = g1 & g2

Label1.BackColor = cd1
Label2.BackColor = cd1
Label3.BackColor = cd1
Label4.BackColor = cd1

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 = cd1
Label38.BackColor = cd1
Label39.BackColor = cd1
Label40.BackColor = cd1

Label18.BackColor = cd2
Label19.BackColor = cd3
Label20.BackColor = cd1
Label21.BackColor = cd1
Label22.BackColor = cd1
Label23.BackColor = cd1



Label33.BackColor = cd2
Label34.BackColor = cd1
Label35.BackColor = cd1
Label36.BackColor = cd3

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 Label17_Click()

End Sub

Private Sub Label18_Click()

End Sub

Private Sub Label28_Click()

End Sub

Private Sub Label33_Click()

End Sub

Private Sub Label42_Click()

End Sub

Private Sub UserForm_Click()

End Sub