Pages

Kamis, 25 Juli 2013

jeho powerbank 11200mAh







*Bisa digunakan untuk iPhone, iPod, MP3, MP4, GPS, telepon genggam, bluetooth, beberapa tablet PC dan barang elektronik lain.
*Dilengkapi dengan IC protector yang berfungsi untuk mencegah kelebihan dalam pengisian tenaga baterai dan hubungan pendek.
*Dilengkapi dengan stabilizer yang berfungsi untuk menstabilkan arus listrik yang masuk maupun keluar dari powerbank,jadi aman untuk perangkat elektronik.
*Design yang sempurna dengan lapisan karet yang nyaman dipegang dan ukuran yang praktis untuk dibawa-bawa.
*Dilengkapi dengan dua saluran keluar USB memudahkan pengisian tenaga pada beberapa alat.
*Dilengkapi dengan lampu senter.



terima order , Rp 400000,- dengan hardboard..

minat ??
pin bb : 2a5987df
hp       : 08991289407

jeho powerbank 8400mAh


 *Bisa digunakan untuk iPhone, iPod, MP3, MP4, GPS, telepon genggam, bluetooth, beberapa tablet PC dan barang elektronik lain.
*Dilengkapi dengan IC protector yang berfungsi untuk mencegah kelebihan dalam pengisian tenaga baterai dan hubungan pendek.
*Dilengkapi dengan stabilizer yang berfungsi untuk menstabilkan arus listrik yang masuk maupun keluar dari powerbank,jadi aman untuk perangkat elektronik.
*Design yang sempurna dengan lapisan karet yang nyaman dipegang dan ukuran yang praktis untuk dibawa-bawa.
*Dilengkapi dengan dua saluran keluar USB memudahkan pengisian tenaga pada beberapa alat
*Dilengkapi dengan lampu senter dan lampu darurat.

terima order , Rp 325000,- dengan hardboard..

minat ??
pin bb : 2a5987df
hp       : 08991289407

Selasa, 14 Mei 2013

Jeprett Jeprett











yaa, saya suka sekali dengan editing foto yang sederhana seperti ini. anda bisa mengunjungi link http://ipiccy.com/ untuk mengutak-atik hasil jepretan anda :D selamat mencoba ..

Sabtu, 27 April 2013

Contoh Program Graphics

Buatlah program graphics dengan tampilan sebagai berikut :



 dengan membuat aplikasi windows seperti biasanya, tambahkan satu toolbox button dan berikan event seperti syntac dibawah ini;

Imports System.Drawing.Drawing2D
Imports System.Drawing

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim g As Graphics = Me.CreateGraphics
        Dim br As New SolidBrush(Color.FromArgb(160, Color.Red))
        Dim rect As New Rectangle
        rect.X = 20
        rect.Y = 100
        rect.Width = 100
        rect.Height = 100
        g.FillRectangle(br, rect)
        br.Dispose()

        br = New SolidBrush(Color.FromArgb(160, Color.Yellow))
        rect.X += (rect.Width \ 4)
        rect.Y += (rect.Height \ 4)
        g.FillRectangle(br, rect)
        br.Dispose()

        'Membuat gradient rectangle
        Dim br2 As New LinearGradientBrush(rect, Color.Yellow, Color.Red, LinearGradientMode.ForwardDiagonal)
        rect.X = 400
        rect.Y = 370
        g.FillRectangle(br2, rect)

        'Membuat ellipse bergaris
        Dim br3 As New HatchBrush(HatchStyle.ForwardDiagonal, Color.Green, Color.Yellow)
        rect.X = 400
        rect.Y = 100
        g.FillEllipse(br3, rect)

        'Membuat Rectangle miring
        Dim br5 As New SolidBrush(Color.MediumPurple)
        Dim point() As Point = {New Point(250, 150), New Point(200, 200), New Point(290, 290), New Point(340, 240)}
        g.FillPolygon(br5, point)

        'membuat layangg-layang
        Dim br4 As New LinearGradientBrush(rect, Color.Aquamarine, Color.Yellow, LinearGradientMode.Horizontal)
        Dim points1() As Point = {New Point(80, 255), New Point(90, 430), New Point(10, 280), New Point(30, 245)}
        g.FillPolygon(br4, points1, 0)
        br4.Dispose()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class


untuk mendownload source code lengkapnya, klik disini!
selamat mencoba :)

Universitas Negeri Malang







Universitas Negeri Malang, disingkat UM, merupakan perguruan tinggi negeri yang terletak di Malang dan Blitar, Jawa Timur, Indonesia. Universitas yang didirikan pada tanggal 18 Oktober 1954 ini sebelumnya bernama IKIP Malang yang merupakan salah satu IKIP tertua di Indonesia. Rektor UM saat ini dijabat oleh Prof. Dr. H. Suparno.

