fenotipo e genotipo con VBA

fenotipo e genotipo

descrizione trasmissione
carattere colore dell’iride, daltonismo,emofilia
determinazione dei genotipi in funzione dei fenotipi
esercitazione con vba su powerpoint

http://digilander.libero.it/francescovise/chimica/genotipo.ppt
http://digilander.libero.it/francescovise/chimica/indice.htm

 

Private Sub CommandButton1_Click()
Rem determinazione genotipo
ListBox1.AddItem ("esempi per
determinare genotipi in funzione di fenotipi")

ListBox1.AddItem ("fenotipo genitore1 e genitore2 :nero
")
ListBox1.AddItem ("fenotipo figlio1 :bianco")
ListBox1.AddItem ("determinare allele dominante, recessivo,
genotipi")
ListBox1.AddItem
("—————————————————–")
ListBox1.AddItem ("allele recessivo: bianco n perchè non
appare nei genitori")
ListBox1.AddItem ("allele dominante :nero N ")
ListBox1.AddItem ("genotipo figlio1 recessivo ,omozigote :
nn ")
ListBox1.AddItem ("genotipo genitori portatori dominante e
recessivo:eterozigoti Nn")
ListBox1.AddItem
("———————————————————")
ListBox1.AddItem ("fenotipo madre
:visione normale; padre :visione normale")
ListBox1.AddItem ("fenotipo figlio1 :daltonico")
ListBox1.AddItem ("determinare genotipi")

ListBox1.AddItem
("—————————————————–")
ListBox1.AddItem ("genotipo figlio daltonico :Xd materno + Y
paterno")
ListBox1.AddItem ("genotipo padre normale :XD + Y ")
ListBox1.AddItem ("genotipo madre normale ma portatrice : Xd
+😄 ")
ListBox1.AddItem
("————————————————-")
ListBox1.AddItem ("fenotipo
genitori(nonni) visione normale ")
ListBox1.AddItem ("fenotipo figli maschio e femmina normali
")
ListBox1.AddItem ("fenotipo sposo normale ")
ListBox1.AddItem ("fenotipo figlio(nipote) daltonico ")
ListBox1.AddItem ("determinare tutti i genotipi ")

ListBox1.AddItem ("nipote daltonico:Xd + Y riceve daltonismo
da Xd materno")
ListBox1.AddItem ("sposo normale : XD+Y ")
ListBox1.AddItem ("madre portatrice: Xd +😄 ")
ListBox1.AddItem ("fratello normale :XD+Y ")
ListBox1.AddItem ("nonna portatrice : Xd +😄 ")
ListBox1.AddItem ("nonno normale :😄 + Y")
ListBox1.AddItem
("————————————")
ListBox1.AddItem ("determinare
genotipi possibili in funzione di fenotipi noti")
ListBox1.AddItem ("madre fenotipo nero, padre fenotipo
bianco ")
ListBox1.AddItem ("figlio 1 fenotipo bianco ")

ListBox1.AddItem ("ipotesi :bianco dominante ? ")
ListBox1.AddItem ("madre omozigote bb , padre
omozigote,eterozigote Bb , BB ")
ListBox1.AddItem ("figlio 1 eterozigote Bb ")
ListBox1.AddItem ("figlio 2 fenotipo nero : bb >>>
escluso padre omozigote ")
ListBox1.AddItem ("genotipi :madre bb , padre Bb, figlio1 Bb
, figlio2 bb ")
ListBox1.AddItem
("————————————————————
")
ListBox1.AddItem ("determinare genotipi possibili in
funzione di fenotipi noti")
ListBox1.AddItem ("madre fenotipo nero, padre fenotipo
bianco ")
ListBox1.AddItem ("figlio 1 fenotipo bianco ")
ListBox1.AddItem ("ipotesi :nero dominante ? ")
ListBox1.AddItem ("madre eterozigote Bb , padre omozigote bb
")
ListBox1.AddItem ("figlio 1 omozigote bb ")
ListBox1.AddItem ("figlio 2 fenotipo nero : eterozigote Bb
")
ListBox1.AddItem ("genotipi :madre Bb , padre bb, figlio1 bb
, figlio2 Bb ")
ListBox1.AddItem
("————————————————————
")

End Sub

Private Sub CommandButton2_Click()
genotipo1.Visible = True
End Sub

Private Sub CommandButton3_Click()
genotipo2.Visible = True
End Sub

Private Sub CommandButton4_Click()
genotipo3.Visible = True
End Sub

Private Sub CommandButton5_Click()
genotipo1.Visible = False
genotipo2.Visible = False
genotipo3.Visible = False
genotipo4.Visible = False

End Sub

Private Sub CommandButton6_Click()
genotipo4.Visible = True
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...