2011

mengaktifkan halaman/page di android kalau di vb SETFOCUS

silahkan membuat xml di ...... res ... layout
kemudian di coding javanya cara call/panggil

         setContentView(R.layout.kedua);

         //                                      kedua adalah nama layar kedua.... kedua.xml
         textview_kedua  = (TextView) findViewById(R.id.editKedua);
         // definisi variabel
         textview_kedua.setText("layar ke dua");

untuk kembali ke main page/halaman pertama adalah..
          setContentView(R.layout.main);
          //                                    main adalah nama layar pertama.... main.xml

demikian terima kasih

Membuat Daftar Isi Otomatis di Word 2010

Membuat Daftar Isi Otomatis di Word 2010

Jalankan word2010

1. klik menu references
2. klik kata/kalimat yang akan dibuat daftar isi,
3. kemudian klik menu ADD TEXT


untuk membuat daftar isi, buatlah page baru
Klik menu Table Of Contents
  
demikian terima kasih

belajar ku android yang pertama



res->layout->main.xml

<?xml version="1.0" encoding="utf-8"?>
<LinearLayout xmlns:android="http://schemas.android.com/apk/res/android"
android:layout_width="wrap_content" android:layout_height="match_parent"
android:orientation="vertical">

<EditText
   android:id="@+id/edit1"
   android:layout_width="200dp"
android:layout_height="wrap_content"
android:hint=""  (untuk menghilangkan error)
/>

<Button
   android:id="@+id/klik"
   android:layout_width="134dp"
android:layout_height="wrap_content"
android:text=""
android:hint="" android:onClick="myClickHandler"/> ......>diarahkan ke subProcedure

<EditText
   android:id="@+id/edit2"
   android:layout_width="200dp"
android:layout_height="wrap_content"
android:hint="" 
/>

<TextView
   android:id="@+id/textView1"
   android:layout_width="wrap_content"
   android:layout_height="wrap_content"
   />

</LinearLayout>



kemudian di src dot java
package com.example.helloworld;

import android.app.Activity;
import android.os.Bundle;
import android.view.View;
import android.widget.TextView;
import android.widget.Button;

public class HelloWorldActivity extends Activity {
    /** Called when the activity is first created. */
private TextView textview;
private TextView bbbb;
private TextView isiText;
private Button bot;
    @Override
    public void onCreate(Bundle savedInstanceState) {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.main);

        textview = (TextView) findViewById(R.id.edit1); //konek kan dg xml
        bbbb = (TextView) findViewById(R.id.edit2);        
        bot   = (Button) findViewById(R.id.klik);
        isiText = (TextView) findViewById(R.id.textView1);
        
        //isi awal
        textview.setText("test"); //cara pengisian
        bot.setText("Klik");
        bbbb.setText("merdeka");
    }
        

//pengunaan botton
 public void myClickHandler(View view)
 {
switch (view.getId()){
case R.id.klik:
bbbb.setText(textview.getText());
isiText.setText(textview.getText());
    break;
    }
 }
}

mengetahui serial Hard Disk dengan asp classic

Dengan asp Classic kita bisa mengetahui serial Hard Disk dengan coding dibawah

<%

dim fils,dri
set fils=Server.CreateObject("Scripting.FileSystemObject")
set dri=fils.GetDrive("c:")
Response.Write("serialnumber HardDIak anda adalah : " & dri.SerialNumber)
set dri=nothing
set fils=nothing

%>

Demikian, semoga bermanfaat

contoh pembuatan program pertama vb.Net Express 2010

berikut dibawah ini contoh video cara coding vd.net express 2010 yang pertama




Demikian terima kasih

Membuat enkripsi dengan Crypt Midori memakai program PHP ver 5

Midori Crypt adalah program untuk memproses suatu kata menjadi ter-enkrip.
program ini bisa didownload di http://www.paipai.net/texts/MidCrypt.zip

installasi di Windows Server 2008 R2
1. copy MidoriCrypt.dll  ke C:\Windows\SysWOW64
2. Set Application di IIS boleh menjalankan program 32 bit dengan cara
        a. masuk ke IIS
        b. Application Pools
        c. set Application pool defaults
       d. set enable 32 bit application
