assalammualaikum wr.wb
dsni sya ingin berbagi pngetahuan,,tp pngetahuan saya msh jblm dr cukup,,
dsini saya sdikit memberikan gambaran untuk membuat sbuah program database
1)
2)
3)
mav saya blm kasih skrip.a,,nti scepat mngkin skrip.a akn sya ksh tau,,,
nie contoh program yang hampir jadi,d donwload ajh yh http://www.filefactory.com/file/cc62273/n/PB.rar
Cari Blog Ini
Rabu, 13 Juli 2011
Program billing sederhana
Dim Harga As Integer, Bill As Integer
Dim IntervalWaktu As Integer
Private Sub Command1_Click()
Label6 = ": " & Format(Time, "hh:mm:ss")
JamMulai = Format(Time, "hh:mm:ss")
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Command2.Enabled = False
Command1.Enabled = True
Timer2.Enabled = False
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Harga = 5
IntervalWaktu = 2000 'dalam milidetik
Timer1.Interval = IntervalWaktu
End Sub
Private Sub Timer1_Timer()
Timer1.Tag = Bill + Harga
Bill = Timer1.Tag
Label1.Caption = ": Rp. " & Bill & ",-"
End Sub
Private Sub Timer2_Timer()
Label7 = ": " & Format(Time, "hh:mm:ss")
End Sub
slamet mencoba apabila ada kulehan atw ada msalah coment dsni aj,,ok febryrisdianto27@yahoo.com
Dim IntervalWaktu As Integer
Private Sub Command1_Click()
Label6 = ": " & Format(Time, "hh:mm:ss")
JamMulai = Format(Time, "hh:mm:ss")
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Command2.Enabled = False
Command1.Enabled = True
Timer2.Enabled = False
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Harga = 5
IntervalWaktu = 2000 'dalam milidetik
Timer1.Interval = IntervalWaktu
End Sub
Private Sub Timer1_Timer()
Timer1.Tag = Bill + Harga
Bill = Timer1.Tag
Label1.Caption = ": Rp. " & Bill & ",-"
End Sub
Private Sub Timer2_Timer()
Label7 = ": " & Format(Time, "hh:mm:ss")
End Sub
slamet mencoba apabila ada kulehan atw ada msalah coment dsni aj,,ok febryrisdianto27@yahoo.com
Kamis, 07 Juli 2011
Program Penjualan Tiket
assalammualaikum
saya cuma sekedar ingin berbagi kalian yang ingin belajar visual basic,,saya mw ksih contoh cara membuat program penjualan
1) buka VB.6 d komputer kalian
2)kalian buat form sbnyak 3 kali dan 1 mdichil,dan from d jadiakan anak,,dengan cara mengganti MDICHILD yang td.a false mnjadi true
4)buka form1,,dengan membuat dasien seprti ini:
5)dasien ini menggunakan componen ADO Data Contro 6 dan DataGrid control 6,,untuk mendapatkan componen ini klik knan pda tool lalu plih componen pilh ADO Data Control dan DataGrid
6)pada Tombol comend SAVE ini code.a seperti ini :
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!kode_plg = Text1.Text
Adodc1.Recordset!nama_plg = Text2.Text
Adodc1.Recordset!alamat = Text3.Text
Adodc1.Recordset.Update
Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocus
End Sub
7)setelah itu buka form2 dan dasien seperti ini hampir sama seperti dasien form1 :
8)tombol comend SAVE isi code ini:
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!kode_mkp = Text1.Text
Adodc1.Recordset!nama_mkp = Text2.Text
Adodc1.Recordset.Update
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub
9)setealh itu buka form3 dan buat dasien nya juga,seprti ini :
10)Code tomol camend SAVE isi dengan ini :
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!tanggal = Text1.Text
Adodc1.Recordset!kode_plg = Text2.Text
Adodc1.Recordset!kode_mkp = Text3.Text
Adodc1.Recordset!tujuan = Text4.Text
Adodc1.Recordset.Update
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocus
End Sub
11)terakhir kita ke MDI,Tampilan awal pda program
sekian pemberitahuan dari saya,,jika ad yang kurang d mengerti bsa d tanyakan lwat email febryrisdianto27@yahoo.com
atw memberi koment pda blogspot ini
wassalammualaikum wr wb
saya cuma sekedar ingin berbagi kalian yang ingin belajar visual basic,,saya mw ksih contoh cara membuat program penjualan
1) buka VB.6 d komputer kalian
2)kalian buat form sbnyak 3 kali dan 1 mdichil,dan from d jadiakan anak,,dengan cara mengganti MDICHILD yang td.a false mnjadi true
4)buka form1,,dengan membuat dasien seprti ini:
5)dasien ini menggunakan componen ADO Data Contro 6 dan DataGrid control 6,,untuk mendapatkan componen ini klik knan pda tool lalu plih componen pilh ADO Data Control dan DataGrid
6)pada Tombol comend SAVE ini code.a seperti ini :
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!kode_plg = Text1.Text
Adodc1.Recordset!nama_plg = Text2.Text
Adodc1.Recordset!alamat = Text3.Text
Adodc1.Recordset.Update
Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocus
End Sub
7)setelah itu buka form2 dan dasien seperti ini hampir sama seperti dasien form1 :
8)tombol comend SAVE isi code ini:
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!kode_mkp = Text1.Text
Adodc1.Recordset!nama_mkp = Text2.Text
Adodc1.Recordset.Update
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub
9)setealh itu buka form3 dan buat dasien nya juga,seprti ini :
10)Code tomol camend SAVE isi dengan ini :
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!tanggal = Text1.Text
Adodc1.Recordset!kode_plg = Text2.Text
Adodc1.Recordset!kode_mkp = Text3.Text
Adodc1.Recordset!tujuan = Text4.Text
Adodc1.Recordset.Update
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocus
End Sub
11)terakhir kita ke MDI,Tampilan awal pda program
sekian pemberitahuan dari saya,,jika ad yang kurang d mengerti bsa d tanyakan lwat email febryrisdianto27@yahoo.com
atw memberi koment pda blogspot ini
wassalammualaikum wr wb
Jumat, 01 Juli 2011
Program Simulasi Wartel
Dim awal As Date
Dim akhir As Date
Dim tanggal, jam, kiri As Integer
Private Sub Command1_Click()
awal = Time
Timer1.Enabled = True
Timer1.Interval = 1
Command1.Enabled = False
Command2.Enabled = True
Command2.SetFocus
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Command1.SetFocus
InputBox "Terimakasih telah berkomunikasi"
Adodc1.Recordset.AddNew
Adodc1.Recordset!no_telepon = Text1.Text
Adodc1.Recordset.Update
Text1 = ""
Text1.SetFocus
Adodc2.Recordset.AddNew
Adodc2.Recordset!waktu_pemakaian = Text2.Text
Adodc2.Recordset.Update
Text2 = ""
Text2.SetFocus
Adodc3.Recordset.AddNew
Adodc3.Recordset!biaya_pemakaian = Text3.Text
Adodc3.Recordset.Update
Text3 = ""
Text3.SetFocus
End Sub
Private Sub Command3_Click()
Print
Label24.Caption = DataGrid1
Print
Label25.Caption = DataGrid2
Print
Label26.Caption = DataGrid3
End Sub
Private Sub Form_Activate()
Command2.SetFocus
End Sub
Private Sub Timer1_Timer()
Dim total As Date
Dim bayar As Integer
akhir = Time
total = akhir - awal
bayar = Round(1000000 * total)
Text2.Text = total
Text3.Text = Format(bayar, "Rp #,#")
akhir = Time
End Sub
Private Sub Timer2_Timer()
jam = Format(Time, "hh:mm:ss")
tanggal = Format(Date, "dd-mmm-yyyy")
Label12.Caption = jam
Label15.Caption = tanggal
End Sub
nie contoh program yg udh jdi,,klo mw donwload silakanhttp://www.filefactory.com/file/cc68dcb/n/software_wartel.rar
dan buat lah database.a yh!!!!
sekian ilmu yg saya berikan apabila ad kesalah mohon mav,,,
silakan d coba yh,,, ^_^
Dim akhir As Date
Dim tanggal, jam, kiri As Integer
Private Sub Command1_Click()
awal = Time
Timer1.Enabled = True
Timer1.Interval = 1
Command1.Enabled = False
Command2.Enabled = True
Command2.SetFocus
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Command1.SetFocus
InputBox "Terimakasih telah berkomunikasi"
Adodc1.Recordset.AddNew
Adodc1.Recordset!no_telepon = Text1.Text
Adodc1.Recordset.Update
Text1 = ""
Text1.SetFocus
Adodc2.Recordset.AddNew
Adodc2.Recordset!waktu_pemakaian = Text2.Text
Adodc2.Recordset.Update
Text2 = ""
Text2.SetFocus
Adodc3.Recordset.AddNew
Adodc3.Recordset!biaya_pemakaian = Text3.Text
Adodc3.Recordset.Update
Text3 = ""
Text3.SetFocus
End Sub
Private Sub Command3_Click()
Label24.Caption = DataGrid1
Label25.Caption = DataGrid2
Label26.Caption = DataGrid3
End Sub
Private Sub Form_Activate()
Command2.SetFocus
End Sub
Private Sub Timer1_Timer()
Dim total As Date
Dim bayar As Integer
akhir = Time
total = akhir - awal
bayar = Round(1000000 * total)
Text2.Text = total
Text3.Text = Format(bayar, "Rp #,#")
akhir = Time
End Sub
Private Sub Timer2_Timer()
jam = Format(Time, "hh:mm:ss")
tanggal = Format(Date, "dd-mmm-yyyy")
Label12.Caption = jam
Label15.Caption = tanggal
End Sub
nie contoh program yg udh jdi,,klo mw donwload silakanhttp://www.filefactory.com/file/cc68dcb/n/software_wartel.rar
dan buat lah database.a yh!!!!
sekian ilmu yg saya berikan apabila ad kesalah mohon mav,,,
silakan d coba yh,,, ^_^
Minggu, 22 Mei 2011
Model Simulasi
MODEL SIMULASI SISTEM
Dalam melakukan studi sistem bahwa sebenarnya simulasi merupakan
turunan dari model matematik dimana sistem, berdasarkan sifat
perubahannya sendiri dikategorikan menjadi 2 yaitu sistem diskrit dan
sistem kontinyu.
Sistem diskrit mempunyai maksud bahwa jika keadaan variabel-variabel
dam sistem berubah seketika itu juga pada poin waktu terpisah, misalnya
pada sebuah bank dimana variabelnya adalah jumlah nasabah yang akan
berubah hanya ketika nasabah datang atau setelah selesai dilayani dan
pergi. Sedangkan Sistem kontinyu mempunyai arti jika keadaan variabelvariabel
dalam sistem berubah secara terus menerus (kontinyu)
mengikuti jalannya waktu, misalnya pesawat terbang yang bergerak
diudara dimana variabelnya seperti posisi dan kecepatannya akan terus
bergerak
Menurut Jerry Banks [2] klasifikasi model simulasi terdiri atas tiga
dimensi yang berbeda, yaitu :
1) Menurut kejadian perubahan sistem yang berlangsung :
Model Simulasi Statis vs Dinamis
Model statis merupakan representasi dari sebuah sistem pada waktu
tertentu sedangkan Model dinamis menggambarkan suatu sistem yang
lambat laun terjadi tanpa batas waktu (contoh: Sistem konveyor).
2) Menurut kepastian dari probabilitas perubahan sistem;
Model Simulasi Deterministik vs Stokastik
Model simulasi dikatakan deterministik jika dalam model tersebut
mengandung komponen probabilitas yang pasti. Kebalikannya Model
simulasi stokastik adalah model yang kemungkinan perubahannya
sangat acak.
3) Menurut sifat perubahannya ;
Model Simulasi Kontinyu vs Diskrit
Dalam simulasi sistem kontinyu, maka peruabahan keadaan suatu
sistem akan berlangsung terus menerus seiring dengan perubahan
waktu, sebagai contoh adalah perubahan debit air dalam sebuah
tangki reservoir yang dilubang bagian bawahnya. Akan tetapi untuk
simulasi sistem diskrit, perubahan keadaan sistem hanya akan
berlangsung pada sebagian titik perubahan waktu, seperti perubahan
sistem yang terjadi pada suatu sistem manufaktur dan penanganan
material.
Menganalisis
Pada tugas ini saya membahas tentang system telekomunikasi pada wartel menggunakan PDPT (Pencetak Data Percakapan Telepon), apakah system ini mempunyai sifat perubahan Diskrit atau Kontinyu? menurut kejadian perubhan yang terjadi,system model dinamis atau Statis? Dan menurut kepastian dari probabilitas perubahan system, Model Simulasi Deterministik atau Stokastik?
Diskrit atau Kontinyu
Sistem PDPT ini termaksud system Diskrit.Sebab PDPT akan terus berubah secara bertahap mengikuti jalannya waktu.maksud berubah disini adalah perincian uang yang harus di bayar tanpa monitor dan cpu,biaya pembayaran di print melalui PDPT. PDPT berubah secara bertahap pada saat mulainya suatu percakapan sampai ahkir dari suatu percakapan,system ini PDPT berubah bertahab selama 1 menit dan perubahan tidak selalu sama tergantung jarak telepon,contoh jika telepon local perubahan yg terjadi slama 1 menit Rp250,Sedangkan interlokal perubahan 1 menit lebih dari biaya telepon local.
Dinamis atau Statis
Statis atau Dinamis
Karena system PDPT model simulasi di mana model menggambarkan system dalam perubahannya terhadap waktu.Jadi ini termaksud system model Dinamis,karena perubahannya di pengaruhi oleh waktu.
Deterministik atau Stokastik
Menurut analisa sebelumnya system PDPT berubah secara teratur walupun bertahab,jadi system PDPT ini termaksud model Deterministik,system PDPT ini berubah pada 1 menit secara bertahab dah selalu teratur dan perubahan tergantung oleh jarak telepon,contoh : 1 menit Rp250,2 menit Rp 500,3 menit Rp750 dan seterusnya akan berubah secara beraturan
Langganan:
Postingan (Atom)