Language: Visual Basic

Untitled Visual Basic (24-Jan @ 16:50)

Syntax Highlighted Code

  1. Ś1ÄúŰŔCtŻËó(U

Plain Code

Å1ÃúŰÅCtÅ»Ãó(U

Untitled Visual Basic (13-Aug @ 17:27)

Syntax Highlighted Code

  1. ˆ% €*^  Š% €,^  ¶% €.^  º% €/^  ¼% € _  ¾% €"_  Ä% €$_  È% €&_  ä% €(_  ê% €*_  ò% €,_  ú% €-_  ü% €._  þ% €/_   & €ð_  & €ñ_  & €ò_  & €ó_  & €ô_  
  2. & €õ_   & €ö_  & €÷_  & €                                                                                                                                                                                                                                                         B        ;]  ˜& €<]  š& €=]  œ& €>]  ž& €?]  ¨& € -  ª& €¡-  ²& €¢-  ´& €£-  ¶& €¤-  ¸& €¥-  º& €¦-  ¼& €§-  ¾& €¨-  À& €©-  Â& €ª-  Ä& €«-  Æ& €¬-  È& €­-  Ê& €®-  Ì& €¯-  Î& €0` Ð& €1` Ò& €2` Ô& €3` Ö& €4` Ø& €5` Ú& €6` Ü& €7` Þ& €8` à& €9` â& €:` ä& €                                                                                                                                                                                                                                                         B5       êa  N' €ëa  P' €ìa  R' €ía  T' €îa  V' €ïa  X' €€b  Z' €b  \' €‚b  ^' €ƒb  `' €„b  b' €…b  d' €†b  f' €‡b  h' €ˆb  j' €‰b  l' €Šb  n' €‹b  p' €Œb  r' €b  t' €Žb  v' €b  x' € c  †' €c  ˆ' €c  Š' €c  Œ' €c  Ž' €c  ' €c  ’' €c  ”' €c  –' €    c  ˜' €
  3. c  š' € c  ª' €c  À' €0d  Æ' €2d  Î' €4d  à' €6d  ì' €8d  ð' €:d  ú' €<d  $( €>d   ) €0i  *) €2i  <) €4i  X) €5i  ^) €6i  `) €7i  x) €9i  ¢) €;i  ¦) €=i  ²) €>i  ´) €4d  à' €6d  ì' €8d  ð' €:d  ú' €<d  $( €>d   ) €0i  *) €2i  <) €4i  X) €5i  ^) €@à7 àb ` …Á     ÏúÿßÁ   “õÿßÁ @?   ÀF Ð÷_  & €ø_  & €ù_  & €ú_  & €û_  & €ü_  & €þ_  2& €À`  6& €Á`  8& €Ã`  T& €Ä`  b& €Å`  d& €Æ`  f& €Ç`  h& €È`  j& €É`  l& €Ê`  n& €Ë`  p& €Ì`  r& €Í`  t& €Î`  v& €Ï`  x& €1]  „& €2]  †& €3]  ˆ& €4]  Š& €5]  Œ& €6]  Ž& €7]  & €8]  ’& €9]  ”& €:]  –& €;]  ˜& €<]  š& €=]  œ& €>]  ž& €?]  ¨& € -  ªËÀ& €¡-  ²& €¢-  ´& €£-  ¶& €¤-  ¸& €¥-  º& €¦-  ¼& €§-  ¾& €¨-  À& €©-  Â& €ª-  Ä& €«-  Æ& €¬-  È& €­-  Ê& €®-  Ì& €¯-  Î& €0` Ð& €1` Ò& €2` Ô& €3` Ö& €4` Ø& €5` Ú& €6` Ü& €7` Þ& €8` à& €9` â& € B?   °F Ðï\  2% €`]  4% €b]  8% €c]  :% €d]  <% €e]  >% €f]  @% €g]  B% €h]  D% €i]  F% €j]  H% €k]  J% €l]  L% €m]  N% €n]  P% €o]  R% €À]  T% €Á]  V% €Â]  X% €Ã]  Z% €Ä]  \% €Å]  ^% €Æ]  `% €Ç]  b% €È]  d% €É]  f% €Ê]  h% €Ë]  j% €Ì]  l% €Í]  n% €Î]  p% €Ï]  r% € ^  t% €!^  v% €"^  x% €#^  z% €$^  |% €%^  ~% €&^  €% €'^  ‚% €(^  †% €)^  ˆ% €*^  Š% €,^  ¶% €.^  º% €/^  ¼% € _  ¾% €"_  Ä% €$_  È% €&_  ä% €(_  ê% €*_  ò% €,_  ú% €-_  ü% €._  þ% €/_   & €ð_  & €ñ_  & €ò_  & €ó_  & €ô_  
  4. & €õ_   & €ö_  & € B?   P] ЬF  > €­F  @ €®F  B €¯F  D € G  F €!G  H €"G  J €#G  L €$G  N €%G  P €&G  R €pI   €
  5. [17 more lines...]

Plain Code

