PureBoard

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/

kann man das mit purebasic?

https://www.purebasic.fr/german/viewtopic.php?t=5915

Seite 3 von 3

Verfasst: 13.12.2005 11:59
von ArminF
Part 1

Code: Alles auswählen

If OpenConsole ()
  ConsoleTitle ("Berechnung der codierenden cDNA-Sequenz")
  ClearClipboard ()
  
  Repeat
    PrintN ("Bitte kopieren Sie die cDNA-Sequenz OHNE ZEILENUMBRUCH in die Zwischenablage!")
    PrintN ("")
    PrintN ("Bitte druecken Sie danach RETURN!")
    Input ()
    cDNAkomplett$ = GetClipboardText()                     ; aus der Zwischenablage kopiert: cDNAkomplett$
    PrintN ("")
    PrintN ("")
  Until Len (cDNAkomplett$) > 0
  
  ClearClipboard ()

  Repeat
    PrintN ("")
    PrintN ("")
    PrintN ("Bitte kopieren Sie die AS-Sequenz OHNE ZEILENUMBRUCH in die Zwischenablage!")
    PrintN ("")
    PrintN ("Bitte druecken Sie danach RETURN!")
    Input ()
    ASkomplett$ = GetClipboardText ()                    ; aus der Zwischenablage: ASkomplett$
    PrintN ("")
    PrintN ("")
  Until Len (ASkomplett$) > 0
  
  Aminosaeuren1bis6$ = Left (ASkomplett$,8)              ; die ersten 6 Aminosäuren von links werden in Aminosaeuren1bis6$ gespeichert
  Print ("Die ersten 6 Aminosaeuren lauten:   ")
  PrintN (Aminosaeuren1bis6$)
  
  
  AS1$ = Mid (Aminosaeuren1bis6$,1,1)                  ; Ergebnis$ = Mid(String$, StartPosition, Länge)
  AS2$ = Mid (Aminosaeuren1bis6$,2,1)
  AS3$ = Mid (Aminosaeuren1bis6$,3,1)
  AS4$ = Mid (Aminosaeuren1bis6$,4,1)
  AS5$ = Mid (Aminosaeuren1bis6$,5,1)
  AS6$ = Mid (Aminosaeuren1bis6$,6,1)
  
  Codon1Untergrenze = 1
  Codon2Untergrenze = 1
  Codon3Untergrenze = 1
  Codon4Untergrenze = 1
  Codon5Untergrenze = 1
  Codon6Untergrenze = 1
  
  If AS1$ = ("S")                                    ; Abfrage der ersten sechs Aminosaeuren. Die Aminosaeuren werden durch
    Codon1Obergrenze = 6                             ; unterschiedlich viele Nucleotid-Triplets (Codons) codiert
  Else
    If AS1$ = ("L")
      Codon1Obergrenze = 6
    Else
      If AS1$ = ("R")
        Codon1Obergrenze = 6
      Else
        If AS1$ = ("A")
          Codon1Obergrenze = 4
        Else
          If AS1$ = ("G")
            Codon1Obergrenze = 4
          Else
            If AS1$ = ("P")
              Codon1Obergrenze = 4
            Else
              If AS1$ = ("T")
                Codon1Obergrenze = 4
              Else
                If AS1$ = ("V")
                  Codon1Obergrenze = 4
                Else
                  If AS1$ = ("I")
                    Codon1Obergrenze = 3
                  Else
                    If AS1$ = ("N")
                      Codon1Obergrenze = 2
                    Else
                      If AS1$ = ("D")
                        Codon1Obergrenze = 2
                      Else
                        If AS1$ = ("C")
                          Codon1Obergrenze = 2
                        Else
                          If AS1$ = ("Q")
                            Codon1Obergrenze = 2
                          Else
                            If AS1$ = ("E")
                              Codon1Obergrenze = 2
                            Else
                              If AS1$ = ("H")
                                Codon1Obergrenze = 2
                              Else
                                If AS1$ = ("K")
                                  Codon1Obergrenze = 2
                                Else
                                  If AS1$ = ("F")
                                    Codon1Obergrenze = 2
                                  Else
                                    If AS1$ = ("Y")
                                      Codon1Obergrenze = 2
                                    Else
                                      If AS1$ = ("M")
                                        Codon1Obergrenze = 1
                                      Else
                                        If AS1$ = ("W")
                                          Codon1Obergrenze = 1
                                        EndIf
                                      EndIf
                                    EndIf
                                  EndIf
                                EndIf
                              EndIf
                            EndIf
                          EndIf
                        EndIf
                      EndIf
                    EndIf
                  EndIf
                EndIf
              EndIf
            EndIf
          EndIf
        EndIf
      EndIf
    EndIf
  EndIf

  If AS2$ = ("S")
    Codon2Obergrenze = 6
  Else
    If AS2$ = ("L")
      Codon2Obergrenze = 6
    Else
      If AS2$ = ("R")
        Codon2Obergrenze = 6
      Else
        If AS2$ = ("A")
          Codon2Obergrenze = 4
        Else
          If AS2$ = ("G")
            Codon2Obergrenze = 4
          Else
            If AS2$ = ("P")
              Codon2Obergrenze = 4
            Else
              If AS2$ = ("T")
                Codon2Obergrenze = 4
              Else
                If AS2$ = ("V")
                  Codon2Obergrenze = 4
                Else
                  If AS2$ = ("I")
                    Codon2Obergrenze = 3
                  Else
                    If AS2$ = ("N")
                      Codon2Obergrenze = 2
                    Else
                      If AS2$ = ("D")
                        Codon2Obergrenze = 2
                      Else
                        If AS2$ = ("C")
                          Codon2Obergrenze = 2
                        Else
                          If AS2$ = ("Q")
                            Codon2Obergrenze = 2
                          Else
                            If AS2$ = ("E")
                              Codon2Obergrenze = 2
                            Else
                              If AS2$ = ("H")
                                Codon2Obergrenze = 2
                              Else
                                If AS2$ = ("K")
                                  Codon2Obergrenze = 2
                                Else
                                  If AS2$ = ("F")
                                    Codon2Obergrenze = 2
                                  Else
                                    If AS2$ = ("Y")
                                      Codon2Obergrenze = 2
                                    Else
                                      If AS2$ = ("M")
                                        Codon2Obergrenze = 1
                                      Else
                                        If AS2$ = ("W")
                                          Codon2Obergrenze = 1
                                        EndIf
                                      EndIf
                                    EndIf
                                  EndIf
                                EndIf
                              EndIf
                            EndIf
                          EndIf
                        EndIf
                      EndIf
                    EndIf
                  EndIf
                EndIf
              EndIf
            EndIf
          EndIf
        EndIf
      EndIf
    EndIf
  EndIf

  If AS3$ = ("S")
    Codon3Obergrenze = 6
  Else
    If AS3$ = ("L")
      Codon3Obergrenze = 6
    Else
      If AS3$ = ("R")
        Codon3Obergrenze = 6
      Else
        If AS3$ = ("A")
          Codon3Obergrenze = 4
        Else
          If AS3$ = ("G")
            Codon3Obergrenze = 4
          Else
            If AS3$ = ("P")
              Codon3Obergrenze = 4
            Else
              If AS3$ = ("T")
                Codon3Obergrenze = 4
              Else
                If AS3$ = ("V")
                  Codon3Obergrenze = 4
                Else
                  If AS3$ = ("I")
                    Codon3Obergrenze = 3
                  Else
                    If AS3$ = ("N")
                      Codon3Obergrenze = 2
                    Else
                      If AS3$ = ("D")
                        Codon3Obergrenze = 2
                      Else
                        If AS3$ = ("C")
                          Codon3Obergrenze = 2
                        Else
                          If AS3$ = ("Q")
                            Codon3Obergrenze = 2
                          Else
                            If AS3$ = ("E")
                              Codon3Obergrenze = 2
                            Else
                              If AS3$ = ("H")
                                Codon3Obergrenze = 2
                              Else
                                If AS3$ = ("K")
                                  Codon3Obergrenze = 2
                                Else
                                  If AS3$ = ("F")
                                    Codon3Obergrenze = 2
                                  Else
                                    If AS3$ = ("Y")
                                      Codon3Obergrenze = 2
                                    Else
                                      If AS3$ = ("M")
                                        Codon3Obergrenze = 1
                                      Else
                                        If AS3$ = ("W")
                                          Codon3Obergrenze = 1
                                        EndIf
                                      EndIf
                                    EndIf
                                  EndIf
                                EndIf
                              EndIf
                            EndIf
                          EndIf
                        EndIf
                      EndIf
                    EndIf
                  EndIf
                EndIf
              EndIf
            EndIf
          EndIf
        EndIf
      EndIf
    EndIf
  EndIf

