gruppo rhesusdescrizione 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 powerpointhttp://utenti.multimania.it/fumari/anno10/elenco.htm http://utenti.multimania.it/fumari/anno10/rhesus.htm http://utenti.multimania.it/fumari/anno10/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
gruppo sanguigno rhesus
gruppo rhesusdescrizione 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 powerpointhttp://utenti.multimania.it/fumari/anno10/elenco.htm http://utenti.multimania.it/fumari/anno10/rhesus.htm http://utenti.multimania.it/fumari/anno10/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