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

rhesus.ppt


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