Source Code Inventory Barang v1.0 dengan PHP MySQL

April 30, 2016 | | 0 komentar

Deskripsi � �

Source Code Inventory �kali ini saya dapat dari teman, sangat bagus dan baik sekali bagi para siswa,
mahasiswa, atau sobat semua yang sedang belajar PHP. Saya sendiri sudah mencobanya. Bisa
dipelajari dari segi alur, logika dan algoritma aplikasi ini, yang terpenting ialah belajar code php dan
database mysqlnya. Menu-menu yang terdapat didalamnya juga sangat lengkap.

Tutorial PHP : Source Code Perancangan Sistem Inventory PT GPS Gratis

April 30, 2016 | | 0 komentar

Judul � � � � ��

Source Code Perancangan Sistem Inventory PT GPS dengan PHP dan MySQL Gratis.

Deskripsi � �

Source Code Perancangan Sistem Inventory PT GPS PHP dan MySQL ini bisa sobat gunakan untuk belajar. Code ini dapat didapatkan secara gratis dan mendapatkannyapun gratis, yang menarik dari �source code ini ialah tampilannya yang menarik, responsive, dan dengan login

Tutorial PHP : Sistem Informasi Administrasi Karyawan Pemula Gratis

April 30, 2016 | | 0 komentar

Judul :

Sistem Informasi Administrasi Karyawan Pemula dengan PHP MySQL

Download ZIP

Deskripsi :

Informasi Administrasi Karyawan kali ini pas bagi sobat yang masih pemula di PHP, Aplikasi ini adalah sebuah Aplikasi Client Server Berbasis Web, jadi bisa digunakan untuk wilayah kantor atau di hosting.

Technology :

HTML, CSS3, Jquery, PHP, Database MySQL,

Tutorial PHP : Sistem Informasi Akademik Sekolah SMP v.01 - Gratis

April 30, 2016 | | 0 komentar

Judul � � � � � : Sistem Informasi Akademik SMP v.01 dengan
PHP dan MySQL, Design Twitter Boostrap

Deskripsi ��: Sistem informasi
akademik SMP adalah suatu sistem yang dibangun untuk mengelola data-data
akademik sehingga memberikan kemudahan kepada pengguna dalam kegiatan
administrasi akademik sekolah secara online maupun LAN. Contoh fitur aplikasi
ini diantaranya multiuser, jadi admin,

Cara Membuat Headline News Berjalan Dengan OwlCarousel

April 30, 2016 | | 0 komentar

example of owl carouse for headline news

Pernahkan anda melihat sebuah portal berita yang menyajikan headline news dengan animasi berjalan ?. Sebenarnya hal tersebut adalah implementasi dari image slide / image slideshow yang telah ditambah beberapa item, seperti : caption/text, kategori, date/time dsb.

Pada tutorial sebelumnya, kita telah banyak membahas beberapa contoh implementasi dari image slideshow. Untuk membuat imageslideshow sendiri, ada banyak alternatif librari css dan js yang dapat kita gunakan, misal menggunakan : Flexslider, Coinslider, Bootstrap Carousel, WowSlider, Owl Carousel dll.

Silhakan Contoh Tutorial Sebelumnya tentang Image Slideshow :

Contoh Tutorial Image Slideshow Lainnya
Image Slideshow dengan WowSlider
Membuat Berita Berjalan atau Horizontal Newsticker
Membuat Newsticker dengan Bootstrap
Bootstrap List Slider
Bootstrap Carousel Multi Column
Tutorial Bootstrap Slider
Tutorial Image Slideshow dengan menggunakan CoinSlider

Dalam tutorial Image Slideshow kali ini, kita akan menjadikan image slideswhow menjadi sebuah Headline News yang dilengkapi dengan Judul dan Kategorinya, disini kita menggunakan librari Owlcarousel.

Berikut ini adalah output yang akan kita buat, seperti ditunjukkan oleh Gambar.1 dibawah ini :

Gambar.1

Langkah-langkahnya

1. Create file main.css
File ini bertujuan untuk membentuk area tampilan gambar beserta judul dan kategori seperti yang terlihat pada Gambar.1 :

.section {
    margin-bottom:30px;
}

#main-slider{
    height:450px;
    overflow:hidden;
}

a:focus, 
a:hover {
    text-decoration: none;
    outline: none;
    color: #9c9c9c;
}

.feature-post .post-content {
    /*position:absolute;*/
    bottom:0;
    left:0;
    width:100%;
    height:100%;
    padding:25px 35px;
    z-index:1;
    color:#fff; 
    border-radius: 0 0 3px 3px;
    padding-top:100%;
    
    -webkit-transition: all 0.5s ease-in-out 0s;
    -moz-transition: all 0.5s ease-in-out 0s;
    -ms-transition: all 0.5s ease-in-out 0s;
    -o-transition: all 0.5s ease-in-out 0s;
    transition: all 0.5s ease-in-out 0s;

}

