Announcement

Collapse
No announcement yet.

Error 15

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Error 15

    hi,
    i can't fix the problem, i've tried to create a clock with the visi programm, but after the download to ram was successful, the display just says error 15

    this is my programm, the half is copied from the clock example:
    (and the problem is i'm not very adept in programming)

    #platform "uLCD-32PT_GFX2"

    #inherit "4DGL_16bitColours.fnc"

    #inherit "VisualConst.inc"

    #inherit "Standartanzeige_visi_1Const.inc"

    func main()
    // Uncomment the following if uSD images used.

    putstr("Mounting...\n");
    if (!(disk:=file_Mount()))
    while(!(disk :=file_Mount()))
    putstr("Drive not mounted...");
    pause(200);
    gfx_Cls();
    pause(200);
    wend
    endif


    var numh,numm,ledDigitsDisplay;

    gfx_TransparentColour(0x0020);
    gfx_Transparency(ON);

    hndl := file_LoadImageControl("Standartanzeige_visi_1.dat", "Standartanzeige_visi_1.gci", 1);
    gfx_Cls();



    // Standartanzeige_visi_1 generated 03.01.2012 18:52:38

    // Leddigits1 generated 03.01.2012 18:52:38
    img_Show(hndl, iLeddigits1); // show all digits at 0, only do this once
    ledDigitsDisplay(numh, iLeddigits1+1, 69, 2, 1, 27, 0 ) ;

    // Label1 generated 03.01.2012 18:52:38
    txt_FontID(FONT3) ;
    txt_Width(2) ;
    txt_Height(2) ;
    txt_FGcolour(LIME) ;
    txt_BGcolour(BLACK) ;
    gfx_MoveTo(120, 150) ;
    putstr(":") ;
    txt_Width(1) ;
    txt_Height(1) ;

    // Leddigits2 generated 03.01.2012 18:52:38
    img_Show(hndl, iLeddigits2); // show all digits at 0, only do this once
    ledDigitsDisplay(numm, iLeddigits2+1, 137, 2, 1, 27, 0 ) ;

    numh := 0 ;
    numm := 0 ;

    repeat

    numm ++ ;
    if (numm == 60)
    numm := 0 ;
    numh ++ ;
    if (numh == 24)
    numh := 0 ;
    endif
    ledDigitsDisplay(numh, iLeddigits1+1, 4, 2, 2, 34, 0 ) ;
    endif
    ledDigitsDisplay(numm, iLeddigits2+1, 84, 2, 2, 34, 0 ) ;



    pause(60000) ;
    forever


    endfunc

    thanks for help


  • #2


    ok one problem i've founded

    i've forgot to #inherit "ledDigitsDisplay.inc" now i don't have the error anymore

    but it's still doesn't run?? the programm doesn't give out the ledDigits???

    Comment


    • #3


      4DGL does not support long filenames, hence the statement

      hndl := file_LoadImageControl("Standartanzeige_visi_1.dat", "Standartanzeige_visi_1.gci", 1);

      Will fail.

      If you used Save-As Workshop should have 'automatically' placed the equivalent short filename there, so it looks like you manually changed this.

      Start a command prompt and do a dir/x against the uSD card, this will list the short filenames of these files.
      Mark

      Comment


      • #4


        thats it !
        thanks so much !

        Comment

        Working...
        X