Menggambar Elipse-Visual Basic 6.0

Private Sub Text1_Change()

End Sub
Private Sub btn_hitung_Click()
Dim Ry, Rx, Xo, Yo As Integer
Ry = Val(txt_y.Text)
Rx = Val(txt_X.Text)
Xo = 0
Yo = Ry

'region 1
pct_tampil.PSet (Xo, Yo), RGB(0, 0, 0)
pct_tampil.PSet (-Xo, Yo), RGB(0, 0, 0)
pct_tampil.PSet (Xo, -Yo), RGB(0, 0, 0)
pct_tampil.PSet (-Xo, -Yo), RGB(0, 0, 0)


Po = (Ry ^ 2) - ((Rx ^ 2) * Ry) + ((Rx ^ 2) / 4)
Px = 0
Py = 2 * (Rx ^ 2) * Yo
While Px < Py
    Xo = Xo + 1
    Px = Px + (2 * (Ry ^ 2))
    If (Po >= 0) Then
        Yo = Yo - 1
        Py = Py - 2 * (Rx ^ 2)
        Po = Po + (Ry ^ 2) + Px - Py
    Else
        Po = Po + (Ry ^ 2) + Px
    End If
    pct_tampil.PSet (Xo, Yo), RGB(0, 0, 0)
    pct_tampil.PSet (-Xo, Yo), RGB(0, 0, 0)
    pct_tampil.PSet (Xo, -Yo), RGB(0, 0, 0)
    pct_tampil.PSet (-Xo, -Yo), RGB(0, 0, 0)
    Wend
  
  
'region 2
pct_tampil.PSet (Xo, Yo), RGB(0, 0, 0)
pct_tampil.PSet (-Xo, Yo), RGB(0, 0, 0)
pct_tampil.PSet (Xo, -Yo), RGB(0, 0, 0)
pct_tampil.PSet (-Xo, -Yo), RGB(0, 0, 0)

Po = ((Ry ^ 2) * ((X + 1 / 2) ^ 2)) + ((Rx ^ 2) * (Yo - 1)) - ((Rx ^ 2) * (Ry ^ 2))
While Yo > 0
    Yo = Yo - 1
    Py = Py - 2 * (Rx ^ 2)
    If Po <= 0 Then
        Xo = Xo + 1
        Px = Px + 2 * (Ry ^ 2)
        Po = Po + (Rx ^ 2) + Px - Py
    Else
        Po = Po + (Rx ^ 2) - Py
    End If
    pct_tampil.PSet (Xo, Yo), RGB(0, 0, 0)
    pct_tampil.PSet (-Xo, Yo), RGB(0, 0, 0)
    pct_tampil.PSet (Xo, -Yo), RGB(0, 0, 0)
    pct_tampil.PSet (-Xo, -Yo), RGB(0, 0, 0)
Wend
  
  




End Sub
Private Sub Form_Activate()
pct_tampil.Scale (-100, 100)-(100, -100)
pct_tampil.Line (-100, 0)-(100, 0), RGB(255, 0, 0) 'sb-x
pct_tampil.Line (0, 100)-(0, -100), RGB(255, 0, 0)   'sb-y
End Sub

Read More

Menggambar Lingkaran-Visual Basic 6.0

Private Sub Command1_Click()
Dim Po As Integer
X = Val(txtX.Text)
Y = Val(txtY.Text)
R = Val(txtR.Text)

Y = R
X = 0
    Picture1.PSet (X, Y), RGB(0, 0, 0)
    Picture1.PSet (-X, Y), RGB(0, 0, 0)
    Picture1.PSet (X, -Y), RGB(0, 0, 0)
    Picture1.PSet (-X, -Y), RGB(0, 0, 0)
    Picture1.PSet (Y, X), RGB(0, 0, 0)
    Picture1.PSet (-Y, X), RGB(0, 0, 0)
    Picture1.PSet (Y, -X), RGB(0, 0, 0)
    Picture1.PSet (-Y, -X), RGB(0, 0, 0)
    List1.AddItem (X & "   " & Y)
   
Po = 1 - R
While (X <= Y)
    If (Po < 0) Then
    X = X + 1
    Picture1.PSet (X, Y), RGB(0, 0, 0)
    Picture1.PSet (-X, Y), RGB(0, 0, 0)
    Picture1.PSet (X, -Y), RGB(0, 0, 0)
    Picture1.PSet (-X, -Y), RGB(0, 0, 0)
    Picture1.PSet (Y, X), RGB(0, 0, 0)
    Picture1.PSet (-Y, X), RGB(0, 0, 0)
    Picture1.PSet (Y, -X), RGB(0, 0, 0)
    Picture1.PSet (-Y, -X), RGB(0, 0, 0)
    List1.AddItem (X & "   " & Y)
    Po = Po + (2 * X) + 1
   
    Else
    X = X + 1
    Y = Y - 1
    Picture1.PSet (X, Y), RGB(0, 0, 0)
    Picture1.PSet (-X, Y), RGB(0, 0, 0)
    Picture1.PSet (X, -Y), RGB(0, 0, 0)
    Picture1.PSet (-X, -Y), RGB(0, 0, 0)
    Picture1.PSet (Y, X), RGB(0, 0, 0)
    Picture1.PSet (-Y, X), RGB(0, 0, 0)
    Picture1.PSet (Y, -X), RGB(0, 0, 0)
    Picture1.PSet (-Y, -X), RGB(0, 0, 0)
    List1.AddItem (X & "   " & Y)
    Po = Po + ((2 * X) - (2 * Y)) + 1
   
    End If
   