Verfasst: 13.12.2005 12:00
von ArminF
Part 2

Code: Alles auswählen

  If AS4$ = ("S")
    Codon4Obergrenze = 6
  Else
    If AS4$ = ("L")
      Codon4Obergrenze = 6
    Else
      If AS4$ = ("R")
        Codon4Obergrenze = 6
      Else
        If AS4$ = ("A")
          Codon4Obergrenze = 4
        Else
          If AS4$ = ("G")
            Codon4Obergrenze = 4
          Else
            If AS4$ = ("P")
              Codon4Obergrenze = 4
            Else
              If AS4$ = ("T")
                Codon4Obergrenze = 4
              Else
                If AS4$ = ("V")
                  Codon4Obergrenze = 4
                Else
                  If AS4$ = ("I")
                    Codon4Obergrenze = 3
                  Else
                    If AS4$ = ("N")
                      Codon4Obergrenze = 2
                    Else
                      If AS4$ = ("D")
                        Codon4Obergrenze = 2
                      Else
                        If AS4$ = ("C")
                          Codon4Obergrenze = 2
                        Else
                          If AS4$ = ("Q")
                            Codon4Obergrenze = 2
                          Else
                            If AS4$ = ("E")
                              Codon4Obergrenze = 2
                            Else
                              If AS4$ = ("H")
                                Codon4Obergrenze = 2
                              Else
                                If AS4$ = ("K")
                                  Codon4Obergrenze = 2
                                Else
                                  If AS4$ = ("F")
                                    Codon4Obergrenze = 2
                                  Else
                                    If AS4$ = ("Y")
                                      Codon4Obergrenze = 2
                                    Else
                                      If AS4$ = ("M")
                                        Codon4Obergrenze = 1
                                      Else
                                        If AS4$ = ("W")
                                          Codon4Obergrenze = 1
                                        EndIf
                                      EndIf
                                    EndIf
                                  EndIf
                                EndIf
                              EndIf
                            EndIf
                          EndIf
                        EndIf
                      EndIf
                    EndIf
                  EndIf
                EndIf
              EndIf
            EndIf
          EndIf
        EndIf
      EndIf
    EndIf
  EndIf

  If AS5$ = ("S")
    Codon5Obergrenze = 6
  Else
    If AS5$ = ("L")
      Codon5Obergrenze = 6
    Else
      If AS5$ = ("R")
        Codon5Obergrenze = 6
      Else
        If AS5$ = ("A")
          Codon5Obergrenze = 4
        Else
          If AS5$ = ("G")
            Codon5Obergrenze = 4
          Else
            If AS5$ = ("P")
              Codon5Obergrenze = 4
            Else
              If AS5$ = ("T")
                Codon5Obergrenze = 4
              Else
                If AS5$ = ("V")
                  Codon5Obergrenze = 4
                Else
                  If AS5$ = ("I")
                    Codon5Obergrenze = 3
                  Else
                    If AS5$ = ("N")
                      Codon5Obergrenze = 2
                    Else
                      If AS5$ = ("D")
                        Codon5Obergrenze = 2
                      Else
                        If AS5$ = ("C")
                          Codon5Obergrenze = 2
                        Else
                          If AS5$ = ("Q")
                            Codon5Obergrenze = 2
                          Else
                            If AS5$ = ("E")
                              Codon5Obergrenze = 2
                            Else
                              If AS5$ = ("H")
                                Codon5Obergrenze = 2
                              Else
                                If AS5$ = ("K")
                                  Codon5Obergrenze = 2
                                Else
                                  If AS5$ = ("F")
                                    Codon5Obergrenze = 2
                                  Else
                                    If AS5$ = ("Y")
                                      Codon5Obergrenze = 2
                                    Else
                                      If AS5$ = ("M")
                                        Codon5Obergrenze = 1
                                      Else
                                        If AS5$ = ("W")
                                          Codon5Obergrenze = 1
                                        EndIf
                                      EndIf
                                    EndIf
                                  EndIf
                                EndIf
                              EndIf
                            EndIf
                          EndIf
                        EndIf
                      EndIf
                    EndIf
                  EndIf
                EndIf
              EndIf
            EndIf
          EndIf
        EndIf
      EndIf
    EndIf
  EndIf

  If AS6$ = ("S")
    Codon6Obergrenze = 6
  Else
    If AS6$ = ("L")
      Codon6Obergrenze = 6
    Else
      If AS6$ = ("R")
        Codon6Obergrenze = 6
      Else
        If AS6$ = ("A")
          Codon6Obergrenze = 4
        Else
          If AS6$ = ("G")
            Codon6Obergrenze = 4
          Else
            If AS6$ = ("P")
              Codon6Obergrenze = 4
            Else
              If AS6$ = ("T")
                Codon6Obergrenze = 4
              Else
                If AS6$ = ("V")
                  Codon6Obergrenze = 4
                Else
                  If AS6$ = ("I")
                    Codon6Obergrenze = 3
                  Else
                    If AS6$ = ("N")
                      Codon6Obergrenze = 2
                    Else
                      If AS6$ = ("D")
                        Codon6Obergrenze = 2
                      Else
                        If AS6$ = ("C")
                          Codon6Obergrenze = 2
                        Else
                          If AS6$ = ("Q")
                            Codon6Obergrenze = 2
                          Else
                            If AS6$ = ("E")
                              Codon6Obergrenze = 2
                            Else
                              If AS6$ = ("H")
                                Codon6Obergrenze = 2
                              Else
                                If AS6$ = ("K")
                                  Codon6Obergrenze = 2
                                Else
                                  If AS6$ = ("F")
                                    Codon6Obergrenze = 2
                                  Else
                                    If AS6$ = ("Y")
                                      Codon6Obergrenze = 2
                                    Else
                                      If AS6$ = ("M")
                                        Codon6Obergrenze = 1
                                      Else
                                        If AS6$ = ("W")
                                          Codon6Obergrenze = 1
                                        EndIf
                                      EndIf
                                    EndIf
                                  EndIf
                                EndIf
                              EndIf
                            EndIf
                          EndIf
                        EndIf
                      EndIf
                    EndIf
                  EndIf
                EndIf
              EndIf
            EndIf
          EndIf
        EndIf
      EndIf
    EndIf
  EndIf
  
                                                        
  
  Dim A$ (Codon1Obergrenze)                                            ; dimensionieren der einzelnen Arrays
  Dim B$ (Codon2Obergrenze)
  Dim C$ (Codon3Obergrenze)
  Dim D$ (Codon4Obergrenze)
  Dim E$ (Codon5Obergrenze)
  Dim F$ (Codon6Obergrenze)

