Membuat Calculator Sederhana di Visual Basic 6

Assalamualaikum Wr. Wb

E-currency exchanger list Hai teman-teman pada kesempatan kali ini saya akan  berbagi tutorial Membuat calculator sederhana  di Visual Basic 6. Okey kita langsung aja

1. Klisk Start
2. Tunjuk Program, dilanjutan dengan Microsoft Visual Basic 6.0
3. Klik Microsoft Visual Basic 6.0
4. Akan muncul gambar seperti dibawah ini, pilih Standard Exe, Klik Open

Membuat Program Simulasi Lampu Stopan di Visual Basic 6

Assalamualaikum Wr. Wb

Hai teman-teman pada kesempatan kali ini saya akan  berbagi tutorial Membuat progam simulasi lampu stopan di Visual Basic 6. Okey kita langsung aja

1. Klisk Start
2. Tunjuk Program, dilanjutan dengan Microsoft Visual Basic 6.0
3. Klik Microsoft Visual Basic 6.0
4. Akan muncul gambar seperti dibawah ini, pilih Standard Exe, Klik Open

Membuat Aplikasi Sederhana Menghitung Luas dan Keliling Persegi Panjang di Visual Basic 6

Assalamualaikum Wr. Wb

Hai teman-teman pada kesempatan kali ini saya akan  berbagi tutorial Membuat Aplikasi Sederhana Menghitung Luas dan Keliling Persegi Panjang di Visual Basic 6. Okey kita langsung aja

1. Klik Start

2. Tunjuk Program, dilanjutan dengan Microsoft Visual Basic 6.0

3. Klik Microsoft Visual Basic 6.0

4. Akan muncul gambar seperti dibawah ini, pilih Standard Exe, Klik Open

Program Menghitung Hari Dalam Satu Bulan di C++

Sintak Programnya :

#include <iostream>

int year, month, day;
void input();
void errorYear();
void errorMonth();
void again();
int main()
{
    cout<<"Program menghitung hari dalam satu bulan."<<endl;
    input();
}
void input()
{
    cout<<"Masukkan angka tahun:"<<endl;
    cin>>year;
    cout<<"Masukkan angka bulan:"<<endl;

Program Pertambahan 2 Matriks Ordo 4X3 di Pascal

Sintak Programnya :

PROGRAM pertambahan_2_matrik_ordo_4x3;
USES WINCRT;
VAR
 Matrik1 : ARRAY [1..4,1..3] OF INTEGER;
Matrik2 : ARRAY [1..4,1..3] OF INTEGER;
Matrik3 : ARRAY [1..4,1..3] OF INTEGER;
   A, B: INTEGER;
BEGIN
WRITEln('masukan nilai matrik ke-1 :');
writeln('---------------------------');
     FOR A :=1 TO 4 DO
     BEGIN
          FOR B := 1 TO 3 DO
          BEGIN
               wRITE('Data nilai ke-[',A,',',B,']');
               READLN(matrik1[A][B]);
          END;
     END;

Program Perkalian 2 Matriks Ordo 2x3 di Pascal

Pada kesempatan kali ini saya akan posting Program Perkalian 2 Matrix Ordo 2x3 di Pascal.

Sintak programnya :

perkalian_2_matrik_ordo_2x3;
USES WINCRT;
VAR
 Matrik1 : ARRAY [1..2,1..3] OF INTEGER;
Matrik2 : ARRAY [1..2,1..3] OF INTEGER;
Matrik3 : ARRAY [1..2,1..3] OF INTEGER;
   A, B: INTEGER;
BEGIN
WRITEln('masukan nilai matrik ke-1 :');
writeln('---------------------------');
     FOR A :=1 TO 2 DO
     BEGIN
          FOR B := 1 TO 3 DO
          BEGIN
               wRITE('Data nilai ke-[',A,',',B,']');
               READLN(matrik1[A][B]);
          END;
     END;

Membuat Program Penjualan Menggunakan Turbo Pascal

Pada kesempatan kali ini saya akan posting membuat program penjualan menggunakan turbo pascal.

Sintak programnya :

Program Penjualan;
uses wincrt;
const
jenis_barang = 20;
a = '********************************************************************************';
b = ' INPUT DATA BARANG';
c = '----------------------------------------------------------------------------------------------------';
d = ' OUTPUT DATA BARANG ';
e ='===================================================';
Type
recordbarang = record
Kode : string[6];
Nama : string[15];
Jumlah : byte;
Ukuran : string[12];
harga_unit:real;
end;

Doa Niat Puasa dan Buka Puasa Ramadhan

Bulan ramadhan telah tiba bulan suci penuh berkah dan ampunan. Marilah kita sambut bulan ramadhan dengan penuh kecerian.

Doa Niat Puasa

نَوَيْتُ صَوْمَ غَدٍ عَنْ اَدَاءِ فَرْضِ شَهْرِ رَمَضَانَ هَذِهِ السَّنَةِ ِللهِ تَعَالَى

Nawaitu saumagadin an'adai fardi syahri ramadhana hadzihissanati lillahita'ala.

Artinya :

Sengaja aku berpuasa esok hari untuk menunaikan fardhu puasa pada bulan Ramadhan bagi tahun ini karena Allah Taala