Wend




End Sub

Private Sub Form_Activate()
Picture1.Scale (-100, 100)-(100, -100)
Picture1.Line (-100, 0)-(100, 0), RGB(255, 0, 0) 'sb-x
Picture1.Line (0, 100)-(0, -100), RGB(255, 0, 0)   'sb-y
End Sub

Private Sub List1_Click()

End Sub

Private Sub Picture1_Click()

End Sub

Read More

Review Apps

Android

• TTPOD

Aplikasi pemutar music yang satu ini berbeda dengan aplikasi pemutar music yang lainnya, dimana suara yang dihasilkan sangat bagus terutama dari segi bass nya. Selain itu juga aplikasi ini ecara otomatis akan menampilkan lyric dari lagu yang pengguna putar ketika perangkat tersebut  terkoneksi ke jaringan internet. Tampilan yang baik dan juga tema yang banyak membuat aplikasi ini sangat menarik untuk dimiliki di perangkat android.

• Ular Tangga

Game buatan anak bangsa ini mengadopsi permainan Ular Tangga yang biasa dimainkan  anak-anak dengan sebuah dadu dan papan permainan berupa blok-blok yang diberi nomor. Blok-blok tersebut terdiri dari 100 blok, siapa yang paling duluan sampai ke blok terakhir menjadi pemenang. 

Cara untuk melempar dadu pada game ini sendiri dengan cara men-shake perangkat android  kemudian dadu tersebut terlempar.  game ini bisa dimainkan dengan Multiple Player melalui jaringan internet dan juga melalui jaringan wireless.

• Endomondo Sport Tracker

Endomondo Sports Tracker Pro cocok bagi yang hobinya jogging,fitness dan terutama  bersepeda.Adapun fitur-fitur yang terdapat di aplikasi satu ini,

 Interval Program: memilih tiga program yang tersedia atau kita bisa membuat program  sendiri.

Graph : fitur untk menampilkan grafik perkembangan  semuanya berdasarkan waktu putaran,denyut jantung, dan juga altitude keseluruhan.

Beat Yourself: menjadikan latihan sebelumnya sebagai acuan latihan berikutnya.

Low Power Mode: fitur ini digunakan untuk lebih menghemat pemakaian baterai handphone disaat latihan dalam jangka waktu yang lama

Time Goal : memilih durasi latihan dan pemandu akan memandu .

iOS

• Garage Band

Garage Band diperuntukkan bagi anak band yang serius ingin menjadi rock star atau musikus. Materi-materi lagu yang telah terkumpul kini tak lagi sia-sia karena pengguna bisa mengolah dan mengaransemen lagu sendiri. Bahkan pengguna tak memerlukan anggota band yang lain karena semua bisa dikerjakan sendiri mulai dari memetik gitar, memukul drum, hingga editing dan mixing.

Alat-alat musik yang ada di Garage Band cukup lengkap seperti drum, bas, gitar, dan keyboard. Masing-masing alat musik menawarkan banyak sekali jenis dengan suara-suara bervariasi yang dihasilkan. Keyboard, misalnya, memiliki 80 jenis suara mulai dari piano hingga suara efek. pengguna juga bisa memilih apakah ingin memetik  gitar satu persatu atau menggenjrengnya. Bending juga tidak jadi masalah.

• Chicken Raid

Didalam Chicken Raid tujuan utama pengguna adalah menghancurkan ayam dan telur sekaligus mendapatkan item tambahan seperti gem dan coin. Pengguna tidak akan menggunakan karakter apapun dalam game ini, sangat jauh berbeda dengan Angry Birds yang justru mengijinkan pengguna untuk menggunakan karakter burung yang bertujuan untuk menyelamatkan telur dari para babi hijau. Jika didalam Angry Birds pengguna menggunakan ketapel untuk melepaskan burung agar menghancurkan penopang tempat para babi hijau duduk. Dalam Chicken Raid jauh lebih simple, pengguna cukup tap penopang tempat para ayam itu tinggal agar penopangnya hancur. Seperti game puzzle lainya, didalam setiap level dalam Chicken Raid akan disediakan rintangan-rintangan yang terdiri dari batu, kayu dan juga kaca. Dan rintangan-rintangan itu harus dihancurkan dengan cara yang seefisien mungkin.

• Genius Scan

