Kreasiku: Pemrograman Visual Basic

Showing posts with label Pemrograman Visual Basic. Show all posts

program mesage box vb

form dengan sebuah label, sebuah Textbox, dan 2 buah command Button. Textbox tersebut digunakan untuk memasukan data berupa angka dengan range antara 0 sampai 100000. Jika seorang user memasukan huruf atau angka yang berada diluar range maka akan ditampilkan pesan kesalahan dan meminta user untuk memasukkan data kembali. Jika masukan seorang user sudah benar maka akan ditampilkan pesan bahwa masukan sudah benar dan keluar dari aplikasi.

klik di Sini untuk download

program vb merubah warna tombol (command)

program yang bisa merubah warna tombol (command).
Misalnya, ketika pointer berada di atas tombol maka tombol berwarna kuning, dan ketika pointer tidak berada di atas tombol (meninggalkan tombol) maka warna tombol menjadi biru.

koding

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = vbRed
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = vbWhite
End Sub

klik Download untuk unduh program

Menghitung Durasi Waktu Dengan Rupiah

-->disini saya akan mendemontrasikan bagaimana cara membuat program yang
menginformasikan berapa jumlah yang harus dibayarkan setiap durasi waktu tertentu
seperti billing warnet untuk pengguna
dengan menggunakan VB 6.00
Disini akan saya buat setiap detik biaya akan bertamabah 25rupiah
komponen komponen yang saya gunakan adalah
secangkir kopi, rokok maldboro black menthol, snack
bercanda kok
kalo mau nyedianin itu juga gak apa-apa
kan ntar buat aku
he he he
yang perlu disiapin yaitu....
1 commandbutton
2 buah timer
dan 9 label
untuk label bisa lebih/kurang itu tergantung dari gaya programer..
untuk lebih jelasnya kita lihat kodingnya....

Dim awal As Date
Dim akhir As Date
Dim lama As Single
Private Sub Cmd1_Click()
If Cmd1.Caption = "START" Then
     awal = Now
     lblstart.Caption = Format(awal, "hh:mm:ss")
    lama = akhir - awal
     Cmd1.Caption = "STOP"
ElseIf Cmd1.Caption = "STOP" Then
    Timer1.Enabled = False
    akhir = Now
    lama = akhir - awal
    LblDurasi.Caption = Format(lama, "hh:mm:ss")
    Cmd1.Caption = "EXIT"
ElseIf Cmd1.Caption = "EXIT" Then
     Unload Me
End If
End Sub

Private Sub Timer1_Timer()
Lbljam.Caption = "Sekarang Jam : " & Format(Now, "hh:mm:ss")
If Cmd1.Caption = "STOP" Then
    LblDurasi.Caption = Format(Now - awal, "hh:mm:ss")

    Label5.Caption = "Rp " & 25 * CSng(Second(Now - awal)) + 1500 * CSng(Minute(Now - awal)) + 90000 * CSng(Hour(Now - awal)) & ",-"
End If
End Sub

Private Sub Timer2_Timer()
a = Left(Form1.Caption, 1)
b = Len(Form1.Caption)
c = Right(Form1.Caption, b - 1)
Form1.Caption = c + a
End Sub

Mudah kan...???
Saya kira sudah paham
kalo belum paham silahkan hubungi saya
he he he

maka hasilnya seperti ini

silahkan di pahami
kalo gak paham bisa hubungi saya...
follow aja lewat twitter saya
ok

Menambahkan Flash pada VB.6.00

Disini Kita akan menambahkan Flash pada Visusal Basic 6.00
saya akan mencontohkannya disini
misalkan nama file flasnya yaitu San.Swf
Dengan menggunakan Componen ShockwaveFlash
maka kita akan dapat menambahkan file berextensi Swb yang dapat mempercantik tampilan program
saya akan menambahkan sebuah jam analog diprogram sederhana yang telah saya buat
langsung aja untuk menambahkanya tinggal kita kasih koding sebagai berikut
susanto.Movie = App.Path + "/san.swf"

dimana susanto itu merupakan nama dari komponen ShockwaveFlash yang telah saya rubah dari defalutnya
untuk lebih jelasnya lihat gamabar di bawah ini

jangan lupa koding di taruh di Form_Load
agar dapat berjalan ketika program kita jalankan..

Sudah paham kan....
semoga dapat bermanfaat bagi anda....

Deklarasi Variabel dalam VB 6.0

Deklarasi variabel harus diletakkan sebelum baris-baris perintah yang menggunakan variabel tersebut. Ada dua cara dalam pendeklarasian variabel, yaitu Deklarasi Eksplisit dan Deklarasi Implisit.

Deklarasi Eksplisit dilakukan dengan cara menuliskan sebuah kata kunci diikuti nama variabel serta tipe datanya. Aturan penulisan deklarasi variabel dengan cara eksplisit sbb :

<katakunci> <namavariabel> As <TipeData>

Tabel 2.2 Kata kunci deklarasi Variabel secara eksplisit

Kata Kunci	Penggunaan
Static	Berlaku pada level prosedur
Dim	Berlaku pada level prosedur dan modul
Private	Berlaku pada level modul/form
Public	Berlaku pada level modul dan aplikasi
Global	Berlaku pada level modul dan aplikasi