Ë% â¬*^  Å % â¬,^  ¶% â¬.^  º% â¬/^  ¼% ⬠_  ¾% â¬"_  Ã% â¬$_  Ã% â¬&_  ä% â¬(_  ê% â¬*_  ò% â¬,_  ú% â¬-_  ü% â¬._  þ% â¬/_   & â¬Ã°_  & â¬Ã±_  & â¬Ã²_  & â¬Ã³_  & â¬Ã´_  
& â¬Ãµ_  & â¬Ã¶_  & â¬Ã·_  & ⬠                                                                                                                                                                                                                                                        B        ;]  Ë& â¬<]  Å¡& â¬=]  Å& â¬>]  ž& â¬?]  ¨& â¬Â -  ª& â¬Â¡-  ²& â¬Â¢-  ´& â¬Â£-  ¶& â¬Â¤-  ¸& â¬Â¥-  º& â¬Â¦-  ¼& â¬Â§-  ¾& â¬Â¨-  Ã& â¬Â©-  Ã& â¬Âª-  Ã& â¬Â«-  Ã& â¬Â¬-  Ã& â¬Â­-  Ã& â¬Â®-  Ã& â¬Â¯-  Ã& â¬0` Ã& â¬1` Ã& â¬2` Ã& â¬3` Ã& â¬4` Ã& â¬5` Ã& â¬6` Ã& â¬7` Ã& â¬8` à& â¬9` â& â¬:` ä& ⬠                                                                                                                                                                                                                                                        B5       êa  N' â¬Ã«a  P' â¬Ã¬a  R' â¬Ã­a  T' â¬Ã®a  V' â¬Ã¯a  X' â¬â¬b  Z' â¬Âb  \' â¬âb  ^' â¬Æb  `' â¬âb  b' â¬â¦b  d' â¬â b  f' â¬â¡b  h' â¬Ëb  j' â¬â°b  l' â¬Å b  n' â¬â¹b  p' â¬Åb  r' â¬Âb  t' â¬Å½b  v' â¬Âb  x' ⬠c  â ' â¬c  Ë' â¬c  Å ' â¬c  Å' â¬c  Ž' â¬c  Â' â¬c  â' â¬c  â' â¬c  â' ⬠   c  Ë' â¬
c  Å¡' â¬c  ª' â¬c  Ã' â¬0d  Ã' â¬2d  Ã' â¬4d  à' â¬6d  ì' â¬8d  ð' â¬:d  ú' â¬<d  $( â¬>d  ) â¬0i  *) â¬2i  <) â¬4i  X) â¬5i  ^) â¬6i  `) â¬7i  x) â¬9i  ¢) â¬;i  ¦) â¬=i  ²) â¬>i  ´) â¬4d  à' â¬6d  ì' â¬8d  ð' â¬:d  ú' â¬<d  $( â¬>d  ) â¬0i  *) â¬2i  <) â¬4i  X) â¬5i  ^) â¬@à7 Âàb ` â¦Ã     ÃúÿÃà   âõÿÃà @?   ÃF Ã÷_  & â¬Ã¸_  & â¬Ã¹_  & â¬Ãº_  & â¬Ã»_  & â¬Ã¼_  & â¬Ã¾_  2& â¬Ã`  6& â¬Ã`  8& â¬Ã`  T& â¬Ã`  b& â¬Ã`  d& â¬Ã`  f& â¬Ã`  h& â¬Ã`  j& â¬Ã`  l& â¬Ã`  n& â¬Ã`  p& â¬Ã`  r& â¬Ã`  t& â¬Ã`  v& â¬Ã`  x& â¬1]  â& â¬2]  â & â¬3]  Ë& â¬4]  Å & â¬5]  Å& â¬6]  Ž& â¬7]  Â& â¬8]  â& â¬9]  â& â¬:]  â& â¬;]  Ë& â¬<]  Å¡& â¬=]  Å& â¬>]  ž& â¬?]  ¨& â¬Â -  ªÃÃ& â¬Â¡-  ²& â¬Â¢-  ´& â¬Â£-  ¶& â¬Â¤-  ¸& â¬Â¥-  º& â¬Â¦-  ¼& â¬Â§-  ¾& â¬Â¨-  Ã& â¬Â©-  Ã& â¬Âª-  Ã& â¬Â«-  Ã& â¬Â¬-  Ã& â¬Â­-  Ã& â¬Â®-  Ã& â¬Â¯-  Ã& â¬0` Ã& â¬1` Ã& â¬2` Ã& â¬3` Ã& â¬4` Ã& â¬5` Ã& â¬6` Ã& â¬7` Ã& â¬8` à& â¬9` â& ⬠B?   °F Ãï\  2% â¬`]  4% â¬b]  8% â¬c]  :% â¬d]  <% â¬e]  >% â¬f]  @% â¬g]  B% â¬h]  D% â¬i]  F% â¬j]  H% â¬k]  J% â¬l]  L% â¬m]  N% â¬n]  P% â¬o]  R% â¬Ã]  T% â¬Ã]  V% â¬Ã]  X% â¬Ã]  Z% â¬Ã]  \% â¬Ã]  ^% â¬Ã]  `% â¬Ã]  b% â¬Ã]  d% â¬Ã]  f% â¬Ã]  h% â¬Ã]  j% â¬Ã]  l% â¬Ã]  n% â¬Ã]  p% â¬Ã]  r% ⬠^  t% â¬!^  v% â¬"^  x% â¬#^  z% â¬$^  |% â¬%^  ~% â¬&^  â¬% â¬'^  â% â¬(^  â % â¬)^  Ë% â¬*^  Å % â¬,^  ¶% â¬.^  º% â¬/^  ¼% ⬠_  ¾% â¬"_  Ã% â¬$_  Ã% â¬&_  ä% â¬(_  ê% â¬*_  ò% â¬,_  ú% â¬-_  ü% â¬._  þ% â¬/_   & â¬Ã°_  & â¬Ã±_  & â¬Ã²_  & â¬Ã³_  & â¬Ã´_  
& â¬Ãµ_  & â¬Ã¶_  & ⬠B?   P] ìF  > â¬Â­F  @ â¬Â®F  B â¬Â¯F  D ⬠G  F â¬!G  H â¬"G  J â¬#G  L â¬$G  N â¬%G  P â¬&G  R â¬pI   â¬
 ð4 â¬I 0à â¬I 0î â¬I 0ð â¬I 0ò â¬I 0ô ⬠   I 0ö â¬
