B4R Tutorial SSD1306 Animated Image

Based on SSD1306 module, we can display animated images the same as displaying animated GIF on PC. The animated image is a byte array contains (n) number of frames(bitmap images) they all have the same size. the function displays these frames one after another so we see them animated.
Please note that this function displays the animated image one time, so if we want to repeat it n times or forever we have to use timer.

this code example display 19x16 animated bluetooth image at 109,34 with 100ms interval between frames with no bit inversion.

    Private animBitmap () As Byte = Array As Byte ( _ 'animated  bluetooth bitmap, 19x16 per frame x 4 frames
0x08,0x18,0x30,0x60,0xC0,0xFF,0xC6,0x6C,0x38,0x10,0x00,0x00,0x00,0x00,0x00,0x00, _
0x00,0x00,0x00,0x10,0x18,0x0C,0x06,0x03,0xFF,0x63,0x36,0x1C,0x08,0x00,0x00,0x00, _
0x00,0x00,0x00,0x00,0x00,0x00,0x08,0x18,0x30,0x60,0xC0,0xFF,0xC6,0x6C,0x38,0x10, _
0x00,0x40,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x10,0x18,0x0C,0x06,0x03,0xFF,0x63, _
0x36,0x1C,0x08,0x00,0x02,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x08,0x18,0x30,0x60, _
0xC0,0xFF,0xC6,0x6C,0x38,0x10,0x00,0x40,0x90,0x30,0x60,0xC0,0x00,0x00,0x00,0x10, _
0x18,0x0C,0x06,0x03,0xFF,0x63,0x36,0x1C,0x08,0x00,0x02,0x09,0x0C,0x06,0x03,0x00, _
0x00,0x00,0x08,0x18,0x30,0x60,0xC0,0xFF,0xC6,0x6C,0x38,0x10,0x00,0x40,0x90,0x30, _
0x64,0xCC,0x18,0x70,0xC0,0x10,0x18,0x0C,0x06,0x03,0xFF,0x63,0x36,0x1C,0x08,0x00, _
0x02,0x09,0x0C,0x26,0x33,0x18,0x0E,0x03)

SSD.LoadAnimated(109,34,19,16,animBitmap,False,100)