Dengan aplikasi ini fungsi kamera ponsel Android serta iOS pengguna dapat beralih fungsi menjadi sebuah scanner. Yang dapat langsung difungsikan untuk melakukan scan dokumen yang dapat langsung Anda kirim via email dengan format JPEG atau PDF.
Selain melalui email aplikasi ini menyediakan pula fitur upload langsung ke beberapa aplikasi cloud storage yang sudah terinstal di ponsel Anda seperti Box, Dropbox, dan beberapa aplikasi cloud storage lainnya.

Blckberry

• Screen Munched

Aplikasi yang satu ini memungkinkan penggunanya mengcapture screen pada layar blackberrynya kemudian mensharing hasil dari capture nya tersebut via jejaring social.

• Blackberry Messenger

Aplikasi bawaan RIM(Research In Motion) ini memungkinkan sesama pengguna blackberry terhubung satu sama lain melalui jaringan internet dengan cara bertukar PIN Blackberry Messenger. Pengguna juga bisa berbagi file multimedia satu sama lain.

• Ubersocial

Aplikasi ini  sama seperti aplikasi untuk twitter lainnya yang memungkinkan penggunanya terhubung dengan pengguna twitter yang lainnya.

Java

• KBBI (Kamus Besar Bahasa Indonesia) Mobile

Kalau aplikasi yang satu ini sudah jelas sekali berguna untuk apa. Aplikasi ini berguna sebagai kamus bahasa Indonesia. Jika ada kata-kata bahasa Indonesia yang tidak mengerti artinya bisa dilihat di dalam kamus elektronik ini. KBBI ini mirip dengan versi aslinya. Versi aslinya adalah buku yang sangat tebal dan berat. Dengan aplikasi ini, pengguna tidak perlu berat-berat membawa buku kamus besar.

• Graph Viewer 3D

Aplikasi ini berguna untuk melihat grafik-grafik dari sistem persamaan maupun fungsi matematika. Bisa persamaan kuadrat, persamaan linear, parabola, hiperbola, sinus, cosinus dan masih banyak lagi persamaan yang grafiknya bisa dilihat dengan aplikasi ini. Selain itu, Graph Viewer ini juga bisa melihat grafik turunan dari suatu persamaan ataupun integral dari persamaan. Dengan aplikasi ini pengguna tidak perlu lagi menghitung secara matematik untuk menggambar grafik sebuah fungsi (pesamaan) matematika.

• Doc Viewer

Aplikasi ini bisa dipakai untuk melihat file berekstensi *.doc dan *.xls di handphone. Pengguna  bisa membuka file-file dokumen tanpa memakai komputer atau laptop. Jadi lebih fleksibel kan. Hanya pakai handphone bisa membuka file doc dan xls.

Symbian

• ProEvolution Soccer

Game besutan Konami ini memungkinkan pengguna bisa menikmati sensasi bermain PES tanpa repot-repot membawa laptop/PC/PlayStation untuk memainkannya. Tentunya dengan tampilan dan Game Play yang lebih sederhana.

• Facebook

Aplikasi ini memungkinkan pengguna tetap terhubung dengan facebook setiap waktu. Berbagai fitur pun melengkapi Facebook Mobile ini diantaranya newsfeed,message,notification,dll. Facebook for mobile sendiri bisa didownload langsung ketika kita masuk ke mobile site nya facebook. 

• Kamus Indonesia-Inggris

Seperti halnya aplikasi-aplikasi kamus lainnya, aplikasi ini  memungkinkan penggunanya menterjemahkan kata dari bahasa Indonesia kedalam bahasa Inggris dan sebaliknya.

Windows Phone

• Skype

Jika dulu  menelpon orang langsung menggunakan layanan telpon dari operator seluler, kini pengguna bisa menelpon melalui jaringan Internet sehingga lebih hemat terutama jika ingin menelpon seseorang dalam waktu yang lama atau menelpon orang yang berada di luar negeri. Skype menyajikan hal tersebut ditambah juga dengan Skype pengguna bisa chatting dan bahkan bisa dengan banyak orang sekaligus baik ketika menelpon atau chatting

• Evernote

Catat mencatat adalah salah satu kegiatan yang pasti sering kita lakukan.  untuk mempermudah kegiatan catat mencatat, aplikasi Evernote bisa menjadi pilihan yang bagus. Selain berfungsi sebagai catatan digital, Evernote juga menyajikan banyak fitur penting lainnya seperti sinkronisasi secara otomatis catatan yang sudah pengguna buat ke server Evernote, hal ini membuat kita dapat mengakses catatan kita di Evernote melalui apa saja dan tidak perlu khawatir kehilangan catatan.

• Qur’an

Aplikasi ini merupakan sebuah Al Quran reader yang dikembangkan oleh Sama Apps. Dalam aplikasi ini, seluruhnya menggunakan tulisan Arab, sehingga pengguna dapat membaca Al Quran sekaligus mengasah kemampuan berbahasa Arab.

Read More