.feature-post:hover .post-content { 
    
    background: -moz-linear-gradient(top,  rgba(0,0,0,0) 0%, rgba(0,0,0,0.13) 18%, rgba(0,0,0,0.33) 36%, rgba(0,0,0,0.74) 70%, rgba(0,0,0,0.91) 100%, rgba(0,0,0,1) 100%);
    background: -webkit-linear-gradient(top,  rgba(0,0,0,0) 0%,rgba(0,0,0,0.13) 18%,rgba(0,0,0,0.33) 36%,rgba(0,0,0,0.74) 70%,rgba(0,0,0,0.91) 100%,rgba(0,0,0,1) 100%);
    background: linear-gradient(to bottom,  rgba(0,0,0,0) 0%,rgba(0,0,0,0.13) 18%,rgba(0,0,0,0.33) 36%,rgba(0,0,0,0.74) 70%,rgba(0,0,0,0.91) 100%,rgba(0,0,0,1) 100%);
    filter: progid:DXImageTransform.Microsoft.gradient( startColorstr='#00000000', endColorstr='#000000',GradientType=0 );
}

.feature-post .entry-title a, 
.feature-post .entry-title a:hover
{
    color:#fff;
}

.post {
    overflow:hidden;
    border-radius:3px;
    padding-top:30px;
    background-color:#fff;
    -webkit-transition: all 0.5s ease-in-out;
    -moz-transition: all 0.5s ease-in-out;
    -ms-transition: all 0.5s ease-in-out;
    -o-transition: all 0.5s ease-in-out;
    transition: all 0.5s ease-in-out;
}


.post.feature-post {
    background-color:inherit;
}

.post .entry-title {
    font-size:18px;
    text-transform:capitalize;
    
}

.catagory {
    position:absolute;
    top:20px;
    right:20px;
    z-index:2;
}

.catagory a{
    color: #fff;
    display: block;
    padding: 3px 12px;
    font-size: 12px;
    text-transform: uppercase;
    background-color:#ed1c24;
}

.feature-post img {
    border-radius:3px;
}

.post img, .post-content, .entry-title {
    -webkit-transition: all 0.5s ease-in-out;
    -moz-transition: all 0.5s ease-in-out;
    -ms-transition: all 0.5s ease-in-out;
    -o-transition: all 0.5s ease-in-out;
    transition: all 0.5s ease-in-out;
}

#main-slider .owl-item, 
#main-slider .feature-post{
    height:450px;
    border-radius:0;
    margin-top:0;
}

#main-slider .feature-post .entry-title{
    font-size:20px;
    line-height:25px;
}

#main-slider .feature-post .post-content{
    border-radius:0;
} 

.post-content i {
    margin-right:5px;
    -webkit-transition: all 0.5s ease-in-out;
    -moz-transition: all 0.5s ease-in-out;
    -ms-transition: all 0.5s ease-in-out;
    -o-transition: all 0.5s ease-in-out;
    transition: all 0.5s ease-in-out;
}

.entry-title a {
    color:#000;
}

2. Create file index.html
Dalam file ini kita akan memanggil librari css dan js. Pada file index.html secara umum kita menggunakan Bootstrap, akan tetapi untuk rancangan tampilan gambar beserta judul dan kategori kita menggunakan css dari main.css.

<!DOCTYPE html>
<html lang="en">
<head>
    <meta charset="utf-8">
    <meta name="viewport" content="width=device-width, initial-scale=1.0">
    <meta name="author" content="ilmu-detil.blogspot.com">
    <title>HeadliNews Dengan OwlCarousel</title>
    <!-- Bagian css -->
    <link rel="stylesheet" href="assets/css/bootstrap.min.css">
    <link rel="stylesheet" href="assets/css/ilmudetil.css">
    <link href="assets/css/owl.carousel.css" rel="stylesheet">
    <link href="assets/css/main.css" rel="stylesheet">
</head>
<body>
<nav class="navbar navbar-default navbar-fixed-top">
    <div class="container">
        <div class="navbar-header">
            <button type="button" class="navbar-toggle" data-toggle="collapse" data-target=".navbar-collapse">
                <span class="icon-bar"></span><span class="icon-bar"></span><span class="icon-bar"></span>
            </button>
            <a class="navbar-brand" href="index.html">
            Pusat Ilmu Secara Detil</a>
        </div>
        <div class="navbar-collapse collapse">
            <ul class="nav navbar-nav navbar-left">
                <li class="clr1 active"><a href="index.html">Home</a></li>
                <li class="clr2"><a href="">Programming</a></li>
                <li class="clr3"><a href="">English</a></li>
            </ul>
        </div>
    </div>
</nav>
</br></br></br></br>
    
