Saya ingin berbagi informasi kepada teman-teman semua yang suka belajar program atau pun yang belum mengerti apa itu program. Bagi teman-teman yang ada niat untuk belajar mengenai program, teman-teman bisa buka atau kunjungi website mesran.net atau http://mesran.blogspot.com karena disitu kita bisa mengerti apa dan seperti apa program. Melalui http://mesran.blogspot.com teman-teman bisa belajar dari dasar mengenai program.
Website http://mesran.blogspot.com adalah website program yang sangat penting bagi kita yang suka ataupun yang ingin belajar program. http://mesran.blogspot.com di buat oleh Bapak Mesran, S.Kom, M.Kom yang merupakan salah satu Dosen STMIK BUDIDARMA MEDAN
Melalui website http://mesran.blogspot.com kita bisa mengetahui tips atau cara-cara yang mudah di mengerti untuk belajar program. Di website http://mesran.blogspot.com kita bisa belajar Program Visual Basic Net Untuk Penjualan Penjualan Menggunakan DataGridView, Penerapan Array Dimensi 1 Menggunakan Program C, Program Form Login Ke Aplikasi Menggunakan Username dan Password Di Database Menggunakan VB Net, Program VB Net Untuk Menampilkan Gambar Dari Database MySQL, Menampilkan Record File Bertipe di Pemrograman Pascal, Pencarian Record Data Database Access Menggunakan Visual Basic Net 2008, Merancang Menu Pada Program VB Net dan masih banyak yang lainnya
Setelah saya mengunjungi website http://mesran.blogspot.com dan mempelajari program-program yang ada di website tersebut, saya semakin suka dan paham. Karena di webstie tersebut dijelaskan bagaimana cara-cara menggunakan berbagai program.
Untuk lebih jelasnya, silahkan kunjungi website http://mesran.blogspot.com.
Terimakasih
Jumat, 08 Januari 2016
Minggu, 29 November 2015
V.Basic - Program Pembayaran Rekening Listrik (Quis)
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LV.Columns.Add("Kode", 70, HorizontalAlignment.Center)
LV.Columns.Add("Harga", 100, HorizontalAlignment.Left)
LV.Columns.Add("Jenis", 100, HorizontalAlignment.Left)
LV.Columns.Add("Beban", 100, HorizontalAlignment.Left)
LV.Columns.Add("Pemakaian", 100, HorizontalAlignment.Left)
LV.Columns.Add("Pembayaran", 100, HorizontalAlignment.Left)
LV.View = View.Details
LV.FullRowSelect = True
LV.GridLines = True
Kode.Items.Add(1)
Kode.Items.Add(2)
Kode.Items.Add(3)
End Sub
Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
If Kode.Text = 1 Then
Jenis.Text = "Rumah"
Beban.Text = 25000
Harga.Text = 3000
ElseIf Kode.Text = 2 Then
Jenis.Text = "Toko"
Beban.Text = 50000
Harga.Text = 5000
ElseIf Kode.Text = 3 Then
Jenis.Text = "Pabrik"
Beban.Text = 100000
Harga.Text = 10000
End If
End Sub
Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
Pembayaran.Text = Val(Beban.Text) + Val(Harga.Text) * Val(Pemakaian.Text)
Dim lst As New ListViewItem
lst.Text = Kode.Text
lst.SubItems.Add(Harga.Text)
lst.SubItems.Add(Jenis.Text)
lst.SubItems.Add(Beban.Text)
lst.SubItems.Add(Pemakaian.Text)
lst.SubItems.Add(Pembayaran.Text)
LV.Items.Add(lst)
End Sub
Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
Kode.Text = ""
Harga.Text = ""
Jenis.Text = ""
Beban.Text = ""
Pemakaian.Text = ""
Pembayaran.Text = ""
LV.Items.Clear()
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
End
End Sub
End Class
Senin, 08 Juni 2015
Quis Online - Kasus Pembayaran Gaji Pegawai Menggunakan Turbo C++
#include "iostream.h"
#include "conio.h"
void main(){
int i,nik[15],gol[15],jumdata=3;
char*Nap;
float gapok,pajak,gaber;
cout<<"\nInput Data Pegawai";
for(i=0;i<jumdata;i++){
cout<<"\nNIK :";cin>>nik[i];
cout<<"\nGol :";cin>>gol[i];
}
clrscr();
cout<<"\n\t\tInformasi Pembuatan Gaji Pegawai";
cout<<"\n===============================================";
cout<<"\nNo NIK Nama Pegawai Golongan Gaji pokok Pajak Gaji Bersih";
cout<<"\n===============================================";
for(i=0;i<jumdata;i++){
if(nik[i]==1 && gol[i]==1){
Nap="Hendro";
gapok=1500000;
}else if(nik[i]==2 && gol[i]==2){
Nap="Dian";
gapok=2500000;
}else if(nik[i]==3 && gol[i]==3){
Nap="Jhoni";
gapok=3500000;
}
pajak=0.05*gapok;
gaber=gapok-pajak;
gotoxy(1,6+i);cout<<9;
gotoxy(5,6+i);cout<<nik[i];
gotoxy(10,6+i);cout<<Nap;
gotoxy(23,6+i);cout<<gol[i];
gotoxy(33,6+i);cout<<gapok;
gotoxy(43,6+i);cout<<pajak;
gotoxy(52,6+i);cout<<gaber;
}
cout<<"\n===============================================";
cout<<"\n\t-_-_-_-_-Martinus Hasiholan-_-_-_-_-";
getch();
}
#include "conio.h"
void main(){
int i,nik[15],gol[15],jumdata=3;
char*Nap;
float gapok,pajak,gaber;
cout<<"\nInput Data Pegawai";
for(i=0;i<jumdata;i++){
cout<<"\nNIK :";cin>>nik[i];
cout<<"\nGol :";cin>>gol[i];
}
clrscr();
cout<<"\n\t\tInformasi Pembuatan Gaji Pegawai";
cout<<"\n===============================================";
cout<<"\nNo NIK Nama Pegawai Golongan Gaji pokok Pajak Gaji Bersih";
cout<<"\n===============================================";
for(i=0;i<jumdata;i++){
if(nik[i]==1 && gol[i]==1){
Nap="Hendro";
gapok=1500000;
}else if(nik[i]==2 && gol[i]==2){
Nap="Dian";
gapok=2500000;
}else if(nik[i]==3 && gol[i]==3){
Nap="Jhoni";
gapok=3500000;
}
pajak=0.05*gapok;
gaber=gapok-pajak;
gotoxy(1,6+i);cout<<9;
gotoxy(5,6+i);cout<<nik[i];
gotoxy(10,6+i);cout<<Nap;
gotoxy(23,6+i);cout<<gol[i];
gotoxy(33,6+i);cout<<gapok;
gotoxy(43,6+i);cout<<pajak;
gotoxy(52,6+i);cout<<gaber;
}
cout<<"\n===============================================";
cout<<"\n\t-_-_-_-_-Martinus Hasiholan-_-_-_-_-";
getch();
}
Senin, 25 Mei 2015
My Profil
Nama : Martinus Hasiholan N
TTL : Jakarta, 17 Maret 1996
Jenis Kelamin : Laki-Laki
Alamat : Jalan Bendungan II Gg.Famili 1
Agama : Kristen Prostestan
Pekerjaan : Mahasiswa (STMIK BUDIDARMA MEDAN)
Riwayat Pendidikan :
STMIK BUDIDARMA MEDAN
SMA KATOLIK TRISAKTI MEDAN (2014)
SMP NEGERI 23 MEDAN (2011)
SD ST ANTONIUS MEDAN (2008)
Membuat Program Sederhana Menggunakan C++
#include<conio.h>
#include<iostream.h>
main()
{
char nama_kasir[15], ntransaksi[10], kode_susu, jenis_susu[15], kode_kasir[15];
float uang_bayar, jumlah_beli, harga, tharga, jharga, diskon, total_bayar, kembali;
ulang:
cout<<"-------------------------------------------"<<endl;
cout<<"\n TOKO SUSU BAYI "<<endl;
cout<<"\n -MILK COUNTER- "<<endl;
cout<<"\n==========================================="<<endl;
cout<<"Input Nomor Transaksi : ";cin>>ntransaksi;
cout<<"Input Kode Kasir [01/02/03] : ";cin>>kode_kasir;
cout<<"-------------------------------------------"<<endl;
cout<<"Pilih Kode Susu [N/L/B] : ";cin>>kode_susu;
cout<<"Input Jumlah Beli : ";cin>>jumlah_beli;
cout<<"-------------------------------------------"<<endl;
clrscr();
if (kode_susu == 'N'||kode_susu == 'n')
{
strcpy(jenis_susu,"Nutrilon Baby");
harga=125000;
}
else if (kode_susu == 'L'||kode_susu == 'l')
{
strcpy(jenis_susu,"Lactogen Baby");
harga=105000;
}
else if (kode_susu == 'B'||kode_susu == 'b')
{
strcpy(jenis_susu,"Morinaga");
harga=135000;
}
else
{
clrscr();
gotoxy(20,12);
cout<<" ANDA SALAH MEMASUKKAN KODE SUSU ";
gotoxy(20,13);
cout<<"**** TEKAN ENTER UNTUK MENGULANG *****";
getch();
clrscr();
goto ulang;
}
if (strcmp(kode_kasir, "01") == 0)
{
strcpy(nama_kasir,"Budi");
}
else if (strcmp(kode_kasir, "02") == 0)
{
strcpy(nama_kasir,"Slamet");
}
else if (strcmp(kode_kasir, "03") == 0)
{
strcpy(nama_kasir,"Paijo");
}
else
{
clrscr();
gotoxy(20,12);
cout<<" ANDA SALAH MEMASUKKAN KODE KASIR ";
gotoxy(20,13);
cout<<"**** TEKAN ENTER UNTUK MENGULANG *****";
getch();
clrscr();
goto ulang;
}
cout<<"-------------------------------------------"<<endl;
cout<<"\n TOKO SUSU BAYI "<<endl;
cout<<"\n -MILK COUNTER- "<<endl;
cout<<"\n==========================================="<<endl;
cout<<"No. Nota : "<<ntransaksi<<" "<<"Nama Kasir : "<<nama_kasir;
cout<<"\n-------------------------------------------"<<endl;
cout<<"Merk Susu : "<<jenis_susu<<endl;
cout<<"Harga : "<<harga<<endl;
cout<<"Jumlah Beli : "<<jumlah_beli<<endl;
cout<<"\n-------------------------------------------"<<endl;
tharga=harga*jumlah_beli;
diskon=0.05*tharga;
jharga=tharga-diskon;
cout<<"Jumlah Harga : "<<jharga<<endl;
cout<<"Diskon : "<<diskon<<endl;
total_bayar=jharga-diskon;
cout<<"-------------------------------------------"<<endl;
cout<<"Total Bayar : "<<total_bayar<<endl;
cout<<"Uang Bayar : ";cin>>uang_bayar;
kembali = uang_bayar - total_bayar;
cout<<"Kembali : "<<kembali<<endl;
cout<<"-------------------------------------------"<<endl;
cout<<" Terima kasih Atas Kunjungan Anda "<<endl;
getch();
}
Membuat Program Sederhana dengan Turbo Pascal
Membuat program, mungkin bagi sebagian besar orang merupakan hal sangat
sulit serta cuma bisa dilakukan oleh mereka para ahli bidang informatika
atau teknik komputer. Meski alasan tersebut ada benarnya tapi tak
selalu begitu karena kunci saat menyusun sebuah program adalah logika
dan algoritma .
Saya bukan anak TI namun semester empat kemarin pada kegiatan perkuliahan diajarkan tentang cara membuatny program sederhana. Memang pertama kali akan terasa menyiksa karena akan banyak kode atau script dasar yang harus dipelajari juga aturan-aturan dalam penulisan sehingga jangan sampai terjadi kesalahan yang akan menjadikan error . Selain itu dalam memasukkan algoritma juga harus benar , karena ia akan berfungsi seperti rumus dalam dunia matematika.
Baiklah , pada kesempatan kali ini akan saya ulas tentang langkah-langkah membuat program sederhana dengan software Turbo Pascal atau sering disebut sebagai TPW. Mengapa memilih pilih Pascal ? karena berdasarkan pengalaman saya, software tersebut bisa dibilang paling mudah untuk dipelajari baik untuk pelajar SMK maupun mahasiswa. Baiklah kali ini saya akan menyusun program sederhana tentang perkalian.
terakhir kamu tinggal mengetes apakah bisa dijalankan atau tidak dengan cara seperti di bawah ini...
inilah hasil akhirnya, cukup simpel kan
Saya bukan anak TI namun semester empat kemarin pada kegiatan perkuliahan diajarkan tentang cara membuatny program sederhana. Memang pertama kali akan terasa menyiksa karena akan banyak kode atau script dasar yang harus dipelajari juga aturan-aturan dalam penulisan sehingga jangan sampai terjadi kesalahan yang akan menjadikan error . Selain itu dalam memasukkan algoritma juga harus benar , karena ia akan berfungsi seperti rumus dalam dunia matematika.
Baiklah , pada kesempatan kali ini akan saya ulas tentang langkah-langkah membuat program sederhana dengan software Turbo Pascal atau sering disebut sebagai TPW. Mengapa memilih pilih Pascal ? karena berdasarkan pengalaman saya, software tersebut bisa dibilang paling mudah untuk dipelajari baik untuk pelajar SMK maupun mahasiswa. Baiklah kali ini saya akan menyusun program sederhana tentang perkalian.
Langkah 1
kamu harus menginstal Turbo Pascal terlebih dahulu,
setelah terinstal kemudian buka, lalu pilih new untuk membuat program baru
setelah terinstal kemudian buka, lalu pilih new untuk membuat program baru
Langkah 2
Tuliskan script di bawah ini
Program noval;
uses wincrt;
var a,b,c:integer;
begin
writeln('Aplikasi untuk menghitung perkalian dua bilangan');
writeln('Masukkan angka pertama : ');read(a);
writeln('Masukkan angka kedua : ');read(b);
c:=a*b;
writeln('Hasilnya adalah : ',c);
end.
jangan lupa di save
terakhir kamu tinggal mengetes apakah bisa dijalankan atau tidak dengan cara seperti di bawah ini...
inilah hasil akhirnya, cukup simpel kan
Membuat input dari file
Import java.io.*;
import java.util.*;public class Main {
public static void main (String[] args)throws FileNotFoundException {
try {
double n1, n2, n3;
String n;
Scanner fileInput = new Scanner(new FileReader("nilai.txt"));
PrintWriter outFile = new PrintWriter("hasil.out");
System.out.println("mulai scanner file");
try {
while (fileInput.hasNext()) {
String line = fileInput.nextLine();
Scanner lineScan = new Scanner(line);
lineScan.useDelimiter(";");
n = lineScan.next();
n1 = lineScan.nextDouble();
n2 = lineScan.nextDouble();
n3 = lineScan.nextDouble();
double average=(n1+n2+n3)/3;
outFile.println(n+";"+average);
} } catch (Exception e) {
System.out.println("scan file error");
}
fileInput.close();
outFile.close();
System.out.println("berhasil scanner file, hasil output akan dicetak di hasil.txt");
} catch (FileNotFoundException fnfex) {
System.out.println("File does not exist!!");
}
}
}
Langganan:
Komentar (Atom)