Pada tanggal 20 Mei 1964, bertempat di Gedung SKMAN Malang, dilangsungkan upacara peresmian IKIP Malang yang menandai berpisahnya lembaga tersebut dari Universitas Airlangga. Dari hasil reorganisasi, IKIP Malang memiliki empat fakultas, yaitu:
  • Fakultas Ilmu Pendidikan (FIP),
  • Fakultas Keguruan Sastra dan Seni (FKSS),
  • Fakultas Keguruan Ilmu Sosial (FKIS), dan
  • Fakultas Keguruan Ilmu Eksakta (FKIE).
Adapun, Fakultas Keguruan Teknik (FKT) lahir setelah satu tahun reorganisasi. Selanjutnya, nama dan istilah fakultas yang ada disesuaikan secara nasional pada tahun 1982. FIP tidak mengalami perubahan, sedangkan FKSS menjadi Fakultas Pendidikan Bahasa dan Seni (FPBS), FKIS menjadi Fakultas Pendidikan Ilmu Pengetahuan Sosial (FPIPS), FKIE menjadi Fakultas Pendidikan Matematika dan Ilmu Pengetahuan Alam (FPMIPA), serta FKT menjadi Fakultas Pendidikan Teknologi dan Kejuruan (FPTK).
Pada tanggal 23 Maret 1968, beberapa fakultas cabang IKIP Malang diserahterimakan kepada induknya yang baru. IKIP Malang Cabang Jember diserahkan kepada Universitas Jember, cabang Singaraja kepada Universitas Udayana, serta cabang Kupang dan Ende kepada Universitas Nusa Cendana. Adapun, IKIP Malang Cabang Surabaya berdiri sendiri menjadi IKIP Surabaya.
Berdasarkan SK Presiden RI No. 93/1999, IKIP Malang diubah menjadi Universitas Negeri Malang (UM) dan berdasarkan SK Dirjen Dikti No. 143/DIKTI/Kep/2000, UM mempunyai lima fakultas, yaitu Fakultas Ilmu Pendidikan (FIP), Fakultas Sastra (FS), Fakultas Matematika dan Ilmu Pengetahuan Alam (FMIPA), Fakultas Ekonomi (FE), serta Fakultas Teknik (FT) ditambah satu Program Pascasarjana (PPs).


Kamis, 18 April 2013

aku tertidur, pulas dalam pelukanku sendiri

suatu hal yang wajar dariku, aku dirubah keadaan atauuu aku yang merubah keadaan..
aku tidak bisa melihat dalam gelap, tapi aku sukka.. dari situ aku bisa menekuk kedua lututku dan meletakkan lipatan tanganku diatasnya. aku benci hal ini, tapi aku tetap melakukannya.
aku benci karena ketika itu tatapanku akan tefokuskan ke bawah, sedetik.. duadetik.. limadetik dan aku akan manangis. membungkukkan tulang belakangku, mencoba untuk bisa tertidur dalam pelukkanku sendiri..
aku tetap melakukannya, ketika tak ada tangan yang hendak menjabat dan lengan yang mengangkatku. aku tertidur, pulas dalam pelukanku sendiri.


aku suka melipat tangan diatas tekukan lututku, dalam gelap. aku bisa merasa hangat, tanpa bantuan seorangpun. hai kamu, aku ingin bercerita padamu, tentangmu, dalam lipatan tanganku.. yang MENEKUK RAPAT DIATAS TEKUKAN LUTUTKU SENDIRI..

Sabtu, 16 Maret 2013

Misteri segitiga Bermuda

Gas metana dalam wilayag segituga bermuda menjadi penyebab rumor misteri kapal hilang jika melintas disekiar segitiga bermuda.

Kini teka-teki keberadaan segitiga bermudah, telah berhasil terpecahkan oleh ilmuan dari Universitas Monash Australia di Melbourne, Joseph Monaghan dan asistennya David May, mereka berpendapat bahwa menghilangnya kapal dan pesawat secara misterius di segitiga bermuda bahwa ada penjelasan logis untuk itu. Menurut mereka, semua di picu oleh gas metana alami yang dipancarkan dari dasar laut di wilayah tersebut.
Menurut teori mereka, gas, terlepas dari dasar laut, berubah menjadi gelembung raksasa yang mencapai permukaan dan "menyerap" apapun yang ada hadapannya. Menurut mereka, metana, jika dilepaskan dari celah-celah laut, berubah menjadi gelembung gas, yang kemudian geometris memperluas dan meledak di permukaan air.
Pertama, para peneliti menguji teori mereka dengan menciptakan sebuah model komputer, hasil dari simulasi komputer menegaskan asumsi bahwa jika kapal masuk ke gelembung metana, segera kehilangan daya apung dan tenggelam dan ledakan gelembung gas raksasa pun mampu menembak jatuh pesawat.
Para peneliti kemudian melakukan percobaan yang sesuai di lapangan. Percobaan ini menggunakan wadah yang di isi dengan air, dan ditempatkan pada permukaan dengan beberapa kapal mainan, dan bagian bawah mulai menyemprotkan metana.
Hasil eksprimen ini membuahkan hasil bahwa tidak ada satupun yang beruntung dan semua terserap di tengah gelembung, lalu menjauh ke bawah dan tenggelam. Hal ini dapat menjelaskan kasus-kasus segitiga bermuda di mana kapal-kapal ditemukan dengan awak tewas di kapal, tapi tanpa goresan. Orang hanya tercekik oleh gas beracun.
Sumber artikel : globalscience.ru


