sperimentare

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/compatibili.htm
http://utenti.multimania.it/fumari/anno10/compatibili.ppt
http://utenti.multimania.it/fumari/anno10/elenco.htm

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