compatibilità fenotipi figli e genitori con gruppo AB0


compatibilità
gruppo AB0

riconoscimento di
fenotipi di genitori compatibili con fenotipo del figlio
se sono compatibili vengono visualizzati senza commento
se non sono compatibili vengono visualizzati insieme al commento
e alla
indicazione dell’allele mancante
inserimento fenotipi figlio e genitori mediante tastiera
esercitazione con visual basic su powerpoint

http://utenti.multimania.it/fumari/anno10/elenco.htm
http://utenti.multimania.it/fumari/anno10/compatibili.htm
http://utenti.multimania.it/fumari/anno10/compatibili.ppt


Private Sub CommandButton1_Click()
figlio = TextBox1
g1 = TextBox2
g2 = TextBox3
ListBox1.AddItem ("fenotipo figlio = " & figlio)
ListBox1.AddItem ("fenotipo genitore1 = " & g1)
ListBox1.AddItem ("fenotipo genitore2 = " & g2)

ListBox1.AddItem ("=========================")

Select Case figlio
Case "0"
Call figlio0(figlio, g1, g2)
Case "AB"
Call figlioAB(figlio, g1, g2)
Case "A"
Call figlioA(figlio, g1, g2)
Case "B"
Call figlioB(figlio, g1, g2)
End Select
End Sub

Private Sub figlio0(figlio, g1, g2)
If g1 = "AB" Or g2 = "AB" Then
ListBox1.AddItem ("non compatibili:servono due alleli tipo
" & figlio)
End If
If g1 = "AB" And g2 = "A" Then
ListBox1.AddItem ("non compatibili:servono due alleli tipo
" & figlio)
End If
If g1 = "AB" And g2 = "B" Then
ListBox1.AddItem ("non compatibili:servono due alleli tipo
" & figlio)
End If
If g1 = "A" And g2 = "AB" Then
ListBox1.AddItem ("non compatibili:servono due alleli tipo
" & figlio)
End If
If g1 = "B" And g2 = "AB" Then
ListBox1.AddItem ("non compatibili:servono due alleli tipo
" & figlio)
End If
If g1 = "AB" And g2 = "0" Then
ListBox1.AddItem ("non compatibili:servono due alleli tipo
" & figlio)
End If
If g1 = "0" And g2 = "AB" Then
ListBox1.AddItem ("non compatibili:servono due alleli tipo
" & figlio)
End If

End Sub

Private Sub figlioAB(figlio, g1, g2)
If g1 = "0" Or g2 = "0" Then
ListBox1.AddItem ("non compatibili:servono due alleli tipo
" & "A" & "," &
"B")
ListBox1.AddItem ("————————-")
End If
If g1 = "A" And g2 = "A" Then
ListBox1.AddItem ("non compatibili:servono due alleli tipo
" & "A" & "," &
"B")
ListBox1.AddItem ("————————-")
End If
If g1 = "B" And g2 = "B" Then
ListBox1.AddItem ("non compatibili:servono due alleli tipo
" & "A" & "," &
"B")
ListBox1.AddItem ("————————-")
End If

If g1 = "AB" And g2 = "0" Then
ListBox1.AddItem ("non compatibili:servono due alleli tipo
" & "A" & "," &
"B")
ListBox1.AddItem ("————————-")
End If
If g1 = "0" And g2 = "AB" Then
ListBox1.AddItem ("non compatibili:servono due alleli tipo
" & "A" & "," &
"B")
ListBox1.AddItem ("————————-")
End If
End Sub

Private Sub figlioA(figlio, g1, g2)
If g1 = "0" And g2 = "0" Or g1 =
"0" And g2 = "B" Or g1 = "B" And g2
= "0" Or g1 = "B" And g2 = "B" Then
ListBox1.AddItem ("non compatibili:serve almeno un allele
tipo " & "A")
ListBox1.AddItem ("————————-")
End If
End Sub

Private Sub figlioB(figlio, g1, g2)
If g1 = "0" And g2 = "0" Or g1 =
"0" And g2 = "A" Or g1 = "A" And g2
= "0" Or g1 = "A" And g2 = "A" Then
ListBox1.AddItem ("non compatibili:serve almeno un allele
tipo " & "B")
ListBox1.AddItem ("————————-")
End If
End Sub

Private Sub CommandButton2_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton3_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""

End Sub

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

Private Sub CommandButton5_Click()
compatibile.Visible = False
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...