Verfasst: 13.12.2005 12:01
von ArminF
Part 3

Code: Alles auswählen

  For Counter = Codon1Untergrenze To Codon1Obergrenze
    A$ (Counter) = "A" + Str(Counter)
  Next
  For Counter = Codon2Untergrenze To Codon2Obergrenze
    B$ (Counter) = "B" + Str(Counter)
  Next
  For Counter = Codon3Untergrenze To Codon3Obergrenze
    C$ (Counter) = "C" + Str(Counter)
  Next
  For Counter = Codon4Untergrenze To Codon4Obergrenze
    D$ (Counter) = "D" + Str(Counter)
  Next
  For Counter = Codon5Untergrenze To Codon5Obergrenze
    E$ (Counter) = "E" + Str(Counter)
  Next
  For Counter = Codon6Untergrenze To Codon6Obergrenze
    F$ (Counter) = "F" + Str(Counter)
  Next

  CodonS1$ = ("TCT") : CodonS2$ = ("TCC") : CodonS3$ = ("TCA") : CodonS4$ = ("TCG") : CodonS5$ = ("AGT") : CodonS6$ = ("AGC")  
  CodonL1$ = ("TTA") : CodonL2$ = ("TTG") : CodonL3$ = ("CTT") : CodonL4$ = ("CTC") : CodonL5$ = ("CTA") : CodonL6$ = ("CTG")
  CodonR1$ = ("CGT") : CodonR2$ = ("CGC") : CodonR3$ = ("CGA") : CodonR4$ = ("CGG") : CodonR5$ = ("AGA") : CodonR6$ = ("AGG")
  CodonA1$ = ("GCT") : CodonA2$ = ("GCC") : CodonA3$ = ("GCA") : CodonA4$ = ("GCG")
  CodonG1$ = ("GGT") : CodonG2$ = ("GGC") : CodonG3$ = ("GGA") : CodonG4$ = ("GGG")
  CodonP1$ = ("CCT") : CodonP2$ = ("CCC") : CodonP3$ = ("CCA") : CodonP4$ = ("CCG")
  CodonT1$ = ("ACT") : CodonT2$ = ("ACC") : CodonT3$ = ("ACA") : CodonT4$ = ("ACG")
  CodonV1$ = ("GTT") : CodonV2$ = ("GTC") : CodonV3$ = ("GTA") : CodonV4$ = ("GTG")
  CodonI1$ = ("ATT") : CodonI2$ = ("ATC") : CodonI3$ = ("ATA")
  CodonN1$ = ("AAT") : CodonN2$ = ("AAC")
  CodonD1$ = ("GAT") : CodonD2$ = ("GAC")
  CodonC1$ = ("TGT") : CodonC2$ = ("TGC")
  CodonQ1$ = ("CAA") : CodonQ2$ = ("CAG")
  CodonE1$ = ("GAA") : CodonE2$ = ("GAG")
  CodonH1$ = ("CAT") : CodonH2$ = ("CAC")
  CodonK1$ = ("AAA") : CodonK2$ = ("AAG")
  CodonF1$ = ("TTT") : CodonF2$ = ("TTC")
  CodonY1$ = ("TAT") : CodonY2$ = ("TAC")
  CodonM1$ = ("ATG")
  CodonW1$ = ("TGG")                                         ; Definition der verschiedenen Codons für die einzelnen Aminosaeuren


  Counter = 0

  For Counter_A = Codon1Untergrenze To Codon1Obergrenze
    For Counter_B = Codon2Untergrenze To Codon2Obergrenze
      For Counter_C = Codon3Untergrenze To Codon3Obergrenze
        For Counter_D = Codon4Untergrenze To Codon4Obergrenze
          For Counter_E = Codon5Untergrenze To Codon5Obergrenze
            For Counter_F = Codon6Untergrenze To Codon6Obergrenze
              
              Counter + 1
              
              SuchCodon$ = A$(Counter_A) + B$(Counter_B) + C$(Counter_C) + D$(Counter_D) + E$(Counter_E) + F$(Counter_F)

              If AS1$ = ("S")                                                  ; ersetzt die einzelnen Ausdruecke im SuchCodon durch die Triplets
                SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonS1$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonS2$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonS3$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonS4$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A5", CodonS5$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A6", CodonS6$)
              Else
                If AS1$ = ("L")
                  SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonL1$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonL2$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonL3$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonL4$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A5", CodonL5$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A6", CodonL6$)
                Else
                  If AS1$ = ("R")
                    SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonR1$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonR2$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonR3$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonR4$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A5", CodonR5$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A6", CodonR6$)
                  Else
                    If AS1$ = ("A")
                      SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonA1$)
                      SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonA2$)
                      SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonA3$)
                      SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonA4$)
                    Else
                      If AS1$ = ("G")
                        SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonG1$)
                        SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonG2$)
                        SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonG3$)
                        SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonG4$)
                      Else
                        If AS1$ = ("P")
                          SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonP1$)
                          SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonP2$)
                          SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonP3$)
                          SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonP4$)
                        Else
                          If AS1$ = ("T")
                            SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonT1$)
                            SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonT2$)
                            SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonT3$)
                            SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonT4$)
                          Else
                            If AS1$ = ("V")
                              SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonV1$)
                              SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonV2$)
                              SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonV3$)
                              SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonV4$)
                            Else
                              If AS1$ = ("I")
                                SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonI1$)
                                SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonI2$)
                                SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonI3$)
                              Else
                                If AS1$ = ("N")
                                  SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonN1$)
                                  SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonN2$)
                                Else
                                  If AS1$ = ("D")
                                    SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonD1$)
                                    SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonD2$)
                                  Else
                                    If AS1$ = ("C")
                                      SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonC1$)
                                      SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonC2$)
                                    Else
                                      If AS1$ = ("Q")
                                        SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonQ1$)
                                        SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonQ2$)
                                      Else
                                        If AS1$ = ("E")
                                          SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonE1$)
                                          SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonE2$)
                                        Else
                                          If AS1$ = ("H")
                                            SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonH1$)
                                            SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonH2$)
                                          Else
                                            If AS1$ = ("K")
                                              SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonK1$)
                                              SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonK2$)
                                            Else
                                              If AS1$ = ("F")
                                                SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonF1$)
                                                SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonF2$)
                                              Else
                                                If AS1$ = ("Y")
                                                  SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonY1$)
                                                  SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonY2$)
                                                Else
                                                  If AS1$ = ("M")
                                                    SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonM1$)
                                                  Else
                                                    If AS1$ = ("W")
                                                      SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonW1$)
                                                    EndIf                                                    
                                                  EndIf
                                                EndIf
                                              EndIf
                                            EndIf
                                          EndIf
                                        EndIf
                                      EndIf
                                    EndIf
                                  EndIf
                                EndIf
                              EndIf
                            EndIf
                          EndIf
                        EndIf
                      EndIf
                    EndIf
                  EndIf
                EndIf
              EndIf


              If AS2$ = ("S")
                SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonS1$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonS2$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonS3$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonS4$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A5", CodonS5$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A6", CodonS6$)
              Else
                If AS2$ = ("L")
                  SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonL1$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonL2$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonL3$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonL4$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A5", CodonL5$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A6", CodonL6$)
                Else
                  If AS2$ = ("R")
                    SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonR1$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonR2$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonR3$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonR4$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A5", CodonR5$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A6", CodonR6$)
                  Else
                    If AS2$ = ("A")
                      SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonA1$)
                      SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonA2$)
                      SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonA3$)
                      SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonA4$)
                    Else
                      If AS2$ = ("G")
                        SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonG1$)
                        SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonG2$)
                        SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonG3$)
                        SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonG4$)
                      Else
                        If AS2$ = ("P")
                          SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonP1$)
                          SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonP2$)
                          SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonP3$)
                          SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonP4$)
                        Else
                          If AS2$ = ("T")
                            SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonT1$)
                            SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonT2$)
                            SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonT3$)
                            SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonT4$)
                          Else
                            If AS2$ = ("V")
                              SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonV1$)
                              SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonV2$)
                              SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonV3$)
                              SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonV4$)
                            Else
                              If AS2$ = ("I")
                                SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonI1$)
                                SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonI2$)
                                SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonI3$)
                              Else
                                If AS2$ = ("N")
                                  SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonN1$)
                                  SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonN2$)
                                Else
                                  If AS2$ = ("D")
                                    SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonD1$)
                                    SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonD2$)
                                  Else
                                    If AS2$ = ("C")
                                      SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonC1$)
                                      SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonC2$)
                                    Else
                                      If AS2$ = ("Q")
                                        SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonQ1$)
                                        SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonQ2$)
                                      Else
                                        If AS2$ = ("E")
                                          SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonE1$)
                                          SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonE2$)
                                        Else
                                          If AS2$ = ("H")
                                            SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonH1$)
                                            SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonH2$)
                                          Else
                                            If AS2$ = ("K")
                                              SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonK1$)
                                              SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonK2$)
                                            Else
                                              If AS2$ = ("F")
                                                SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonF1$)
                                                SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonF2$)
                                              Else
                                                If AS2$ = ("Y")
                                                  SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonY1$)
                                                  SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonY2$)
                                                Else
                                                  If AS2$ = ("M")
                                                    SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonM1$)
                                                  Else
                                                    If AS2$ = ("W")
                                                      SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonW1$)
                                                    EndIf                                                    
                                                  EndIf
                                                EndIf
                                              EndIf
                                            EndIf
                                          EndIf
                                        EndIf
                                      EndIf
                                    EndIf
                                  EndIf
                                EndIf
                              EndIf
                            EndIf
                          EndIf
                        EndIf
                      EndIf
                    EndIf
                  EndIf
                EndIf
              EndIf