Contoh deklarasi variabel secara eksplisit adalah :

Dim Nama As String

Private Nilai As Integer

Static Jumlah As Integer

Public Alamat As Variant

Deklarasi Implisit dilakukan tanpa menggunakan kata kunci. Pada deklarasi implisit, sebuah variabel langsung digunakan disertai sebuah karakter khusus yang menandakan tipe data variabel tersebut.

VB Input Data

ini adalah contoh program sederhana Input Data Karyawan
seperti dibawah ini

untuk download silahkan buka link di bawah ini
"http://www.4shared.com/file/45A0k7uO/latihan.html"

semoga dapat bermanfaat

Belajar VB 6.00

ini adalah contoh program sederhana pencarian suatu data berdasarkan huruf
seperti dibawah ini

untuk download silahkan buka link di bawah ini
"http://www.4shared.com/file/CMXvxxTR/PENCARIAN.html"

semoga dapat bermanfaat

VALIDASI HURUF DENGAN JAVASCRIP

<html>
<head>
<title> Falidasi angka
</title>
<link rel=stylesheet href="style.css" type="text/css">
</head>
<body>
<script language="JavaScript" type="text/javascript">

function cekuser(a) {
re = /^[A-Za-z]{1,}$/;<!--nama harus berupa huruf,--!>
return re.test(a);
}
function checkForm(b) {
if (!cekuser(b.nama.value)) {
alert("Nama harus berupa HURUF semua......!! ");
b.nama.focus();
return false;
}
alert("selamat bergabung");
return true;
}
</script>

     <form name="form" method="post" onSubmit="return checkForm(this)">

        <table borderColor="#666666" height="29" cellSpacing="0" cellPadding="6" width="285" border="1" align="center">
        <td width="426" bgColor="cyan" height="29" align="center">

            <table height="1" cellSpacing="0" cellPadding="0" width="336" border="0">
                 <tr>
                     <td class="isi" width="139" height="9" align="left">
                     <b>Nama Anda   :</b>
                    </td>
                     <td width="220" height="9" align="left">
                     <input type ="text" name ="nama" size="25" />
                     </td>
                 </tr>

                 <tr>
                     <td vAlign="center" width="335" colSpan="2" height="1" align="justify">
                     <p align="center">
                     </td>
                 </tr>
                 <tr>
                     <td width="335" colSpan="2" height="1" align="justify">
                      <p align="center"><font face="Verdana">
                      <input type="submit" value="SUBMIT" name="Submit">
                    <input type="reset" value="RESET" name="reset" >
                      </font>
                    </td>
                 </tr>
            </table>
        </td>
        </table>

    </form>
</body>
</html>

VALIDASI ANGKA DENGAN JAVASCRIP

<html>
    <head>
        <title>Validasi Menggunakan Java Script</title>

        <script type="text/javascript">
            function Validasi(){

                var angka = "0123456789";
                var x = 0;
                var kodepos=document.getElementById('kodepos').value;
                if (kodepos==""){
                  alert("form belum terisi");
                  return false;
             }
                if (kodepos.length!=5) {
                    alert("kode pos harus 5 karakter");
                    return false;
                }
                for (var i=0; i < kodepos.length; i++) {
                    digita = "" + kodepos.substring(i, i+1);
                    if (angka.indexOf(digita) == "-1") {
                        window.alert("Karakter pada Kode POs yang dimasukkan salah (harus angka semua)");
                        return false;
                    }
                }
                return true;

            }

        </script>
    </head>
    <body>

        <div id="kotak">

            <div id="form">
                <form method="post" onsubmit="return Validasi();">
                    <table align="center">


                        <tr>
                            <td align="left"><p><b>Kode Pos</b></p></td>
                            <td><p><b>:</b></p></td>
                            <td align="left"><input type="text" id="kodepos"></td>

                        </tr>
                        <tr>
                            <td></td>
                            <td></td>
                            <td><input type="submit" name="submit" value="Kirim"></td>

                        </tr>
                </form>
                </table>

            </div>
        </div>

    </body>

</html>

ASCII Tabel dan Deskripsi

ASCII singkatan dari American Standard Kode untuk Informasi Interchange. Komputer hanya dapat memahami nomor, maka kode ASCII adalah representasi numerik dari karakter seperti 'a' atau '@' atau tindakan dari beberapa macam. ASCII dikembangkan lama dan sekarang non-cetak karakter yang jarang digunakan untuk tujuan aslinya. Berikut ini adalah tabel karakter ASCII dan ini termasuk deskripsi dari 32 karakter pertama non-cetak. ASCII sebenarnya dirancang untuk digunakan dengan teletypes dan deskripsi agak kabur. Jika seseorang mengatakan mereka ingin Anda CV Namun dalam format ASCII, semua ini berarti mereka ingin 'plain' teks tanpa format seperti tab, tebal atau menggarisbawahi - format baku bahwa setiap komputer dapat memahami. Hal ini biasanya sehingga mereka dapat dengan mudah mengimpor file ke dalam aplikasi mereka sendiri tanpa masalah. Notepad.exe menciptakan teks ASCII, atau di MS Word Anda dapat menyimpan file 'teks saja' sebagai

Kreasiku

Pages