determinazione carattere, alleli, in rose tra loro incrociate
in modo controllato
(variante con solo powerpoint selezionare.htm selezionare.ppt)

esci con indice1.htm

coltiva.ppt

inizio riodinamemto

ordinamento completato e inserimento genotipi
compatibili in funzione dei collegamenti tra fenotipi
indicando allele dominante (rosso R) e recessivo (blu r)
omozigote RR, omozigote rr, eterozigote Rr

videata alla apertura

piante ordinate secondo informazioni fornite da etichette su loro incroci
evidente allele dominante rosso R e recessivo blu r

p1 dimostra che genotipo di rosa rossa deve essere Rr per originare rosa rossa da incrocio con rosa blu rr

proseguendo con p2...p7 si ottengono altri genotipi ,con simili ragionamenti

p9-p10.p11 mostrano tre possibili combinazioni genotipiche che possono originare individui rossi noti come Rr

dalla osservazione completa si ricava che solo due individui potrebbero essere omozigotici RR(oltre che Rr)
selezionandoli e provando si potrebbe ottenere con certezza la razza pura RR

Private Sub CommandButton1_Click()
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
End Sub

Private Sub CommandButton10_Click()
Label20.Visible = False
Label21.Visible = False
End Sub

Private Sub CommandButton11_Click()
Label22.Visible = False
Label23.Visible = False
End Sub

Private Sub CommandButton12_Click()
Rem mostra spiega
Label24.Visible = True
End Sub

Private Sub CommandButton13_Click()
Rem cela spiega
Label24.Visible = False
End Sub

Private Sub CommandButton14_Click()
Rem nasconde sigle
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
Label6.Visible = True
Label7.Visible = True
Label8.Visible = True
Label9.Visible = True
Label10.Visible = True
Label11.Visible = True
Label12.Visible = True
Label13.Visible = True
Label14.Visible = True
Label15.Visible = True
Label16.Visible = True
Label17.Visible = True
Label18.Visible = True
Label19.Visible = True
Label20.Visible = True
Label21.Visible = True
Label22.Visible = True
Label23.Visible = True

End Sub

Private Sub CommandButton2_Click()
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
End Sub

Private Sub CommandButton3_Click()
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False
End Sub

Private Sub CommandButton4_Click()
Label10.Visible = False
Label11.Visible = False
End Sub

Private Sub CommandButton5_Click()
Label12.Visible = False
Label13.Visible = False
End Sub

Private Sub CommandButton6_Click()
Label14.Visible = False
End Sub

Private Sub CommandButton7_Click()
Label15.Visible = False
End Sub

Private Sub CommandButton8_Click()
Label16.Visible = False
Label17.Visible = False
End Sub

Private Sub CommandButton9_Click()
Label18.Visible = False
Label19.Visible = False
End Sub

Private Sub Label24_Click()


End Sub

Private Sub UserForm_Click()

End Sub