3. execute MidoriCrypt.dll dengan cara C:\Windows\SysWOW64\MidoriCrypt.dll

nah bagaimana cara mengunakan Program midori ini dari program PHP
berikut contoh script nya


<?php
$obj = new COM("cast.cipher");                                                 //baris 1

$vCoba1=$obj->Cast128Encode('0924010026','123');             // baris 2
$vCoba2=$obj->Cast128Decode('0924010026',$vCoba1);     // baris 3

echo $vCoba1 . "<br>";  //untuk menampilkan hasil enkrip data
echo $vCoba2;     //untuk menampilkan hasil de-krip data
?>



baris 1 untuk aktifkan program midori
baris 2.. untuk cara enkrip
baris 3 : untuk cara membuka enkrip

tentunya php nya diinstall terlebih dahulu di IIS

demikian terima kasih

Membuat Grafik pada HTML

Bagaimana cara membuat Grafik pada program HTML
semacam ini


tidaklah mudah
namun ada script untuk mempermudah kita dalam membuat script tersebut
silahkan download script nya pada alamat http://www.jscharts.com/
silahkan mencoba dengan script example nya.

membuat format currency pada html


 <script type="text/javascript">
<!-- Begin
function formatCurrency(num) {
num = num.toString().replace(/\Rp.|\,/g,'');
if(isNaN(num))
num = "0";
sign = (num == (num = Math.abs(num)));
num = Math.floor(num*100+0.50000000001);
cents = num%100;
num = Math.floor(num/100).toString();
if(cents<10)
cents = "0" + cents;
for (var i = 0; i < Math.floor((num.length-(1+i))/3); i++)
num = num.substring(0,num.length-(4*i+3))+','+
num.substring(num.length-(4*i+3));
return (((sign)?'':'-') + 'Rp.' + num + '.' + cents);
}
//  End -->
</script>


kemudian pada code htmlnya

Jumlah<br><input type="text" name="jumlah" onBlur="this.value=formatCurrency(this.value);"><br><br>

coba perhatikan onBlur
perintah ini jika kursor dialihkan dari isian ini akan menjalankan function formatCurrency

demikian
semua saya ambil dari situs
http://javascript.internet.com/forms/currency-format.html

create calendar script dengan php

dalam web ini http://www.gerd-tentler.de/tools/
ada tools membuat calender dengan php script
silahkan yang ingin mengunakan langsung ke web nya
gratis

semoga bermanfaat

membuat autoincrement pada postgresql

ALTER TABLE <namatable> ADD COLUMN <namacolumn> SERIAL ;


contoh 


ALTER TABLE mahasiswa ADD COLUMN idMhs SERIAL ;


semoga bermanfaat
terima kasih

CAPTCHA Generator With tipstricks.org

Captcha Generator With tipstricks.org
silahkan berkunjung ke

http://www.tipstricks.org/

Membaca File Text dari Delphi

Untuk membaca file Text dari program delphi
berikut adalah script nya

var:
var f1, f2 : TextFile;
ch : string;

Begin
assignfile(f1,'login.txt');
reset(f1);
readln(f1,ch);
MessageDlg(ch, mtWarning, [mbOK], 0);
end;

assignfile(f1,'login.txt'); --> membuka file text dengan nama login.txt
readln(f1,ch); -> membaca file tersebut dan dimasukan ke variabel ch
sehingga cariabel tersebut bisa ditampilkan

terima kasih

Konversi Bilangan Desimal ke Bilangan Romawi

Mengkonversikan bilangan desimal ke Romawi adalah lumayan susah
untung ada satu program guna mengkonversikan Bilangan desimal ke bilangan Romawi.
Adalah 

http://p4tkmatematika.org/permainan/Html/bantumath/RomanNumeralsConverter.htm


untuk konfersikan bilangan tersebut diatas


silahkan dicoba.

Perintah SQL pada Adoquery1 di Delphi

Berikut adalah perintah ADOQuery1 pada Delphi:

adoquery1.Active := false;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from mahasiswa.dbo.Mahasiswa where nim=:nim');
adoquery1.Parameters.ParamByName('nim').Value := edit1.text;
adoquery1.Active := true;