<div class="container" style="margin-top:40px"> 
    <div class="section" id="main-slider">
        <div class="post feature-post" style="background-image:url(images/girl.jpg); background-size:cover;">
            <div class="post-content">
                <div class="catagory"><a href="#">Fashion</a></div>
                <h2 class="entry-title">
                    <a href="">Pertunjukan Fashion Show bertema Tropical Dress</a>
                </h2>
            </div>
        </div>
        <div class="post feature-post " style="background-image:url(images/education.jpg); background-size:cover;">
            <div class="post-content">
                <div class="catagory"><a href="#">Education</a></div>
                <h2 class="entry-title">
                    <a href="">Tips untuk memotivasi semangat belajar anak-anak sejak dini</a>
                </h2>
            </div>
        </div><!--/post-->
        <div class="post feature-post" style="background-image:url(images/music.jpg); background-size:cover;">
            <div class="post-content">
                <div class="catagory"><a href="#">Music</a></div>
                <h2 class="entry-title">
                    <a href="">Pertunjukan Internasional pemain musik biola berlangsung tiga hari </a>
                </h2>
            </div>
        </div><!--/post-->
        <div class="post feature-post" style="background-image:url(images/technology.jpg); background-size:cover;">
            <div class="post-content">
                <div class="catagory"><a href="#">Technology</a></div>
                <h2 class="entry-title">
                    <a href="">Bagaiman memilih Laptop yang sesuai dengan kebutuhan anda</a>
                </h2>
            </div>
        </div><!--/post-->
        <div class="post feature-post" style="background-image:url(images/bussiness.jpg); background-size:cover;">
            
            <div class="post-content">
                <div class="catagory"><a href="#">Bussiness</a></div>
                <h2 class="entry-title">
                    <a href="">Hal-hal yang harus diperhatikan dalam berkomunikasi dengan kolega</a>
                </h2>
            </div>
        </div><!--/post-->      
        <div class="post feature-post" style="background-image:url(images/sport.jpg); background-size:cover;">
            <div class="post-content">
                <div class="catagory"><a href="#">Sport</a></div>
                <h2 class="entry-title">
                    <a href="">Pertarungan sengit Basket akan menentukan siapa sang juara</a>
                </h2>
            </div>
        </div>
    </div>
    
</div>  
    <script src='assets/js/jquery.js'></script>
    <!--<script src="assets/js/bootstrap.min.js"></script>-->
    
    <script src="assets/js/owl.carousel.min.js"></script>
    <script src="assets/js/main.js"></script>
</body>
</html>

3. Creat file main.js
Pada file ini kita akan mendefinisikan berapa banyak gambar (item) yang muncul untuk load pertama. Kemudian mengeset autoplay agar headlinenews tersebut dapat berjalan (memainkan animasi bergerak).

jQuery(function ($) {
    
    $("#main-slider").owlCarousel({ 
        items : 4,
        pagination  : false,
        navigation  : false,
        autoPlay    : true,
        stopOnHover : true
        
    });
        
});

Tutorial PHP : Design Source Code Aplikasi Surat Jalan Tagihan.

April 29, 2016 | | 0 komentar

Deskripsi �� :
Source Code kali ini pas bagi sobat yang masih pemula di PHP, Aplikasi ini
adalah sebuah Aplikasi Client Server Berbasis Web, jadi bisa digunakan untuk
belajar. Design aplikasi kali ini dibuat dengan Bootstrap,
sehingga bisa buat referensi design tampilan aplikasinya, aplikasi ini belum
sempurna, akan tetapi banyak terdapat fitur2 yang bisa sobat ambil atau gunakan

ASP.NET MVC 4 Tutorial In Urdu - Understanding Bootstrap's Grid System

April 29, 2016 | | 0 komentar

sistem perpustakaan menggunakan php mysql menggunakan boostrap

April 29, 2016 | | 0 komentar

sistem perpustakaan menggunakan php mysql menggunakan boostrap - Perpustakaan Tutorial Membuat Sistem Perpustakaan Berbasi PHP & Mysql ini. Sistem Informasi Perpustakaan Sederhana Menggunakan PHP.Sistem e-Perpustakaan Sederhana dirancang dan digunakan untuk mempermudah segala proses yang dilakukan pada Perpustakaan baik rekapitulasi, pencarian maupun peminjaman. Kami menyebutnya sederhana karena isi sistem yang lebih kecil, jika dibanding dengan CMS yang lebih besar dan komplit.

sistem perpustakaan menggunakan php mysql menggunakan boostrap

Sedot

Fitur Denda Pinjam Dan kembali serta laporan Transaksi

Sistem Informasi Perpustakaan (SIPERPUS) merupakan perangkat lunak yang didesain khusus untuk mempermudah pendataan koleksi perpustakaan, katalog, data anggota /peminjam, transaksi dan sirkulasi koleksi perpustakaan.
Keseluruhannya bekerja secara sistematis sehingga dapat memperbaiki administrasi dan operasional Perpustakaan serta dapat menghasilkan bentuk-bentuk laporan yang efektif dan berguna bagi manajemen perpustakaan.

Kumpulan Full Source Code Aplikasi System Pakar berbasis Web PHP MYSQL

April 29, 2016 | | 0 komentar

Source Code aplikasi sistem pakar berbasis web PHP Mysql metode Foward Chaining . system pakar ini untuk penyakit sapi, tentunya anda bisa mengubah ke sistem pakar lainnya contohnya sistem pakar penyakit ayam

Kumpulan Full Source Code Aplikasi System Pakar berbasis Web PHP MYSQL

Didalam pembelajaran kampus, system pakar dibahas pada mata kuliah pemrograman lanjut, seperti kecerdasan buatan yang memang aplikasi sistem pakar ini bertujuan agar bisa mewakili dalam menyelesaikan sesuatu masalah.

Untuk lebih jelasnya, System pakar suatu program komputer yang mengandung pengetahuan dari suatu atau lebih pakar manusia mengenai suatu bidang spesifik jeni program pertama kali dikembangkan melaluli periset kecerdasan buata pada dasawarsa 1960-an diterapkan secara komersial selama 1980-an