I 0ø â¬I 0v  â¬I 0$ â¬
I 0$ â¬I 0$ â¬I 0R$ â¬BZ  X$ â¬DZ  ¾$ â¬EZ  Ã$ â¬FZ  Ã$ â¬GZ  Ã$ â¬IZ  Ã$ â¬JZ  à$ â¬KZ  â$ â¬LZ  ä$ â¬MZ  æ$ â¬NZ  è$ â¬OZ  ê$ â¬q\  ò$ â¬s\  ö$ â¬u\  ú$ â¬w\  þ$ â¬x\  % â¬y\  % â¬{\  % â¬|\  % â¬}\  % â¬~\  % â¬\  % â¬Ã \  % â¬Ã¡\  % â¬Ã¢\  % â¬Ã£\  % â¬Ã¤\  % â¬Ã¥\  % â¬Ã¦\   % â¬Ã§\  "% â¬Ã¨\  $% â¬Ã©\  &% â¬Ãª\  (% â¬Ã«\  *% â¬Ã¬\  ,% â¬Ã­\  .% â¬Ã®\  0% ⬠B0   P4 0:` ä& â¬;` æ& â¬<` è& â¬=` ê& â¬>` ì& â¬?` î& â¬0a  ð& â¬1a  ò& â¬2a  ô& â¬3a  ö& â¬4a  ø& â¬5a  ú& â¬6a  ü& â¬7a  þ& â¬8a   ' â¬9a  ' â¬:a  ' â¬;a  ' â¬<a  ' â¬=a  
' â¬>a  ' â¬?a  ' â¬â¬a  ' â¬Âa  ' â¬âa  ' â¬Æa  ' â¬âa  ' â¬â¦a  ' â¬â a  ' â¬â¡a  ' â¬Ëa   ' â¬â°a  "' â¬Å a  $' â¬â¹a  &' â¬Åa  (' â¬Âa  *' â¬Å½a  ,' â¬Âa  .' â¬Ã a  :' â¬Ã¡a  <' â¬Ã¢a  >' â¬Ã£a  @' â¬Ã¤a  B' â¬Ã¥a  D' â¬Ã¦a  F' â¬Ã§a  H' â¬Ã¨a  J' â¬Ã©a  L' â¬Ãªa  N' â¬Ã«a  P' â¬Ã¬a  R' â¬Ã­a  T' â¬Ã®a  V' â¬Ã¯a  X' â¬â¬b  Z' â¬Âb  \' â¬âb  ^' â¬Æb  `' â¬âb  b' â¬â¦b  d' â¬â b  f' â¬â¡b  h' â¬Ëb  j' ⬠B?    ` ð8  à â¬;  ¤ â¬;  ® â¬;  ° â¬;  ² â¬;  ´ â¬;  ¸ â¬Â£? ¶ â¬Â©? ^ â¬VD  J â¬XD  N â¬\D  V â¬^D  Z â¬_D  \ â¬E  D â¬TE 0à â¬UE 0à â¬VE 0à â¬WE 0à â¬YE 0à â¬ZE 0à â¬[E 0à â¬\E 0à â¬]E 0à â¬^E 0â â¬_E 0ä â¬ÃE  æ â¬ÃE  ì â¬ÃE  î â¬ÃE  ð â¬ÃE  ò â¬ÃE  ö â¬ÃE  ø â¬ÃE  ú â¬ÃE  ü â¬ÃE    â¬ÃE   â¬ÃE   â¬0F   â¬1F   â¬2F  
 â¬3F   â¬4F   â¬5F   â¬6F   â¬7F   â¬9F   â¬:F   â¬;F   â¬<F   â¬=F    â¬>F  " â¬?F  $ â¬Â F  & â¬Â¡F  ( â¬Â¢F  * â¬Â£F  , â¬Â¤F  . â¬Â¥F  0 â¬Â¦F  2 â¬Â©F  8 â¬ÂªF  : â¬Â«F  < â¬s  â¬# Š¸  $EŸ L ,   ªþŸ    ,ß Å  
³Ÿ  ]åŸ . *ß V &ß Â "ß © ß Ã þ¦Ÿ ä ß ù ·Ÿ  ¿Ÿ B »Ÿ w «Ÿ à ¯Ÿ E ¨üŸ T Wß ~     à â Uß      [㟠+ òšŸ f ú¢Ÿ k 
ÃþŸ l 
à â öžŸ ¦ Sß Ã 掟 ò  Qß  î⟠4 Mß > (ß T eíŸ r _çŸ â cëŸ ³ aéŸ Ã 
à     à  Oß - 
ê⟠.  ôŸ L Y០l ⊟ Å Ãâ Å¸ « ÃjŸ  B                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 B       s  & â¬&  t  ( â¬(  u  * â¬*  v  , â¬,  w  . â¬.  y  2 â¬2  {  6 â¬6  }  : â¬:    > â¬>  á  B â¬B  æ  L â¬L  è  P â¬P  é  R â¬R  ê  T â¬T  @  ` â¬`  A  b â¬b  B  d â¬d  D  h â¬h  E  j â¬j  ç  Ž â¬Å½  é  â â¬â  ì  Ë â¬Ë                                                                                                                                                                                                                                                   B   ÂX @â â¬â   k 0  â¬Â   Ãh 0P â¬P  Ãi 0R â¬R  â¬g 0 ⬠ f 0J â¬J   b ÃÅ     â¬Å      â¬` ÃË
 â¬Ë
  ÂM j â¬j   P 0j â¬j  ÃY 04
 â¬4
  ÃQ 0  ⬠  L º â¬Âº  àE °Ž â¬Å½  I °¾ â¬Â¾  G °Ã â¬Ã  `A 0$ â¬$   D ú â¬Ãº  `E Ãú â¬Ãº   °T â¬T  @; ÃZ â¬Z   1   ⬠ Ã3 Pð â¬Ã°  Â6 Ãf  â¬f   Ã0 pà  â¬Ã   . pL! â¬L!  à â¬Â¢! â¬Â¢!  p( pö! â¬Ã¶!   ' pJ" â¬J"  % pž" â¬Å¾"   " pò" â¬Ã²"  P  â¬F# â¬F#  0 pÅ¡# â¬Å¡#   pî# â¬Ã®#    ÂB$ â¬B$    p $ â¬Â $  à p% â¬%  p p^% â¬^%  ° â¬Ã% â¬Ã%  @O  <& â¬<&   9 °â& â¬â&  p è& â¬Ã¨&    p B       ü
  Ë â¬Ë  à  ¤ â¬Â¤  à  ª â¬Âª  à  ¬ â¬Â¬  à  ® â¬Â®  à  ° â¬Â°  à  ¾ â¬Â¾     à â¬Ã  %  à â¬Ã  '  à â¬Ã  -  à â¬Ã  /  à â¬Ã  â  ä â¬Ã¤  â¢  ê â¬Ãª  \
   ⬠ ]
   ⬠ _
   ⬠ Ã¥ @Å  â¬Å   é @â â¬

Untitled Visual Basic (10-Aug @ 22:02)

Syntax Highlighted Code

  1. www.spamplanet.org

Plain Code

www.spamplanet.org

Untitled Visual Basic (12-Jun @ 17:00)

Syntax Highlighted Code

  1. Dim filedialog As New System.Windows.Forms.OpenFileDialog
  2.     Dim returnedlocation As DialogResult
  3.  
  4.     returnedlocation = filedialog.ShowDialog()
  5. [7 more lines...]

Plain Code

Dim filedialog As New System.Windows.Forms.OpenFileDialog
    Dim returnedlocation As DialogResult

    returnedlocation = filedialog.ShowDialog()

    If returnedlocation = Windows.Forms.DialogResult.OK Then
        If filedialog.CheckFileExists = True And filedialog.CheckPathExists = True Then
            TextBox1.Text = filedialog.FileName
        End If
    End If
End Sub

dfgfdg (6-May @ 21:39)

Syntax Highlighted Code

  1. dgdfgfdgdfgdf

Plain Code

dgdfgfdgdfgdf

Merge Microsoft Word Documents (12-Oct @ 14:18)

desbest.myopenid.com

Syntax Highlighted Code

  1. Sub MergeDocs()
  2.     Dim rng As Range
  3.     Dim MainDoc As Document
  4.     Dim strFile As String
  5. [9 more lines...]

Plain Code

Sub MergeDocs()
    Dim rng As Range
    Dim MainDoc As Document
    Dim strFile As String
    Const strFolder = "C:\Book\Chapters\" 'change to suit
    Set MainDoc = Documents.Add
    strFile = Dir$(strFolder & "*.doc") ' can change to .docx 
    Do Until strFile = ""
        Set rng = MainDoc.Range
        rng.Collapse wdCollapseEnd
        rng.InsertFile strFolder & strFile
        strFile = Dir$()
    Loop
End Sub

Untitled Visual Basic (30-Aug @ 19:22)

Syntax Highlighted Code

  1. textbox1.text()

Plain Code

textbox1.text()

Untitled Visual Basic (10-Jun @ 15:37)

Syntax Highlighted Code

  1.    Set m_MAPO = New MAPO            ' Erst mal die Instanz erzeugen
  2.     Application.AddEventsConsumer m_MAPO    ' Eventklassenbei FlowFact anmelden
  3.  
  4.  
  5. [21 more lines...]

Plain Code

    Set m_MAPO = New MAPO            ' Erst mal die Instanz erzeugen
    Application.AddEventsConsumer m_MAPO    ' Eventklassenbei FlowFact anmelden


commands.add "MAPO","OKarte","ShowMapO","bmpAKT"
commands.add "ROUTE24","Route planen","ShowRoute24","bmpINTERNET"

Sub ShowMapO

'    Set rstOBJDet_Strasse = Application.GetRecordset("Select ObjDet.Eingabe from OBJ inner join OBJDet on OBJ.DSN = OBJDET.OBJ_DSN inner join FLDART on OBJDET.FLDART_DSN = FLDART.DSN where OBJ.DSN = '" & rstAKT("OBJ_DSN") & "' and FLDART.Kürzel = 'StraÃe'")
'    If rstOBJDet_Strasse.Recordcount > 0 Then strStrasse = rstOBJDet_Strasse("Eingabe")
'    Set rstOBJDet_Ort = Application.GetRecordset("Select ObjDet.Eingabe from OBJ inner join OBJDet on OBJ.DSN = OBJDET.OBJ_DSN inner join FLDART on OBJDET.FLDART_DSN = FLDART.DSN where OBJ.DSN = '" & rstAKT("OBJ_DSN") & "' and FLDART.Kürzel = 'LAND_PLZ_ORT'")
'    If rstOBJDet_Ort.Recordcount > 0 Then strOrt = rstOBJDet_Ort("Eingabe")

'    strNotiz = replace(strNotiz, "#adresse#", strStrasse & ", " & strOrt)

' If Application.Panes("F_AKT").DSN<>"" Then
    with Application.Panes("F_AKT")    
        strURL = "http://www.falk.de/stadtplan/stadtplan.jsp?addressCity=S%C3%BCrth&" & "&addressZip=" & .rs("AKT_OBJ_LAND_PLZ") & "&addressStreet=" & .rs("AKT_OBJ_STRAÃE") & "&addressCountry=DEU"
    End with
    commands.execute "HOME",strURL
    application.caption ="FlowFact Karte"
Else
    msgbox "Keine aktive Adresse vorhanden!"
End If
End Sub

Untitled Visual Basic (10-Jun @ 14:27)

Syntax Highlighted Code

  1. Set rstOBJDet_Strasse = Application.GetRecordset("Select ObjDet.Eingabe from OBJ inner join OBJDet on OBJ.DSN = OBJDET.OBJ_DSN inner join FLDART on OBJDET.FLDART_DSN = FLDART.DSN where OBJ.DSN = '" & rstOBJ("OBJ_DSN") & "' and FLDART.Kürzel = 'Straße'")
  2. If rstOBJDet_Strasse.Recordcount > 0 Then strStrasse = rstOBJDet_Strasse("Eingabe")

Plain Code

Set rstOBJDet_Strasse = Application.GetRecordset("Select ObjDet.Eingabe from OBJ inner join OBJDet on OBJ.DSN = OBJDET.OBJ_DSN inner join FLDART on OBJDET.FLDART_DSN = FLDART.DSN where OBJ.DSN = '" & rstOBJ("OBJ_DSN") & "' and FLDART.Kürzel = 'StraÃe'")
If rstOBJDet_Strasse.Recordcount > 0 Then strStrasse = rstOBJDet_Strasse("Eingabe")

vizman (24-Mar @ 14:12)

Syntax Highlighted Code

  1. srg

Plain Code

srg

Untitled Visual Basic (29-Oct @ 12:46)

Syntax Highlighted Code

  1. Option Explicit
  2.  
  3. Private iAantalTransP1, iAantalTransP2, iAantalTransP3, iAantalTransP4, _
  4.     iAantalTransP5, iAantalTransP6, iAantalTransP7, iAantalTransP8, iTotaalAantal As Integer
  5. [40 more lines...]

Plain Code

Option Explicit

Private iAantalTransP1, iAantalTransP2, iAantalTransP3, iAantalTransP4, _
    iAantalTransP5, iAantalTransP6, iAantalTransP7, iAantalTransP8, iTotaalAantal As Integer
    
Private Sub Form_Load()
    Dim naam As String
    naam = InputBox("wat is je naam ?")
    
    While naam <> "einde"
       Select Case InputBox("dag " & naam & ", geef uw vervoerscode in")
            Case 1
                iAantalTransP1 = iAantalTransP1 + 1
            Case 2
                iAantalTransP2 = iAantalTransP2 + 1
            Case 3
                iAantalTransP3 = iAantalTransP3 + 1
            Case 4
                iAantalTransP4 = iAantalTransP4 + 1
            Case 5
                iAantalTransP5 = iAantalTransP5 + 1
            Case 6
                iAantalTransP6 = iAantalTransP6 + 1
            Case 7
                iAantalTransP7 = iAantalTransP7 + 1
            Case 8
                iAantalTransP8 = iAantalTransP8 + 1
        End Select
        iTotaalAantal = iTotaalAantal + 1
        naam = InputBox("wat is je naam ?")
    Wend
    
    TxtProcent1.Text = Format(iAantalTransP1 * 100 / iTotaalAantal, "##.##")
    TxtProcent2.Text = Format(iAantalTransP2 * 100 / iTotaalAantal, "##.##")
    TxtProcent3.Text = Format(iAantalTransP3 * 100 / iTotaalAantal, "##.##")
    TxtProcent4.Text = Format(iAantalTransP4 * 100 / iTotaalAantal, "##.##")
    TxtProcent5.Text = Format(iAantalTransP5 * 100 / iTotaalAantal, "##.##")
    TxtProcent6.Text = Format(iAantalTransP6 * 100 / iTotaalAantal, "##.##")
    TxtProcent7.Text = Format(iAantalTransP7 * 100 / iTotaalAantal, "##.##")
    TxtProcent8.Text = Format(iAantalTransP8 * 100 / iTotaalAantal, "##.##")
    
    
    
End Sub

Untitled Visual Basic (27-Sep @ 20:00)

Syntax Highlighted Code

  1. Dim x As Integer
  2. x = 5
  3. MsgBox(x*5)

Plain Code

Dim x As Integer
x = 5
MsgBox(x*5)

Untitled Visual Basic (26-Aug @ 19:28)

Syntax Highlighted Code

  1. msgbox "ola mundo"

Plain Code

msgbox "ola mundo"

Untitled Visual Basic (28-Jul @ 18:43)

Syntax Highlighted Code

  1. <%
  2. '---------------------------------------------------------------------------------------------
  3. ' SOOP 2.0 - Phoenix (TNG)
  4. '
  5. [351 more lines...]

Plain Code

<%
'---------------------------------------------------------------------------------------------
' SOOP 2.0 - Phoenix (TNG)
'
' Revision 2.00 - initial 15/02/2008
'
' SOOPPortal All Rights Reserved - Other copyrights as mentioned in sources or joined licences
'---------------------------------------------------------------------------------------------
' QuickTools For SooP Phoenix 2.0 V1.0                                                          
' Written By Ph4nt0m                                                                          
' Based on original QuickTools for SooP V1 by Q                                                  
'---------------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------------
    
function Module_QuickTools(blnToggleModule,Module_Permission, Module_ID, Module_Parameters)
    
    if Module_Permission = 0 Then exit Function
    If Module_Parameters = "" Then exit Function
    
    'Define Variables
    Dim strBoxTitle,blnShowEmail,blnShowBookmark,blnShowPrintpage,blnShowContact,blnShowQContact
    Dim strSendPage,strSendQuickCommentsEmailTo,strSendEmailTo,strSendFromEmail,strBookMarkTitle
    Dim strYourEmailAddress,strQCemailsender,sTempName,arrUser,ssql,strContactURL
    Dim strCustomTitle1, strCustomLink1, strCustomTitle2, strCustomLink2, strCustomTitle3, strCustomLink3
    
    If ubound(split(Module_Parameters, ",")) <> 8 Then Exit Function
    %>
    <!--#include file="languages/QuickTools_Language.asp"-->
    <%
    'Get Module Parameters
    strBoxTitle = cor.filter.checkStr(split(Module_Parameters,",")(0))
    blnShowBookmark = CBool(split(Module_Parameters,",")(1))
    blnShowPrintpage = CBool(split(Module_Parameters,",")(2))
    blnShowContact = CBool(split(Module_Parameters,",")(3))
    blnShowEmail = CBool(split(Module_Parameters,",")(4))
    blnShowQContact = CBool(split(Module_Parameters,",")(5))
    strSendQuickCommentsEmailTo = cor.filter.checkStr(split(Module_Parameters,",")(6))
    strSendFromEmail = cor.filter.checkStr(split(Module_Parameters,",")(7))
    strContactURL = cor.filter.checkStr(split(Module_Parameters,",")(8))

    
    ' Load language files
    cor.lng.includeSection("mod_xmlQuickTools")
    
    ' Check to see if user has a email address
    If cor_sLoggedInUserEmail = "" Then
    strYourEmailAddress = strYourEmailAddressLabel
    Else
    strYourEmailAddress = cor_sLoggedInUserEmail
    End If
    
    ' Check to see if the user has a real name
    ssql = "SELECT mname FROM " & cor_dbpre & "members WHERE mid = {0}"
            cor.dal.open arrUser, ssql, array(cor_lUserID)
            if Not cor.butil.eof(arrUser) Then 
                sTempName = arrUser(0,0)
                if instr(sTempName," ")> 0 Then 
                    sTempName = left(sTempName,instrRev(sTempName," ")-1)
                end If
            Else
                sTempName = cor_sLoggedInUsername
            end If
            If sTempName = "" then sTempName = cor_sLoggedInUsername
            sTempName = ucase(left(sTempName,1)) & mid(sTempName,2)
            strQCemailsender = sTempName
    
    ' Javascript functions for forms etc
    %>
        <script type="text/javascript" src="<%= cor_sWebroot %>mods/jscss/jquery.livequery.js"></script>
        <script language="JavaScript">
        function addBookmark(title,url) { 
        if (window.sidebar) { 
        window.sidebar.addPanel(title, url,''); 
        } else if( document.all ) { 
        window.external.AddFavorite( url, title); 
        } else if( window.opera && window.print ) { 
        return true; 
        } 
        } 
        
        // prepare the form when the DOM is ready 
        $(document).ready(function() { 
            var options = { 
                target:        '#responsediv',   // target element(s) to be updated with server response 
                success:       showResponse  // post-submit callback 
            };
        
        // bind to form's submit events
        
        $('#qcmailus').submit(function() {
            $(this).ajaxSubmit(options);
                return false;
            });
            
        $('#epmailus').submit(function() {
            $(this).ajaxSubmit(options);
                return false;
            });
            
        $('#qcreturn').submit(function() {
            $(this).ajaxSubmit(options); 
                return false; 
            }); 
            
        $('#epreturn').submit(function() {
            $(this).ajaxSubmit(options); 
                return false; 
            }); 
        
        // Animate divs
        
        $('#qcmailus').submit(function () {
            $("#bookmarkdiv").slideUp("slow");
            $("#printpagediv").slideUp("slow");
            $("#contactdiv").slideUp("slow")
              $("#emailpagelink").slideUp("slow");
              $("#contactlink").slideUp("slow");
            $("#emailpagediv").slideUp("slow");
            $("#quickcontactdiv").slideUp("slow");
            $("#responsediv").show("slow");
            $("#qcreturndiv").show("slow");
            $("#epreturndiv").slideUp("slow");
        });
        
        $('#epmailus').submit(function () {
            $("#bookmarkdiv").slideUp("slow");
            $("#printpagediv").slideUp("slow");
            $("#contactdiv").slideUp("slow")
              $("#emailpagelink").slideUp("slow");
              $("#contactlink").slideUp("slow");
            $("#emailpagediv").slideUp("slow");
            $("#quickcontactdiv").slideUp("slow");
            $("#responsediv").show("slow");
            $("#qcreturndiv").slideUp("slow");
            $("#epreturndiv").show("slow");
        });
        
        $('#epreturn').submit(function () {
            $("#bookmarkdiv").slideUp("slow");
            $("#printpagediv").slideUp("slow");
            $("#contactdiv").slideUp("slow")
              $("#emailpagelink").show("slow");
              $("#contactlink").slideUp("slow");
            $("#emailpagediv").show("slow");
            $("#quickcontactdiv").slideUp("slow");
            $("#responsediv").slideUp("slow");
            $("#qcreturndiv").slideUp("slow");
            $("#epreturndiv").slideUp("slow");
        });
        
        $('#qcreturn').submit(function () {
            $("#bookmarkdiv").slideUp("slow");
            $("#printpagediv").slideUp("slow");
            $("#contactdiv").slideUp("slow")
              $("#emailpagelink").slideUp("slow");
              $("#contactlink").show("slow");
            $("#emailpagediv").slideUp("slow");
            $("#quickcontactdiv").show("slow");
            $("#responsediv").slideUp("slow");
            $("#qcreturndiv").slideUp("slow");
            $("#epreturndiv").slideUp("slow");
        });
        
        // Animate QC div toggle
        $(".contact").click(function () {
              $("#quickcontactdiv").slideToggle("slow");
              $("#captchadiv").slideToggle("slow");
              $("#emailpagelink").slideToggle("slow");
              $("#bookmarkdiv").slideToggle("slow");
              $("#printpagediv").slideToggle("slow");
              $("#contactdiv").slideToggle("slow");
              $("#qcimg").slideToggle(100);
              $("#qcimg2").slideToggle(100);
        });
        
        // Animate Email Page Div Toggle
        $(".email").click(function () {
              $("#captchadiv").slideToggle("slow");
              $("#emailpagediv").slideToggle("slow");
              $("#contactlink").slideToggle("slow");
              $("#bookmarkdiv").slideToggle("slow");
              $("#printpagediv").slideToggle("slow");
              $("#contactdiv").slideToggle("slow");
              $("#epimg").slideToggle(100);
              $("#epimg2").slideToggle(100);
        });
        
        });
         
        // post-submit callback 
        function showResponse(responseText, statusText)  {
        alert('status: ' + statusText + '\n\nresponseText: \n' + responseText +
        '\n\nThe output div should have already been updated with the responseText.');
        };
        
        </script>
        <%
'
    ' Get current URL for send page via email
    strSendPage = "http://" & request.servervariables("SERVER_NAME") & Request.Servervariables("SCRIPT_NAME") & "?" & Request.ServerVariables("QUERY_STRING")
    
    'Set Module Box
    Dim Module_Name : Module_Name = "QuickTools"
    Dim Header_Text : Header_Text = strBoxTitle 
    Dim Module_Hide : Module_Hide = blnToggleModule 
    Dim Module_tool_Tip : Module_tool_Tip = True
    Dim Module_Tool_Tip_Text : Module_Tool_Tip_Text = cor_sModTT
        
        'Main HTML For Module   
        cor.str.add "<dl>"
        If blnShowBookmark Then
        cor.str.add "<div id=""bookmarkdiv"">"
        cor.str.add "<dd class=""smText"" style=""float:left;"">"
        cor.str.add "<img style=""padding-left:5px; padding-right:5px"" src=""" & cor_sSkinImg & "topic_last.gif"">"
        cor.str.add "</dd>"
        cor.str.add "<dd class=""smText"">"
        cor.str.add "<a class=""SmLink"" href=""javascript:addBookmark('" & lngWebSiteTitle & "','http://" & Request.ServerVariables("Server_Name") & Request.ServerVariables("Script_Name") & "?" & Request.QueryString() & "')"">" & lngQTBookmarkPage & "</a>"
        cor.str.add "</dd>"
        cor.str.add "</div>"
        End If
        If blnShowPrintpage Then
        cor.str.add "<div id=""printpagediv"">"
        cor.str.add "<dd class=""smText"" style=""float:left;"">"
        cor.str.add "<img style=""padding-left:5px; padding-right:5px"" src=""" & cor_sSkinImg & "topic_last.gif"">"
        cor.str.add "</dd>"
        cor.str.add "<dd class=""smText"">"
        cor.str.add "<a href=""javascript:print()"">" & lngQTPrintPage & "</a>"
        cor.str.add "</dd>"
        cor.str.add "</div>"
        End If
        If blnShowContact Then
        cor.str.add "<div id=""contactdiv"">"
        cor.str.add "<dd class=""smText"" style=""float:left;"">"
        cor.str.add "<img style=""padding-left:5px; padding-right:5px"" src=""" & cor_sSkinImg & "topic_last.gif"">"
        cor.str.add "</dd>"
        cor.str.add "<dd class=""smText"">"
        cor.str.add "<a class=""openwn"" href=""" & strContactURL & """>" & lngQTContactPage & "</a>"
        cor.str.add "</dd>"
        cor.str.add "</div>"
        End If
        If blnShowEmail Then
        cor.str.add "<div id=""emailpagelink"">"
        cor.str.add "<dd class=""smText"" style=""float:left;"">"
        cor.str.add "<img id=""epimg"" style=""padding-left:5px; padding-right:5px"" src=""" & cor_sSkinImg & "topic_last.gif"">"
        cor.str.add "<a href=""javascript:void(0)"" class=""email""><img id=""epimg2"" style=""padding-left:5px; padding-right:5px; display:none;"" src=""" & cor_sSkinImg & "hide_min.gif""></a>"
        cor.str.add "</dd>"
        cor.str.add "<dd class=""smText"">"
        cor.str.add "<a href=""javascript:void(0)"" class=""email"">" & lngQTEmailPage & "</a>"
        cor.str.add "</dd>"
        cor.str.add "</div>"
        End If
        If blnShowQContact Then
        cor.str.add "<div id=""contactlink"">"
        cor.str.add "<dd class=""smText"" style=""float:left;"">"
        cor.str.add "<img id=""qcimg"" style=""padding-left:5px; padding-right:5px"" src=""" & cor_sSkinImg & "topic_last.gif"">"
        cor.str.add "<a href=""javascript:void(0)"" class=""contact""><img id=""qcimg2"" style=""padding-left:5px; padding-right:5px; display:none;"" src=""" & cor_sSkinImg & "hide_min.gif""></a>"
        cor.str.add "</dd>"
        cor.str.add "<dd class=""smText"">"
        cor.str.add "<a href=""javascript:void(0)"" class=""contact"">" & lngQTQCus & "</a>"
        cor.str.add "</dd>"
        cor.str.add "</div>"
        End If
        If blnShowEmail Then
        cor.str.add "<div id=""emailpagediv"" style=""display:none;"">"
        cor.str.add "<form method=""post"" action=""qmail.asp"" id=""epmailus"">"
        cor.str.add "<input Type=""hidden"" name=""faction"" Value=""epage"">"
        cor.str.add "<input type=""hidden"" name=""sessionName"" value=""" & cor.filter.encrypt("qcc") & """>"
        cor.str.add "<input type=""hidden"" name=""strlink"" value=""" & strSendPage & """>"
        cor.str.add "<dl>"
        cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
        cor.str.add lngQTYourName & "<br /><Input class=""input"" Type=""text"" name=""name"" Value=""" & strQCemailsender & """ Size=""22"">"
        cor.str.add "</dt>"
        cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
        cor.str.add lngQTYourEmailAddress & "<br /><Input class=""input"" Type=""text"" name=""email"" Value=""" & strYourEmailAddress & """ Size=""22"">"
        cor.str.add "</dt>"
        cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
        cor.str.add lngQTEmailTo & "<br /><Input class=""input"" onFocus=""this.value=''"" Type=""text"" id=""toemail"" name=""toemail"" Value="""" Size=""22"">"
        cor.str.add "</dt>"
        cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
        cor.str.add "<Textarea class=""input"" name=""comment"" Cols=""20"" Rows=""5"" Wrap=""SOFT"">" & lngQTHeyIFound & "</Textarea>"
        cor.str.add "</dt>"
        cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
        cor.str.add "<img id=""secureImages" & cor.filter.encrypt("qcc") & """ src=""" & cor_sWebroot & "securecode.asp?r=" & clng(Rnd * 10000000) & "&id=" & cor.filter.encrypt("qcc") & """ alt="""" /><br />"
        cor.str.add "<a href=""javascript:void(0)"" class=""secureImg"" rel=""" & cor.filter.encrypt("qcc") & """>" & lngTextReload & "</a><br />"
        cor.str.add lngConfirmSecurityCode & "<br /><input onFocus=""this.value=''"" type=""text"" id=""securityCode"" value="""" name=""securityCode"" class="""" />"
        cor.str.add "</dt>"
        cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
        cor.str.add "<Input Class=""frmButton"" Type=""submit"" Name=""epSendComments"" Value=""" & lngQTSendEmail & """>"
        cor.str.add "</dt>"
        cor.str.add "</dl>"
        cor.str.add "</form>"
        cor.str.add "</div>"
        End If
        If blnShowQContact Then
        cor.str.add "<form method=""post"" action=""qmail.asp"" id=""qcmailus"">"
        cor.str.add "<div id=""quickcontactdiv"" style=""display:none;"">"
        cor.str.add "<input Type=""hidden"" name=""faction"" Value=""cpage"">"
        cor.str.add "<dl>"
        cor.str.add "<dd class=""smText"">"
        cor.str.add "</dd>"
        cor.str.add "<dt class=""smText"" style=""width:80%; text-align:center; margin-left:10%; margin-right:10%; border-style:dashed; border-width:thin"">"
          cor.str.add lngQTHaveAQuestion
        cor.str.add "</dt>"
        cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
        cor.str.add lngQTYourEmailAddress & "<br /><Input onFocus=""this.value=''"" class=""input"" Type=""text"" name=""email"" Value=""" & strYourEmailAddress & """ Size=""22"">"
        cor.str.add "</dt>"
        cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
        cor.str.add "<Textarea class=""input"" onFocus=""this.value=''"" name=""comment"" Cols=""20"" Rows=""5"" Wrap=""SOFT"">" & lngQTEnterYourComment & "</Textarea>"
        cor.str.add "</dt>"
        cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
        cor.str.add "<img id=""secureImages" & cor.filter.encrypt("epc") & """ src=""" & cor_sWebroot & "securecode.asp?r=" & clng(Rnd * 10000000) & "&id=" & cor.filter.encrypt("epc") & """ alt="""" /><br />"
        cor.str.add "<a href=""javascript:void(0)"" class=""secureImg"" rel=""" & cor.filter.encrypt("epc") & """>" & lngTextReload & "</a><br />"
        cor.str.add lngConfirmSecurityCode & "<br /><input onFocus=""this.value=''"" type=""text"" id=""securityCode"" value="""" name=""securityCode"" class="""" />"
        cor.str.add "</dt>"
        cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
        cor.str.add "<Input Class=""frmButton"" Type=""submit"" Name=""qcSendComments"" Value=""" & lngQTSendEmail & """>"
        cor.str.add "<input type=""hidden"" name=""subject"" value=""" & lngQTNewQCEmail & """>"
        cor.str.add "<input type=""hidden"" name=""toemail"" value=""" & strSendQuickCommentsEmailTo & """>"
        cor.str.add "<input type=""hidden"" name=""sessionName"" value=""" & cor.filter.encrypt("epc") & """>"
        cor.str.add "</dt>"
        cor.str.add "</dl>"
        cor.str.add "</div>"
        cor.str.add "</form>"
        End If
        If blnShowQContact Or blnShowEmail Then
        cor.str.add "<div id=""responsediv"" style=""display:none;"">"
        cor.str.add "<dl class=""text"" id=""responsedivchild"" style=""padding:15px; text-align:center"">"
        cor.str.add "<img id=""loading"" src=""" & cor_sSkinImg & "ajax_busy.gif"">"
        cor.str.add "</dl>"
        cor.str.add "</div>"
        End If
        If blnShowQContact Then
        cor.str.add "<dl class=""text"" id=""qcreturndiv"" style=""display:none; padding-left:10px;"">"
        cor.str.add "<form method=""post"" id=""qcreturn"" action=""qmail.asp"">"
        cor.str.add "<Input Class=""frmButton"" Type=""submit"" Name=""Back"" Value=""Back"">"
        cor.str.add "</form>"
        cor.str.add "</dl>"
        End If
        If blnShowEmail Then
        cor.str.add "<dl class=""text"" id=""epreturndiv"" style=""display:none; padding-left:10px;"">"
        cor.str.add "<form method=""post"" id=""epreturn"" action=""qmail.asp"">"
        cor.str.add "<Input Class=""frmButton"" Type=""submit"" Name=""Back"" Value=""Back"">"
        cor.str.add "</form>"
        cor.str.add "</dl>"
        End If
        cor.str.add "</dl>"
        'cor.str.add "</div>"

    '===========================================================
    call cor.modbox.printBox(blnToggleModule,Module_Hide,Module_tool_Tip,Module_Name,Module_ID,Header_Text,cor.str.build,Module_Tool_Tip_Text)
end Function
'
'<#late-binding hook (do not remove)
function boot_Module_QuickTools : boot_Module_QuickTools = true : end function
'/>
%>