Penjelasan Script:
adoquery1.Active := false;
berfungsi menonaktifkan Component adoquery1

adoquery1.SQL.Clear;
membersihkan/menghapus script sql


adoquery1.SQL.Add('select * from mahasiswa.dbo.Mahasiswa where nim=:nim');
Memasukan script SQL

 adoquery1.Parameters.ParamByName('nim').Value := edit1.text;
Memasukan pasing parameter

adoquery1.Active := true;
 aktifkan component adoquery1


Terima kasih

track Kiriman dari China Post

Jika anda ingin belanja lewat internet secara online

dan mengunakan jasa pengiriman China Post

silahkan anda track mengunakan url sbb:

http://intmail.183.com.cn/item/trace/itemTraceAction.do?action=Enter

Masukan No Track dan masukan kode verification
dan klik TRACK

Terima kasih semoga bermanfaat

Membuat Kompresi ISO

Kadang kala kita membutuhkan Kompresi ISO

Ada program freeware untuk membuat kompresi ISO yaitu Free ISO Creator 

anda bisa mendownload di alamat 

http://www.minidvdsoft.com/isocreator


Download di alamat tersebut dan jalankan

Lebih Detail ... lihat tutorial berikut: 

Download VB.Net Express 2010

Berikut video cara download VB.Net Express 2010



Terima kasih semoga bermanfaat

Export ASP Classic to Power Point

 Export  ASP Classic ke Power Point

<%
Response.Buffer = true
Response.ContentType = "application/vnd.ms-powerpoint"
Response.AddHeader "content-disposition", "inline; filename=nombre.pps"
Response.write "<TABLE><TR><TD> Surabaya </TD> </TR></TABLE>"
Response.write "<TABLE><TR><TD> Indonesia</TD> </TR></TABLE>"
Response.Flush
Response.End
%>

Mendapatkan Tagihan Listrik ke eMail setiap awal bulan

Dapatkan tagihan PLN setiap awal bulan ke email anda, 
dengan cara sbb: 
masuk ke web pln: 

http://www.pln.co.id/ 

kemudian masukkan 12 Digit ID Pelanggan Anda 

dan klik menu cek tagihan 

jika sudah muncul tagihan anda bulan berjalan 

kemudian klik menu PLN-e-Billing 
lantas masukan email anda 
dan klik simpan. 

jika sudah berhasil, 

maka anda akan mendapatkan informasi tagihan setiap awal bulan 
lumayan untuk mengingatkan tagihan pln kita. 

semoga bermanfaat

Free Internet Captcha

Captcha internet dirancang untuk melindungi bentuk-bentuk html Anda dimana pengguna mengirim informasi ke pengguna lain atau database. ada satu script captcha gratis baik untuk script PHP atau ASP Classic alamat url nya di : http://www.icaptcha.com/



Klik menu config 

Merubah ukuran maksimal file yang bisa di upload di Program ASP pakai IIS 6

 rubah file : MBSchema.xml

file tersebut di folder:
c:\Windows\System32\Inetsrv\


rubah variable AspMaxRequestEntityAllowed menjadi 1073741824

stop service inet
kemudian save file MBSchema.xml

Menambahkan pdf di web menggunakan embedded

<embed src="test.pdf#toolbar=0&navpanes=0&scrollbar=0" width="500" height="375">

width = lebar
height = tinggi
scrollbar = 0:off, 1:on

the specified network password is not correct

  1. Klik Start 
  2. run 
  3. ketik secpol.msc <enter>
  4. Local Policies -> Security Options -> Network Security: LAN Manager Authentication
  5. Ganti NTVLM2 responses only ke  LM and NTLM - use NTLMV2 session security if negotiated

random di MS-SQL

Jika kita ingin random record yang ada di Microsoft SQL kita bisa mengunakan NEWID().

contoh : SELECT * from DATAMHS.DBO.MHS ORDER BY NEWID()

akan menghasilkan daftar mahsiswa yang setiap di execute akan  tampil secara random

Postingan Lebih Baru Postingan Lama