04.04.2013 Views

Transcriptional Characterization of Glioma Neural Stem Cells Diva ...

Transcriptional Characterization of Glioma Neural Stem Cells Diva ...

Transcriptional Characterization of Glioma Neural Stem Cells Diva ...

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

Appendix<br />

"TAPBPL", "MEST", "EEF1A2", "C1orf187", "CALM1", "CREB3L1", "CCNY", "MGC87042",<br />

"TCF7L2", "ZNF710", "JAM2", "SCN5A", "SLC46A1", "TMSL1", "C20orf103", "HOXA5",<br />

"FMNL1", "CACNG7", "TF", "RNASEH1", "UNC80", "EGFR", "PTGS1", "ASPN",<br />

"SEMA4G", "ASNS", "FGFR1", "CHODL", "IRX1", "INPP5D", "PLSCR1", "NCALD",<br />

"CLDN3", "COL1A2", "GGH", "MICB", "FNDC5", "RAB11FIP1", "DKFZp434H1419",<br />

"AC012513.4", "CGREF1", "RP5-955M13.1", "KCNG1", "GFPT2", "IGFBP5", "CCDC8",<br />

"RADIL", "BID", "PPL", "RGS20", "BMP7"}<br />

Dim dbUrls() As String = {"www.gbmbase.org", "www.ncbi.nlm.nih.gov/pubmed", "www.ihop-<br />

net.org/UniPub/iHOP/", "biograph.be/", "scholar.google.com/scholar", "www.google.com"}<br />

Dim pageLoadTimes, nDB, ngene As Integer<br />

Public Event nextGene()<br />

Public Event nextDB()<br />

Private Sub ButtonStart_Click(sender As Object, e As EventArgs) Handles ButtonStart.Click<br />

ngene = -1<br />

RaiseEvent nextGene()<br />

End Sub<br />

Private Sub nextGene_() Handles Me.nextGene<br />

ngene += 1<br />

If ngene < genes.Count Then<br />

nDB = 4 ’0 ’-1+<br />

TextBox3.Text = genes(ngene)<br />

RaiseEvent nextDB()<br />

Else<br />

’ End data collection<br />

End If<br />

End Sub<br />

Private Sub nextDB_() Handles Me.nextDB<br />

nDB += 1<br />

If nDB < dbUrls.Count Then<br />

pageLoadTimes = 0<br />

Select Case nDB<br />

Case 0, 3 : WebBrowser1.Navigate(dbUrls(nDB))<br />

Case 1 : WebBrowser1.Navigate(dbUrls(nDB) & "?term=" & genes(ngene) & " glioblas-<br />

toma")<br />

Case 2 : WebBrowser1.Navigate(dbUrls(nDB) & "?search=" & genes(ngene) & " &field=all<br />

&ncbi_tax_id=9606&organism_syn=")<br />

Case 4 : WebBrowser1.Navigate(dbUrls(nDB) & "?as_vis=0&q=" & genes(ngene) & "<br />

+glioblastoma&hl=en&as_sdt=0,5")<br />

Case 5 : WebBrowser1.Navigate(dbUrls(nDB) & "#hl=en&gs_nf=1&cp=10&gs_id=r&xhr=t<br />

&q=" & genes(ngene) & "+NEAR+glioblastoma&fp=1")<br />

268

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!