Menampilkan Nilai dan Karakter ASCII dengan VB6

1. Buka Project baru
2. Buat:
    1 buah ListBox :
        - Name    : List1

3. Klik kanan pada form dan pilih view code

Cara Blok (Select All) isi TextBox dengan VB6

1. Buka Project baru
2. Buat:
    1 buah TextBox :
        - Name    : Text1

3. Klik kanan pada form dan pilih view code

Menampilkan LocalIP (winsock) dengan Visual Basic 6 (VB6)

Silahkan Ikuti Langkah-Langkah di bawah ini:
1. Buka Project baru
2. Tambahkan component Microsoft Winsock Control 6.0

3. Buat:

    1 buah Timer : 
        - Name : Timer1 
        - Interval : 500 

Program Membalik Kata dengan c++

Di bawah ini adalah source code bahasa c++ untuk Membalik Kata:

#include <iostream.h> #include <string.h> #include <conio.h> void main() { char kata[1000]; int j,i; cout<<"PROGRAM YANG AKAN DIBALIK."<<endl<<endl; cout<<"\tMasukkan Kata : "; cin.getline(kata,sizeof(kata)); j=strlen(kata); cout<<endl<<"\tSetelah Dibalik :"; for(i=j;i>=0;i--) { cout<<kata[i]; } cout<<endl<<endl<<"========================"; getch(); }

Selamat mencoba..
Untuk compilernya bisa  Download disini.

Program Matriks dengan c++

Di bawah ini adalah source code bahasa c++ membuat Matriks:

#include <iostream.h> #include <conio.h> #include <iomanip.h> #include <windows.h> void main() { int A[100][100],B[100][100],C[100][100],i,j,k,l,m; clrscr(); cout<<"baris = ";cin>>l; cout<<"kolom = ";cin>>m; //masukkan matrix A cout<<"Silahkan input matrik A : \n"; cout<<"------------------------- \n"; for(i=0;i<l;i++) { for(j=0;j<m;j++) { cout<<"Elemen ke "<<(i+1)<<","<<(j+1)<<" : "; cin>>A[i][j]; } } //cetak matrix A cout<<"\nMatrik A : \n";; for(i=0;i<l;i++) { for(j=0;j<m;j++) { cout<<setw(4)<<A[i][j]; } cout<<endl; } cout<<endl; //masukkan matriks B cout<<"Silahkan input matrik B : \n"; cout<<"------------------------- \n"; for(i=0;i<l;i++) { for(j=0;j<m;j++) { cout<<"Elemen ke "<<(i+1)<<","<<(j+1)<<" : "; cin>>B[i][j]; } } //cetak matrix B cout<<"\nMatrik B : \n"; for(i=0;i<l;i++) { for(j=0;j<m;j++) { cout<<setw(4)<<B[i][j]; } cout<<endl; } //Operasi Perkalian for (i=0;i<l;i++) { for (j=0;j<m;j++) { C[i][j]=0; for (k=0;k< l;k++) { C[i][j]+= A[i][k]*B[k][j]; } } system ("pause"); } //Menampilkan hasil cout<<"\nMatrik C, Hasil : \n"; for(i=0;i<l;i++) { for(j=0;j<m;j++) { cout<<setw(4)<<C[i][j]; } cout<<endl; } cout<<endl; getch(); }

Selamat mencoba..

Untuk compilernya bisa  Download disini.

Program Rumus ABC dengan c++

Di bawah ini adalah source code bahasa c++ Rumus ABC:

#include "iostream.h" #include "math.h" #include "windows.h" int main() { float a,b,c,x1,x2,akar; cout<<"a = ";cin>>a; cout<<"b = ";cin>>b; cout<<"c = ";cin>>c; endl; if(a==0&&b==0) { cout<<"tidak ada akar"; endl; } else { if(a==0) { x1=-c/b; cout<<"x1 = "<<x1<<endl; } else { akar=pow(b,2)-(4*a*c); } if (akar<0) { cout<<"imajiner"<<endl; } else { x1=(-b+sqrt(akar))/(2*a); x2=(-b-sqrt(akar))/(2*a); cout<<"x1 = "<<x1<<endl; cout<<"x2 = "<<x2<<endl; } } system("pause"); endl; }

