Tablet new Panasonic

 Tahun ini Pada Consumer Electronics Show, CES 2013, Panasonic telah mengungkapkan pertama di dunia 20-Inch 4K Windows 8 tablet. Perangkat ini masih prototipe dengan 3840 2560 piksel x, didukung oleh 1,80 GHz Intel Bride Core i5 processor Ivy, NVIDIA GeForce GPU, 4GB RAM (diupgrade upto 16GB), 128GB SSD, beratnya sekitar 5,3 kilogram dan menjalankan Windows 8 Pro .

Fitur lain termasuk 802.11n WiFi, microSD dan dukungan USB. Satu-satunya kelemahan adalah masa pakai baterai yang saat ini diperkirakan hanya 2 jam.
Menurut Panasonic, ini Windows 8 slate raksasa telah dirancang untuk desainer dan pengguna bisnis. Tidak ada berita belum pada harga, tapi kami cukup yakin Anda tidak akan mendapatkannya untuk murah mempertimbangkan ukuran dan teknologi mutakhir.

copyrigth form http://tricks.heck.in/panasonic-reveals-20-inch-windows-8-tabl.xhtml

Program OpenGl Piramida dengan 3 segitiga

Mungkin kita tahu tentang piramida itu terdiri dari 4 segitiga tapi saya akan membuat dengan 3 segitiga.Walapun hasil yang kurang memuaskan tapi lumayan ga jelek-jelek bangat si..heeee



dim angle#
dim tex1,tex2,tex3,tex4

    tex1 = LoadMipmapTexture ("1.jpg") 'untuk mengambil foto biar segitiga da gambarnya
    tex2 = LoadMipmapTexture ("2.jpg")
    tex3 = LoadMipmapTexture ("3.jpg")

 'glactivetexture(gl_texture0)
    glEnable (GL_TEXTURE_2D)    
    'Turn lighting on with this command:
    glEnable(GL_LIGHTING)

    'Turn on Light #0 with this command
    glEnable(GL_LIGHT0)

    'Set position of Light #0 with this command
    glLightfv(GL_LIGHT0, GL_POSITION, Vec3(0, 0, 1))

    'Set the ambience of the light with this
    glLightfv(GL_LIGHT0, GL_AMBIENT, vec4(.2,.2,.2,1))

    'Set the diffuse of the light with this
    glLightfv(GL_LIGHT0, GL_DIFFUSE, vec4(1, 1, 1, 1))
    glbindtexture(gl_texture_2d, tex1)
    'glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE)
    'glactivetexture(gl_texture1)
    'glEnable (GL_TEXTURE_2D)
    'glbindtexture(gl_texture_2d, tex2)
    'glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE)
    'glactivetexture(gl_texture2)
    'glEnable (GL_TEXTURE_2D)
    'glbindtexture(gl_texture_2d, tex3)
    'glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE)
    'glactivetexture(gl_texture3)
    'glEnable (GL_TEXTURE_2D)