Aplikasi sistem pakar penyakit sapi ini menggunakan metode pengambilan keputusan Backward Chaining. backward Chaining ini akan menayangkan pertanyaan satu persatu kepada User, lalu akan menghasilakn goal atau tujuan.

Technology yang digunakan :

PHP Sebagai bahasa pemrograman web yang menggunkana framework Codeigniter versi 3.x
Mysql versi 5.x
Bootstrap versi 3.x Jquery 1.x
DataTables
Jquery Sortable

Cara penggunaan Aplikasi ini :

Buat database baru dengan nama "system_pakar"
Kemudian klik nama database, dan selanjutnya klik tombol import
Pilih file db.sql pada folder yang telah tadi di download
Kemudian klik tombol upload

Cara Loginnya

Untuk login bisa menggunakan username dan password berikut

User : admin

Pass : dedegunawan

sumber : http://aku-belajar.com/donwload-aplikasi-sistem-pakar-penyakit-sapi

Kumpulan Full Source Code Aplikasi System Pakar berbasis Web PHP MYSQL

April 29, 2016 | | 0 komentar

Technology yang digunakan :

PHP Sebagai bahasa pemrograman web yang menggunkana framework Codeigniter versi 3.x
Mysql versi 5.x
Bootstrap versi 3.x Jquery 1.x
DataTables
Jquery Sortable

Cara penggunaan Aplikasi ini :

Buat database baru dengan nama "system_pakar"
Kemudian klik nama database, dan selanjutnya klik tombol import
Pilih file db.sql pada folder yang telah tadi di download
Kemudian klik tombol upload

Cara Loginnya

Untuk login bisa menggunakan username dan password berikut

User : admin

Pass : dedegunawan

sumber : http://aku-belajar.com/donwload-aplikasi-sistem-pakar-penyakit-sapi

Kumpulan Full Source Code Web ERP Accounting & Business Management Free Download

April 29, 2016 | | 0 komentar

Perhatikan bahwa 4,09 mencakup struktur css baru dan yang upgrade dari versi sebelumnya akan mengharuskan cache browser dibersihkan untuk css baru untuk membuat benar.

Instalasi sebagian besar otomatis setelah diekstrak arsip ke direktori di bawah root web-server dan kemudian browsing ke direktori ini. Script instalasi akan menampilkan dengan panduan tentang bagaimana untuk melanjutkan.

DOWNLOAD

petunjuk instalasi rinci dalam file doc / INSTALL.txt di direktori doc. Jika Anda memiliki kesulitan menginstal dengan script otomatis, penting untuk membaca file INSTALL.txt secara keseluruhan sebelum melanjutkan manual. Sebuah cetakan dianjurkan.

DOKUMENTASI

Dokumentasi pengguna berisi banyak informasi dan dipasang di bawah doc / direktori manual dalam format html. Link untuk itu tersedia dari aplikasi itu sendiri.

MENDUKUNG

Cara utama permintaan dukungan adalah melalui forum di http://www.weberp.org/forum atau daftar pengguna mailing.
Silahkan bergabung daftar di: http://lists.sourceforge.net/lists/listinfo/web-erp-users
jika Anda memiliki pertanyaan. Arsip milis di sourceforge dan instalasi forum masalah posting berisi masalah yang paling umum sehubungan dengan instalasi.

Umpan balik, keinginan dan keluhan didorong untuk kepentingan meningkatkan applicaton tersebut.

PENYEBAB PROYEK

Kontribusi dari kode dan documententation termasuk CARA-KL dengan layar-tembakan dll sangat dihargai. Jika bisnis Anda telah melakukan materi pelatihan tersebut untuk tim Anda sendiri ini tak diragukan lagi akan berguna untuk banyak orang lain dan cara yang produktif yang bisa berkontribusi. Kontribusi dalam bentuk laporan bug atau umpan balik lainnya melalui mailing list di atas juga membantu proyek meningkatkan.

Pedoman untuk berkontribusi kode dalam dokumen di http://www.weberp.org/Development.html

Pengembang tertarik untuk berkontribusi harus membaca dokumen ini dengan hati-hati dan mengikuti panduan di dalamnya. Standar dan konvensi yang digunakan dalam kode yang ketat diterapkan untuk kepentingan konsistensi dan mudah dibaca.

TRANSLATIONS

Semua terjemahan yang tersedia sekarang termasuk dalam arsip download.

Penerjemah harus membaca dokumen http://www.weberp.org/wiki/HowToTranslate yang menjelaskan bagaimana menerjemahkan webERP.

Terjemahan harus dipasang di bawah webERP direktori / lokal dan lokal harus tersedia di web-server.

HUKUM

Program ini adalah perangkat lunak bebas; Anda diizinkan untuk mendistribusikan dan / atau memodifikasinya di bawah ketentuan GNU General Public License sebagaimana dipublikasikan oleh Free Software Foundation; Versi 2 dari Lisensi.

Program ini didistribusikan dengan harapan bahwa itu akan berguna, tetapi TANPA GARANSI; bahkan tanpa jaminan jual dari DAGANGAN atau KECOCOKAN UNTUK TUJUAN TERTENTU. Lihat GNU General Public License untuk rincian lebih lanjut.