Verfasst: 13.12.2005 12:02
von ArminF
Vierter Teil *ächzstöhn*

Code: Alles auswählen

              If AS3$ = ("S")
                SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonS1$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonS2$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonS3$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonS4$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A5", CodonS5$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A6", CodonS6$)
              Else
                If AS3$ = ("L")
                  SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonL1$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonL2$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonL3$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonL4$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A5", CodonL5$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A6", CodonL6$)
                Else
                  If AS3$ = ("R")
                    SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonR1$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonR2$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonR3$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonR4$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A5", CodonR5$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A6", CodonR6$)
                  Else
                    If AS3$ = ("A")
                      SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonA1$)
                      SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonA2$)
                      SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonA3$)
                      SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonA4$)
                    Else
                      If AS3$ = ("G")
                        SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonG1$)
                        SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonG2$)
                        SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonG3$)
                        SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonG4$)
                      Else
                        If AS3$ = ("P")
                          SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonP1$)
                          SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonP2$)
                          SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonP3$)
                          SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonP4$)
                        Else
                          If AS3$ = ("T")
                            SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonT1$)
                            SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonT2$)
                            SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonT3$)
                            SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonT4$)
                          Else
                            If AS3$ = ("V")
                              SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonV1$)
                              SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonV2$)
                              SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonV3$)
                              SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonV4$)
                            Else
                              If AS3$ = ("I")
                                SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonI1$)
                                SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonI2$)
                                SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonI3$)
                              Else
                                If AS3$ = ("N")
                                  SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonN1$)
                                  SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonN2$)
                                Else
                                  If AS3$ = ("D")
                                    SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonD1$)
                                    SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonD2$)
                                  Else
                                    If AS3$ = ("C")
                                      SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonC1$)
                                      SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonC2$)
                                    Else
                                      If AS3$ = ("Q")
                                        SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonQ1$)
                                        SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonQ2$)
                                      Else
                                        If AS3$ = ("E")
                                          SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonE1$)
                                          SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonE2$)
                                        Else
                                          If AS3$ = ("H")
                                            SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonH1$)
                                            SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonH2$)
                                          Else
                                            If AS3$ = ("K")
                                              SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonK1$)
                                              SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonK2$)
                                            Else
                                              If AS3$ = ("F")
                                                SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonF1$)
                                                SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonF2$)
                                              Else
                                                If AS3$ = ("Y")
                                                  SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonY1$)
                                                  SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonY2$)
                                                Else
                                                  If AS3$ = ("M")
                                                    SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonM1$)
                                                  Else
                                                    If AS3$ = ("W")
                                                      SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonW1$)
                                                    EndIf                                                    
                                                  EndIf
                                                EndIf
                                              EndIf
                                            EndIf
                                          EndIf
                                        EndIf
                                      EndIf
                                    EndIf
                                  EndIf
                                EndIf
                              EndIf
                            EndIf
                          EndIf
                        EndIf
                      EndIf
                    EndIf
                  EndIf
                EndIf
              EndIf

              If AS4$ = ("S")
                SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonS1$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonS2$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonS3$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonS4$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A5", CodonS5$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A6", CodonS6$)
              Else
                If AS4$ = ("L")
                  SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonL1$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonL2$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonL3$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonL4$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A5", CodonL5$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A6", CodonL6$)
                Else
                  If AS4$ = ("R")
                    SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonR1$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonR2$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonR3$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonR4$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A5", CodonR5$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A6", CodonR6$)
                  Else
                    If AS4$ = ("A")
                      SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonA1$)
                      SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonA2$)
                      SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonA3$)
                      SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonA4$)
                    Else
                      If AS4$ = ("G")
                        SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonG1$)
                        SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonG2$)
                        SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonG3$)
                        SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonG4$)
                      Else
                        If AS4$ = ("P")
                          SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonP1$)
                          SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonP2$)
                          SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonP3$)
                          SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonP4$)
                        Else
                          If AS4$ = ("T")
                            SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonT1$)
                            SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonT2$)
                            SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonT3$)
                            SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonT4$)
                          Else
                            If AS4$ = ("V")
                              SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonV1$)
                              SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonV2$)
                              SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonV3$)
                              SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonV4$)
                            Else
                              If AS4$ = ("I")
                                SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonI1$)
                                SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonI2$)
                                SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonI3$)
                              Else
                                If AS4$ = ("N")
                                  SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonN1$)
                                  SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonN2$)
                                Else
                                  If AS4$ = ("D")
                                    SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonD1$)
                                    SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonD2$)
                                  Else
                                    If AS4$ = ("C")
                                      SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonC1$)
                                      SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonC2$)
                                    Else
                                      If AS4$ = ("Q")
                                        SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonQ1$)
                                        SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonQ2$)
                                      Else
                                        If AS4$ = ("E")
                                          SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonE1$)
                                          SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonE2$)
                                        Else
                                          If AS4$ = ("H")
                                            SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonH1$)
                                            SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonH2$)
                                          Else
                                            If AS4$ = ("K")
                                              SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonK1$)
                                              SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonK2$)
                                            Else
                                              If AS4$ = ("F")
                                                SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonF1$)
                                                SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonF2$)
                                              Else
                                                If AS4$ = ("Y")
                                                  SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonY1$)
                                                  SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonY2$)
                                                Else
                                                  If AS4$ = ("M")
                                                    SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonM1$)
                                                  Else
                                                    If AS4$ = ("W")
                                                      SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonW1$)
                                                    EndIf                                                    
                                                  EndIf
                                                EndIf
                                              EndIf
                                            EndIf
                                          EndIf
                                        EndIf
                                      EndIf
                                    EndIf
                                  EndIf
                                EndIf
                              EndIf
                            EndIf
                          EndIf
                        EndIf
                      EndIf
                    EndIf
                  EndIf
                EndIf
              EndIf

