Advertisement
Hugo7

DNA -> RNA transcription

Feb 11th, 2017
138
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PHP 2.26 KB | None | 0 0
  1. <head>
  2. <style>
  3. body {
  4.     font-family:Monospace;
  5.     font-size:20;
  6. }
  7. </style>
  8. <script>
  9. function adn() {
  10.     location.href = "adn.php";
  11. }
  12. function prot() {
  13.     location.href = "prot.php";
  14. }
  15. </script>
  16. </head>
  17.  
  18. <body>
  19. <?php
  20. for ($i = 1; $i <= 10; $i++) {
  21.     $str[$i] = htmlspecialchars($_POST['in'.$i]);
  22. }
  23.  
  24. if (!$str[1] == null) {
  25.     goto c;              // Si le formulaire a déjà été rempli, on n'affiche pas le formulaire
  26. }
  27. echo "
  28. <form action='arn.php' method='post'>
  29.     Collez les s&eacute;quences ADN à transcrire ici : <br/>
  30.     <input name=in1 type=textarea /><br/>
  31.     <input name=in2 type=textarea /><br/>
  32.     <input name=in3 type=textarea /><br/>
  33.     <input name=in4 type=textarea /><br/>
  34.     <input name=in5 type=textarea /><br/>
  35.     <input name=in6 type=textarea /><br/>
  36.     <input name=in7 type=textarea /><br/>
  37.     <input name=in8 type=textarea /><br/>
  38.     <input name=in9 type=textarea /><br/>
  39.     <input name=in10 type=textarea /><br/>
  40.     <br/>
  41.     <input type=submit value=Transcrire! /><br/>
  42. </form>
  43. <br/><br/><br/><br/>Autres fonctions : <br/>
  44. <input type=button onClick='adn();' value='Comparer des séquences ADN' /><br/>
  45. <input type=button onClick='prot();' value='Traduire ARNm en protéine' /><br/>
  46. ";
  47.  
  48. c: //pour goto
  49.  
  50. if ($str[1] == null) {
  51.     exit();              // Si le formulaire n'a pas été rempli, exit
  52. }
  53.  
  54. for ($i = 1; $i <= 10; $i++) {
  55.     // echo $i; //debug
  56.     $str_fin[$i] = null;
  57.     $str_cur[$i] = $str[$i];
  58.     while (!$str_cur[$i] == null) {
  59.         $str_tmp[$i] = substr($str_cur[$i], 0, 1); //ATGC : prend A
  60.         $str_cur[$i] = substr($str_cur[$i], 1); //ATGC : prend TGC (le reste)
  61.         // echo "cur:".$str_cur[$i]." tmp:".$str_tmp[$i]."<br/>"; //debug
  62.         if ($str_tmp[$i] == "T") {
  63.             $str_fin[$i] = $str_fin[$i]."U";
  64.         } else {
  65.             $str_fin[$i] = $str_fin[$i].$str_tmp[$i];
  66.         }
  67.         // echo $str_fin[$i]; //debug
  68.     }
  69. }
  70.  
  71. // Affichage
  72. if (!$str[1] == null) {
  73.     echo "Traitement terminé <br/><br/><u>Affichage des séquences ARN :</u><br/>";
  74.     for ($i = 1; $i <=10; $i++) {
  75.         echo $str_fin[$i]."<br/>";
  76.     }
  77. }
  78.  
  79.  
  80.  
  81. ?>
  82. <br/>
  83. <small>Cr&eacute;&eacute; par Hugo en php - (c) hugoland.fr<br/>
  84. Code source (pour les curieux...) <a href="http://pastebin.com/zHzxjt9n">ici</a></small>
  85. </body>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement