gruppo rhesus
esci con indice1.htm
descrizione
gruppo sanguigno tipo rhesus Rh+ , Rh-
problemi di trasfusione, di compatibilità madre Rh- e figlio Rh+
compatibilità fenotipi genitori e figli
interazione con fenotipi da inserire da tastiera
esercitazione con visual basic su powerpoint
Private Sub CommandButton1_Click()
ListBox1.Visible = True
ListBox2.Visible = False
ListBox3.Visible = False
ListBox4.Visible = False
ListBox1.AddItem ("gruppo sanguigno Rhesus con due
alleli")
ListBox1.AddItem ("Rh+ se presente antigene su eritrocita
")
ListBox1.AddItem ("Rh- se assente antigene su eritrocita
")
ListBox1.AddItem ("inizialmente non esistono anticorpi
antiRh ")
ListBox1.AddItem ("compaiono solo come risposta all'incontro
")
ListBox1.AddItem ("tra eritrociti Rh+ del donatore ")
ListBox1.AddItem ("e plasma del ricevente se Rh- ")
ListBox1.AddItem ("regola da osservare
nella trasfusione: ")
ListBox1.AddItem ("evitare di donare eritrociti Rh+ a
individui")
ListBox1.AddItem ("di tipo Rh- che verrebbero indotti a
produrre")
ListBox1.AddItem ("anticorpi antiRh+, che in altre
trasfusioni ")
ListBox1.AddItem ("con eritrociti Rh+ produrrebbero la
agglutinazione")
ListBox1.AddItem ("con seri danni, anche mortali,per
ricevente ")
ListBox1.AddItem
("--------------------------------------------- ")
ListBox1.AddItem ("allele Rh+ dominante rispetto a Rh-
")
ListBox1.AddItem ("individuo fenotipicamente Rh- ")
ListBox1.AddItem ("è omozigote recessivo Rh-/Rh-
genopicamente ")
ListBox1.AddItem ("individuo fenotipicamente Rh+ ")
ListBox1.AddItem ("può essere eterozigote Rh+/Rh-
genotipicamente ")
ListBox1.AddItem ("può essere omozigote Rh+/Rh+
genotipicamente ")
ListBox1.AddItem
("----------------------------------------")
ListBox1.AddItem ("tipo Rh- può donare a Rh- e Rh+ ")
ListBox1.AddItem ("tipo Rh- può ricevere solo da Rh-
")
ListBox1.AddItem ("tipo Rh+ può donare solo a Rh+ ")
ListBox1.AddItem ("tipo Rh+ può ricevere da Rh+ e da
Rh-")
ListBox1.AddItem
("----------------------------------------")
End Sub
Private Sub CommandButton10_Click()
Rem inserimento fenotipi
ListBox1.Visible = False
ListBox2.Visible = False
ListBox4.Visible = False
ListBox3.Visible = True
madre = TextBox1
padre = TextBox2
ListBox3.AddItem ("fenotipo madre = " & madre)
ListBox3.AddItem ("fenotipo padre = " & padre)
If madre = "Rh-" And padre = "Rh-" Then
figlio = madre & "/" & padre
ListBox3.AddItem ("fenotipo figlio = " & madre)
ListBox3.AddItem ("genotipo figlio = " & figlio)
ListBox3.AddItem ("---------------------------")
End If
If madre = "Rh+" And padre = "Rh-" Then
figlio1 = madre & "/" & padre
figlio2 = padre & "/" & padre
ListBox3.AddItem ("fenotipo figlio può essere :")
ListBox3.AddItem ("Rh- come :" & "padre")
ListBox3.AddItem ("Rh+ come :" & "madre")
ListBox3.AddItem ("genotipo figlio può essere :")
ListBox3.AddItem ("onozigote " & figlio2)
ListBox3.AddItem ("eterozigote " & figlio1)
ListBox3.AddItem ("=============================== ")
End If
If madre = "Rh-" And padre = "Rh+" Then
figlio1 = madre & "/" & padre
figlio2 = madre & "/" & madre
ListBox3.AddItem ("fenotipo figlio può essere :")
ListBox3.AddItem ("Rh- come :" & "madre")
ListBox3.AddItem ("Rh+ come :" & "padre")
ListBox3.AddItem ("genotipo figlio può essere :")
ListBox3.AddItem ("onozigote " & figlio2)
ListBox3.AddItem ("eterozigote " & figlio1)
ListBox3.AddItem ("pericolo per figlio se Rh+ ")
ListBox3.AddItem ("=============================== ")
End If
If madre = "Rh+" And padre = "Rh+" Then
figlio1 = madre & "/" & padre
figlio2 = "Rh-" & "/" &
"Rh-"
figlio3 = madre & "/" & "Rh-"
ListBox3.AddItem ("fenotipo figlio può essere :")
ListBox3.AddItem ("Rh+ come :" & "madre e
padre")
ListBox3.AddItem ("Rh- come :" & "nessun
genitore:recessivo")
ListBox3.AddItem ("genotipo figlio può essere :")
ListBox3.AddItem ("omozigote " & figlio2)
ListBox3.AddItem ("omozigote " & figlio1)
ListBox3.AddItem ("eterozigote " & figlio3)
ListBox3.AddItem ("=============================== ")
End If
End Sub
Private Sub CommandButton11_Click()
Rem trasfusione sangue
ListBox4.Visible = True
donatore = TextBox3
recettore = TextBox4
ListBox4.AddItem ("donatore gruppo = " & donatore)
ListBox4.AddItem ("recettore gruppo = " &
recettore)
If donatore = recettore Then
ListBox4.AddItem ("trasfusione compatibile")
End If
If donatore = "Rh-" Then
ListBox4.AddItem ("trasfusione sempre compatibile")
End If
If donatore = "Rh+" And recettore = "Rh-"
Then
ListBox4.AddItem ("prima donazione sensibilizza
recettore")
ListBox4.AddItem ("pericolo per trasfusioni successive
")
End If
End Sub
Private Sub CommandButton12_Click()
schema1.Visible = True
End Sub
Private Sub CommandButton13_Click()
ListBox1.Visible = False
ListBox2.Visible = False
ListBox3.Visible = False
ListBox4.Visible = False
End Sub
Private Sub CommandButton14_Click()
schema2.Visible = True
End Sub
Private Sub CommandButton2_Click()
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
End Sub
Private Sub CommandButton3_Click()
rhesus1.Visible = True
End Sub
Private Sub CommandButton4_Click()
rhesus1.Visible = False
rhesus2.Visible = False
rhesus3.Visible = False
rhesus4.Visible = False
rhesus5.Visible = False
schema1.Visible = False
schema2.Visible = False
End Sub
Private Sub CommandButton5_Click()
rhesus2.Visible = True
End Sub
Private Sub CommandButton6_Click()
rhesus3.Visible = True
End Sub
Private Sub CommandButton7_Click()
rhesus4.Visible = True
End Sub
Private Sub CommandButton8_Click()
rhesus5.Visible = True
End Sub
Private Sub CommandButton9_Click()
ListBox1.Visible = False
ListBox2.Visible = True
ListBox3.Visible = False
ListBox4.Visible = False
ListBox2.AddItem ("una situazione particolarmente importante
da ")
ListBox2.AddItem ("considerare è quella che si verifica nel
caso ")
ListBox2.AddItem ("di una madre Rh- e
di un padre Rh+ ")
ListBox2.AddItem ("se il padre è Rh+/Rh+ i figli saranno
Rh+/Rh- ")
ListBox2.AddItem ("se il padre è Rh+/Rh- ")
ListBox2.AddItem ("i figli saranno Rh+/Rh- o Rh-/Rh-")
ListBox2.AddItem ("solo nel caso di madre Rh- e padre Rh+
")
ListBox2.AddItem ("possono nascere figli Rh+ (Rh+/Rh-
")
ListBox2.AddItem
("----------------------------------------------")
ListBox2.AddItem ("con madre Rh- e padre Rh+ (Rh+/Rh+)
(Rh+/Rh-) ")
ListBox2.AddItem ("può verificarsi una gravidanza con
figlio Rh+/Rh- ")
ListBox2.AddItem ("in occasione del parto, una piccola
quantità ")
ListBox2.AddItem ("di sangue del figlio Rh+ entra nella
circolazione ")
ListBox2.AddItem ("materna ,sensibilizzando la madre a
produrre ")
ListBox2.AddItem ("anticorpi antiRh+, che rimangono in
circolazione ")
ListBox2.AddItem ("microtrasfusione di Rh+ in individuo
Rh-")
ListBox2.AddItem ("il primo nato non riporta danni ")
ListBox2.AddItem ("una seconda eventuale gravidanza con
figlio Rh+/Rh- ")
ListBox2.AddItem ("può provocare danni all'organismo del
figlio perchè ")
ListBox2.AddItem ("anticorpi materni antiRh+ prodotti in
precedenza ")
ListBox2.AddItem ("passano nella circolazione del figlio che
essendo ")
ListBox2.AddItem ("fornito di eritrociti Rh+ va incontro ad
agglutinazione ")
ListBox2.AddItem ("con possibile esito mortale:morbo
emolitico fetale")
ListBox2.AddItem ("nota:gli effetti essere più gravi con
ulteriori figli Rh+ ")
ListBox2.AddItem
("--------------------------------------------------")
ListBox2.AddItem ("nel caso della microtrasfusione si può
cercare di ")
ListBox2.AddItem ("impedire alla madre di venire
sensibilizzata e quindi ")
ListBox2.AddItem ("produrre antiRh+ ,iniettando in occasione
del parto ")
ListBox2.AddItem ("anticorpi antiRh+ che possono distruggere
i pochi ")
ListBox2.AddItem ("eritrociti Rh+ prima che la madre possa
imparare ")
ListBox2.AddItem ("a produrli in proprio:gli antiRh+ infusi
vengono poi")
ListBox2.AddItem ("spontaneamente distrutti lasciando
l'organismo materno")
ListBox2.AddItem ("come prima della gravidanza e
parto")
ListBox2.AddItem
("-----------------------------------------------------")
ListBox2.AddItem ("nota:statisticamente essendo 50% donne
Rh- e 50% uomini Rh+ ")
ListBox2.AddItem ("e degli uomimi Rh+ 25% Rh+/Rh+ e 25%
Rh+/Rh- ")
ListBox2.AddItem ("si osserva che si riduce a meno del 25 %
la probabilità ")
ListBox2.AddItem ("che una madre Rh- abbia un figlio Rh+ da
un marito Rh+ ")
ListBox2.AddItem ("nota:può accadere che una donna Rh-
riceva una trasfusione ")
ListBox2.AddItem ("di sangue Rh+ e venga quindi
sensibilizzata e produca antiRH+")
ListBox2.AddItem ("rendendo pericolosa anche la prima
gravidanza con figlio Rh+")
ListBox2.AddItem ("che andrà seguita con particolare
attenzione")
End Sub
vedi rhesus.ppt