Follow me on Twitter!

Saturday, July 6, 2013

Kode Simpan Pada Visual Basic 6

6:53 AM

Unknown

Contoh kode ini adalah kode yang diterapkan pada aplikasi komplit atau lengkap, misal

Private Sub Command1_Click()
With Adodc1.Recordset
.AddNew
!NIK = Text12.Text
!NAMA = Text13.Text
!TEMPAT_LHR = Text14.Text
!TGL_LHR = Text15.Text
!RT = Text5.Text
!RW = Text6.Text
!KEC = Text8.Text
!KELURAHAN = Text7.Text
!AGAMA = Combo1.Text
!PEKERJAAN = Text9.Text
!WARGA = Text10.Text
!BERLAKU = Text11.Text
!GOL = Combo2.Text
!Loc = Text16.Text
!PIC = Image1

Kode tambahan di posisi ini

End With
End Sub

Maksudnya adalah : Dengan melalui Adodc1 tempat penyimpanannya Tambahkan baru
!NIK (nama kolom pada database), diisi oleh text12. jenis nya text begitu seterusnya.

Untuk Mengosongkan text 12 dan seterusnya setelah penyimpanan anda bisa menyimpan kode berikut pada kode tambahan.

Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text16.Text = ""
Option3.Refresh
Option4.Refresh
Check4.Refresh
Check5.Refresh

Kode Login Pada Visual Basic6

6:46 AM

Unknown

Contoh program visual basic, Pada saat login tentunya kita membutuhkan kode berikut adalah kode untuk form login

Private Sub cmdOK_Click()
If LCase(txtpassword.Text) = "admin" Then
txtpassword.Enabled = False
cmdOK.Enabled = False
frmMenu.Show
Else
MsgBox "Password Anda Salah, Silahkan Coba Lagi!!!"
jumlah = jumlah + 1
If jumlah > 2 Then
End
End If
txtpassword.Text = ""
txtpassword.SetFocus
End If
End Sub

Wednesday, July 3, 2013

contoh program pointer C++

10:27 AM

Unknown

contoh program pointer C++
#include "stdio.h"
#include "conio.h"

void main()
{
int *point;
int a=7, b=15;

printf(" Nilai a : %d \n", a);
printf(" Alamat a : %p \n\n", &a);

point=&a;

printf(" Nilai point = %p \n", point);
printf(" Alamat point = %p \n", &point);
printf(" nilai rujukan point = %d \n\n", *point);

*point=10; // nilai a diganti dengan nilai pointer

printf(" Nilai point = %p \n", point);
printf(" Alamat point = %p \n", &point);
printf(" nilai rujukan point = %d \n\n", *point);

printf(" Nilai a : %d \n", a);
printf(" Alamat a : %p \n\n", &a);

printf(" Nilai B : %d \n", b);
printf(" Alamat B : %p \n\n", &b);

point=&b; // rujukan pointer diganti rujukan nilai b

printf(" Nilai point = %p \n", point);
printf(" Alamat point = %p \n", &point);
printf(" nilai rujukan point = %d \n\n", *point);

getch();
}

COntoh Program C | Struct

10:22 AM

Unknown

Contoh Program Struct C++

Boleh copas Cuma Cantumin sumbernya ya!!

// Program : struct2.cpp

#include <iostream.h>

#include <string.h>

#include <stdlib.h>

struct movies_t {

char title [50];

int year;

} mine, yours;

void printmovie (movies_t movie);

int main ()

{

char buffer [50];

strcpy (mine.title, "2001 A Space Odyssey");

mine.year = 1968;

cout << "Masukkan judul film favorit: ";

cin.getline (yours.title,50);

cout << "Masukkan tahun: ";

cin.getline (buffer,50);

yours.year = atoi (buffer);

cout << "Judul film favorit yang ada:\n ";

printmovie (mine);

cout << "Judul film favorit kamu adalah:\n ";

printmovie (yours);

return 0;

}

void printmovie (movies_t movie)

{

cout << movie.title;

cout << " (" << movie.year << ")\n";

}

....................................

// Program : struct3.cpp

// array of structures

#include <iostream.h>

#include <stdlib.h>

#define N_MOVIES 5

struct movies_t {

char title [50];

int year;

} films [N_MOVIES];

void printmovie (movies_t movie);

int main ()

{

char buffer [50];

int n;

for (n=0; n<N_MOVIES; n++)

{

cout << "Masukkan judul film: ";

cin.getline (films[n].title,50);

cout << "Masukkan tahun : ";

cin.getline (buffer,50);

films[n].year = atoi (buffer);

}

cout << "\nFilm yang menjadi favotir kamu:\n";

for (n=0; n<N_MOVIES; n++)

printmovie (films[n]);

return 0;

}

void printmovie (movies_t movie)

{

cout << movie.title;

cout << " (" << movie.year << ")\n";

}

........................

// Program : struct4.cpp

#include <iostream.h>

struct time {

int jam;

int min;

};

struct rencana {

struct time *awal; /* penunjuk bagi struktur */

struct time *akhir;

};

struct time jk = { 1,2 };

struct time kl = { 3,4 };

struct rencana kerja = { &jk,&kl };

main()

{

kerja.akhir->min = 37;

cout << kerja.awal->jam << " " << kerja.awal->min << " "

<< kerja.akhir->jam << " " << kerja.akhir->min << endl;

}

Contoh Program C | IF ( Sederhana)

10:21 AM

Unknown

contoh program if c++

Selasa, Mei 22, 2012

#include<stdio.h>
#include<conio.h>
main(void)
{
long int keseharian,uts,uas;
float nilai_total;
char hasil,nama;
    printf("masukan nama :");scanf("%s",&nama);
    printf("masukan nilai Keseharian:");scanf("%li",&keseharian);
    printf("masukan nilai UTS:");scanf("%li",&uts);
    printf("masukan nilai UAS:");scanf("%li",&uas);
nilai_total=(keseharian+uts+uas)*0.5;
    if(nilai_total>5)
{
    printf("Nilai anda %0.2f",nilai_total);
    printf("\n%s anda dinyatakan Lulus",nama); }
else
    printf("Nilai anda %0.2f",nilai_total);
    printf("\n%s anda dinyatakan Gagal",nama);
}

Contoh Program Bahasa C | KUmpulan C++ Lengkap

10:18 AM

Unknown

Pelajar mengenai bahasa C lengkap dan mudah, Perlu pembelajaran secara lebih lagi mengenai program ini maka anda wajib membaca semua jika anda ingin bisa klik

Kumpulan Contoh Program C

10:13 AM

Unknown

Contoh Program C Kumpulan contoh program c++ untuk teknik informatika beserta contoh program c ddalam penerapannya. contoh program pointer, array, struct, if, case, tree semuanya lengkap di sini.

Contoh Program

1. Contoh Program pointer C++

2. Contoh Program Array C++

3. Contoh Program Struct C++

4. Contoh Program Sruct

5. Contoh Program IF C++

6. Contoh Program Case

7. Contoh Program tree

Contoh Program Terapan nya :

1. Contoh Program Perhitungan Uas

2. Contoh Program Akutansi Hotel\

Teori

1. Pointer

2. bubble Short

3. insertion sort

4. MAximum sort

Contoh Program C ++ | Cin dan Cout

10:08 AM

Unknown

#include<iostream.h>
#include<stdio.h>
#include<conio.h>
void main()
{
int menu;
float nilai,kh,akt,tgs,uts,uas;
char nama[187],nim[187],ttl[187],jk[187],jr[187],pnddkn[187],sk[187],almt[187];
char lagi;
atas:
clrscr();
cout<<"\n";
cout<<"MENU PROGRAM DATA MAHASISWA"<<endl;
cout<<"1. BIODATA MAHASISWA"<<endl;
cout<<"2. TABEL MATA KULIAH"<<endl;
cout<<"3. PENILAIAN"<<endl;
cout<<"4. CLOSE"<<endl;
cout<<"Masukan MENU yang anda inginkan [1-4]:";
cin>>kategori;
switch(kategori)
{
case 1:
{
cout << "MASUKAN NAMA:";
cin >>nama;
cout << "MASUKAN NIM :";
cin >>nim;
cout << "MASUKAN JENIS KELAMIN:";
cin >>jk;
cout << "TTL:";
cin >>ttl;
cout << "JURUSAN:";
cin >>jr;
cout << "PENDIDIKAN TERAKHIR:";
cin >>pnddkn;
cout << "MASUKAN NAMA SEKOLAH TINGGI:";
cin >>sk;
cout << "ALAMAT:";
cin >>almt;
cout << " -----------BIODATA ANDA-------------\n";
cout << "\njadi nama anda =" <<nama;
cout << "\njadi NIM anda =" <<nim;
cout << "\njadi jenis kelamin anda =" <<jk;
cout << "\njadi TTL anda =" <<ttl;
cout << "\njadi Program studi anda =" <<jr;
cout << "\njadi pendidikan anda =" <<pnddkn;
cout << "\njadi sekolah tinggi anda =" <<sk;
cout << "\njadi alamat anda =" <<almt;
break;
}
case 2:
printf("-------------------------------------------\n");
printf(" TABEL MATA KULIAH\n");
printf("-------------------------------------------\n");
printf("- NO - MATA KULIAH - SKS - RUANG - \n");
printf("-------------------------------------------\n");
printf("- 1 - PEMROGRAMAN DASAR - 1 - 6 - \n");
printf("- 2 - PEMROGRAMAN DASAR - 2 - lab1 - \n");
printf("- 3 - STRUKTUR DATA - 2 - 6 - \n");
printf("-------------------------------------------\n");
break;
case 3:
printf("-------------------------------------------\n");
printf(" PENILAIAN MAHASISWA\n");
printf("-------------------------------------------\n");
printf("Berapa Nilai KEHADIRAN Anda = ");scanf("%f",&kh);
printf("Berapa Nilai KEAKTIVAN Anda = ");scanf("%f",&akt);
printf("Berapa Nilai TUGAS Anda = ");scanf("%f",&tgs);
printf("Berapa Nilai UTS Anda = ");scanf("%f",&uts);
printf("Berapa Nilai UAS Anda = ");scanf("%f",&uas);
nilai=(0.15*kh)+(0.1*akt)+(0.15*tgs)+(0.25*uts)+(0.35*uas);
printf("-------------------------------------------\n");
printf(" NILAI AKHIR ANDA =%.2f",nilai);
printf("-------------------------------------------\n");
break;
case 4:
printf("-------------------------------------------\n");
printf(" DATANG LAGI YA!!!! \n");
printf("-------------------------------------------\n");
break;
default:
cout<<"Kode tidak ada";
}
printf("\n\nIngin ulang Lagi ?? [Y/T] : ");
lagi = getche() ;
if (lagi == 'Y' || lagi == 'y')
goto atas;

}

Free Download Aplikasi C++

10:07 AM

Unknown

Download Gratis Aplikasi C ++ dalam bentuk rar, Aplikasi ini sama seperti turbo pascal yaitu aplikasi berbasis text.

Silahkan Download gratis tinggal Klik Link disini

Contoh Program Pascal | Aljabar Sederhana

10:02 AM

Unknown

uses wincrt;
var x,x_satu,x_dua,x_tiga:integer;
f:integer;
begin;
clrscr;
writeln('selamat datang di program 2x+1)');
write('masukan x :');readln(x);
f:=2*x+1;
writeln('==============================');
writeln('hasil total :',f);
end.

Contoh Program Pascal | Perhitungan Gaji Pokok

10:01 AM

Unknown

Program Kasus3;
Uses wincrt;
Var Nama:string;
Status,Ja:integer;
T,ti,Ta,gapok,gaber:real;
Begin
Clrscr;
write('Masukan Nama Pegawai : ');readln(Nama);
write('Masukan Gaji Pokok : ');readln(Gapok);
write('Masukan Status : ');readln(Status);
if status=1 then
begin
write('Masukan Jumlah Anak : ');readln(Ja);
ti:=0.1*gapok;
ta:=0.05*ja*gapok;
t:=ti+ta;
end
else if status=2 then
begin
t:=0;
end
else if status=3 then
begin
write('Masukan Jumlah Anak : ');readln(ja);
ti:=0;
ta:=0.05*Ja*Gapok;
T:=Ti+Ta;
end;
Gaber:=Gapok+T;
Write('Nama : ',Nama,' Gaji Bersih Anda : ',Gaber:10:2);
readln;
End.

Contoh Program Pascal | Dasar

10:00 AM

Unknown

Program Kasus1;
Uses wincrt;
Var Nama,Alamat,Pekerjaan:string;
Umur:integer;
Begin
Clrscr;
write('Masukan Nama Anda : ');readln(Nama);
write('Masukan Alamat Anda : ');readln(Alamat);
write('Masukan Umur Anda : ');readln(Umur);
write('Masukan Pekerjaan Anda : ');readln(Pekerjaan);
writeln('============iiiiiiiiii================');
writeln('Nama : ',Nama);
writeln('Alamat : ',Alamat);
writeln('Umur : ',Umur);
writeln('Pekerjaan :',Pekerjaan);
readln;
End.

Contoh Program Pascal | Perhitungan IPK

9:58 AM

Unknown

uses wincrt;
var a,b,c : string;
x : integer;
d:char;
Grade : string;
begin
repeat
clrscr;
write('masukan nama siswa :');readln(a);
write('masukan angkatan :');readln(b);
write('masukan kelas :');readln(c);
write ('Inputkan Nilai Angka : '); readln(x);
case x of
0..44 : Grade :='E';
45..54 : Grade :='D';
55..69 : Grade :='C';
70..84 : Grade :='B';
85..100 : Grade :='A';
else
grade :='Tidak ada Nilai';
end;
writeln('==============...HASIL....=============');
writeln('Nama :',a);
writeln('angkatan :',b);
writeln('kelas :',c);
writeln ('IPK :',Grade);
writeln('======================================='); readln;
clrscr;
write('apakah anda ingin mengitung lagi?[y/t]');readln(d);
until upcase(d)<>'Y';
end.

Contoh Program Pascal | IF Ganda

9:57 AM

Unknown

uses wincrt;
var c,d:integer;
begin
write('masukan c:');readln(c);
write('masukan d:');readln(d);
if (c>d) then
begin
write(c,'lebih besar dari',d);
end
else
begin
write(c,' lebih kecil dari',d);
end
end.

Contoh Program Pascal | IF ( Bersarang)

9:56 AM

Unknown

uses wincrt;
var agit, hendra, asep: integer;
X:char;
begin
repeat
write('masukan tinggi agit :');readln(agit);
write('masukan tinggi hendra :');readln(hendra);
if (agit>hendra) then
begin
if(hendra< agit) then
begin
write('agit lebih tinggi dari hendra ')
end
else if(hendra = agit) then
begin
write ('tinggi hendra sama dengan agit')
end
end
else
begin
write('hendra lebih tinggi dari agit');
readln ;
clrscr;
end ;
write('Apakah Anda Ingin Mengulang Lagi [Y/T]: ');readln(x);
until upcase (x)<>'Y';

end.

Contoh Program Pascal | Array

9:54 AM

Unknown

uses wincrt;
var Nama:array[1..3] of string;
x,i,h,a,b,c,d:integer;
nilai:array[1..3] of real;
begin for I:= 1 to 3 do
begin
clrscr;
writeln('SELAMAT DATANG DI PROGRAM KALKULASI KELULUSAN');
WRITELN('+++++++++++++++++++++++++++++++++++++++++++++');
writeln('KETERANGAN :');
WRITELN('INPUT NILAI 1-10');
writeln('BATAS KETUNTASAN ADALAH 5.0');
WRITELN('===========================');
write('masukan nama :');readln(Nama[i]);
write('masukan nilai keseharian :');readln(a);
write('masukan nilai UTS :');readln(b);
write('masukan nilai UAS :');readln(c);
nilai[i]:=(a+b+c)*0.5;

end;
clrscr;

