Rabu, 23 Januari 2013

buat bounce ball vb

kali ini saya akan membuat bauncing ball menggunakan bahasa pemrograman vb.net.

setelah saya menonton vidio tutorial vb.net akhirnya saya menemukan sebuah tutorial yang sangat mudah, yang  menjelaskan bagaimana membuat bauncing ball menggunakan bahasa pemrograman vb.net.
ok langsung saja ke pokok masalahannya, untuk membuat bouncing ball ini kita harus memiliki softwarenya terlebiah dahulu, yaitu Microsoft Visual Basic.

1. buka microsoft visual basic.
2. klik file >> New Project >> Windows Forms Application >> ok, isi nama projectnya dengan bouncing ball , dan akan muncul tabel desain
3. klik di tabel tool box dan pilih timer. letakkan di tabel desain.
4. kemudian buat desainnya seperti gambar dibawah ini.


5. isi di tabel properties sesuai dengan gambar di bawah.


6. klik 2x pada timer, dan isikan source code berikut.

Public Class Form1
    Dim MoveRight As Boolean
    Dim MoveUp As Boolean
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If MoveRight = True Then

                OvalShape1.Left += 5
            Else
                OvalShape1.Left -= 5
            End If

            If MoveUp = True Then
                OvalShape1.Top -= 5
            Else
                OvalShape1.Top += 5
            End If

            If OvalShape1.Left <= Me.ClientRectangle.Left Then
                MoveRight = True
            End If

        If OvalShape1.Left + OvalShape1.Width >= Me.ClientRectangle.Right Then
            MoveRight = False
        End If

        If OvalShape1.Top <= Me.ClientRectangle.Top Then
            MoveUp = False
        End If

        If OvalShape1.Top + OvalShape1.Height >= Me.ClientRectangle.Bottom Then
            MoveUp = True
        End If
    End Sub
End Class
pada tabel properties timer, isi seperti pada gambar di bawah ini.









7. klik Start Debugging




dan akan menjadi seperti vidio di bawah ini.

video


Label: , , , ,

Senin, 07 Januari 2013

Menambah resolusi netbook yang menggunakan windows 8



Kali ini B31 akan bagikan sebuah tutorial penting bagi yang menggunakan windows 8 namun resolusi PC-nya tidk mendukung windows 8.
Beberapa hari yang lalu saya sebagai admin B31 software menginstall windows 8 pada netbook atau kalau bahasa jadulnya laptop kecil karena biasanya hanya laptop kecil yang memiliki masalah seperti ini. Setelah install windows 8 sampai semua menjadi perfect alias sempurna saya belum menguji semua aplikasi bawaan windows 8.
Ketika saya mau mencoba aplikasi bawaan windows 8, ternyata aplikasi bawaan windows 8 seperti camera, Weather, Music, Calender dan masih banyak lagi aplikasi bawaan windows 8 yang tidak bisa dibuka.
Ketika ingin membuka, keluar tulisan seperti gambar dibawah ini.


Pada gambar diatas maksud dari tulisannya adalah resolusi yang digunakan terlalu rendah. Setelah saya lihat resolusi pada notebook yang saya gunakan ternyata resolusinya 1024 x 600 sedangkan windows 8 hanya mendukung resolusi 1024 x 768 yang berarti notebook yang saya gunakan resolusinya tidak mencukupi standar resolusi windows 8.
Akhirnya saya mencoba mencoba mencari solusinya dan ahirnya bisa juga. Sekarang saya akan share cara mengatasinya.

Cara menaikkan resolusi pada windows 8
  1. Buka menu RUN, caranya adalah dengan menekan tombol Windows + R pada keyboard.
  2. Ketikkan “Regedit” (tanpa tanda petik) lalu enter atau klik OK
  3. Tekan Ctrl + F kemudian ketikkan “Display1_DownScalingSupported” (tanpa tanda petik).
  4. Jika sudah ketemu klik dua kali “Display1_DownScalingSupported 
  5. Pada “Value Data” ganti angka 0 menjadi angka 1 kemudian OK.
  6. Restart PC sahabat haramain software.
  7. Setelah Restart selesai klik kanan di desktop sobat kemudian pilih Screen Resolution.
  8. Ganti resolusi PC sobat menjadi 1024 x 768 kemudian klik OK.
  9. Selesai. sekarang semua aplikasi bawaan windows 8 yang tidak bisa dibuka menjadi bisa dibuka semua. 

semoga bermanfaat...

Label: ,