Rabu, 06 Maret 2013

Program Visual Basic | Algoritma Greedy

ALgoritma greedy merupakan salah satu dari sekian banyak algoritma yang sering di pakai dalam implementasi sebuah system atau program yang menyangkut mengenai pencarian “optimasi
Di dalam mencari sebuah solusi (optimasi) algoritma greedy hanya memakai 2 buah macam persoalan Optimasi,yaitu:

1. Maksimasi (maxizimation)
2. Minimasi (minimization)

Sekarang kita lanjut ke contoh soal yang aja ya..biar lebih enak membedakan antara soal mengenai optimasi/maksimasi dengan minimum/minimasi.

1.Persoalan maksimasi

( MasalahPenukaranUang): Diberikan uang senilai A. Tukar A dengan koin-koin yang ada. Berapa jumlah minimum koin yang diperlukan untuk penukaran tersebut?

2. Persoalan minimasi

Contoh1: tersedia banyak koin 1, 5, 10, 25
•Uang senilai A= 32 dapat ditukar dengan banyak cara berikut:

32 = 1 + 1 + …+ 1 (32 koin)
32 = 5 + 5 + 5 + 5 + 10 + 1 + 1(7 koin)
32 = 10 + 10 + 10 + 1 + 1(5 koin)…dst

•Minimum: 32 = 25 + 5 + 1 + 1 (4 koin)

ini contoh program visual basicnya, buat form seperti gambar dibawah ini;


untuk yang bersangkutan, jangan lupa beri nama
textbox1 = pada textbox "masukkan 3 koin"
textbox2 = pada textbox "koin yang ditukar"
textbox3 = pada textbox "solusi"

berikut source codenya;

Public Class Form3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nilai As String = TextBox1.Text
Dim nilai1 As Integer = Mid(nilai, 1, 1)
Dim nilai2 As Integer = Mid(nilai, 3, 1)
Dim nilai3 As Integer = Mid(nilai, 5, 1)
Dim tukar As Integer = CStr(TextBox2.Text)
Dim hasil As String
hasil = ""
While tukar > 0
If (tukar - nilai3) > 0 Then
tukar = tukar - nilai3
hasil = hasil & CStr(nilai3)
If (tukar + nilai3) > nilai3 Then
hasil = hasil & "+"
End If
ElseIf (tukar - nilai2) > 0 Then
tukar = tukar - nilai2
hasil = hasil & CStr(nilai2)
If (tukar + nilai2) > nilai2 Then
hasil = hasil & "+"
End If
ElseIf (tukar - nilai1) >= 0 Then
tukar = tukar - nilai1
hasil = hasil & CStr(nilai1)
If (tukar + nilai1) > nilai1 Then
hasil = hasil & "+"
End If
End If
End While
TextBox3.Text = hasil
End Sub
End Class

bisa di edit sedikit untuk lebih memahami algoritma greedy ini, selamat mencoba :)



Rabu, 27 Februari 2013

Senin, 25 Februari 2013

STACK (ALGORTITMA DAN STRUKTUR DATA)



Stack adalah sebuah kumpulan data dimana data yang diletakkan di atas data yang lain. Dengan demikian stack adalah struktur data yang menggunakan konsep LIFO. Dengan demikian, elemen terakhir yang disimpan dalam stack menjadi elemen pertama yang diambil. Dalam proses komputasi, untuk meletakkan sebuah elemen pada bagian atas dari stack, maka kita melakukan push. Dan untuk memindahkan dari tempat yang atas tersebut, kita melakukan pop.



Pada saat ukuran stack, kalau kita teruskan menambah data lagi, akan terjadi overflow. Dengan demikian perlu data tambahan untuk mencatat posisi ujung stack. Dengan kebutuhan seperti ini, kita dapat menyajikan stack dengan menggunakan tipe data struktur (struct) yang terdiri dari dua field. Field pertama bertipe array untuk menyimpan elemen stack, medan kedua bertipe integer untuk mencatat posisi ujung stack.
Sebagai ilustrasi, “Benda yang terakhir masuk ke dalam stack akan menjadi yang pertama keluar dari stack. Hal ini asemacam kebalikan dari postingan saya sebelumnya tentang queue
Saya akan membuat suatu program yang melakukan pembalikan kalimat dengan menggunakan stack
Contoh:

source code
#include <iostream.h>
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#define maxstack 200

struct STACK        //membuat jenis data abstrak 'STACK'
{
    int top;
    char data[maxstack];
};

char dta[maxstack];
struct STACK stackbaru;

void inisialisasi()
{
    stackbaru.top = -1;
}

bool isfull()        //menanyakan penuhkah?
{
    if (stackbaru.top == maxstack-1) return true;
    else return false;
}

bool isempty()        //menanyakan kosongkah?
{
    if (stackbaru.top == -1) return true;
    else return false;
}
void push(char dta) //mengisi stack (menyiapkan data)
{
    if (isfull() == false)
    {
        stackbaru.top++;
        stackbaru.data[stackbaru.top]=dta;
    }
    else
    {
        puts ("\nMaaf Stack penuh");
    }
}

void pop()            //mengambil isi stack
{
    while (isempty() == false)
    {
            cout<<stackbaru.data[stackbaru.top];
            stackbaru.top--;

    }
}

void print()        //mencetak stack
{
    cout<<" ";
    for (int i=0; i<=stackbaru.top; i++)
    {
        cout<<stackbaru.data[i];
    }
}

void clear()
{
    stackbaru.top = -1;
}

void main()
{
    char kata[200];

    printf("--- PROGRAM PEMBALIK KALIMAT --- \n\n");
    printf("Masukkan kalimat yang Anda inginkan: \n");

    gets(kata);

    for(int i=0; kata[i]; i++)
        push(kata[i]);
    printf("------------------------------------ \n\n");

print();
cout<<" menjadi ";
pop();
cout<<"\n";
getche();
}

Tampilan



program sorting dengan menggunakan stack

source code;

#include <iostream.h>
#include <conio.h>
#include <stdio.h>
#define maxstack 6

//using namespace std;

int top=-1;
struct STACK
{
int top;
float data[4];
};

float dta;
struct STACK stackbaru;

bool isfull ()
{
   if (stackbaru.top == maxstack)
         return true;
   else return false;
}
bool isempty()
{
   if (stackbaru.top == -1)
         return true;
   else
         return false;
}
void push (float dta)
{
   if (isfull() == true)
   {
         cout<<"maaf, stack dalam keadaan penuh";
         getche();
   }else{
         top++;
         stackbaru.top++;
         stackbaru.data[top] = dta;
   }
}
void pop ()
{
   if (isempty () == true){
         cout<<"data pada stack dalam keadaan kosong";
         getche();
   }else {
         cout<<"data yang terambil : "<<stackbaru.data[top]<<endl;
         top--;
   }
}
void print () // mencetak stack
{
   for (int i =top; i>=0;i--){
         cout<<stackbaru.data[i]<<"   ";
   }
}
void clear ()
{
   top=-1;
}

void inisialisasi ()
{
stackbaru.top=-1;
}

void Sort (int Array[])
{
   int i,j,kecil,temp;
   for (i=0; i<5; i++)
         {
         {kecil=i;
         for (j=i+1; j<5; j++)
         {
               if(Array[kecil]>Array[j])
            {kecil =j;}
         }
          temp = Array [i];
         Array[i] = Array[kecil];
         Array[kecil] = temp;

         }
   }
}

int main ()
{
void inisialisasi ();
   char menu;
   char ulang;
   int data [5];
   int i,j;


do {
   clrscr;
   printf("Menu : \n");
   puts("1. pop stack");
   puts("2. Push data dan sorting ascending");
   puts("3. cetak sorting descending");
   puts("4. Bersihkan stack");
   puts("5. Exit");

   cout<<"Menu pilihan anda : ";
   cin>>menu;

   if (menu == '1'){
         pop ();
         getche ();
         ulang == 'y';

   }
   else if (menu == '2')
   {
         cout<<"sorting ascending\n";
         for(i=0; i<5; i++)
   {
   cout<<"input nilai ke "<<(i+1)<<" =";
   cin>>data[i];
   }
   Sort(data);
   cout<<"sorting ascending :";
   for(j=0 ; j<5 ; j++)
   {cout<<data[j];
         push(data[j]);
   }
   cout<<"\n";
   getche();

         ulang = 'y';
   clrscr;
   }else if (menu == '3')
   {
         cout<<"sorting descending\n";
         print ();
      cout<<"\n";
         getche();
   }else if (menu =='4')
   {
         clear ();
         cout<<"Ulang? (y/t)";
         cin>>ulang;
   }else if (menu =='5')
   {

   }
}while (ulang =='Y' || ulang == 'y');
getche();
}

 
tampilan

semoga membantu :)