Bioinformatics/Subsequence: Difference between revisions
→{{header|Ring}}
(→{{header|Ring}}: video link is private) |
|||
Line 315:
=={{header|Ring}}==
<lang ring>
/*-----------------------------------
Line 327 ⟶ 326:
load "guilib.ring"
start = 0
base = ["A","C","G","T"]
dnaList = []
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:
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 ⟶ 389:
Letter = " " + Row*20
ok
RowLine[Row] = new qLabel(win) {
setAlignment(Qt_AlignHCenter | Qt_AlignVCenter)
setStyleSheet("background-color:darkgray")
Line 406 ⟶ 417:
LayoutDataRow = new QHBoxLayout() { setSpacing(C_Spacing) setContentsMargins(0,0,0,0) }
LayoutDataRow.AddWidget(ButtonFind)
LayoutDataRow.AddWidget(DnaSearch)
LayoutButtonMain.AddLayout(LayoutDataRow)
setLayout(LayoutButtonMain)
Line 420 ⟶ 434:
func pStart()
start = start + 1
for col = 1 to 20
Button[row][col].settext("")
▲ next
next
for nr = 1 to 200
rnd = random(3)+1
Line 431 ⟶ 453:
add(dnaList,baseStr)
next
startDna()
Line 452 ⟶ 475:
end
//-----------------------------------------▼
▲ for n = 1 to 196
▲ flag = 1
func showDna(dnaList)▼
see nl
for m = 0 to 3
col =
if col = 0
▲ col = 20
ok
Button[row][col].setstylesheet(C_ButtonStyle)
next
▲ /*if flag = 1
▲ add(dnaSeq,n)
▲ seqok = 1
next
▲//-----------------------------------------
▲func showDna(dnaList)
dnaSeq = []
strDna = list2str(dnaList)
strDna = substr(strDna,nl,"")
Line 488 ⟶ 513:
ok
end
ButtonFind.setStyleSheet("background-color:yellow")
ButtonFind.settext(strBase)
for n = 1 to 196
Line 499 ⟶ 527:
if flag = 1
add(dnaSeq,n)
▲ seqok = 1
ok
next
Line 517 ⟶ 543:
next
ok
next
//-----------------------------------------
</lang>
[https://youtu.be/
=={{header|Wren}}==
| |||