Selamat mencoba..

Untuk compilernya bisa  Download disini.

Program Membaca Bilangan dengan c++

Di bawah ini adalah source code bahasa c++ untuk membaca bilangan:

#include<iostream.h> #include<stdio.h> #include<conio.h> void ribuan(int angka); void ratusan(int angka); void puluhan(int angka); void satuan(int angka); void main() { long int angka; int tekan; clrscr(); do { do { clrscr(); cout <<"Program membaca bilangan"; cout <<"\n"; cout <<"\nMasukkan angka (0-9999): "; cin >>angka; } while (angka > 9999 || angka < 0); printf("Dibaca: "); if (angka>999) ribuan(angka); else if (angka>99) ratusan(angka); else if (angka>9) puluhan(angka); else if (angka>-1) satuan(angka); tekan=getch(); } while(tekan != 27); } void ribuan(int angka) { int temp1,temp2; temp1=angka/1000; temp2=angka%1000; if (temp1 <10 && temp1 > 1) { satuan(temp1); cout << "ribu "; } else cout <<"seribu "; if (temp2 > 99) ratusan(temp2); else if (temp2 > 9) puluhan(temp2); else if (temp2 > 0) satuan(temp2); } void ratusan(int angka) { int temp1,temp2; temp1=angka/100;temp2=angka%100; if (temp1 < 10 && temp1 > 1) { satuan(temp1); cout <<"ratus "; } else if (temp1 == 1) cout <<"seratus "; if (temp2 > 9) puluhan(temp2); else if(temp2 >0) satuan(temp2); } void puluhan(int angka) { int temp1,temp2; temp1=angka/10;temp2=angka%10; switch (temp1) { case 1: { if (temp2 == 0) { cout <<"sepuluh ";break; } else if (temp2 == 1) { cout <<"sebelas ";break; } else if (temp2 == 2) { cout <<"dua belas ";break; } else if (temp2 == 3) { cout <<"tiga belas ";break; } else if (temp2 == 4) { cout <<"empat belas ";break; } else if (temp2 == 5) { cout <<"lima belas ";break; } else if (temp2 == 6) { cout <<"enam belas ";break; } else if (temp2 == 7) { cout <<"tujuh belas ";break; } else if (temp2 == 8) { cout <<"delapan belas ";break; } else if (temp2 == 9) { cout <<"sembilan belas ";break; } } default:{satuan(temp1); cout <<"puluh ";} } if (temp2 > 0 && angka >19) satuan(temp2); } void satuan(int angka) { switch (angka) { case 9: cout <<"sembilan ";break; case 8: cout <<"delapan ";break; case 7: cout <<"tujuh ";break; case 6: cout <<"enam ";break; case 5: cout <<"lima ";break; case 4: cout <<"empat ";break; case 3: cout <<"tiga ";break; case 2: cout <<"dua ";break; case 1: cout <<"satu ";break; case 0: cout <<"nol ";break; } }

Selamat mencoba..

Untuk compilernya bisa  Download disini.

Program Mencari Sisi Segitiga dengan c++

Di bawah ini adalah source code bahasa c++ untuk mencari sisi Segitiga:

