Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <head>
- <style>
- body {
- font-family:Monospace;
- font-size:20;
- }
- </style>
- <script>
- function adn() {
- location.href = "adn.php";
- }
- function prot() {
- location.href = "prot.php";
- }
- </script>
- </head>
- <body>
- <?php
- for ($i = 1; $i <= 10; $i++) {
- $str[$i] = htmlspecialchars($_POST['in'.$i]);
- }
- if (!$str[1] == null) {
- goto c; // Si le formulaire a déjà été rempli, on n'affiche pas le formulaire
- }
- echo "
- <form action='arn.php' method='post'>
- Collez les séquences ADN à transcrire ici : <br/>
- <input name=in1 type=textarea /><br/>
- <input name=in2 type=textarea /><br/>
- <input name=in3 type=textarea /><br/>
- <input name=in4 type=textarea /><br/>
- <input name=in5 type=textarea /><br/>
- <input name=in6 type=textarea /><br/>
- <input name=in7 type=textarea /><br/>
- <input name=in8 type=textarea /><br/>
- <input name=in9 type=textarea /><br/>
- <input name=in10 type=textarea /><br/>
- <br/>
- <input type=submit value=Transcrire! /><br/>
- </form>
- <br/><br/><br/><br/>Autres fonctions : <br/>
- <input type=button onClick='adn();' value='Comparer des séquences ADN' /><br/>
- <input type=button onClick='prot();' value='Traduire ARNm en protéine' /><br/>
- ";
- c: //pour goto
- if ($str[1] == null) {
- exit(); // Si le formulaire n'a pas été rempli, exit
- }
- for ($i = 1; $i <= 10; $i++) {
- // echo $i; //debug
- $str_fin[$i] = null;
- $str_cur[$i] = $str[$i];
- while (!$str_cur[$i] == null) {
- $str_tmp[$i] = substr($str_cur[$i], 0, 1); //ATGC : prend A
- $str_cur[$i] = substr($str_cur[$i], 1); //ATGC : prend TGC (le reste)
- // echo "cur:".$str_cur[$i]." tmp:".$str_tmp[$i]."<br/>"; //debug
- if ($str_tmp[$i] == "T") {
- $str_fin[$i] = $str_fin[$i]."U";
- } else {
- $str_fin[$i] = $str_fin[$i].$str_tmp[$i];
- }
- // echo $str_fin[$i]; //debug
- }
- }
- // Affichage
- if (!$str[1] == null) {
- echo "Traitement terminé <br/><br/><u>Affichage des séquences ARN :</u><br/>";
- for ($i = 1; $i <=10; $i++) {
- echo $str_fin[$i]."<br/>";
- }
- }
- ?>
- <br/>
- <small>Créé par Hugo en php - (c) hugoland.fr<br/>
- Code source (pour les curieux...) <a href="http://pastebin.com/zHzxjt9n">ici</a></small>
- </body>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement