RSS Feed
Twitter
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 WithEnd Sub
Maksudnya...
Saturday, July 6, 2013
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" Thentxtpassword.Enabled = FalsecmdOK.Enabled = FalsefrmMenu.ShowElseMsgBox "Password Anda Salah, Silahkan Coba Lagi!!!"jumlah = jumlah + 1If jumlah > 2 Then EndEnd Iftxtpassword.Text = ""txtpassword.SetFocusEnd IfEnd Sub...
Wednesday, July 3, 2013
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...
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);
...
10:21 AM
Unknown
contoh program if c++
Agit Naeta
Selasa, Mei 22, 2012
C++Program C
#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...
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...
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...
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;
...
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 :...
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...
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...
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]);
...
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:=...
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...
Subscribe to:
Posts (Atom)
