Results 1 to 18 of 18

Thread: Why am I getting a type mismatch here!? [resolved]

  1. Jul 20th, 2004, 01:33 PM #1
    simonp
    simonp is offline

    Thread Starter
    Hyperactive Member
    Join Date
    Feb 2000
    Location
    the UK
    Posts
    265

    Question Why am I getting a type mismatch here!? [resolved]

    I'm using this code to display a random advert in a form (either ad1.bmp, ad2.bmp or ad3.bmp) but it keeps failing with a compile error - type mismatch at the last & sign in the code.

    Any ideas why?

    Simon

    Code:
    Private Function RandomInteger(Lowerbound As Integer, Upperbound As Integer) As Integer
    RandomInteger = Int((Upperbound - Lowerbound + 1) * Rnd + Lowerbound)
End Function
    Code:
    Randomize
picAdvert.Picture = (App.Path & "/ad" & RandomInteger(1, 3) & ".bmp")
    Last edited by simonp; Jul 20th, 2004 at 02:20 PM.
    Reply With Quote Reply With Quote
  2. Jul 20th, 2004, 01:38 PM #2
    Pino
    Pino is offline
    PowerPoster
    Join Date
    Dec 2003
    Posts
    4,787
    which line was the error on?
    Reply With Quote Reply With Quote
  3. Jul 20th, 2004, 01:39 PM #3
    simonp
    simonp is offline

    Thread Starter
    Hyperactive Member
    Join Date
    Feb 2000
    Location
    the UK
    Posts
    265
    picAdvert.Picture = (App.Path & "/ad" & RandomInteger(1, 3) & ".bmp")

    there!
    Reply With Quote Reply With Quote
  4. Jul 20th, 2004, 01:53 PM #4
    MartinLiss
    MartinLiss is offline
    Former Admin/Moderator MartinLiss's Avatar
    Join Date
    Sep 1999
    Location
    San Jose, CA
    Posts
    33,431
    One thing that is wrong is

    picAdvert.Picture = (App.Path & "\ad" & RandomInteger(1, 3) & ".bmp")
    Tips, Examples & Tutorials:
    A valuable forum tool • Generate unique TreeView keys • TreeView with "open" and "closed folder" icons • Time code using GetTickCount • How to trap the Tab key • Scroll a form • NumberBox ActiveX control • Color a ListView row • An InputBox form • How to use SaveSetting and GetSetting • A program registration scheme • Spellcheck a Textbox • Resize controls • Open Windows Explorer at Last Visited Path • A Blackjack Game • Count lines of code • Private Message Viewer • Copy/Paste VB Code • Paste VB Code Add-In • Insert Procedure Names Add-In • A calculator for the game of Spider • My review of REALbasic 2008 • VB6 Debug Tutorial • Picture/Video Viewer • VBF Photo Contest Winners


    2009 - 2016
    Reply With Quote Reply With Quote
  6. Jul 20th, 2004, 01:55 PM #5
    Pino
    Pino is offline
    PowerPoster
    Join Date
    Dec 2003
    Posts
    4,787
    would that solve the mismatch?
    Reply With Quote Reply With Quote
  7. Jul 20th, 2004, 01:56 PM #6
    simonp
    simonp is offline

    Thread Starter
    Hyperactive Member
    Join Date
    Feb 2000
    Location
    the UK
    Posts
    265
    Thanks Martin - same problem with the mismatch though

    I can get the random number ok - just doesn't seem to like it in that line

    Simon
    Reply With Quote Reply With Quote
  8. Jul 20th, 2004, 01:58 PM #7
    Pino
    Pino is offline
    PowerPoster
    Join Date
    Dec 2003
    Posts
    4,787
    maybe you should do this...


    VB Code:
    1. dim number as long

    2.  
    3. number = randominteger(1,3)

    4.  
    5. picAdvert.Picture = (App.Path & "\ad" & number & ".bmp")
    Reply With Quote Reply With Quote
  9. Jul 20th, 2004, 02:00 PM #8
    simonp
    simonp is offline

    Thread Starter
    Hyperactive Member
    Join Date
    Feb 2000
    Location
    the UK
    Posts
    265
    type mismatch in exactly the same place!

    How bizarre?!

    Simon
    Reply With Quote Reply With Quote
  11. Jul 20th, 2004, 02:01 PM #9
    Pino
    Pino is offline
    PowerPoster
    Join Date
    Dec 2003
    Posts
    4,787
    at the point before oppening the app whats the value of the random number?
    Reply With Quote Reply With Quote
  12. Jul 20th, 2004, 02:01 PM #10
    MartinLiss
    MartinLiss is offline
    Former Admin/Moderator MartinLiss's Avatar
    Join Date
    Sep 1999
    Location
    San Jose, CA
    Posts
    33,431
    Oh, I know what the problem is - remove the parentheses.
    Tips, Examples & Tutorials:
    A valuable forum tool • Generate unique TreeView keys • TreeView with "open" and "closed folder" icons • Time code using GetTickCount • How to trap the Tab key • Scroll a form • NumberBox ActiveX control • Color a ListView row • An InputBox form • How to use SaveSetting and GetSetting • A program registration scheme • Spellcheck a Textbox • Resize controls • Open Windows Explorer at Last Visited Path • A Blackjack Game • Count lines of code • Private Message Viewer • Copy/Paste VB Code • Paste VB Code Add-In • Insert Procedure Names Add-In • A calculator for the game of Spider • My review of REALbasic 2008 • VB6 Debug Tutorial • Picture/Video Viewer • VBF Photo Contest Winners


    2009 - 2016
    Reply With Quote Reply With Quote
  13. Jul 20th, 2004, 02:03 PM #11
    simonp
    simonp is offline

    Thread Starter
    Hyperactive Member
    Join Date
    Feb 2000
    Location
    the UK
    Posts
    265
    Same problem Martin (tried that before).

    Pino - not sure what you mean there - the random number part works fine (tested with a msgbox)

    SImon
    Reply With Quote Reply With Quote
  14. Jul 20th, 2004, 02:04 PM #12
    simonp
    simonp is offline

    Thread Starter
    Hyperactive Member
    Join Date
    Feb 2000
    Location
    the UK
    Posts
    265
    Incidently, this works fine:

    Code:
    MsgBox App.Path & "\ad" & RandomInteger(1, 3) & ".bmp"
    Reply With Quote Reply With Quote
  15. Jul 20th, 2004, 02:05 PM #13
    MartinLiss
    MartinLiss is offline
    Former Admin/Moderator MartinLiss's Avatar
    Join Date
    Sep 1999
    Location
    San Jose, CA
    Posts
    33,431
    Put together a small project that demonstrates the problem, zip it up and post it. Please make sure to include the bmps.
    Tips, Examples & Tutorials:
    A valuable forum tool • Generate unique TreeView keys • TreeView with "open" and "closed folder" icons • Time code using GetTickCount • How to trap the Tab key • Scroll a form • NumberBox ActiveX control • Color a ListView row • An InputBox form • How to use SaveSetting and GetSetting • A program registration scheme • Spellcheck a Textbox • Resize controls • Open Windows Explorer at Last Visited Path • A Blackjack Game • Count lines of code • Private Message Viewer • Copy/Paste VB Code • Paste VB Code Add-In • Insert Procedure Names Add-In • A calculator for the game of Spider • My review of REALbasic 2008 • VB6 Debug Tutorial • Picture/Video Viewer • VBF Photo Contest Winners


    2009 - 2016
    Reply With Quote Reply With Quote
  16. Jul 20th, 2004, 02:10 PM #14
    simonp
    simonp is offline

    Thread Starter
    Hyperactive Member
    Join Date
    Feb 2000
    Location
    the UK
    Posts
    265
    wow - this is driving me crazy!

    Here you go folks.

    Simon

    (attachment deleted - resolved)
    Last edited by simonp; Jul 20th, 2004 at 02:21 PM.
    Reply With Quote Reply With Quote
  17. Jul 20th, 2004, 02:18 PM #15
    Pino
    Pino is offline
    PowerPoster
    Join Date
    Dec 2003
    Posts
    4,787
    done...


    VB Code:
    1. picAdvert.Picture = LoadPicture(App.Path & "/ad" & RandomInteger(1, 3) & ".bmp")

    Reply With Quote Reply With Quote
  18. Jul 20th, 2004, 02:20 PM #16
    simonp
    simonp is offline

    Thread Starter
    Hyperactive Member
    Join Date
    Feb 2000
    Location
    the UK
    Posts
    265
    oh what a fool

    I can't believe I missed that!

    Thanks pino

    Simon
    Reply With Quote Reply With Quote
  19. Jul 20th, 2004, 02:21 PM #17
    Pino
    Pino is offline
    PowerPoster
    Join Date
    Dec 2003
    Posts
    4,787
    add resolved to your title .. Please

    edit - you beat me to it
    Reply With Quote Reply With Quote
  20. Jul 20th, 2004, 02:22 PM #18
    simonp
    simonp is offline

    Thread Starter
    Hyperactive Member
    Join Date
    Feb 2000
    Location
    the UK
    Posts
    265
    already done
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules


Click Here to Expand Forum to Full Width