Membandingkan printer inkjet dengan printer toner

View more presentations from febry_risdianto.

Tentang Printer

Tentang printer dan teknologi

View more presentations from febry_risdianto

Program Mencari Angka

Asslammualaikum wr.wb..

saya ingin meng update tntang program yang saya buat tntang pencarian suatu bilangan

nie skrip.a,,selamat mencoba yh,,,
Dim a(5) As Integer
Private Sub Command1_Click()
For n = 1 To 5
    a(n) = InputBox("masukan data a ke " & n)
Next
End Sub

Private Sub Command2_Click()
c = InputBox("apa yang anda cari")
For n = 1 To 5
    If a(n) = c Then
    ketemu = True
    urutan = n
        Print "bilangan" & c & "ketemu"
    End If
Next
        If ketemu = True Then
            MsgBox ("bilangan" & c & "ketemu")
            Else
            MsgBox ("bilangan" & c & "tdk ketemu" & n & "urutan")
            End If
End Sub

Private Sub Command3_Click()
End
End Sub

semoga bermanfaat progrm yg saya buat ini,,,

Program MEnukar angka yang lbh besar ke kecil

Asslammualaikum wr.wb..
saya ingin meng update tntang program yang saya buat tntang penukaran angka besar ke kcil

skrip.a nie...

Dim x As Integer
Dim y As Integer

Private Sub Command1_Click()
x = InputBox("masukan data yang anda inginkan ")
y = InputBox("masukan  data yang anda inginkan ")
If x > y Then
Print x
Print y
Call tukar(x, y)
Print " setelah di tukar"
End If
    Print x
    Print y
   
End Sub
Sub tukar(a, b)
temp = a
a = b
b = temp
End Sub


Private Sub Command2_Click()
End
End Sub

jika mnalami kesulitan koment ajh yh,,mngkin saya bsa membantu

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

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

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