Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 2nd, 2012  |  syntax: None  |  size: 1.28 KB  |  hits: 15  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. Dim Stations(0 To 5) As String
  2. Dim I As Integer
  3. Dim Songs(0 To 5, 0 To 3) As String
  4.  
  5.  
  6. Private Sub Form_Load()
  7.  
  8. Stations(0) = "Radio One"
  9. Stations(1) = "Capital"
  10. Stations(2) = "Radio Two"
  11. Stations(3) = "Tower FM"
  12. Stations(4) = "DubTrust Grove"
  13. Stations(5) = "Metal"
  14.  
  15. Songs(0, 0) = "Baa Baa Black Sheep Artist JavaJingle"
  16. Songs(0, 1) = "Stairway to Heaven Artist Lead Balloon"
  17. Songs(0, 2) = "Teletubbies Artist CBBC"
  18. Songs(0, 3) = "Chocolate Death Artist The Cadbury Boys"
  19.  
  20. Songs(1, 0) = "Rolling in the Deep Artist Adele"
  21. Songs(1, 1) = "Another one Artist BooBoo"
  22. Songs(1, 2) = "a"
  23. Songs(1, 3) = "b"
  24. Songs(2, 0) = "c"
  25. Songs(2, 1) = "d"
  26. Songs(2, 2) = "e"
  27. Songs(2, 3) = "f"
  28. Songs(3, 0) = "g"
  29. Songs(3, 1) = "h"
  30. Songs(3, 2) = "i"
  31. Songs(3, 3) = "j"
  32. Songs(4, 0) = "c"
  33. Songs(4, 1) = "d"
  34. Songs(4, 2) = "e"
  35. Songs(4, 3) = "f"
  36. Songs(5, 0) = "g"
  37. Songs(5, 1) = "h"
  38. Songs(5, 2) = "i"
  39. Songs(5, 3) = "j"
  40. labelnick.Caption = Stations(0)
  41.  
  42. End Sub
  43.  
  44. Private Sub nextcmd_Click()
  45. I = I + 1
  46.     If I < 6 Then
  47.     labelnick.Caption = Stations(I)
  48.     Else
  49.     I = 5
  50.     labelnick.Caption = Stations(5)
  51. End If
  52. End Sub
  53.  
  54. Private Sub precmd_Click()
  55. I = I - 1
  56.     If I > -1 Then
  57.     labelnick.Caption = Stations(I)
  58.     Else
  59.     I = 0
  60.     labelnick.Caption = Stations(0)
  61. End If
  62. End Sub
create a new version of this paste RAW Paste Data