Salinan lisensi GNU General Public termasuk dalam direktori doc bersama dengan program ini; jika tidak, menulis ke Free Software Foundation, Inc., 59 Temple Tempat - Suite 330, Boston, MA 02111-1307, USA.

dilansir oleh: info@weberp.org

Perhatikan bahwa serta nama komunitas proyek / pembangunan webERP "weberp.org" adalah nama domain yang dikelola oleh administrator proyek atas nama proyek. Terlepas dari menyesatkan komentar di tempat lain, hak cipta dari semua berkontribusi kode tetap dengan pengembang yang berkontribusi itu dan "weberp.org" proyek adalah nama kolektif untuk tim pengembangan webERP.

Kumpulan Full Source Code Web ERP Accounting & Business Management Free Download

April 29, 2016 | | 0 komentar

DOWNLOAD

Membuat Alat Pengaman Dengan SMS Gateway Modem Wavecom dilengkapi GPS EM-411 dan Tilt Sensor GY-61

April 28, 2016 | | 0 komentar

Membuat Alat Pengaman Dengan SMS Gateway Modem Wavecom dilengkapi GPS EM-411 dan Tilt Sensor GY-61 ( Sensor Kemiringan )

Kali ini saya akan menjelaskan mengenai bagaimana cara membuat alat pengaman dengan menggunakan 3 device berbeda yaitu sensor kemiringan GY-61, GPS EM-411 dan sms gateway modem wavecom. Sebenarnya kegunaan alat ini yaitu untuk pengaman sepeda motor, jadi saat dicuri akan ada GPS yang melacak, dan juga jika sepeda motor dibawa maling pasti akan terdeteksi kemiringannya, kemudian sms gateway digunakan sebagai media pemberi kabar ke pemilik sepeda motor bahwa motornya dalam keadaan bahaya. Sms gateway yang digunakan yaitu modem wavecom fastrack serial port. jika si pemilik sepeda motor telah mendapatkan pesan bahaya maka untuk mematikannya tinggal sms balik dengan pesan #L. fungsi GPS disini yaitu jika motor dibawa maling pasti akan ada perubahan lokasi, dengan perubahan itulah maka akan memberitahu kepada pemilik via sms. Terlebih dahulu lokasi harus disimpan koordinatnya baru bisa dipakai.

a. Minimum System ATMega164

b. LCD 16x2

c. Modem Wavecom Serial Port

d. Tilt Sensor GY-61

e. GPS EM-411

f. Program Bascom AVR

$regfile = "m164pdef.dat"
$crystal = 12000000

Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portd.5
Config Lcdpin = Pin , Db5 = Portd.4 , Db6 = Portd.6 , Db7 = Portd.7
Config Lcd = 16 * 2

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Config Com1 = 4800 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Com2 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

Open "com1:" For Binary As #1
Open "Com2:" For Binary As #2

Dim X As Word
Dim Y As Word
Dim Z As Word
Dim A As Integer
A = 0

Dim Pas1 As Word
Dim Pas2 As Word
Dim Pas3 As Word

Dim Data_masuk As String * 100
Dim Cmti_pos As Byte , Cmgr_pos As Byte , Index_pos As Byte , Cmd_pos As Byte
Dim Pjg_sms_index As Byte , Pjg_data As Byte
Dim Sms_index As String * 3
Dim Cmd As String * 4
Dim Cmdbin As Byte
Dim Simpanlatup As Single
Dim Simpanlatbot As Single
Dim Simpanlongup As Single
Dim Simpanlongbot As Single
Dim Ews As String * 10 , Nss As String * 8 , Sat As String * 2
Dim Nssx As String * 8
Dim Hh As String * 2 , Hh2 As Byte , Mm As String * 2 , Ss As String * 2
Dim Ns As String * 1 , Ew As String * 1 , Dw As String * 6
Dim Przecinek As Byte , P As Byte
Dim Run As Byte , Gpgga As Byte , Cntr As Byte , Tudr As Byte , Ok As Bit
Dim Longitude1 As Single
Dim Latitude1 As Single
Dim Longitude1x As Single
Dim Latitude1x As Single
Dim Latx As Word , Longy As Word

Dim Tanda As Integer
Dim Hp As String * 30

Run = 1 : Reset Ok

P = 1
Tanda = 0

Hp = "085726496643"                                         'no HP yang dituju / Target

Ddra.7 = 1

'cdi
Ddra.6 = 1

Cls
Cursor Off

Start Adc

Passwd:
Tanda = 0
On Urxc Uart_rx
Enable Urxc
Enable Interrupts

Porta.6 = 1
Porta.7 = 1

Atas:
Do

While Ok = 0 : Wend

Reset Ok

X = Getadc(0)
Y = Getadc(1)
Z = Getadc(2)

Upperline
Lcd Nss : Lcd " " : Lcd Ns

Lowerline
Lcd Ews : Lcd " " : Lcd Ew

Latitude1 = Val(nss)
Latitude1 = Latitude1 * 100
'Latx = Latitude1

Longitude1 = Val(ews)
Longitude1 = Longitude1 * 100
'Longy = Longitude1

If X > 365 Or X < 310 Then
Goto Kirim
Elseif Y > 365 Or Y < 310 Then
Goto Kirim
End If

