7/10/2016

Cara Membuat Widget Berita Berjalan / News Ticker

Mempercantik tampilan blogger pastilah hal yang diinginkan beberapa orang  terutama saya sendiri walau sudah cukup bagus tapi tak pernah berhenti tuk menapilkan yang terbaik, berhubungan dengan permintaan teman, saya akan membuat widget seperti halya berita yang begitu relafan umumnya di semua template, blog selain itu juga widget ini sangat popular dikarenakan pengunjung dapat mengetahui konten terbaru yang di buat leh penulis artikel, namun dalah hal tampilan membuat widget breaking news tergantung pada template anda masing masing, contoh dalam hal text atau warna tidaklah sama dengan template yang berbeda juga kecuali kalian menambahkan script untuk fontnya dan warnaya. Berikut adalah cara membuat widget berita berjalan

Cara membuat widget berita berjalan / News Ticker
Cara membuat widget berita berjalan / News Ticker


Letakkan kode berikut di atas kode ]]></b:skin>

/* News Ticker Wrapper by RAW16 Blog
---------------------------------------------*/
.newspic {background:#000 url(http://4.bp.blogspot.com/-vqHATrTDsY8/TvguMe2lBTI/AAAAAAAAEUk/L8UwRygGp9s/s1600/news.gif) no-repeat top left;width:970px;margin:0 auto;padding:0 auto;height:32px;color:#fff;}
.news {width: 970px;margin:0 auto;padding:0 auto;line-height: 1.4em;text-align:left;font-family:Arial;font-size:11px;color:#fff;overflow:hidden;clear:both;}
.news a:link, .news a:visited{color:#fff;text-decoration:none;}
.news a:hover {color:#ddd;text-decoration:underline;}

Lalu Copy Code Ini, Diatas Kode </Head> dan pastikan diatas kode tsb

<script src='http://www.google.com/jsapi?key=ABQIAAAAUMsU2d40bO1-m8DeADFRexTdcQS31_Y0TkToW9tE1XWPEnv6YBSa1QfZaAr4GJ8-AZkWddpnW9Y0hA'></script>
<script type='text/javascript'>
//<![CDATA[
var gfeedfetcher_loading_image="indicator.gif";google.load("feeds","1");function gfeedfetcher(c,a,b){this.linktarget=b||"";this.feedlabels=[];this.feedurls=[];this.feeds=[];this.feedsfetched=0;this.feedlimit=5;this.showoptions="";this.sortstring="date";document.write('<div id="'+c+'" class="'+a+'"></div>');this.feedcontainer=document.getElementById(c);this.itemcontainer="<li>"}gfeedfetcher.prototype.addFeed=function(b,a){this.feedlabels[this.feedlabels.length]=b;this.feedurls[this.feedurls.length]=a};gfeedfetcher.prototype.filterfeed=function(b,a){this.feedlimit=b;if(typeof a!="undefined"){this.sortstring=a}};gfeedfetcher.prototype.displayoptions=function(a){this.showoptions=a};gfeedfetcher.prototype.setentrycontainer=function(a){this.itemcontainer="<"+a.toLowerCase()+">"};gfeedfetcher.prototype.init=function(){this.feedsfetched=0;this.feeds=[];this.feedcontainer.innerHTML='<img src="'+gfeedfetcher_loading_image+'" /> Loading news...';var a=this;for(var b=0;b<this.feedurls.length;b++){var c=new google.feeds.Feed(this.feedurls[b]);var d=(this.feedlimit<=this.feedurls.length)?1:Math.floor(this.feedlimit/this.feedurls.length);if(this.feedlimit%this.feedurls.length>0&&this.feedlimit>this.feedurls.length&&b==this.feedurls.length-1){d+=(this.feedlimit%this.feedurls.length)}c.setNumEntries(d);c.load(function(e){return function(f){a._fetch_data_as_array(f,e)}}(this.feedlabels[b]))}};gfeedfetcher._formatdate=function(a,c){var d=new Date(a);var b=(c.indexOf("datetime")!=-1)?d.toLocaleString():(c.indexOf("date")!=-1)?d.toLocaleDateString():(c.indexOf("time")!=-1)?d.toLocaleTimeString():"";return"<span class='datefield'>"+b+"</span>"};gfeedfetcher._sortarray=function(a,b){var b=(b=="label")?"ddlabel":b;if(b=="title"||b=="ddlabel"){a.sort(function(e,d){var g=e[b].toLowerCase();var f=d[b].toLowerCase();return(g<f)?-1:(g>f)?1:0})}else{try{a.sort(function(e,d){return new Date(d.publishedDate)-new Date(e.publishedDate)})}catch(c){}}};gfeedfetcher.prototype._fetch_data_as_array=function(b,a){var d=(!b.error)?b.feed.entries:"";if(d==""){alert("Google Feed API Error: "+b.error.message)}for(var c=0;c<d.length;c++){b.feed.entries[c].ddlabel=a}this.feeds=this.feeds.concat(d);this._signaldownloadcomplete()};gfeedfetcher.prototype._signaldownloadcomplete=function(){this.feedsfetched+=1;if(this.feedsfetched==this.feedurls.length){this._displayresult(this.feeds)}};gfeedfetcher.prototype._displayresult=function(a){var e=(this.itemcontainer=="<li>")?"<ul>\n":"";gfeedfetcher._sortarray(a,this.sortstring);for(var c=0;c<a.length;c++){var d='<a href="'+a[c].link+'" target="'+this.linktarget+'" class="titlefield">'+a[c].title+"</a>";var b=/label/i.test(this.showoptions)?'<span class="labelfield">['+this.feeds[c].ddlabel+"]</span>":" ";var g=gfeedfetcher._formatdate(a[c].publishedDate,this.showoptions);var f=/description/i.test(this.showoptions)?"<br />"+a[c].content:/snippet/i.test(this.showoptions)?"<br />"+a[c].contentSnippet:"";e+=this.itemcontainer+d+" "+b+" "+g+"\n"+f+this.itemcontainer.replace("<","</")+"\n\n"}e+=(this.itemcontainer=="<li>")?"</ul>":"";this.feedcontainer.innerHTML=e};

var gfeedfetcher_loading_image="indicator.gif";function gfeedrssticker(d,b,a,c){this.tickerid=d;this.delay=parseInt(a);this.mouseoverBol=0;this.itemsperpage=1;this.messagepointer=0;gfeedfetcher.call(this,d,b,c);this.itemcontainer="<div>";this.tickerdiv=document.getElementById(d)}gfeedrssticker.prototype=new gfeedfetcher;gfeedrssticker.prototype.constructor=gfeedrssticker;gfeedrssticker.prototype._displayresult=null;gfeedrssticker.prototype.entries_per_page=function(a){this.itemsperpage=a};gfeedrssticker.prototype._signaldownloadcomplete=function(){this.feedsfetched+=1;if(this.feedsfetched==this.feedurls.length){this._initscroller(this.feeds)}};gfeedrssticker.prototype._initscroller=function(a){var c=this;gfeedfetcher._sortarray(a,this.sortstring);this.itemsperpage=(this.itemsperpage>=a.length)?1:this.itemsperpage;var b=a.slice(this.messagepointer,this.itemsperpage);this.tickerdiv.innerHTML=formatrssmessage(b,this.showoptions,this.itemcontainer,this.linktarget);this.tickerdiv.onmouseover=function(){c.mouseoverBol=1};this.tickerdiv.onmouseout=function(){c.mouseoverBol=0};this.messagepointer=this.itemsperpage;if(window.attachEvent){window.attachEvent("onunload",function(){c.tickerdiv.onmouseover=c.tickerdiv.onmouseout=null})}setTimeout(function(){c._rotatemessage()},this.delay)};function formatrssmessage(d,b,f,g){var c=(f=="<li>")?"<ul>\n":"";for(var e=0;e<d.length;e++){var h='<a href="'+d[e].link+'" target="'+g+'" class="titlefield">'+d[e].title+"</a>";var j=/label/i.test(b)?'<span class="labelfield">['+d[e].ddlabel+"]</span>":" ";var k=gfeedfetcher._formatdate(d[e].publishedDate,b);var a=/description/i.test(b)?"<br />"+d[e].content:/snippet/i.test(b)?"<br />"+d[e].contentSnippet:"";c+=f+h+" "+j+" "+k+"\n"+a+f.replace("<","</")+"\n\n"}c+=(f=="<li>")?"</ul>\n":"";return c}gfeedrssticker.prototype._rotatemessage=function(){var b=this;if(this.mouseoverBol==1){setTimeout(function(){b._rotatemessage()},100)}else{var a=this.feeds.slice(this.messagepointer,this.messagepointer+this.itemsperpage);this.tickerdiv.innerHTML=formatrssmessage(a,this.showoptions,this.itemcontainer,this.linktarget);this.messagepointer=(this.messagepointer+this.itemsperpage>this.feeds.length-1)?0:this.messagepointer+this.itemsperpage;setTimeout(function(){b._rotatemessage()},this.delay)}};
//]]>
</script>
<style type='text/css'>
.titlefield{ /*CSS for RSS title link in general*/
text-decoration: none;}
.labelfield{ /*CSS for label field in general*/
color:#aaa;font-size: 100%;}
.datefield{ /*CSS for date field in general*/
color:#aaa;font:normal 14px Arial;text-transform:none;}
#example1{ /*Demo 1 main container*/
width: 780px;
height: 14px;
border: 0px solid #aaa;
padding: 0px;
font:bold 16px Arial;
text-transform:none;
text-align:left;
background-color:transparent;}
code{ /*CSS for insructions*/
color: #fff;}
#example1 a:link, #example1 a:visited {color:#f2f2f2;text-decoration:none;}
#example1 a:hover {color:#C8D3F2;text-decoration:none;}
</style>


Jika sudah maka copy kode dibawah ini Dibawah </Head> Namun saya sarankan dibawah Navigasi Blog anda agar lebih relavan dan indah.

<div class='newspic'>

<div style='float:left;width:780px;padding:6px 0 6px 180px; position:relative; overflow:hidden;'>
<script type='text/javascript'>
var cssfeed=new gfeedrssticker(&quot;example1&quot;, &quot;example1class&quot;, 4000, &quot;_new&quot;)
cssfeed.addFeed(&quot;Creating Website&quot;, &quot;http://maskolis.blogspot.com/feeds/posts/default&quot;) //Specify &quot;label&quot; plus URL to RSS feed
cssfeed.displayoptions(&quot;date&quot;) //show the specified additional fields
cssfeed.setentrycontainer(&quot;div&quot;) //Wrap each entry with a DIV tag
cssfeed.filterfeed(10, &quot;date&quot;) //Show 10 entries, sort by date
cssfeed.entries_per_page(1)
cssfeed.init()
</script>
</div>
<div style='clear:both;'/>
</div>

untuk warna dan ukurannya anda sesuaikan dengan template anda masing masing
semoga bermanfaat

7/06/2016

Cara Mengatasi Masalah this command is not allowed in UserBuild Send Command IMEI Tanpa Root

Sebelumnya saya sudah mempostingkan Cara Mengatasi IMEI tidak valid atau null tanpa root
Berhubungan dengan itu maka saya membuat artikel ini
Cara Mengatasi masalah this command is not allowed in UserBuild Send Command imei Tanpa Root

Kita flashback
Saat di menu radio Information Ada tulisan AT+anda hapus lalu anda ketik ulang AT+  maka akan muncul pop up AT+EGMR=1,7,”Isikan kode imei anda” dan AT+EGMR=1,10,”isikan kode imei anda”

Untuk SIM 1 atau Phone 1 gunakan yang AT+EGMR=1,7,”Isikan kode imei anda”
Untuk SIM 2 atau Phone 2 gunakan yang AT+EGMR=1,10,”isikan kode imei anda”

Jika sudah pilih send at command  maka ada tulisan bahwa AT Command is mSent
Dan selesailah Cara Mengatasi IMEI tidak valid namun jika ada tulisan
this command is not allowed in UserBuild
jika kita perhatikan text tersebut “ is not allowe in userbuild” pasti kita sekilas berpikir bahwa cara ini bisa dilakukan dengan bantuan user atau root, buang pikiran itu jauh jauh karena seperti yang saya bilang tanpa root  bagaimana caranya  ?

Cara Mengatasi masalah this command is not allowed in UserBuild Send Command
Caranya cukup simple
Saya ambil contoh Untuk SIM 1 atau Phone 1 gunakan yang AT+EGMR=1,7,”Isikan kode imei anda”
Setelah saya pilih send command malah ada tulisan this command is not allowed in UserBuild Seharusnya tulisan yang timbul adalah AT Command is mSent, Maka anda harus menambahkan sepasi di antara AT+ dengan EGMR jadi keseluruhanya adalah AT+(sepasi)EGMR=1,7,”Isikan kode imei anda” jika sudah barulah pilih send at command. anda bisa melihat gambar
Berikut adalah caranya cukup simple dan tidak bikin pusing

                                                    

Cara Mengatasi IMEI Tidak Valid Atau Null Tanpa Root

Apa itu IMEI ? IMEI adalah kepanjangan dari International Mobile Equipment Identity yang wajib dimiliki handphone android di jaman sekarang ini, dan perlu anda ketahui kode IMEI selalu berbeda beda di setiap perangkat andoid, jika satu perangkat android memiliki dual Sim Card maka akan ada dua kode IMEI pada perangkat tsb dan pastinya kodenya berbeda beda jika diketahui kode IMEI anda sama di prangkat android lainya maka imei tersebut disebut ilegal.

Dimanakah Saya Bisa Mendapatkan Kode IMEI Resmi ? – Jawabanya adalah terletak pada kotak atau bunggkus saat pembelian handphond android.

Tanda Menunjukan Bahwa IMEI Tidak Valid
  • Jika anda perhatikan dapat ditandakan dengan sinyal X atau silang ibarat kata kartunya belumasuk ke handphone anda.
  • Ada pemberitahuan bahwa imei vaild atau null, cara mendapatkan Informasinya adalah dengan memanggil *#06#
  • Sekilas anda berpikir operator jaringanya lagi error namun kita tunggu sampai berhari – hari tetap saja silang, masa iyah jaringan error sampai berhari hari . 
  • Berpikir bahwa kartu belum didaftarkan atau pun posisinya kurang pas saat memasukan kartu sim ke HP.
  • pemikiran lainya kartunya sudah kadaluarsa (kemungkinan), namun setelah beli kartu baru dan hasilnya tetap saja sama atau sinyalnya silang (X) itu berarti ada kesalahan dalam kode imei .
Bagaimana Cara Mengatasinya ?
Cara Mengatasi IMEI Tidak ValidLangkah Pertama - hal yang utama dilakukan ialah mengecek apakah imei sudah benar atau tidak dengan memanggil *#06# Jika imei = “null” atau imei = vailid berarti itu sudah pasti imei yang bermasalah dan selamat anda menuju web yang tepat untuk mengatasi masalah ini

Langkah Kedua – memanggil *#7465625# jika tidak bisa gunakan yang ini *#*#3646633#*#* dan jika tidak berhasil juga jangan panik karena seperti saya bilang cara ini tidak harus meroot hp anda yaitu dengan mendownload aplikasi shortcutnya
Cara Mengatasi IMEI Tidak Valid Atau Null Tanpa Root

Download Enginner mode | Google Drive
Download Enginner mode | Playstore

Langkah ketiga – Pilih menu Connectivity setelah itu pilih CDS Information Setelah itu Pilih Radio Information dan setelah itu akan muncul sim1 dan sim2 jika ponsel anda dual sim Dan penting diperhatikan dan dicermati untuk tahap ini

Saat di menu radio Information Ada tulisan AT+anda hapus lalu anda ketik ulang AT+ maka akan muncul pop up AT+EGMR=1,7,”Isikan kode imei anda” dan AT+EGMR=1,10,”isikan kode imei anda”

Untuk SIM 1 atau Phone 1 gunakan yang AT+EGMR=1,7,”Isikan kode imei anda”
Untuk SIM 2 atau Phone 2 gunakan yang AT+EGMR=1,10,”isikan kode imei anda”

Jika sudah pilih Send at Command maka ada tulisan bahwa AT Command is mSent
Dan selesailah Cara Mengatasi IMEI tidak valid namun jika ada tulisan
this command is not allowed in UserBuild maka anda harus membaca artikel Cara Mengatasi masalah this command is not allowed in UserBuild Send Command imei Tanpa Root

Mohon diperhatikan kembali step dengan benar dan tepat good lock semoga hari mu menyenangkan
Semoga bermanfaat ...

6/19/2016

Cara Notifikasi MsgBox Dan Mancam - Macamnya Full VB6

MsgBox Dalam Visual Basic 6 ialah berfungsi sebagai Pesan, bisa berupa pesan singkat atau apapun guna memebritahu user, MsgBox sangat lah diperlukan dalam membuat program coba kalian lihat di bawah ini itu adalah macam macam Notofikasi Msgbox

Macam - Macam Notifikasi MsgBox VB6

Macam - Macam MsgBox
  • MsgBox Error dalam Program dituliskan vbCritical
  • MsgBox Informasi dalam Program dituliskan vbInformation
  • MsgBox Tanda Tannya dalam Program dituliskan vbQuestion
  • MsgBox Paragraf baru dalam Program dituliskan vbNewLine
  • MsgBox Error + Pertanyaan dalam Program dituliskan vbCritical+ vbYesNo
  • MsgBox Informasi + Pertanyaan dalam Program dituliskan vbInformation+ vbYesNo
  • MsgBox Tanda Tannya + Pertanyaan dalam Program dituliskan vbQuestion + vbYesNo

Mari Kita Jabarkan Source Codenya
Yang Diperlukan Hanyalah Commong Button dalam Project ini
  • MsgBox Error

Private Sub Command1_Click()
MsgBox ("Tulis Text Di Sini - Contoh Program"), vbCritical
End Sub
  • MsgBox Informasi
Private Sub Command2_Click()
MsgBox ("Tulis Text Di Sini - Contoh Program"), vbInformation
End Sub
  • MsgBox Tanda Tannya
Private Sub Command4_Click()
MsgBox ("Tulis Text Di Sini - Contoh Program"), vbQuestion
End Sub
  • MsgBox Paragraf baru
Private Sub Command5_Click()
MsgBox "Paragraf Atas" _
& vbNewLine & "Paragraf Bawah - Silakan kunjungi www.raw16.blogspot.com", vbInformation, "Information"
End Sub
  • MsgBox Error + Pertanyaan
Private Sub Command3_Click()
RAW16 = MsgBox("Apakah anda yakin ingin logout?", vbQuestion + vbYesNo, "Logout")
If RAW16 = vbYes Then
    Unload Me
End If
End Sub

  • MsgBox Informasi + Pertanyaan

Private Sub Command6_Click()
Cmn6 = MsgBox("Apakah anda yakin !!!", vbCritical + vbYesNo, "RAW16")
If Cmn6 = vbYes Then
    Unload Me
End If
End Sub

  • MsgBox Tanda Tannya + Pertanyaan

Private Sub Command7_Click()
Cmn7 = MsgBox("Apakah anda Setuju ", vbQuestion + vbYesNo, "www.raw16.blogspot.com")
If Cmn7 = vbYes Then
    Unload Me
End If
End Sub
Note : Command Bisa Anda Rubah Sesuai Program anda, dan cmn6, cmn7 dan RAW16 itu untuk membatu logika so rubah selera anda  

[info title="Full Source Coe Visual Basic " icon="info-circle"]
' ----------------------------------------------------
' Rizki Aditya Wiratama 6 - 19 - 2016
' www.raw16.blogspot.com
'--------------------------------------------------------
Private Sub Command1_Click()
MsgBox ("Tulis Text Di Sini - Contoh Program"), vbCritical

End Sub

Private Sub Command2_Click()
MsgBox ("Tulis Text Di Sini - Contoh Program"), vbInformation

End Sub

Private Sub Command3_Click()
RAW16 = MsgBox("Apakah anda yakin ingin logout?", vbQuestion + vbYesNo, "Logout")
If RAW16 = vbYes Then
    Unload Me
End If
End Sub
Private Sub Command5_Click()
MsgBox "Paragraf Atas" _
& vbNewLine & "Paragraf Bawah - Silakan kunjungi www.raw16.blogspot.com", vbInformation, "Information"
End Sub

Private Sub Command6_Click()
Cmn6 = MsgBox("Apakah anda yakin !!!", vbCritical + vbYesNo, "RAW16")
If Cmn6 = vbYes Then
    Unload Me
End If
End Sub

Private Sub Command7_Click()
Cmn7 = MsgBox("Apakah anda Setuju ", vbInformation + vbYesNo, "www.raw16.blogspot.com")
If Cmn7 = vbYes Then
    Unload Me
End If
End Sub

Private Sub Form_Load()
MsgBox "Terimakasih Telah Mendownload :)" _
& vbNewLine & "Untuk Program Menarik Lainnya Kunjungi www.raw16.blogspot.com", vbInformation, "RAW16"
End Sub
 [/info]


Download Project