#include <stdio.h> #include <conio.h> #include <windows.h> #include <string.h> #include <iostream.h> #include <math.h> #include <stdlib.h> int menu(void); float alas(void); float tinggi(void); float miring(void); int exit(void); main() { menu(); return 0; } int menu(void) { int a; clrscr(); cout<<"\n1.Mencari Nilai Alas\n" "2.Mencari Nilai Tinggi\n" "3.Mencari Nilai Sisi Miring\n" "4.Keluar\n\n" "Masukkan Pilihan = "; cin>>a; switch (a) { case 1: alas(); break; case 2: tinggi(); break; case 3: miring(); break; case 4: clrscr(); cout<<endl; system("pause"); break; default: cout<<"Pilihan yang anda masukkan tidak tersedia..."; getch(); exit(); } return 0; } float alas() { float a,t,m; clrscr(); cout<<"Mencari Alas Segittiga\n\n"; cout<<"Masukkan Tinggi = "; cin>>t; cout<<"Masukkan Sisi Miring = "; cin>>m; a=sqrt((m*m)-(t*t)); cout<<"\nNilai Alas = "<<a; getch(); exit(); return 0; } float tinggi() { float a,t,m; clrscr(); cout<<"Mencari Tinggi Segitiga\n\n"; cout<<"Masukkan Alas = "; cin>>a; cout<<"Masukkan Sisi Miring = "; cin>>m; t=sqrt((m*m)-(a*a)); cout<<"Nilai Tinggi = "<<t; getch(); exit(); return 0; } float miring() { float a,t,m; clrscr(); cout<<"Mencari Sisi Miring Segitiga\n\n"; cout<<"Masukkan Alas = "; cin>>a; cout<<"Masukkan Tinggi = "; cin>>t; m=sqrt((a*a)+(t*t)); cout<<"Nilai Sisi Miring = "<<m; getch(); exit(); return 0; } int exit() { menu(); return 0; }

Selamat mencoba..

Untuk compilernya bisa  Download disini.

Module Copy text di dalam TextBox dengan VB6

Di bawah ini adalah source code module VB6 untuk copy text di dalam TextBox:
Sub copytext(tbx As TextBox) Clipboard.Clear Clipboard.SetText tbx.Text End Sub

Selamat mencoba..

Module Form Transparan dengan VB6

Di bawah ini adalah source code module VB6 untuk membuat form transparan:

Const LWA_COLORKEY = &H1 Const GWL_EXSTYLE = (-20) Const WS_EX_LAYERED = &H80000 Const BM_SETSTATE = &HF3 Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Sub Transparant(NamaForm As Form) Dim CLR As Long Dim Ret As Long NamaForm.BackColor = &HFF0000 CLR = &HFF0000 Ret = GetWindowLong(NamaForm.hwnd, GWL_EXSTYLE) Ret = Ret Or WS_EX_LAYERED SetWindowLong NamaForm.hwnd, GWL_EXSTYLE, Ret SetLayeredWindowAttributes NamaForm.hwnd, CLR, 0, LWA_COLORKEY End Sub

Selamat mencoba..

Program Mencari KPK dengan c++

Di bawah ini adalah source code bahasa c++ untuk mencari KPK dari 2 buah bilangan:

//*** Program KPK *** #include <iostream.h> #include <conio.h> #include <windows.h> void main() { int m, n, nilai; nilai=0; cout<<"*** Program KPK ***\n\n"; cout<<"Masukkan bilangan pertama = "; cin>>m; cout<<"Masukkan bilangan kedua = "; cin>>n; for(int c=1;c<=n;c++) { nilai=nilai+m; if (nilai%n==0) { cout<<"KPK antara "<<m<<" dan "<<n<<" Adalah = "<<nilai<<'\n'; endl; system("pause"); } } }

Selamat mencoba..

Program Mencari FPB dengan c++

Silahkan di copy aja source code untuk membuat program mencari FPB dari 2 buah bilangan..

//*** Program menghitung FPB *** #include <iostream.h> #include <conio.h> int main() { int m,n,r; cout<<"*** Program FPB ***\n\n"; cout<<"Masukkan bilangan pertama : ";cin>>m; cout<<"Masukkan bilangan kedua : ";cin>>n; r=m%n; while(r!=0) { m=n; n=r; r=m%n; } cout<<"Faktor persekutuan terbesarnya adalah : "<<n<<"\n"; getch(); }

Selamat mencoba..

Untuk compilernya bisa  Download disini.

Program Mencari Nilai Faktorial dengan c++

Program untuk mencari faktorial dari sebuah bilangan, ini dia source codenya.

//***Program Faktorial*** #include<iostream.h> #include<conio.h> int main() { int m,i; long int x; cout<<"*** Program Faktorial ***\n\n"; cout<<"masukkan bilangan: ";cin>>m; x=1; for (i=m;i>0;i--) { x=x*i; } cout<<m<<"! = "<<x<<"\n"; getch(); }

Selamat mencoba..

Untuk compilernya bisa  Download disini.