Pas1 = Getadc(3)
Pas2 = Getadc(4)
Pas3 = Getadc(5)

'Upperline
'Lcd Pas1 ; " " ; Pas2 ; " " ; Pas3

If Pas1 < 100 And A = 0 Then
Waitms 200

Cls
Upperline
Lcd "Simpan koordinat"
Wait 2
Cls

Simpanlatup = Latitude1 + 10
Simpanlatbot = Latitude1 - 10

Simpanlongup = Longitude1 + 10
Simpanlongbot = Longitude1 - 10

Upperline
Lcd Simpanlatup
Lowerline
Lcd Simpanlatbot

Wait 2

Cls

Upperline
Lcd Simpanlongup
Lowerline
Lcd Simpanlongbot

Wait 2
Cls

Tanda = 1
A = 1
Goto Atas
End If

If Pas2 < 100 And A = 1 Then
Waitms 200
A = 2
End If

If Pas3 < 100 And A = 2 Then
Waitms 200
A = 3
End If

If Pas1 < 100 And A = 3 Then
Waitms 200

Cls
A = 0
Goto Main

End If

If Latitude1 > Simpanlatup And Tanda = 1 Then
Goto Kirimx
Elseif Latitude1 > 1 And Latitude1 < Simpanlatbot And Tanda = 1 Then
Goto Kirimx
End If

If Longitude1 > Simpanlongup And Tanda = 1 Then
Goto Kirimx
Elseif Longitude1 > 1 And Longitude1 < Simpanlongbot And Tanda = 1 Then
Goto Kirimx
End If

Waitms 200

Loop

Main:
Do

X = Getadc(0)
Y = Getadc(1)
Z = Getadc(2)

Upperline
Lcd "x = " ; X ; " " ; "y = " ; Y
Lowerline
Lcd "z = " ; Z

Waitms 200

Loop

Kirim:
Print #2 , "AT+CMGS=" ; Hp
Wait 1
Print #2 , "Motor dalam keadaan bahaya!!!"
Print #2 , Chr(26)
Wait 1

Porta.6 = 0
Porta.7 = 0

Goto Terima

Return

Kirimx:

Longitude1x = Longitude1 / 100
Latitude1x = Latitude1 / 100

Print #2 , "AT+CMGS=" ; Hp
Wait 1
Print #2 , Latitude1x ; " " ; Longitude1x
Print #2 , Chr(26)
Wait 1

Porta.6 = 0
Porta.7 = 0

Goto Terima

Return

Terima:
Disable Urxc
Disable Interrupts

Cls
Do

   Upperline
   Lcd "Siap terima"

   Input #2 , Data_masuk
   Pjg_data = Len(data_masuk)

   Cmti_pos = Instr(data_masuk , "CMTI")
   If Cmti_pos <> 0 Then
      Index_pos = Instr(data_masuk , ",")
      Incr Index_pos
      Pjg_sms_index = Pjg_data - Index_pos
      Incr Pjg_sms_index

      Sms_index = Mid(data_masuk , Index_pos , Pjg_sms_index)

      Print #2 , "AT+CMGR=" ; Sms_index ; Chr(13) ; Chr(10)

   End If

   Cmd_pos = Instr(data_masuk , "#")
   If Cmd_pos <> 0 Then
      Incr Cmd_pos
      Cmd = Mid(data_masuk , Cmd_pos , 1)

         If Cmd = "L" Then
         Porta.6 = 1
         Goto Passwd
         End If

      Print #2 , "AT+CMGD=" ; Sms_index ; Chr(13) ; Chr(10)

   End If
Loop

Uart_rx:

If Run <> 0 Then

Run = Udr Xor 36

If Run = 0 Then

Cntr = 0

Nss = ""

Ews = ""

Sat = ""

Ns = ""

Ew = ""

Dw = ""

Hh = ""

Mm = ""

Ss = ""

End If

Else

Select Case Cntr

Case 0 To 4

Tudr = Lookup(cntr , Gga)
'untuk memilih data pada baris "GPGGA"

Run = Udr Xor Tudr

Case 6 To 7
Hh = Hh + Chr(udr)
'UTC Time: "Hour"

Case 8 To 9
Mm = Mm + Chr(udr)
'UTC Time: "minutes"

Case 10 To 11

Ss = Ss + Chr(udr)
'UTC Time: "seconds"

Case 17 To 25

Nss = Nss + Chr(udr)

Case 27

Ns = Ns + Chr(udr)
'stuff latitude flag

Case 29 To 38

Ews = Ews + Chr(udr)
'longitude

Case 40

Ew = Ew + Chr(udr)
'stuff longitude flag

Case 44 To 45

Sat = Sat + Chr(udr)

Case 51 To 54

Dw = Dw + Chr(udr)

Case 55

Set Ok : Run = 1

Case Else

Tudr = Udr

End Select

Incr Cntr

End If

Return

'GPS statement, the head of ASCII code

Gga:

Data 71 , 80 , 71 , 71 , 65                                 'GPGGA

Vtg:

Data 71 , 80 , 86 , 84 , 71                                 'GPVTG

Rmc:

Data 71 , 80 , 82 , 77 , 67                                 'GPRMC

g. Program Tracking System GPS

