visual basic (VB) 6.0 membuat animasi sederhana

ini adalah dokumentasi program visual Basic(vb)6.0 ketika praktek di cammpus
pertama buat form seperti gambar di bawah ini

lalu tilis kan code berikut pada kode form nya nya
Dim N1 As Integer
Dim N2 As Integer
Dim A1 As Integer
Dim A2 As Integer
Dim jarak1 As Long
Dim jarak2 As Long
Dim maju As Boolean

Private Sub Command1_Click()
If Command1.Caption = "MULAI" Then
Command1.Caption = "BERHENTI"
Timer1.Enabled = True 'true bisa bermakna jalan timer
Else
Command1.Caption = "MULAI"
Timer1.Enabled = False 'false bisa bermakna stop atau hentikan timer
End If
End Sub
Private Sub Form_Load()
maju = False
Timer1.Interval = 10 ' waktu / kecepatan timer berjalan

End Sub

Private Sub Timer1_Timer()



If Shape.Left And Shape1.Top <= 0 Then
maju = True
End If
If Shape.Left And Shape1.Top = 4400 Then
maju = False
End If


If maju = True Then
Shape.Left = Shape.Left + 10 'penambahan kekiri sebanyak sepuluh setelah interval
Shape1.Top = Shape1.Top + 10
Else
Shape.Left = Shape.Left - 10
Shape1.Top = Shape1.Top - 10
End If
A1 = Shape.Left
N1 = Shape1.Left
A2 = Shape.Top
N2 = Shape1.Top

jarak1 = N2 - N1 'untuk melakukan perhitungan jarak shape
jarak2 = A1 - A2 'untuk melakukan perhitungan jarak shape
Text1.Text = jarak1
Text2.Text = jarak2


If (jarak1 <= 100 And jarak1 >= -100) And (jarak2 <= 100 And jarak2 >= -100) Then
Shape.BackColor = vbRed
Shape1.BackColor = vbRed
Text1.BackColor = vbBlack
Text2.BackColor = vbBlack
Frame1.BackColor = vbBlackness


Else

Shape.BackColor = vbGreen
Shape1.BackColor = vbBlue
Text1.BackColor = vbGreen
Text1.ForeColor = vbBlue
Text2.BackColor = vbBlue
Text2.ForeColor = vbGreen
Frame1.BackColor = vbWhite
End If

End Sub

pada saat run setelah mengklik "mulai"



pada saat titik kordinat berada pada jarak antara >=-100 dan <= 100




atau untuk code (kode program vb nya) download
disini

read more - visual basic (VB) 6.0 membuat animasi sederhana

contoh program pointer struct menunjuk variable struct lainya

program ini saya buat ketika sedang mengalami depresi berat tentang melalkuakan pemahaman link list di CPP
yah dari pada saya memikirkan kepusingan yang teramat sangat memikirkan logika link list mendingan nulis di blog dan berbagi sedikit penggalamsn tentang pemerograman bahasa c code di bawah ini adalah tentang poiter variable / objek di dalam struct menunjuk / meng-refrence pointer objek struct yang lainya


#include <stdio.h>

/*contoh program pointer variabel atau object struct

compiler dev-c++ atau gcc

*/

struct contoh{

int x;

int y;

};

struct contoh *pnilai;

struct contoh nilai;

struct contoh *pnilai2;

main(){



pnilai = &nilai;

pnilai2 = pnilai;



nilai.x=9;

printf("nilai.x di isi %dn",nilai.x);



nilai.y=7;

printf("nilai.y di isi %dn",nilai.y);

/* untuk mengunakan nilai dalam elemen bisa mengunkan nil->x atau (*nil).y

karena klo mengukan ."titik saja" akan terjadi error */

printf("pnilia2_>x = %d dan pnilai2->y = %d n",pnilai2->x,pnilai2->y);

(*pnilai2).x =pnilai->x + nilai.y;

printf("isi (*pnilai).x = %d dan isi nilai.x=%dn",(*pnilai).x,nilai.x);

getch();

}

atau untuk kode program c++ donwload
di sini

read more - contoh program pointer struct menunjuk variable struct lainya

visual basic (VB) 6.0 test coding pengaturan warna

lagi iseng-iseng di rumah dari pada bengong mendingan nulis di blog
hehe.......

oke deh pertama-tama siapkan compiler Visual basic teman-teman lalu
ikuti langkah-langkah di bawah ini.. heuuuuuu heuuuuuu ;)


tool box > tambahkan listbox ke form
tool box > tambahkan label ke form

pada lable11 ganti name pada propertis dengan name jud_1

untuk kode nya

'program pengaturan warna dengan coding di visual basic

Private Sub Form_Load()

List1.AddItem "merah" 'memabahkan item MERAH pada list
List1.AddItem "biru" 'menambahkan item BIRU pada list

End Sub

Private Sub list1_Click()
jud_1.Caption = ""
jud_1.BackColor = &H8000000F ' atau bisa di ganti dengan vbwhite
MsgBox (List1)

