inilah contoh programnya;
#include <stdio.h>
#include <conio.h>
#include <iostream.h>
#include <iomanip.h>
main()
{
char kd_pesawat[15],nm_pesawat[8],lagi;
int kls_pesawat, hrg_tiket, jml_tiket, total_bayar;
awal:
clrscr();
// awal:
cout<<"\t\t\t\t PROGRAM TIKET PESAWAT "<<endl;
cout<<"\t\t\t\t JAKARTA - MALAYSIA "<<endl;
cout<<"-------------------------------"<<endl;
cout<<endl;
// printf("\n\);
cout<<"Masukkan Kode Pesawat [MPT/GRD/BTV] : ";gets(kd_pesawat);
cout<<"\nKelas Pesawat : "<<endl;
cout<<"\t 1. Executive "<<endl;
cout<<"\t 2. Bisnis "<<endl;
cout<<"\t 3. Ekonomi "<<endl;
cout<<"\nPilih Kelas [1/2/3] : "; cin>>kls_pesawat;
if (strcmp(kd_pesawat,"MPT")== 0)
{
strcpy(nm_pesawat,"MERPATI");
if(kls_pesawat == 1)
{ hrg_tiket = 1500000;}
else if (kls_pesawat == 2)
{ hrg_tiket = 900000; }
else if (kls_pesawat == 3)
{ hrg_tiket == 500000; }
else{hrg_tiket = 0; }
}
else if ( strcmp(kd_pesawat,"GRD")== 0)
{strcpy(nm_pesawat,"GARUDA");
if(kls_pesawat == 1)
{hrg_tiket = 1200000;}
else if (kls_pesawat == 2)
{hrg_tiket = 800000;}
else if (kls_pesawat == 3)
{hrg_tiket = 400000;}
else {hrg_tiket = 0;}
}
else if ( strcmp(kd_pesawat,"BTV")== 0)
{strcpy(nm_pesawat,"BATAVIA");
if(kls_pesawat == 1)
{hrg_tiket = 1000000;}
else if (kls_pesawat == 2)
{hrg_tiket = 700000;}
else if (kls_pesawat == 3)
{hrg_tiket = 300000;}
else
{hrg_tiket = 0;}
}
printf("\n");
printf("\nNama Pesawat : %s",nm_pesawat);
printf("\nHarga Tiket : %d",hrg_tiket);
printf("\n");
cout<<"Jumlah Tiket : "; cin>>jml_tiket;
total_bayar = hrg_tiket*jml_tiket;
printf("Total Bayar : %d",total_bayar);
printf("\n\n");
cout<<"\t\t\t INGIN INPUT LAGI [Y/T] : "; cin>>lagi;
if (lagi == 'y' || lagi =='Y')
goto awal;
getch();
}
getch();
}
Senin, 18 Januari 2016
Jumat, 08 Januari 2016
Program PENGGAJIAN KARYAWAN dengan Visual Basic/VB
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
NIK.Items.Add("001")
NIK.Items.Add("002")
NIK.Items.Add("003")
JABATAN.Items.Add("TEKNISI")
JABATAN.Items.Add("ASISTEN")
JABATAN.Items.Add("MANAJER")
STATUS.Items.Add("MENIKAH")
STATUS.Items.Add("BLM MENIKAH")
End Sub
Private Sub NIK_SelectedIndexChanged(sender As Object, e As EventArgs) Handles NIK.SelectedIndexChanged
Select Case NIK.Text
Case "001" : NAMA.Text = "YUNUS"
Case "002" : NAMA.Text = "DEDI"
Case "003" : NAMA.Text = "SHINTA"
End Select
End Sub
Private Sub JABATAN_SelectedIndexChanged(sender As Object, e As EventArgs) Handles JABATAN.SelectedIndexChanged
Select Case JABATAN.Text
Case "TEKNISI" : GAJI.Text = 1750000
Case "ASISTEN" : GAJI.Text = 2500000
Case "MANAJER" : GAJI.Text = 1250000
End Select
End Sub
Private Sub TUNJANGAN_TextChanged(sender As Object, e As EventArgs) Handles TUNJANGAN.TextChanged
PAJAK.Text = 0.15 * GAJI.Text
End Sub
Private Sub STATUS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles STATUS.SelectedIndexChanged
Select Case STATUS.Text
Case "MENIKAH" : TUNJANGAN.Text = 0.1 * GAJI.Text
Case "BLM MENIKAH" : TUNJANGAN.Text = 0
End Select
End Sub
Private Sub BtnPROSES_Click(sender As Object, e As EventArgs) Handles BtnPROSES.Click
GJBERSIH.Text = Val(GAJI.Text) + Val(TUNJANGAN.Text) - Val(PAJAK.Text)
End Sub
Private Sub BtnKELUAR_Click(sender As Object, e As EventArgs) Handles BtnKELUAR.Click
End
End Sub
Private Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click
NIK.Text = ""
NAMA.Text = ""
JABATAN.Text = ""
STATUS.Text = ""
TUNJANGAN.Text = ""
GAJI.Text = ""
PAJAK.Text = ""
GJBERSIH.Text = ""
End Sub
End Class
Program PEMBAYARAN TAGIHAN LISTRIK dengan List View di Visual Basic/VB
CATATAN: di sini kita menginputkan meter bln ini dan meter bulan lalau, setelah itu kita memprosesnya dengan menekan "ENTER" di keyboard, untuk menyimpan ke list view,
klik SIMPAN.
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Call add_daerh()
Call add_tipe()
Call buattable()
End Sub
Sub buattable()
LV.Columns.Add("No PELANGGAN", 90, HorizontalAlignment.Center)
LV.Columns.Add("DAERAH", 80, HorizontalAlignment.Center)
LV.Columns.Add("TIPE PELANGGAN", 100, HorizontalAlignment.Center)
LV.Columns.Add("BIAYA BEBAN", 100, HorizontalAlignment.Center)
LV.Columns.Add("HARGA PER KWH", 100, HorizontalAlignment.Center)
LV.Columns.Add("METER BULAN INI", 100, HorizontalAlignment.Center)
LV.Columns.Add("METER BULAN LALU", 100, HorizontalAlignment.Center)
LV.Columns.Add("PEMAKIAN", 90, HorizontalAlignment.Center)
LV.Columns.Add("TOTAL TAGIHAN", 100, HorizontalAlignment.Center)
LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Center)
LV.Columns.Add("PEMBAYARAN", 90, HorizontalAlignment.Center)
LV.GridLines = True
LV.FullRowSelect = True
LV.View = View.Details
End Sub
Sub isitable()
Dim x As New ListViewItem
With x
.Text = NPELANGGAN.Text
.SubItems.Add(DAERAH.Text)
.SubItems.Add(TPELANGGAN.Text)
.SubItems.Add(BEBAN.Text)
.SubItems.Add(HARGA.Text)
.SubItems.Add(MBLNINI.Text)
.SubItems.Add(MBLNLALU.Text)
.SubItems.Add(BPEMKAIAN.Text)
.SubItems.Add(TAGIHAN.Text)
.SubItems.Add(PAJAK.Text)
.SubItems.Add(PEMBAYARAN.Text)
LV.Items.Add(x)
End With
End Sub
Sub add_daerh()
With DAERAH
.Items.Add("MEDAN")
.Items.Add("BELAWAN")
.Items.Add("MARENDAL")
.Items.Add("BINJAI")
.Items.Add("LUBUK PAKAM")
.Items.Add("AKSARA")
End With
End Sub
Sub add_tipe()
With TPELANGGAN
.Items.Add("RUMAH")
.Items.Add("TOKO")
.Items.Add("PABRIK")
.Items.Add("SWALAYAN")
End With
End Sub
Private Sub TPELANGGAN_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TPELANGGAN.SelectedIndexChanged
If TPELANGGAN.Text = "TOKO" Then
BEBAN.Text = 15000
HARGA.Text = 500
ElseIf TPELANGGAN.Text = "RUMAH" Then
BEBAN.Text = 50000
HARGA.Text = 200
ElseIf TPELANGGAN.Text = "SWALAYAN" Then
BEBAN.Text = 400000
HARGA.Text = 1500
ElseIf TPELANGGAN.Text = "PABRIK" Then
BEBAN.Text = 1000000
HARGA.Text = 1000
End If
MBLNINI.Text = ""
MBLNLALU.Text = ""
BPEMKAIAN.Text = ""
TAGIHAN.Text = ""
PAJAK.Text = ""
PEMBAYARAN.Text = ""
NPELANGGAN.Text = ""
End Sub
Sub bersih()
NPELANGGAN.Text = ""
DAERAH.Text = ""
TPELANGGAN.Text = ""
BEBAN.Text = ""
HARGA.Text = ""
MBLNINI.Text = ""
MBLNLALU.Text = ""
BPEMKAIAN.Text = ""
TAGIHAN.Text = ""
PAJAK.Text = ""
PEMBAYARAN.Text = ""
End Sub
Sub add_nmr()
Dim x, y, z As String
x = Microsoft.VisualBasic.Left(DAERAH.Text, 3)
y = Microsoft.VisualBasic.Left(TPELANGGAN.Text, 3)
z = "00" & (TPELANGGAN.SelectedIndex + 1)
NPELANGGAN.Text = x & "_" & y & "_ " & z
End Sub
Private Sub MBLNLALU_KeyPress(sender As Object, e As KeyPressEventArgs) Handles MBLNLALU.KeyPress
If e.KeyChar = Chr(13) Then
If MBLNLALU.Text = "" Or MBLNINI.Text = "" Then
MsgBox("ISI DENGAN BENAR")
Else
If IsNumeric(MBLNLALU.Text) = True And IsNumeric(MBLNINI.Text) = True Then
BPEMKAIAN.Text = MBLNINI.Text - MBLNLALU.Text
TAGIHAN.Text = BEBAN.Text + (BPEMKAIAN.Text * HARGA.Text)
PAJAK.Text = (15 / 100) * TAGIHAN.Text
PEMBAYARAN.Text = Val(TAGIHAN.Text) + Val(PAJAK.Text)
Call add_nmr()
Else
MsgBox("isi dengan angka!!!")
BPEMKAIAN.Text = ""
TAGIHAN.Text = ""
PAJAK.Text = ""
PEMBAYARAN.Text = ""
NPELANGGAN.Text = ""
End If
End If
End If
End Sub
Private Sub MBLNLALU_TextChanged(sender As Object, e As EventArgs) Handles MBLNLALU.TextChanged
End Sub
Private Sub DAERAH_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DAERAH.SelectedIndexChanged
Dim i As String
i = DAERAH.Text
bersih()
DAERAH.Text = i
End Sub
Private Sub BtnHAPUS_Click(sender As Object, e As EventArgs) Handles BtnHAPUS.Click
bersih()
End Sub
Private Sub BtnSIMPAN_Click(sender As Object, e As EventArgs) Handles BtnSIMPAN.Click
isitable()
End Sub
Private Sub Butnhps_Click(sender As Object, e As EventArgs) Handles Butnhps.Click
LV.Items.Clear()
End Sub
Private Sub BtnKELUAR_Click(sender As Object, e As EventArgs) Handles BtnKELUAR.Click
End
End Sub
End Class
PROGRAM CEK KELULUSAN NILAI MAHASISWA dengan VB
CATATAN: di sini kita menginputkan sendiri nilai KEHADIRAN,TUGAS,UTS,UAS,setelah itu
klik PROSES.
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
NPM.Items.Add("14110848")
NPM.Items.Add("14110849")
NPM.Items.Add("14110850")
KDDOS.Items.Add("301")
KDDOS.Items.Add("302")
KDDOS.Items.Add("303")
KDDOS.Items.Add("304")
KDDOS.Items.Add("305")
KDMKUL.Items.Add("KTBI406")
KDMKUL.Items.Add("KTBI407")
KDMKUL.Items.Add("KTBI408")
KDMKUL.Items.Add("KTBI409")
End Sub
Private Sub NPM_SelectedIndexChanged(sender As Object, e As EventArgs) Handles NPM.SelectedIndexChanged
If NPM.Text = "14110848" Then
NM.Text = "AFRINDA YUNUS SIREGAR"
JJG.Text = "S1"
jurusan.Text = "TEKNIK INFORMATIKA"
ElseIf NPM.Text = "14110849" Then
NM.Text = "SHINTA"
JJG.Text = "S1"
jurusan.Text = "SISTEM INFORMASI"
ElseIf NPM.Text = "14110850" Then
NM.Text = "RARA"
JJG.Text = "S1"
jurusan.Text = "EKONOMI"
End If
End Sub
Private Sub KDDOS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles KDDOS.SelectedIndexChanged
Select Case KDDOS.Text
Case "301"
NDOSEN.Text = "MESRAN M.KOM"
Case "302"
NDOSEN.Text = "ALEX S.KOM, M.KOM"
Case "303"
NDOSEN.Text = "HERRY S.T"
Case "304"
NDOSEN.Text = "PHILIPUS S.T"
Case "305"
NDOSEN.Text = "GUIDIO S.KOM"
End Select
End Sub
Private Sub KDMKUL_SelectedIndexChanged(sender As Object, e As EventArgs) Handles KDMKUL.SelectedIndexChanged
Select Case KDMKUL.Text
Case "KTBI406"
NMKUL.Text = "PEMROGRAMAN VISUAL BASIC"
Case "KTBI407"
NMKUL.Text = "ARSITEKTUR DATA"
Case "KTBI407"
NMKUL.Text = "MATRIKS"
Case "KTBI408"
NMKUL.Text = "ARSITEKTUR KOMPUTER"
Case "KTBI409"
NMKUL.Text = "KOMUNIKASI DATA"
End Select
End Sub
Private Sub btnHapus_Click(sender As Object, e As EventArgs) Handles btnHapus.Click
NPM.Text = ""
NM.Text = ""
JJG.Text = ""
jurusan.Text = ""
KDDOS.Text = ""
NDOSEN.Text = ""
KDMKUL.Text = ""
NMKUL.Text = ""
NKEHADIRAN.Text = ""
NTUGAS.Text = ""
NUTS.Text = ""
NUAS.Text = ""
NAKHIR.Text = ""
NHURUF.Text = ""
KETERANGAN.Text = ""
End Sub
Private Sub BtnKeluar_Click(sender As Object, e As EventArgs) Handles BtnKeluar.Click
End
End Sub
Private Sub BtnProses_Click(sender As Object, e As EventArgs) Handles BtnProses.Click
NAKHIR.Text = 0.45 * NUAS.Text + 0.3 * NUTS.Text + 0.15 * NTUGAS.Text + 0.1 * NKEHADIRAN.Text()
If NAKHIR.Text >= 50 Then
KETERANGAN.Text = "LULUS"
Else
KETERANGAN.Text = "GAGAL"
End If
If NAKHIR.Text >= 80 Then
NHURUF.Text = "A"
ElseIf NAKHIR.Text >= 70 Then
NHURUF.Text = "B"
ElseIf NAKHIR.Text >= 60 Then
NHURUF.Text = "C"
ElseIf NHURUF.Text >= 50 Then
NHURUF.Text = "D"
Else
NHURUF.Text = "D"
End If
End Sub
End Class
PEMBAYARAN TAGIHAN AIR PDAM dengan List View di VB
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
LV.Columns.Add("Kd Pelanggan", 100, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 80, HorizontalAlignment.Left)
LV.Columns.Add("Tipe", 80, HorizontalAlignment.Left)
LV.Columns.Add("Daerah", 80, HorizontalAlignment.Left)
LV.Columns.Add("Harga M3", 100, HorizontalAlignment.Left)
LV.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Left)
LV.Columns.Add("Jumlah Pakai", 100, HorizontalAlignment.Left)
LV.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Left)
LV.Columns.Add("Pembayaran", 100, HorizontalAlignment.Left)
LV.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
KDPELANGGAN.Items.Add("001")
KDPELANGGAN.Items.Add("002")
KDPELANGGAN.Items.Add("003")
KDPELANGGAN.Items.Add("004")
TIPE.Items.Add("TOKO")
TIPE.Items.Add("RUMAH")
TIPE.Items.Add("SWALAYAN")
TIPE.Items.Add("PABRIK")
End Sub
Private Sub KDPELANGGAN_SelectedIndexChanged(sender As Object, e As EventArgs) Handles KDPELANGGAN.SelectedIndexChanged
Select KDPELANGGAN.Text
Case "001" : NAMA.Text = "BUDI"
Case "002" : NAMA.Text = "DIAN"
Case "003" : NAMA.Text = "CINTA"
Case "004" : NAMA.Text = "SHINTA"
End Select
End Sub
Private Sub TIPE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TIPE.SelectedIndexChanged
Select TIPE.Text
Case "TOKO"
BEBAN.Text = 25000
HARGAM3.Text = 300
DAERAH.Text = "BELAWAN"
Case "RUMAH"
BEBAN.Text = 15000
HARGAM3.Text = 100
DAERAH.Text = "MEDAN"
Case "SWALAYAN"
BEBAN.Text = 10000
HARGAM3.Text = 200
DAERAH.Text = "MEDAN"
Case "PABRIK"
BEBAN.Text = 250000
HARGAM3.Text = 500
DAERAH.Text = "BELAWAN"
End Select
End Sub
Private Sub BtnHpsLIist_Click(sender As Object, e As EventArgs) Handles BtnHpsLIist.Click
LV.Items.Clear()
End Sub
Private Sub BtnKeluar_Click(sender As Object, e As EventArgs) Handles BtnKeluar.Click
End
End Sub
Private Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click
KDPELANGGAN.Text = ""
NAMA.Text = ""
TIPE.Text = ""
HARGAM3.Text = ""
BEBAN.Text = ""
Jpemakaian.Text = ""
TTAGIHAN.Text = ""
Jpembayaran.Text = ""
PAJAK.Text = ""
DAERAH.Text = ""
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TTAGIHAN.Text = Val(BEBAN.Text) + Val(HARGAM3.Text * Jpemakaian.Text)
PAJAK.Text = 0.01 * TTAGIHAN.Text
Jpembayaran.Text = Val(TTAGIHAN.Text) * Val(PAJAK.Text)
Dim lst As New ListViewItem
lst.Text = KDPELANGGAN.Text
lst.SubItems.Add(NAMA.Text)
LV.Items.Add(lst)
lst.SubItems.Add(TIPE.Text)
lst.SubItems.Add(DAERAH.Text)
lst.SubItems.Add(HARGAM3.Text)
lst.SubItems.Add(BEBAN.Text)
lst.SubItems.Add(Jpemakaian.Text)
lst.SubItems.Add(TTAGIHAN.Text)
lst.SubItems.Add(Jpembayaran.Text)
lst.SubItems.Add(PAJAK.Text)
End Sub
End Class
Minggu, 29 November 2015
Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net
Latihan Praktikum Listview Pembayaran Tagihan PDAM
Berikut jaawaban program:
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click
kdPelanggan.Text = ""
Nama.Text = ""
tipe.Text = ""
HargaM3.Text = ""
BEBAN.Text = ""
Jpemakaian.Text = ""
Ttagihan.Text = ""
Jpembayaran.Text = ""
Pajak.Text = ""
Daerah.Text = ""
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Lv.Columns.Add("KD Pelanggan", 100, HorizontalAlignment.Center)
Lv.Columns.Add("Nama", 80, HorizontalAlignment.Left)
Lv.Columns.Add("Tipe Pelanggan", 100, HorizontalAlignment.Left)
Lv.Columns.Add("Daerah", 80, HorizontalAlignment.Left)
Lv.Columns.Add("Harga M3", 80, HorizontalAlignment.Left)
Lv.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Left)
Lv.Columns.Add("Jmlh Pemkaian", 100, HorizontalAlignment.Left)
Lv.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Left)
Lv.Columns.Add("Jmlh Pembayaran", 100, HorizontalAlignment.Left)
Lv.Columns.Add("pajak", 70, HorizontalAlignment.Left)
Lv.View = View.Details
Lv.GridLines = True
Lv.FullRowSelect = True
kdPelanggan.Items.Add("001")
kdPelanggan.Items.Add("002")
kdPelanggan.Items.Add("003")
tipe.Items.Add("TOKO")
tipe.Items.Add("RUMAH")
tipe.Items.Add("SWALAYAN")
tipe.Items.Add("PABRIK")
End Sub
Private Sub kdPelanggan_SelectedIndexChanged(sender As Object, e As EventArgs) Handles kdPelanggan.SelectedIndexChanged
Select Case kdPelanggan.Text
Case "001" : Nama.Text = "BUDI"
Case "002" : Nama.Text = "DIAN"
Case "003" : Nama.Text = "CINTA"
End Select
End Sub
Private Sub tipe_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tipe.SelectedIndexChanged
Select Case tipe.Text
Case "TOKO"
BEBAN.Text = 25000
HargaM3.Text = 300
Daerah.Text = "BELAWAN"
Case "RUMAH"
BEBAN.Text = 15000
HargaM3.Text = 100
Daerah.Text = "MEDAN"
Case "SWALAYAN"
BEBAN.Text = 10000
HargaM3.Text = 200
Daerah.Text = "MEDAN"
Case "PABRIK"
BEBAN.Text = 250000
HargaM3.Text = 500
Daerah.Text = "BELAWAN"
End Select
End Sub
Private Sub Jpemakaian_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Jpemakaian.KeyPress
If Jpemakaian.Text = "" Then
Jpemakaian.Focus()
ElseIf Asc(e.KeyChar) = 13 Then
Ttagihan.Text = Val(BEBAN.Text) + (HargaM3.Text * Jpemakaian.Text)
Pajak.Text = 0.01 * Ttagihan.Text
Jpembayaran.Text = Val(Ttagihan.Text) * Val(Pajak.Text)
End If
End Sub
Private Sub Jpemakaian_TextChanged(sender As Object, e As EventArgs) Handles Jpemakaian.TextChanged
End Sub
Private Sub BtnKeluar_Click(sender As Object, e As EventArgs) Handles BtnKeluar.Click
End
End Sub
Private Sub BtnProses_Click(sender As Object, e As EventArgs) Handles BtnProses.Click
Dim lst As New ListViewItem
lst.Text = kdPelanggan.Text
lst.SubItems.Add(Nama.Text)
Lv.Items.Add(lst)
lst.SubItems.Add(tipe.Text)
lst.SubItems.Add(Daerah.Text)
lst.SubItems.Add(HargaM3.Text)
lst.SubItems.Add(BEBAN.Text)
lst.SubItems.Add(Jpemakaian.Text)
lst.SubItems.Add(Ttagihan.Text)
lst.SubItems.Add(Jpembayaran.Text)
lst.SubItems.Add(Pajak.Text)
End Sub
Private Sub Btnbatal_Click(sender As Object, e As EventArgs) Handles Btnbatal.Click
Lv.Items.Clear()
End Sub
Private Sub Btnhapuslist_Click(sender As Object, e As EventArgs) Handles Btnhapuslist.Click
Lv.Items.Clear()
End Sub
End Class
Tampilan Hasil:
Demikilahlah postingan saya Nama : (AFRINDA YUNUS SIREGAR) NPM : (14110848)
Selamat Belajar Pemrograman VB NET (MESRAN.NET)
Sabtu, 28 November 2015
Review mesran.blogspot.com
mesran.blogspot.com adalah sebuah Blog yang berisi tentang Pemerograman, tpt Download Ebook Program dan Berita Umum, di dalam Pemerograman tersebut ada Program visual basic, Delphi, Pascal, C++,PHP, dan Java. terdapat juga Silabus Perkuliahan dan masih banyak lagi. ada banyak hal tentang Pemerograman yang bisa kita pelajari di blog mesran.blogspot.com
Langganan:
Postingan (Atom)
Macro Media Flash 8 full version
Macromedia Flash 8 adalah salah satu Software yang dapat membuat suatu karya animasi. Dengan flash 8 kita dapat membuat animasi kartun, ...
-
uses crt; var Jumlahlembar : longint; Totharga : longint; Pembayaran : real; hpl : byte; discount ...
-
pertama kita buat dulu databasenya di microsoft access. Nama Database :latihan.mdb Nama Tabel : Absen Field D... -
File Logo Berita acara bimbingan STMIK BUDIDARMA yang di maksud adalah file gambarnya dengan format psd, jadi bisa diubah-ubah kata-katanya ...
