Pola Garis & Warna dalam Grafik Lingkaran dengan Visual Basic

Buat form seperti di bawah ini🙂

file3

Klik 2 kali tombol OK,  lalu ketik kode berikut pada kode editor😉

 Private Sub Command1_Click()
 Dim DataLing(10) As Integer
 Form1.Cls
 For i = 0 To 6
    DataLing(i) = 20 + Rnd() * 100
    Total = Total + DataLing(i)
 Next
 Form1.DrawWidth = 2
 For i = 0 To 6
    arc1 = arc2
    arc2 = arc1 + 6.28 * DataLing(i) / Total
    If Check1.Value Then
       Form1.FillStyle = 2 + (i Mod 5)
    Else
       Form1.FillStyle = 0
    End If
    If Check2.Value Then
       Form1.FillColor = QBColor(8 + (i Mod 6))
    Else
      Form1.FillColor = QBColor(9)
    End If
 Form1.Circle (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), Form1.ScaleHeight / 2.5, , -arc1, -arc2

Next

Setelah itu Run (F5) dan hasilnya seperti di bawah ini😀

File1

File2

5 Responses to “Pola Garis & Warna dalam Grafik Lingkaran dengan Visual Basic”


  1. 1 bejo Maret 12, 2010 pukul 1:59 am

    ndak jelas…
    jgn setengah2 Om klo mo share ilmu.

  2. 2 Liroesdy Maret 15, 2010 pukul 9:29 am

    Maksudnya enggak jelas yang dimana ya mas😕 ?

    Maaf kalo membuat bingung, soalnya saya mencoba menuliskan kembali apa yang saya dapat di kelas dan mungkin karena enggak ada keterangan tambahan dari saya jadinya tulisan kering & membingungkan🙂

  3. 3 Jack November 28, 2010 pukul 9:11 am

    keren dan simple……….pokoknya I LKE THIS…………HEhehe

  4. 4 Dian Fitria Mei 7, 2011 pukul 10:29 am

    simple… saya suka
    tapi mash ada maslah ne…
    sya sudah membuat seperti itu
    tpi knapa waktu saya run progamnya keblik ya ??
    apakah ada yg salah..
    ktika cek warna yg kluar lingkran berpola
    dan sebaliknya waktu cek pola keluarnya lingkran berwarna..
    gmna y solusinya?

  5. 5 Singgih R Juni 7, 2011 pukul 5:54 pm

    Mas mau tanyak nich , gimana ya caranya kalau buat garis tegak lurus aja…???? bisa gk ya pakai VB..???


Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s




Me (^^)

About

Blog ini adalah catatan kuliah ku, tidak hanya mengenai materi kuliah tetapi juga tentang kegiatan, pengalaman aku selama kuliah :) .


=-=-=-=-=
image header = "Byousoku 5 cm " with edited :)

Liroesdy on Net (=^_^=)

Blog Stats

  • 59,078 hits
Click to view my 

Personality Profile page

My Personal Blog

Liroesdy Blog

Liroesdy Lab

Liroesdy Lab

%d blogger menyukai ini: