determinazione gruppo sanguigno AB0 con VBA

determinazione
gruppo sanguigno
inserire fenotipo gruppo sanguigno del figlio
inserire fenotipo genitori
se combinazione fenotipi compatibile vengono visualizzati
i genotipi del figlio e dei due genitori
se combinazione incompatibile non viene data risposta
esercitazione con visual basic su powerpoint

http://digilander.libero.it/francescovise/chimica/sangue.ppt
http://digilander.libero.it/francescovise/chimica/indice.htm

Private Sub CommandButton1_Click()
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

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...