If List1 = "merah" Then

jud_1.Caption = "merah"
jud_1.BackColor = vbRed
jud_1.ForeColor = vbBlue
jud_1.FontSize = 18

Else
jud_1.Caption = "biru"
jud_1.BackColor = vbBlue
jud_1.ForeColor = vbRed
jud_1.FontSize = 18


End If




End Sub

NOTE :
VbRed =kode warna MERAH di Visual basic (VB 6.0)
vbBlue =Kode warna biru di visual basic (VB 6.0)
vbBlack =KODE warna hitam di visual basic (VB 6.0)
vbYellow =KODE warna KUNING di VISUAL BASIC (VB 6.0) dan seterusnya.....


hasil eksekusi nya ketika mengklik di si item / indek listnya







atau download di sini buat coding visual basic nya

read more - visual basic (VB) 6.0 test coding pengaturan warna

memahami fungsi cpp 2 " tanpa nilai balik atau void "

setelah kita memahami fungsi
mari kita bahas bagian duanya
fungsi dalam bahasa c / c++ di bagi menjadi 2 yang pertam pungsi antara lain
1. fungsi tanpa nilai balik atau void


dan ini untuk kode program fungsi c++ nya


#include<iostream>

/* fungsi tanpa nilai balik

compiler dev-C++ */

using namespace std;



void masukan();/*declarasi fungsi dengan tanpa parameter formal*/

void cetak(int);/*declarasi fungsi dengan parameter formal int

pendeklarasian ini adalah apabila definisi fungsinya di buat

setelah fungsi utama main();*/

/*apabila pendefinisian debelum funsi main, tidak melakukan

pendekalarsian seperti ini pun tdak apa-apa, sebenarnya

pendefinisian seperti ini agar nantinya si comfiler bisa

mengenali si fungsi karena proses pembacaan comfiler dari

atas ke bawah dan yang di kerajaklan paling utama adalah si

fungsi main*/

main(){
cout<<"masukan data pertama 'ini adlah fungsi main();'"<<endl;

masukan();/*pemangilan fungsi dengan tanpa parameter argumen */

cout<<"masukan data kedua 'ini adlah fungsi main();'"<<endl;

masukan();/*pemangilan fungsi parameter tanpa parameter argumen */



system("pause");

}

void masukan(){//pendefinisian fungsi
int aa;

cin>>aa;

/*pemangilan fungsi dengan parameter argument a

di dalam sebuah sub fungsi*/

cetak(aa);

}

void cetak(int aa){//pendefinisian fungsi

cout<<" ini adalah fungsi cetak fungsi cetak(); "<<endl;

cout<<"nilainya adalah ("<<aa<<")"<<endl;

}

atau download code program c++ nya
fungsi2.cpp

hasil run nya

read more - memahami fungsi cpp 2 " tanpa nilai balik atau void "

belajar blog agar dapat terdeteksi atau di temukan mesin pencari

ketika saya sedang iseng mencari artikel tentang fungsi cpp ternyata si search engine dari google malah mengarhakanya ke blog saya.. wah wah, sepotan saya binggung ada apa sedang terjadi .. ternyata penyebab nya adalah dari beberapa hari yang lalu hasil dari otak-atik script pengoptimalan search angine " seo " dari beberapa artilce yang saya baca,dan mungkin ini epeknya hehe "
>

1. bikin account terlebih dahulu disini
2. tahapan berikutnya paste kan link blog yang akan di daftarkan ke webmaster google



3. setelah itu kamu akan di suruh memverifikasi blog kamu

4. copy kan code verifikasinya " masuk ke edit tempelate -> masuk lagi edit html ->
lalu pastekan code tersebut di antara <head> code verify kamu </head>
setealah di pastekan lalu save tempelate
5. masuk ke webmaster lagi lalu clik verify nya
6. kalau berhasil maka tampilanya akan sperti ini





setingan berikutnya
pastekan code di bawah ini diantara <head> </head>

1. <meta content=',ini adalah untuk deskripsi blog ' name='Description'/>
fungsinya adalah tampilan utama ketika keywords yang merujuk ke blog kamu.
2.<meta content='kata kunci untuk blog kamu ' name='keywords'/>
3.< content='index, follow ' meta name='robots'/>ketika si mesin pencari menemukan keywords yang tepat dengan keywords kita,maka si index dari si blog kita akan di ikuti seperti pada gambar di atas ada dua page halaman blog saya. jika di perhatikan yang bawah nya itu adalah follow dari blog saya.
sekarang yang harus di bikin adalah bagai mana cara meraciknya agar si deskripsi sama si keyword itu bisa saling berkaitan agar tujuanya adalah menjadi magnet yang kuat ketika si pengujung atau si pencari informasi mengetikan kata kunci di searh angine dan merujuk page kita.
dan untuk setingan robots nya silahkan mampir kesini
http://www.google.com/support/webmasters/bin/answer.py?hl=en&answer=79812

read more - belajar blog agar dapat terdeteksi atau di temukan mesin pencari