for I:=1 to 3 do
if (nilai[i]) >=5then
begin
writeln('Nama : ',Nama[I],' mendapat nilai : ',nilai[i]:5:2);
writeln('SELAMAT ' ,NAMA[I], ' ANDA LULUS');
writeln('------------------------------');
end
else
begin
writeln('Nama : ',Nama[I],' mendapat nilai : ',nilai[i]:5:2);
Writeln('MAAF ' , NAMA[I] , ' ANDA GAGAL');
writeln('------------------------------');
end;

readln;
End.

Contoh Program Pascal | IF (Sederhana)

9:53 AM

Unknown

uses wincrt ;
var nama: string;
tinggi, berat :real;
u:real;
i,k,g:real;
begin
clrscr;
writeln('selamat datang di program ukur ideal');
writeln('====================================');
write(' masukan nama anda :');readln(nama);
write('masukan tinggi anda :');readln(tinggi);
write('masukan berat badan anda :');readln(berat);
u:= tinggi- berat;
if (u>50) and (u<=65) then
begin
writeln(' berat tubuh anda ideal');
end
else if (u>50) then
begin
writeln(' anda termasuk orang kurus');
end
else if (u<65) then
begin
writeln(' anda termasuk orang gemuk');
end
end.

Contoh Program Pascal | Sorting

9:51 AM

Unknown

PROGRAM SORT1;
Uses WinCrt;

CONST SIZE = 100; {maximum size of table}

TYPE
Table = Array[1..SIZE] of real;

VAR
A : Table; {Table to be sorted}
MAX_VALUE : real; {Maximum value of table}
i,N : integer;

{****************************************************
* Sorts an array ARR of length N in ascending order *
* by straight insertion. *
* ------------------------------------------------- *
* INPUTS: *
* N size of table ARR *
* ARR table to be sorted *
* OUTPUT: *
* ARR table sorted in ascending order *
* *
* NOTE: Straight insertion is a N² routine and *
* should only be used for relatively small *
* arrays (N<100). *
****************************************************}
Procedure PIKSRT(N:INTEGER;VAR ARR:Table);
Label 10;
Var i,j:INTEGER; a:REAL;
Begin
for j:=2 to N do
begin
a:=ARR[j];
for i:=j-1 downto 1 do
begin
if ARR[i]<=a then goto 10;
ARR[i+1]:=ARR[i]
end;
i:=0;
10: ARR[i+1]:=a
end
End;

{write table of size N to standard output}
Procedure TWRIT(N:INTEGER;ARR:Table);
Var i:integer;
begin
writeln;
for i:=1 to N do
begin
write(ARR[i]:6:0);
if (i MOD 5)=0 then writeln
end
end;

{main program}
BEGIN
{initialize random number generator}
Randomize;

N:=25; {initialize size of table}
MAX_VALUE := 1000.0;

{generate random table of numbers (between 0 and MAX_VALUE) }
for i:=1 to N do A[i]:=MAX_VALUE*Random;

writeln;
writeln(' Table to be sorted:');
TWRIT(N,A);

{call sorting subroutine}
PIKSRT(N,A);

writeln;
writeln(' Sorted table (straight insertion):');
TWRIT(N,A);

writeln;
ReadKey; DoneWinCrt

END.

Contoh Program Pascal | Case Of

9:40 AM

Unknown

Uses wincrt;
Var A:integer;
Begin
writeln('Masukan hari ke : ');readln(A);
Case (a) Of
1 : write ('hari ke',A,' adalah Senin');
2 : write ('hari ke',A,' adalah Selasa');
3 : write ('hari ke',A,' adalah Rabu');
4 : write ('hari ke',A,' adalah Kamis');
5 : write ('hari ke',A,' adalah Jumat');
6 : write ('hari ke',A,'adalah Sabtu');
7 : write ('hari ke',A,' adalah Minggu')
else write('salah ketik coyyy!!!');
End;
end.

Subscribe to: Posts (Atom)

Design by NewWpThemes | Blogger Theme by Lasantha - Premium Blogger Templates | NewBloggerThemes.com