compatibilità fenotipi figli e genitori

compatibilità gruppo AB0riconoscimento 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 powerpointhttp://utenti.multimania.it/fumari/anno10/compatibili.htmhttp://utenti.multimania.it/fumari/anno10/compatibili.ppthttp://utenti.multimania.it/fumari/anno10/elenco.htmPrivate 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