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