Verfasst: 13.12.2005 12:03
von ArminF
...und der 5. letzte Streich - folgt sogleich :)

Code: Alles auswählen

              If AS5$ = ("S")
                SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonS1$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonS2$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonS3$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonS4$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A5", CodonS5$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A6", CodonS6$)
              Else
                If AS5$ = ("L")
                  SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonL1$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonL2$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonL3$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonL4$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A5", CodonL5$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A6", CodonL6$)
                Else
                  If AS5$ = ("R")
                    SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonR1$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonR2$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonR3$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonR4$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A5", CodonR5$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A6", CodonR6$)
                  Else
                    If AS5$ = ("A")
                      SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonA1$)
                      SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonA2$)
                      SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonA3$)
                      SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonA4$)
                    Else
                      If AS5$ = ("G")
                        SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonG1$)
                        SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonG2$)
                        SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonG3$)
                        SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonG4$)
                      Else
                        If AS5$ = ("P")
                          SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonP1$)
                          SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonP2$)
                          SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonP3$)
                          SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonP4$)
                        Else
                          If AS5$ = ("T")
                            SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonT1$)
                            SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonT2$)
                            SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonT3$)
                            SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonT4$)
                          Else
                            If AS5$ = ("V")
                              SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonV1$)
                              SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonV2$)
                              SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonV3$)
                              SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonV4$)
                            Else
                              If AS5$ = ("I")
                                SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonI1$)
                                SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonI2$)
                                SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonI3$)
                              Else
                                If AS5$ = ("N")
                                  SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonN1$)
                                  SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonN2$)
                                Else
                                  If AS5$ = ("D")
                                    SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonD1$)
                                    SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonD2$)
                                  Else
                                    If AS5$ = ("C")
                                      SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonC1$)
                                      SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonC2$)
                                    Else
                                      If AS5$ = ("Q")
                                        SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonQ1$)
                                        SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonQ2$)
                                      Else
                                        If AS5$ = ("E")
                                          SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonE1$)
                                          SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonE2$)
                                        Else
                                          If AS5$ = ("H")
                                            SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonH1$)
                                            SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonH2$)
                                          Else
                                            If AS5$ = ("K")
                                              SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonK1$)
                                              SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonK2$)
                                            Else
                                              If AS5$ = ("F")
                                                SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonF1$)
                                                SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonF2$)
                                              Else
                                                If AS5$ = ("Y")
                                                  SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonY1$)
                                                  SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonY2$)
                                                Else
                                                  If AS5$ = ("M")
                                                    SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonM1$)
                                                  Else
                                                    If AS5$ = ("W")
                                                      SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonW1$)
                                                    EndIf                                                    
                                                  EndIf
                                                EndIf
                                              EndIf
                                            EndIf
                                          EndIf
                                        EndIf
                                      EndIf
                                    EndIf
                                  EndIf
                                EndIf
                              EndIf
                            EndIf
                          EndIf
                        EndIf
                      EndIf
                    EndIf
                  EndIf
                EndIf
              EndIf

              If AS6$ = ("S")
                SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonS1$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonS2$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonS3$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonS4$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A5", CodonS5$)
                SuchCodon$ = ReplaceString (SuchCodon$, "A6", CodonS6$)
              Else
                If AS6$ = ("L")
                  SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonL1$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonL2$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonL3$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonL4$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A5", CodonL5$)
                  SuchCodon$ = ReplaceString (SuchCodon$, "A6", CodonL6$)
                Else
                  If AS6$ = ("R")
                    SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonR1$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonR2$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonR3$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonR4$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A5", CodonR5$)
                    SuchCodon$ = ReplaceString (SuchCodon$, "A6", CodonR6$)
                  Else
                    If AS6$ = ("A")
                      SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonA1$)
                      SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonA2$)
                      SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonA3$)
                      SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonA4$)
                    Else
                      If AS6$ = ("G")
                        SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonG1$)
                        SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonG2$)
                        SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonG3$)
                        SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonG4$)
                      Else
                        If AS6$ = ("P")
                          SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonP1$)
                          SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonP2$)
                          SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonP3$)
                          SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonP4$)
                        Else
                          If AS6$ = ("T")
                            SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonT1$)
                            SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonT2$)
                            SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonT3$)
                            SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonT4$)
                          Else
                            If AS6$ = ("V")
                              SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonV1$)
                              SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonV2$)
                              SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonV3$)
                              SuchCodon$ = ReplaceString (SuchCodon$, "A4", CodonV4$)
                            Else
                              If AS6$ = ("I")
                                SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonI1$)
                                SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonI2$)
                                SuchCodon$ = ReplaceString (SuchCodon$, "A3", CodonI3$)
                              Else
                                If AS6$ = ("N")
                                  SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonN1$)
                                  SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonN2$)
                                Else
                                  If AS6$ = ("D")
                                    SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonD1$)
                                    SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonD2$)
                                  Else
                                    If AS6$ = ("C")
                                      SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonC1$)
                                      SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonC2$)
                                    Else
                                      If AS6$ = ("Q")
                                        SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonQ1$)
                                        SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonQ2$)
                                      Else
                                        If AS6$ = ("E")
                                          SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonE1$)
                                          SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonE2$)
                                        Else
                                          If AS6$ = ("H")
                                            SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonH1$)
                                            SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonH2$)
                                          Else
                                            If AS6$ = ("K")
                                              SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonK1$)
                                              SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonK2$)
                                            Else
                                              If AS6$ = ("F")
                                                SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonF1$)
                                                SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonF2$)
                                              Else
                                                If AS6$ = ("Y")
                                                  SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonY1$)
                                                  SuchCodon$ = ReplaceString (SuchCodon$, "A2", CodonY2$)
                                                Else
                                                  If AS6$ = ("M")
                                                    SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonM1$)
                                                  Else
                                                    If AS6$ = ("W")
                                                      SuchCodon$ = ReplaceString (SuchCodon$, "A1", CodonW1$)
                                                    EndIf                                                    
                                                  EndIf
                                                EndIf
                                              EndIf
                                            EndIf
                                          EndIf
                                        EndIf
                                      EndIf
                                    EndIf
                                  EndIf
                                EndIf
                              EndIf
                            EndIf
                          EndIf
                        EndIf
                      EndIf
                    EndIf
                  EndIf
                EndIf
              EndIf


              
              Trefferindex = FindString (cDNAkomplett$, SuchCodon$, 1)          
              Trefferindex$ = Str(Trefferindex)            
              Haeufigkeitsindex = CountString (cDNAkomplett$, SuchCodon$)  ; gibt an wie haeufig die 6*3 Nucleotide große Sequenz gefunden wurde
              Haeufigkeitsindex$ = Str(Haeufigkeitsindex)   
              
              If FindString (cDNAkomplett$, SuchCodon$, 1) <> 0    
                PrintN ("TREFFER!")
                Print ("Die passende cDNA-Sequenz lautet: ")
                PrintN (SuchCodon$)
                Print ("Gefunden bei Nucleotid # ")
                PrintN (Trefferindex$)
                Print ("Die Sequenz wurde ")
                Print (Haeufigkeitsindex$)
                PrintN ("x gefunden")
              Else
                PrintN (SuchCodon$)
              EndIf
             
          
            Next
          Next
        Next
      Next
    Next
  Next
     
  PrintN ("Kein Treffer")
    
  PrintN ("Bitte druecken Sie zum Beenden RETURN!")
  Input ()

  
  Delay (5000)
EndIf

Verfasst: 13.12.2005 12:04
von ArminF
Komm jetzt bloß keiner auf die Idee mir zu sagen, das wäre viel einfacher und kürzer gegangen *lach*

Verfasst: 13.12.2005 12:09
von Kiffi
> Komm jetzt bloß keiner auf die Idee mir zu sagen, das wäre viel einfacher
> und kürzer gegangen *lach*

doch! :D

Erster Schritt zur Vereinfachung:
Die Verwendung von [c]Select - Case - EndSelect[/c]:

Code: Alles auswählen

Select AS1$ 
  Case "S" 
    Codon1Obergrenze = 6 
  Case "L"
    Codon1Obergrenze = 6
  Case "R"
    Codon1Obergrenze = 6
  Case "A"
    Codon1Obergrenze = 4
  Case "G"
    Codon1Obergrenze = 4
  Case "P"
    Codon1Obergrenze = 4
  Case "T"
    Codon1Obergrenze = 4
  Case "V"
    Codon1Obergrenze = 4
  Case "I"
    Codon1Obergrenze = 3
  Case "N"
    Codon1Obergrenze = 2
  Case "D"
    Codon1Obergrenze = 2
  Case "C"
    Codon1Obergrenze = 2
  Case "Q"
    Codon1Obergrenze = 2
  Case "E"
    Codon1Obergrenze = 2
  Case "H"
    Codon1Obergrenze = 2
  Case "K"
    Codon1Obergrenze = 2
  Case "F"
    Codon1Obergrenze = 2
  Case "Y"
    Codon1Obergrenze = 2
  Case "M"
    Codon1Obergrenze = 1
  Case "W"
    Codon1Obergrenze = 1
EndSelect
Liest sich besser und ist weniger Tipparbeit.

Grüße ... Kiffi

Verfasst: 13.12.2005 12:27
von ArminF
Liest sich besser und ist weniger Tipparbeit.
da haste allerdings recht *boahbinichdoof* :)

Na ja aber wie schon bereits gesagt: ich arbeite mich gerade erst wieder ein in die Programmiererei :))

Verfasst: 13.12.2005 12:51
von Kiffi
> Na ja aber wie schon bereits gesagt: ich arbeite mich gerade erst wieder
> ein in die Programmiererei :))

egal! Dafür sind wir ja im Anfänger-Forum. So nach und nach wird's.

Grüße ... Kiffi
Alle Zeiten sind UTC+02:00
Seite 3 von 3

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de