Cari Blog Ini

Rabu, 13 Juli 2011

Program Database Hotel

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

Program kalkulator Sederhana

mav saya kasih bru disain.a,,,untuk skrip.a nnti saya update... ^_^

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

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

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,,, ^_^

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