while true
    glClear (GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT)
    glLoadIdentity ()
    glTranslatef (0, 0, -4) 'ukuran besar kecilnya segitiga
    glRotatef (angle#, 0, 1, 0) 'mengatur gerakan dari segitiga
     glBindTexture(GL_TEXTURE_2D, tex1)          'segitiga depan      
            glBegin(GL_QUADS)
            ' Front face
            glTexCoord2f(0.0, 0.0): glVertex3f ( 0, 1, 0)
            glTexCoord2f(3.0, 0.0): glVertex3f (1, -1, -1)
            glTexCoord2f(1.0, 1.0): glVertex3f ( -1,-1, -1)
glTexCoord2f(0.0, 1.0): glVertex3f ( 0, 1, 0)
glend()
       glBindTexture(GL_TEXTURE_2D, tex2)                  'segitiga kanan
            glBegin(GL_QUADS)
            ' Front face
            glTexCoord2f(1.0, 0.0): glVertex3f ( 0, 1, 0)
            glTexCoord2f(1.0, 1.0): glVertex3f (0, -1, 1)
            glTexCoord2f(0.0, 1.0): glVertex3f (1, -1, -1)
glTexCoord2f(0.0, 0.0): glVertex3f ( 0, 1, 0)
glend()
       glBindTexture(GL_TEXTURE_2D, tex3)                  'segitiga kiri
            glBegin(GL_QUADS)
            ' Front face
             glTexCoord2f(0.0, 1.0): glVertex3f ( 0, 1, 0)
              glTexCoord2f(0.0, 0.0): glVertex3f ( -1,-1, -1)
             glTexCoord2f(1.0, 0.0): glVertex3f (0, -1, 1)
glTexCoord2f(1.0, 1.0): glVertex3f ( 0, 1, 0)
glend()    
    SwapBuffers ()
    angle# = angle# + -0.8 'kecepatan dari rotasi yang di hasilkan
wend

Program bola dengan Basic 4gl

Mungkin kita sudah lupa atau bahkan ga tau akan rumus dengan membuat bola itu sendiri.....heee
tapi tenang,,,,di sini saya akan menjelaskan tentang,rumus bola itu sendiri.

Luas permukaan

[sunting]Volume

tapi di dalam program Basic Open 4gl untuk membuat bola,kita harus menentukan titik koordinat dari bola tersebut karena bola itu sendiri terdapat 4 titik dan setiap titik mempunyai sudut yang kita kenal dengan sin dan cos.

untuk programnya sendiri bisa di liat di bawah sini.

  dim x1#(1),y1#,z1#(1),x2#(1),y2#,z2#(1)
  dim tex1,tex2,tex3,tex4
  dim angle#
    dim sd#(3)
    dim i#,j#      
    dim n#,n2#   
    dim xx#(1),yy#(1)
    dim texture(3)  
    dim r#,rk#(1)       
    dim rkk#(1)
dim phi#
phi#=3.14

 gosub main
Bola: 
  n# = 30          
    n2#=n#/2    
    glBegin(GL_quads)
     for i#=0 to n#-1
      for j# = 0 to n#-1   

         rk#(0)=r#*Cos(-(PHI#/2)+i#/n2#*PHI#/2)
         rk#(1)=r#*Cos(-(PHI#/2)+(i#+1)/n2#*PHI#/2)

         y1#= r#*sin(-(PHI#/2)+i#/n2#*PHI#/2)
         y2#= r#*sin(-(PHI#/2)+(i#+1)/n2#*PHI#/2)

         x1#(0)= rk#(0)*sin(j#/n2#*PHI#)          'theta/(2*phi)
         x1#(1)= rk#(0)*sin((j#+1)/n2#*PHI#)          'theta/(2*phi)
         x2#(0)= rk#(1)*sin(j#/n2#*PHI#)          'theta/(2*phi)
         x2#(1)= rk#(1)*sin((j#+1)/n2#*PHI#)          'theta/(2*phi)
         z1#(0)= rk#(0)*cos(j#/n2#*PHI#)          'theta/(2*phi)
         z1#(1)= rk#(0)*cos((j#+1)/n2#*PHI#)          'theta/(2*phi)
         z2#(0)= rk#(1)*cos(j#/n2#*PHI#)          'theta/(2*phi)
         z2#(1)= rk#(1)*cos((j#+1)/n2#*PHI#)          'theta/(2*phi)

       
         glTexCoord2f(xx#(0), yy#(0))              'koordinat penempatan tekstur bola(x,y)
         glVertex3f( x1#(0), y1#,z1#(0))          'p(0,y)=(rsin0,y,rcos0)          
         glTexCoord2f(xx#(1), yy#(0))              'koordinat penempatan tekstur(x,y)
         glVertex3f(x1#(1),y1#,z1#(1))                    
         glTexCoord2f(xx#(1), yy#(1))              'koordinat penempatan tekstur(x,y)
         glVertex3f( x2#(1), y2#,z2#(1))                    
         glTexCoord2f(xx#(0), yy#(1))              'koordinat penempatan tekstur(x,y)
         glVertex3f(x2#(0),y2#,z2#(0))                    
      next  
     next
    glEnd()
    Return
main:

    
    texture(0)= loadtexture("sun.jpg")
    glEnable (GL_TEXTURE_2D)
   
  
    while true                  

        glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT )    ' Clear The Screen And The Depth Buffer
        glLoadIdentity()   
                                                      ' Reset The View
        glTranslatef(0,0,-3)           
        glrotatef(sd#(0),0,10,0)        
      glRotatef (angle#, 0, 1, 0)
 
 r#=.5                                        'Setting bolA
        glBindTexture(GL_TEXTURE_2D, texture(0))          
        gosub bola  
 
        glpushmatrix()                                'orbit
       

 
        
        sd#(0)=Sd#(0)+1                    
        sd#(1)=Sd#(1)+5   
        sd#(2)=Sd#(2)+10    
        sd#(3)=sd#(3)+15

        SwapBuffers ()
angle# = angle# + 0.1
    wend 






"SELAMAT MENCOBA"

Rencana Samsung Mengeluarkan Galaxy S lV

Samsung Galaxy S III , tak dapat disangkal, perangkat tahun 2012. Ponsel Android yang populer hanya pesaing tepat yang membawa kekuatan untuk mengalahkan upaya sukses Apple iPhone ini. Tak heran, semua orang mengharapkan penerus Galaxy III pada tahun 2013.

Dan, sekarang tampaknya benar, dengan laporan insider menyatakan bahwa Samsung berencana untuk merilis perangkat Galaxy berikutnya pada bulan April 2013. Sebuah laporan sebelumnya bahkan menyarankan bahwa perusahaan akan mengungkap Galaxy S IV di Mobile World Congress pada 2013, tapi itu tidak dikonfirmasi.

Samsung Galaxy S III dirilis pada bulan Juli tahun lalu, tetapi untuk Galaxy S IV perusahaan berencana rilis awal 2013 dalam upaya terlihat melompati popularitas iPhone 5. Sementara itu, produsen iPhone dikabarkan akan merencanakan ponsel mereka berikutnya untuk awal 2013 juga.

Meskipun laporan terbaru telah gagal untuk mengkonfirmasi apa-apa tentang Samsung Galaxy spesifikasi S4, sumber menunjukkan perangkat yang lebih kuat dengan fitur yang disempurnakan. Perusahaan ini diharapkan dapat menambah teknologi seperti pengisian induktif dan video streaming melalui DLNA atau Miracast.

Perangkat mungkin mengadakan layar 5 inci 1080p AMOLED dengan resolusi 1080p 1920x dan akan  quad-core 2GHz A15 prosesor. Rumor bahkan menyarankan kamera belakang 13 megapiksel bersama dengan megapixel 2.1 atau lebih tinggi menghadap ke depan kamera.