Rem gruppi sanguigni
ListBox1.Visible = True
ListBox1.AddItem ("determinazione genotipo gruppo sanguigno")
ListBox1.AddItem ("dei genitori in funzione del fenotipo noto")
ListBox1.AddItem ("di un figlio e dei suoi genitori")
ListBox1.AddItem ("carattere trasmesso:gruppo sanguigno AB0")
ListBox1.AddItem ("presenta tre alleli A,B codominanti, e 0 recessivo")
ListBox1.AddItem ("possibili fenotipi A,B,AB,0 ")
ListBox1.AddItem ("possibili genotipi AA,A0,BB,B0,AB,00")
ListBox1.AddItem ("se fenotipi incompatibili, non fornisce risposta ")
ListBox1.AddItem ("-----------------------------------------------")
g1 = TextBox1
g2 = TextBox2
figlio = TextBox3
k = figlio
Select Case k
Case "0"
Call vedi1(figlio, g1, g2)
Case "AB"
Call vedi2(figlio, g1, g2)
Case "A"
Call vedi3(figlio, g1, g2)
Case "B"
Call vedi4(figlio, g1, g2)
End Select
End Sub
Private Sub vedi1(figlio, g1, g2)
Rem 0
ListBox1.Visible = True
ListBox1.AddItem ("fenotipo figlio =" & figlio)
ListBox1.AddItem ("genotipo figlio = " & figlio & figlio)
ListBox1.AddItem ("fenotipo genitore1 = " & g1)
ListBox1.AddItem ("fenotipo genitore2 = " & g2)
If g1 = "0" And g2 = 0 Then
p1 = "00"
p2 = "00"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("----------------------")
End If
If g1 = "0" And g2 = "A" Then
p1 = "00"
p2 = "A0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("----------------------")
End If
If g1 = "0" And g2 = "B" Then
p1 = "00"
p2 = "B0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("----------------------")
End If
If g1 = "A" And g2 = "0" Then
p1 = "A0"
p2 = "00"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("----------------------")
End If
If g1 = "B" And g2 = "0" Then
p1 = "B0"
p2 = "00"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("----------------------")
End If
If g1 = "A" And g2 = "A" Then
p1 = "A0"
p2 = "A0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("----------------------")
End If
If g1 = "B" And g2 = "A" Then
p1 = "B0"
p2 = "A0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("----------------------")
End If
If g1 = "A" And g2 = "B" Then
p1 = "A0"
p2 = "B0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("----------------------")
End If
If g1 = "B" And g2 = "B" Then
p1 = "B0"
p2 = "B0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("----------------------")
End If
End Sub
Private Sub vedi2(figlio, g1, g2)
Rem AB
ListBox1.Visible = True
ListBox1.AddItem ("fenotipo figlio =" & figlio)
ListBox1.AddItem ("genotipo figlio = " & figlio)
ListBox1.AddItem ("fenotipo genitore1 = " & g1)
ListBox1.AddItem ("fenotipo genitore2 = " & g2)
If g1 = "AB" And g2 = "AB" Then
p1 = "AB"
p2 = "AB"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("----------------------")
End If
If g1 = "AB" And g2 = "A" Then
p1 = "AB"
p2 = "AA o A0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore1 = " & p2)
ListBox1.AddItem ("----------------------")
End If
If g1 = "AB" And g2 = "B" Then
p1 = "AB"
p2 = "BB o B0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore1 = " & p2)
ListBox1.AddItem ("----------------------")
End If
If g1 = "A" And g2 = "AB" Then
p1 = "AA o A0"
p2 = "AB"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore1 = " & p2)
ListBox1.AddItem ("----------------------")
End If
If g1 = "B" And g2 = "AB" Then
p1 = "BB o B0"
p2 = "AB"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore1 = " & p2)
ListBox1.AddItem ("----------------------")
End If
If g1 = "A" And g2 = "B" Then
p1 = "AA o A0"
p2 = "BB o B0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("----------------------")
End If
If g1 = "B" And g2 = "A" Then
p1 = "BB o B0"
p2 = "AA o A0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("----------------------")
End If
End Sub
Private Sub vedi3(figlio, g1, g2)
Rem A
ListBox1.Visible = True
ListBox1.AddItem ("fenotipo figlio =" & figlio)
ListBox1.AddItem ("genotipo figlio = " & figlio & figlio & "," & figlio & "0")
ListBox1.AddItem ("fenotipo genitore1 = " & g1)
ListBox1.AddItem ("fenotipo genitore2 = " & g2)
If g1 = "0" And g2 = "A" Then
p1 = "00"
p2 = "AA o A0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
If g1 = "0" And g2 = "AB" Then
p1 = "00"
p2 = "AB"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
If g1 = "A" And g2 = "0" Then
p1 = "AA O AO"""
p2 = "00"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
If g1 = "AB" And g2 = "0" Then
p1 = "AB"
p2 = "00"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
If g1 = "A" And g2 = "A" Then
p1 = "AA o A0"
p2 = "AA o A0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
If g1 = "AB" And g2 = "A" Then
p1 = "AB"
p2 = "AA o A0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
If g1 = "A" And g2 = "AB" Then
p1 = "A0 o AA"
p2 = "AB"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
If g1 = "A" And g2 = "B" Then
p1 = "AA o A0"
p2 = "B0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
If g1 = "B" And g2 = "A" Then
p1 = "B0"
p2 = "A0 o AA"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
End Sub
Private Sub vedi4(figlio, g1, g2)
Rem B
ListBox1.Visible = True
ListBox1.AddItem ("fenotipo figlio =" & figlio)
ListBox1.AddItem ("genotipo figlio = " & figlio & figlio & " , " & figlio & "0")
ListBox1.AddItem ("fenotipo genitore1 = " & g1)
ListBox1.AddItem ("fenotipo genitore2 = " & g2)
If g1 = "0" And g2 = "B" Then
p1 = "00"
p2 = "BB o B0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
If g1 = "0" And g2 = "AB" Then
p1 = "00"
p2 = "AB"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
If g1 = "B" And g2 = "0" Then
p1 = "BB O BO"""
p2 = "00"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
If g1 = "AB" And g2 = "0" Then
p1 = "AB"
p2 = "00"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
If g1 = "B" And g2 = "B" Then
p1 = "BB o B0"
p2 = "BB o B0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
If g1 = "AB" And g2 = "B" Then
p1 = "AB"
p2 = "BB o B0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
If g1 = "AB" And g2 = "A" Then
p1 = "AB"
p2 = "A0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
If g1 = "AB" And g2 = "B" Then
p1 = "AB"
p2 = "B0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
If g1 = "B" And g2 = "AB" Then
p1 = "B0 o BB"
p2 = "AB"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
If g1 = "A" And g2 = "AB" Then
p1 = "A0 o AA"
p2 = "AB"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
If g1 = "A" And g2 = "B" Then
p1 = "A0"
p2 = "BB o B0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
If g1 = "B" And g2 = "A" Then
p1 = "B0 o BB"
p2 = "A0"
ListBox1.AddItem ("genotipo genitore1 = " & p1)
ListBox1.AddItem ("genotipo genitore2 = " & p2)
ListBox1.AddItem ("------------------------------")
End If
End Sub
Private Sub CommandButton10_Click()
Rem con fenotipo AB
scheda2.Visible = True
End Sub
Private Sub CommandButton11_Click()
Rem con fenotipo A
scheda3.Visible = True
End Sub
Private Sub CommandButton12_Click()
Rem con fenotipo B
scheda4.Visible = True
End Sub
Private Sub CommandButton13_Click()
ListBox1.Visible = False
End Sub
Private Sub CommandButton14_Click()
Rem inizio con cancellazione finestre
ListBox1.Visible = False
gruppo1.Visible = False
gruppo2.Visible = False
gruppo3.Visible = False
gruppo4.Visible = False
scheda1.Visible = False
scheda2.Visible = False
scheda3.Visible = False
scheda4.Visible = False
End Sub
Private Sub CommandButton2_Click()
ListBox1.Clear
End Sub
Private Sub CommandButton3_Click()
gruppo1.Visible = False
gruppo2.Visible = False
gruppo3.Visible = False
gruppo4.Visible = False
scheda1.Visible = False
scheda2.Visible = False
scheda3.Visible = False
scheda4.Visible = False
End Sub
Private Sub CommandButton4_Click()
gruppo1.Visible = True
End Sub
Private Sub CommandButton5_Click()
gruppo2.Visible = True
End Sub
Private Sub CommandButton6_Click()
gruppo3.Visible = True
End Sub
Private Sub CommandButton7_Click()
gruppo4.Visible = True
End Sub
Private Sub CommandButton8_Click()
Rem schede compatibilità
ListBox1.Visible = True
ListBox1.AddItem ("noto il fenotipo del figlio e possibile genotipo")
ListBox1.AddItem ("determinare combinazioni fenotipi (genotipi) ")
ListBox1.AddItem ("dei genitori, compatibili con fenotipo del figlio ")
ListBox1.AddItem ("--------------------------------------------------- ")
ListBox1.AddItem ("gli alleli presenti nel fenotipo del figlio ")
ListBox1.AddItem ("devono essere presenti nel genotipo dei genitori ")
ListBox1.AddItem ("anche se non compaiono nel fenotipo dei genitori ")
ListBox1.AddItem ("in certi casi , in entrambi i genotipi dei genitori")
ListBox1.AddItem ("in certi casi almeno in un genotipo di un genitore")
ListBox1.AddItem ("------------------------------------------------")
ListBox1.AddItem ("esempio :fenotipo figlio A :genotipo (AA,A0) ")
ListBox1.AddItem ("combinazioni compatibili ")
ListBox1.AddItem ("A + A , ,A + AB , AB +AB ,A+ B0 ")
ListBox1.AddItem ("alcune combinazioni incompatibili ")
ListBox1.AddItem ("AA+BB,00+00) ")
ListBox1.AddItem ("esempio :fenotipo figlio AB (:genotipo AB ")
ListBox1.AddItem ("combinazioni compatibili ")
ListBox1.AddItem ("AB+AB, A+AB,A+B,B+AB ")
ListBox1.AddItem ("alcune combinazioni incompatibili ")
ListBox1.AddItem ("A+0, 0+0,AB+0 ")
End Sub
Private Sub CommandButton9_Click()
Rem con fenotipo 0
scheda1.Visible = True
End Sub
