Bioinformatics/Subsequence: Difference between revisions

Content added Content deleted

Inline

@@ Line 315: / Line 315: @@
 =={{header|Ring}}==
-{{improve|Ring|video link is private}}
 <lang ring>
 /*-----------------------------------
@@ Line 327: / Line 326: @@
 load "guilib.ring"
+start = 0
 base = ["A","C","G","T"]
 dnaList = []
@@ Line 335: / Line 335: @@
 C_ButtonDnaStyle  = ' background-color: Red; border-radius: 8px;'
+C_ButtonStyle  = '"background-color:white"; border-radius: 8px;'
 Button = newlist(10,20)
 LayoutButtonRow = list(10)
@@ Line 353: / Line 353: @@
             LayoutButtonMain.setSpacing(C_Spacing)
             LayoutButtonMain.setContentsmargins(0,0,0,0)
+            LabelFind = new qLabel(win) { settext("    DNA subsequence to find:")
+                                          setStyleSheet("background-color:yellow") }
+            ButtonFind = new QPushButton(win)
+            DnaSearch = new QPushButton(win) { setclickevent("pstart()")
+                                               setStyleSheet("background-color:yellow")
+                                               settext("Find")
+                                             }
+            ButtonFind = new QPushButton(win)
             for Col = 1 to 21
                 ColLine[Col] = new qLabel(win) {
@@ Line 378: / Line 389: @@
                    Letter = "  " + Row*20
                 ok
-                RowLine[Row] = new qLabel(win) { //setFont(new qFont("Verdana",fontSize,40,0))
+                RowLine[Row] = new qLabel(win) { setFont(new qFont("Verdana",fontSize,40,0))
                                                  setAlignment(Qt_AlignHCenter | Qt_AlignVCenter)
                                                  setStyleSheet("background-color:darkgray")
@@ Line 406: / Line 417: @@
             LayoutDataRow = new QHBoxLayout() { setSpacing(C_Spacing) setContentsMargins(0,0,0,0) }
-            //LayoutDataRow.AddWidget(PlayScoreBlack)
+            LayoutDataRow.AddWidget(LabelFind)
+            LayoutDataRow.AddWidget(ButtonFind)
+            LayoutDataRow.AddWidget(DnaSearch)
+            LayoutButtonMain.AddLayout(LayoutDataRow)
             setLayout(LayoutButtonMain)
@@ Line 420: / Line 434: @@
 func pStart()
+     start = start + 1
+     dnaList = []
+     for row = 1 to 10
+         for col = 1 to 20
+             Button[row][col].settext("")
+         next
+     next
      for nr = 1 to 200
          rnd = random(3)+1
@@ Line 431: / Line 453: @@
          add(dnaList,baseStr)
      next
      startDna()
@@ Line 452: / Line 475: @@
      end
-     seqok = 0
+     showDna(dnaList)
+//-----------------------------------------
-     for n = 1 to 196
-         flag = 1
+func showDna(dnaList)
+     if start > 1
+     see nl
+     for n = 1 to len(dnaSeq)
          for m = 0 to 3
-             if dnaList[n+m] != strBase[m+1]
+             ind = dnaSeq[n] + m
-                flag = 0
+             row = ceil(ind/20)
-                exit
+             col = ind%20
+             if col = 0
+                col = 20
              ok
+             Button[row][col].setstylesheet(C_ButtonStyle)
          next
-         /*if flag = 1
-            add(dnaSeq,n)
-            seqok = 1
-            //see "" + n + " "
-         ok*/
      next
-     showDna(dnaList)
+     ok
-//-----------------------------------------
-func showDna(dnaList)
+     dnaSeq = []
      strDna = list2str(dnaList)
      strDna = substr(strDna,nl,"")
@@ Line 488: / Line 513: @@
            ok
      end
+     ButtonFind.setStyleSheet("background-color:yellow")
+     ButtonFind.settext(strBase)
      for n = 1 to 196
@@ Line 499: / Line 527: @@
          if flag = 1
             add(dnaSeq,n)
-            seqok = 1
-            see "" + n + " "
          ok
      next
@@ Line 517: / Line 543: @@
             next
          ok
       next
 //-----------------------------------------
 </lang>
-[https://youtu.be/mwzp3qsgvZk Bioinformatics/Subsequence - video]
+[https://youtu.be/R0zhpT0h2vU Bioinformatics/Subsequence - video]
 =={{header|Wren}}==