'program ini akan mengirimkan koordinat tiap 20 detik sekali

$regfile = "m164pdef.dat"
$crystal = 12000000

Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portd.5
Config Lcdpin = Pin , Db5 = Portd.4 , Db6 = Portd.6 , Db7 = Portd.7
Config Lcd = 16 * 2

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Config Com1 = 4800 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Com2 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

Open "com1:" For Binary As #1
Open "Com2:" For Binary As #2

Dim X As Word
Dim Y As Word
Dim Z As Word
Dim A As Integer
A = 0

Dim Pas1 As Word
Dim Pas2 As Word
Dim Pas3 As Word

Dim Data_masuk As String * 100
Dim Cmti_pos As Byte , Cmgr_pos As Byte , Index_pos As Byte , Cmd_pos As Byte
Dim Pjg_sms_index As Byte , Pjg_data As Byte
Dim Sms_index As String * 3
Dim Cmd As String * 4
Dim Cmdbin As Byte
Dim Simpanlatup As Single
Dim Simpanlatbot As Single
Dim Simpanlongup As Single
Dim Simpanlongbot As Single
Dim Ews As String * 10 , Nss As String * 8 , Sat As String * 2
Dim Nssx As String * 8
Dim Hh As String * 2 , Hh2 As Byte , Mm As String * 2 , Ss As String * 2
Dim Ns As String * 1 , Ew As String * 1 , Dw As String * 6
Dim Przecinek As Byte , P As Byte
Dim Run As Byte , Gpgga As Byte , Cntr As Byte , Tudr As Byte , Ok As Bit
Dim Longitude1 As Single
Dim Latitude1 As Single
Dim Longitude1x As Single
Dim Latitude1x As Single
Dim Latx As Word , Longy As Word

Dim Tanda As Integer
Dim Mark As Integer
Dim Hp As String * 30

Dim Count As Integer
Dim Zona As Integer
Count = 0
Zona = 0

Run = 1 : Reset Ok

P = 1
Tanda = 0

Hp = "085726496643"                                         'no HP yang dituju / Target

Ddrb.5 = 1
Ddrb.6 = 1
Ddrb.7 = 1

'cdi
Ddra.6 = 1

Ddrd.4 = 1
Ddrd.5 = 1
Ddrd.6 = 1
Ddrd.7 = 1

Cls
Cursor Off

Start Adc

Mark = 0

Passwd:
Tanda = 0

Portb.5 = 1
Portb.6 = 1
Portb.7 = 1
Portd.5 = 1

Porta.6 = 1
Porta.7 = 1

Portd.6 = 1
Portd.7 = 1

Atas:

On Urxc Uart_rx
Enable Urxc
Enable Interrupts

Do

While Ok = 0 : Wend

Reset Ok

X = Getadc(0)
Y = Getadc(1)
Z = Getadc(2)

Upperline
Lcd Nss : Lcd " " : Lcd Ns

Lowerline
Lcd Ews : Lcd " " : Lcd Ew

Latitude1 = Val(nss)
Latitude1 = Latitude1 * 100
'Latx = Latitude1

Longitude1 = Val(ews)
Longitude1 = Longitude1 * 100
'Longy = Longitude1

If X > 365 Or X < 310 Then
Mark = 1
Elseif Y > 365 Or Y < 310 Then
Mark = 1
End If

Pas1 = Getadc(3)
Pas2 = Getadc(4)
Pas3 = Getadc(5)

'Upperline
'Lcd Pas1 ; " " ; Pas2 ; " " ; Pas3

If Pas1 < 100 And A = 0 Then
Waitms 200

Cls
Upperline
Lcd "Simpan koordinat"
Wait 2
Cls

Simpanlatup = Latitude1 + 10
Simpanlatbot = Latitude1 - 10

Simpanlongup = Longitude1 + 10
Simpanlongbot = Longitude1 - 10

Upperline
Lcd Simpanlatup
Lowerline
Lcd Simpanlatbot

Wait 2

Cls

Upperline
Lcd Simpanlongup
Lowerline
Lcd Simpanlongbot

Wait 2
Cls

Tanda = 1
A = 1
Goto Atas
End If

If Pas2 < 100 And A = 1 Then
Waitms 200
A = 2
End If

If Pas3 < 100 And A = 2 Then
Waitms 200
A = 3
End If

If Pas1 < 100 And A = 3 Then
Waitms 200

Cls
A = 0
Goto Main

End If

If Latitude1 > Simpanlatup And Tanda = 1 Then
Mark = 1
Elseif Latitude1 > 1 And Latitude1 < Simpanlatbot And Tanda = 1 Then
Mark = 1
End If

If Longitude1 > Simpanlongup And Tanda = 1 Then
Mark = 1
Elseif Longitude1 > 1 And Longitude1 < Simpanlongbot And Tanda = 1 Then
Mark = 1
End If

Waitms 200

Incr Count

If Count > 100 Then
Count = 0
End If

If Mark = 1 And Zona = 1 And Count = 100 Then

Longitude1x = 0
Latitude1x = 0

Longitude1x = Longitude1 / 100
Latitude1x = Latitude1 / 100

