compatibilità
gruppo AB0
esci con indice1.htm
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
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
vedi compatibili.ppt