Print #2 , "AT+CMGS=" ; Hp
Wait 1
Print #2 , "Motor dalam keadaan bahaya!!!"
Print #2 , Longitude1x ; " " ; Latitude1x
Print #2 , Chr(26)
Wait 1

End If

If Mark = 1 And Zona = 0 Then
Zona = 1

Longitude1x = 0
Latitude1x = 0

Longitude1x = Longitude1 / 100
Latitude1x = Latitude1 / 100

Print #2 , "AT+CMGS=" ; Hp
Wait 1
Print #2 , "Motor dalam keadaan bahaya!!!"
Print #2 , Longitude1x ; " " ; Latitude1x
Print #2 , Chr(26)
Wait 1

Porta.6 = 0
Porta.7 = 0

End If

Loop

Main:
Do

X = Getadc(0)
Y = Getadc(1)
Z = Getadc(2)

Upperline
Lcd "x = " ; X ; " " ; "y = " ; Y
Lowerline
Lcd "z = " ; Z

Waitms 200

Loop

Terima:
'Disable Urxc

Cls
Do

   Upperline
   Lcd "Siap terima"

   Input #2 , Data_masuk
   Pjg_data = Len(data_masuk)

   Cmti_pos = Instr(data_masuk , "CMTI")
   If Cmti_pos <> 0 Then
      Index_pos = Instr(data_masuk , ",")
      Incr Index_pos
      Pjg_sms_index = Pjg_data - Index_pos
      Incr Pjg_sms_index

      Sms_index = Mid(data_masuk , Index_pos , Pjg_sms_index)

      Print #2 , "AT+CMGR=" ; Sms_index ; Chr(13) ; Chr(10)

   End If

   Cmd_pos = Instr(data_masuk , "#")
   If Cmd_pos <> 0 Then
      Incr Cmd_pos
      Cmd = Mid(data_masuk , Cmd_pos , 1)

         If Cmd = "L" Then
         Porta.6 = 1
         Goto Passwd
         End If

      Print #2 , "AT+CMGD=" ; Sms_index ; Chr(13) ; Chr(10)

   End If
Loop

Uart_rx:

If Run <> 0 Then

Run = Udr Xor 36

If Run = 0 Then

Cntr = 0

Nss = ""

Ews = ""

Sat = ""

Ns = ""

Ew = ""

Dw = ""

Hh = ""

Mm = ""

Ss = ""

End If

Else

Select Case Cntr

Case 0 To 4

Tudr = Lookup(cntr , Gga)
'untuk memilih data pada baris "GPGGA"

Run = Udr Xor Tudr

Case 6 To 7
Hh = Hh + Chr(udr)
'UTC Time: "Hour"

Case 8 To 9
Mm = Mm + Chr(udr)
'UTC Time: "minutes"

Case 10 To 11

Ss = Ss + Chr(udr)
'UTC Time: "seconds"

Case 17 To 25

Nss = Nss + Chr(udr)

Case 27

Ns = Ns + Chr(udr)
'stuff latitude flag

Case 29 To 38

Ews = Ews + Chr(udr)
'longitude

Case 40

Ew = Ew + Chr(udr)
'stuff longitude flag

Case 44 To 45

Sat = Sat + Chr(udr)

Case 51 To 54

Dw = Dw + Chr(udr)

Case 55

Set Ok : Run = 1

Case Else

Tudr = Udr

End Select

Incr Cntr

End If

Return

'GPS statement, the head of ASCII code

Gga:

Data 71 , 80 , 71 , 71 , 65                                 'GPGGA

Vtg:

Data 71 , 80 , 86 , 84 , 71                                 'GPVTG

Rmc:

Data 71 , 80 , 82 , 77 , 67                                 'GPRMC

i. Downloader Software ( Extreme Burner )

j. Cara Sambung Modem Wavecom Ke MCU + RS232

k. VIDEO HASILNYA

Source Code Inventory Barang v1.0 dengan PHP MySQL

Tutorial PHP : Source Code Perancangan Sistem Inventory PT GPS Gratis

Tutorial PHP : Sistem Informasi Administrasi Karyawan Pemula Gratis

Tutorial PHP : Sistem Informasi Akademik Sekolah SMP v.01 - Gratis

Cara Membuat Headline News Berjalan Dengan OwlCarousel

Langkah-langkahnya

Tutorial PHP : Design Source Code Aplikasi Surat Jalan Tagihan.

ASP.NET MVC 4 Tutorial In Urdu - Understanding Bootstrap's Grid System

sistem perpustakaan menggunakan php mysql menggunakan boostrap

Kumpulan Full Source Code Aplikasi System Pakar berbasis Web PHP MYSQL

Technology yang digunakan :

Cara penggunaan Aplikasi ini :

Cara Loginnya

Kumpulan Full Source Code Aplikasi System Pakar berbasis Web PHP MYSQL

Technology yang digunakan :

Cara penggunaan Aplikasi ini :

Cara Loginnya

Kumpulan Full Source Code Web ERP Accounting & Business Management Free Download

Kumpulan Full Source Code Web ERP Accounting & Business Management Free Download

Membuat Alat Pengaman Dengan SMS Gateway Modem Wavecom dilengkapi GPS EM-411 dan Tilt Sensor GY-61

Tawk.to

Pencarian

Blog

Populer

Populer

My Ads

Artikel

Artikel