SilaenTech: Source Code

Tampilkan postingan dengan label Source Code. Tampilkan semua postingan

Rabu, 07 Juni 2017

MySQLi

Source Code

Penjelasan Tentang MySQLi. Pernahkan Anda mengalami masalah dengan munculnya pesan error The mysql extension is deprecated and will be removed in the future. Ya, pesan itu muncul karena Query yang Anda gunakan adalah MySQL, dan Command MySQL ini akan di hapus kedepannya, dan tidak di support lagi. Jadi jika Script yang Anda gunakan masih MySQL, sekarang harus bersiap-siap untuk migrasi menggunakan MySQLi.

MySQLi, dimana i ini mempunyai kepanjangan inproved yang berarti ditingkatkan. Nah dari arti ini saja kita sudah paham bahwa MySQLi adalah hasil pengembangan dari MySQL itu sendiri.

Sebenarnya apa sih perbedaan antara MySQL dengan MySQLi? Pada dasarnya databasenya masih sama dengan SQL dan phpMyAdmin juga masih sama, hanya saja pada MySQLi suport object oriented maupun prosedural. Object oriented nya sendiri sudah build in, jadi tidak perlu untuk membuat class sendiri. Tapi yang menurut saya keren karena MySQLi tidak perlu diinstall, sehingga saat menggunakan hosting gratisan extensinya nya sudah ada, dan bisa dilihat dari phpinfo. Sedangkan di localhost bisa dilihat di php.ini, di situ sudah ada extension=php_mysqli.dll.

Nah untuk prosedural dari MySQLi tidak jauh beda dari MySQL, berikut ini beberapa contohnya:
Koneksi Database MySQL

$conect = mysql_connect($host, $user, $pass);

Koneksi Database MySQL

$conect = mysqli_connect($host, $user, $pass, $db);

Query SELECT di MySQL

$user = mysql_query("SELECT * FROM `user` WHERE `nama`='subur'");
$data = mysql_fetch_row($user);
echo $data[1];

Query SELECT di MySQLi

$user = mysqli_query($conect, "SELECT * FROM `user` WHERE `nama`='subur'");
$data = mysqli_fetch_row($user);
echo $data[1];
mysqli_close($conect);

Nah, mungkin itu dulu untuk pengenalan MySQLi ini, untuk kedepannya akan dijelaskan lebih lanjut tentang MySQLi di tutorial yang akan datang. Dan kemungkinan dalam tutorial pemrograman lainnya akan menggunakan MySQLi, baik itu yang proseduran maupun yang object oriented (OOP).

Jumat, 20 Mei 2016

ECOMMERCE LENGKAP STUDI KASUS

Source Code

BAB 1

PENGENALAN ECOMMERCE

1.1.Mengapa Perlu E-Commerce

Menjual dan membeli (perdagangan) sudah biasa dilakukan oleh setiap orang. Kegiatan perdangan secara mudah bisa kita lihat melalui berbagai media, mulai dari pasar tradisonal, toko, minimarket/supermarket/hipermarket, TV shoping dan sebagainya. Akan tetai seiirng dengan perkembangan teknologi komunikasi dan komputer menyebabkan terjadinya perubahan budaya dan tatacara dalam transaksi jual beli.

Para era teknologi informasi maju atau information age seperti saat ini, media elektronik menjadi salah satu media andalan untuk melakukan komunikasi . termasuk komunikasi bisnis. Banuak sekali pertimbagan dan alasan para pelaku bisnis. Banyak sekali pertimbangan dan alasan para pelaku bisnis mengeksplotasi kemajuan teknologi informasi untuk bisnis meraka. Mau menyebutkan alasanya, silahkan! Banyak kan?. Bagaimana caranya dengan teknologi E-commerce.

1.2. Apa itu E-Commerce

E-commerce merupakan ekstesion dari commerce dengan mengeploitasi media elektronik. Meskipun penggunaan media elektronika ini belum dimengerti, akan tetapi desakan bisnis menyebabkan para pelaku bisnsi mau tidak mau harus menggunakan media elektroni ini.

Menurut Organization for Economic Cooperation and Development (OECD) : E-commerce adalah transaksi berdasarkan proses dan transmisi data secara elektronik. Asosiasi di bidang perdagangan global (Alliace for Global Bussiness) memberikan pengertian pengertian E-commerce sebagai keseluruhan transaksi yang melibatkan transfer informasi, produk, jasa atau pembayaran melalui jaringan elektronik sebagai Media (Suherman 2002 dalam Kamelo, 2005). Sebenarnya tidak ada defenisi yang baku tentang ecommerce, akan tetapi secara sederhana e-commerce merupakan transaksi komersial antara pihak-pihak yang dilakukan secara elektronik (Ding, 1999).

Tidak bisa dipungkiri lagi, E-commerce telah mengubah pradigma proses pengembangan, pemasaran, penjualan, pemesanan, pengiriman, pelayanan dan pembayaran dan sebagainya. Pendekatan pemasana produk dan jasa berganti dari off-line menjadi on-line dan lebih interaktif. Keberadaan transaksi elektronik secara on-line dengan internet ini kemudian melahirkan komunikasi global antar para pelaku bisnis secara virtual.

1.3.Keunggulan dan Manfaat E-commerce

Kalangan bisnsi melihat e-commerce adalah sebagai suatu kemungkinan bisnis yang baru dengan banyak sekali keunggulan yang dipunyai. Berbagai keunggulan itu antra lain :

1. Jangkuan atau cakupan yang luas berbasis konsumen besar. Para pengecer yang menggunakan web akan menikmati keuntungan dari jumlah konsumen yang terus bertambah banyak. Berbagai hambatan geografis yang ada selama ini menjadi hilang dan tidak ada batasan mengenai jangka waktu kegiatan. Jam beroperasi hanya dibatasi oleh hardware dan software yang digunakan.

2. Pendapatan yang terus bertambah. Web membuka berbagai kemungkinan dalam melakukan penjualan dan distribusi. Merchants mendapatkan berbagai keuntungan dan besarnya pasa yang ada baik dilihat secara geografis maupun dilihat dari sisi jumlah konsumen

3. Penghematan biaya. Penggunaan e-commerce akan dapat secara drastis mengurangi biaya inventaris persedian yang harus disediakan oleh merchant dalam suatu waktu. Terdapat berbagai perusahaan yang tidak mempunyai persediaan (invetory) tetapi mereka dapat menawarkan berbagai macam produk kepada pelanggannya. Meraeka hanya menghubungkan antar berbagai macam permintaan yang ada kedalam sistem yang digunakan oleh produsen.

4. Hubungan yang lebih baik dengan konsumen. Perdangan secara on-line mempunyai kemampuan untuk berinteraksi dengan konsumen secara lebih dekat dan cepat. Konsep ini dikenal sebagia one to one marketing, dimana merchant dapat secara langsung berinterkasi dengan konsumen.

Lebih lanjut Martin et al (1999) mengatakan bahwa terdapat dua aspek manfaat penggunaan e-commerce melalui melalui internet dalam bisnis :

1. New Concept support capabilities

Dengan menggunakan fasilitas internet konsumen bisa lebih bebas mengakses informasi yang dibutuhkan (mengenai produk, pelayanan, dan lain-lain)

2. New Marketing Channel

Internet tidak hanya memberikan kemudahan bagi konsumen, tapi juga memberikan cost effective bagi perusahaan untuk membuka saluran pemasaran yang baru. Menurut studi yang dilakukan oleh Himelstein, Nenborne dan Eng (1997) sangat diajurkan perusahaan menerapkan pemasaran berdasarkan web karena akan mendapatkan beberapa keuntungan, antara lain :

a. Attract New Customer

Studi yang dilakukan oleh Daniel dan Strrey yang akan dikutip oleh martin et. Al, (1997) di industri perbankan menemukan bahwa adanya layanan perbankan elektronik membuat nasabah tidak berpindah ke bank lain

b. Single Point of Contract

Dengan internet sangat mungkin terjadinya single point of contact bagi pelanggan, karean pelanggan dengan cukup satu kali mengakses ke website tertentu, mereka bisa mengakses banyak produk dari berbagai macam divisi dalam perusahaan yang sama.

c. Market Research

Memberikan informasi pada pelanggan melalui iklan dan membangun kesadaran merk.

Secara prakmatis dapat dikatan bahwa berbisnis dengan e-commerce memberikan berbagai manfaat dan keuntungan, seperti :

Kemampuan untuk bisa diakses jauh lebih luas atau melebarkan jangkauan (global reach)
Revenue stream yang baru yang mungkin sulit atau tidak dapat diperoleh melalui cara konvesioanl
Meningkatkan market exposure
Memperpendek waktu product-cycle
Meningkatkan customer loyality
Menaikkan value chain dengan mengkomplemenkan bussiness practice, mengkonsolidasikan informasi dan membukanya kepada pihak – pihak yang terkait di dalam value chain
Meningkatkan daya saing dan kualitas layanan
Mengurangi mata ranti untuk pengadaan produk dan meningkatkan supply management
Efisiensi biaya atau menurukan biaya operasi (Operationg cost efficency)
Peluang lahirnya bisnis atau produk dan layanan baru

Dengan melihat keuntungan - keutungan diatas, maka kita merasa bahwa e-commerce meruakan suatu keharusan. Akan tetapi kita tidak dapat langsung terjun ke dalam tanpa mengerti pola bisnis atau model bisnis yang menjadi berubah dengan adanya e-commerce ini. Usah untuk mengerti tentang e-commerce, khususnya untuk keperluan promosi UMKM merupakan salah satu tujuan dari modul ini.

Studi Kasus Program Eccommerce dari Modul Diatas :
Halaman Utama Eccommerce

Detail Produk

Daftar Isi Modul Eccomerce :

BAB I PENGENALAN ECOMMERCE ...........................................................................

A. Mengapa Perlu Ecommerce ...................................................................................

B. Apa itu Ecommerce ...............................................................................................

C. Keunggulan dan Manfaat Ecommerce ..................................................................

BAB II APLIKASI BISNIS DENGAN ECOMMERCE ...................................................

A. MODEL BISNIS DENGAN ECOMMERCE.......................................................

B. ECOMMERCE UNTUK BISNIS APA DAN DENGAN SIAPA ......................

C. CONTOH APLIKASI BISNIS ECOMMERCE...................................................

BAB III PENGENAL CSS.......................................................................................................

A. Pengertian CSS.......................................................................................................

B. fungsi dan kegunaan CSS ......................................................................................

C. manfaat dari CSS ...................................................................................................

D. syntak css ...............................................................................................................

E. CSS STYLING BACKGROUND..........................................................................

F. CSS STYLING TEXT.............................................................................................

G. CSS STYLING FONT............................................................................................

H. CSS ID DAN CLASS.............................................................................................

I. MENGGUNAKAN CSS.......................................................................................

J. CSS STYLINK LINKS.........................................................................................

K. CSS TAMPILAN DAN VISIBILITAS................................................................

L. CSS LIST.................................................................................................................

M CSS. GARIS............................................................................................................

N. CSS. MARGIN.......................................................................................................

O. CSS TABEL............................................................................................................

P. CSS MODEL KOTAK..........................................................................................

Q. CSS BORDER........................................................................................................

R. CSS MEDIA TYPE.................................................................................................

BAB IV PERANCANGNA DATABASE DAN VALIDASI FORM LOGIN ..................

A. PERANCANGAN DATABASE..........................................................................

B. VALIDASI FORM LOGIN .................................................................................

C. LOGIN ADMINISTRATOR ...............................................................................

BAB V HALAMAN ADMINISTRATOR SISTEM ECOMMERCE...............................

BAB VI MODUL MENU : MENU KATEGORI DAN MENU PRODUK .......................

BAB VII HALAMAN WEBSITE SISTEM ECOMMERCE ...............................................

BAB VIII HALAMAN PRODUK..............................................................................................

BAB XI MEMBER...................................................................................................................

BAB X TRANSAKSI PRODUK...........................................................................................

BAB XI PENGELOLAAN ORDER PRODUK....................................................................

BAB XII PEMESANAN PRODUK ........................................................................................

BAB XIII LAPORAN STOK BARANG ..................................................................................

BAB XIV LAPORAN ORDER PRODUK...............................................................................

Modul Lebih lengkap silahkan Download disni Modul Ecommerce dan Lengkap Program Studi Kasus dari PHP.

Contact Person : Rosoft Silaen : silaenrobby@gmail.com

Konversi Bilangan dengan Pemrograman Visual Basic 6.0

Konversi bilangan adalah proses mengubah bentuk bilangan satu ke bentuk bilangan lain yang memiliki nilai yang sama. Misal: nilai bilangan desimal 12 memiliki nilai yang sama dengan bilangan octal 15; Nilai bilangan biner 10100 memiliki nilai yang sama dengan 24 dalam octal dan seterusnya.

Konversi bilangan biner, octal atau hexadesimal menjadi bilangan desimal.
Konversi dari bilangan biner, octal atau hexa menjadi bilangan desimal memiliki konsep yang sama.Konsepnya adalah bilangan tersebut dikalikan basis bilangannya yang dipangkatkan 0,1,2 dst dimulai dari kanan. Untuk lebih jelasnya silakan lihat contoh konversi bilangan di bawah ini;

Konversi bilangan octal ke desimal.
Cara mengkonversi bilangan octal ke desimal adalah dengan mengalikan satu-satu bilangan dengan 8 (basis octal) pangkat 0 atau 1 atau 2 dst dimulai dari bilangan paling kanan. Kemudian hasilnya dijumlahkan. Misal, 137(octal) = (7x8⁰) + (3x8¹) + (1x8²) = 7+24+64 = 95(desimal).

Konversi bilangan biner ke desimal.
Cara mengkonversi bilangan biner ke desimal adalah dengan mengalikan satu-satu bilangan dengan 2 (basis biner) pangkat 0 atau 1 atau 2 dst dimulai dari bilangan paling kanan. Kemudian hasilnya dijumlahkan. Misal, 11001(biner) = (1x2⁰) + (0x2¹) + (0x2²) + (1x2) + (1x2²) = 1+0+0+8+16 = 25(desimal).

Konversi bilangan hexadesimal ke desimal.
Cara mengkonversi bilangan biner ke desimal adalah dengan mengalikan satu-satu bilangan dengan 16 (basis hexa) pangkat 0 atau 1 atau 2 dst dimulai dari bilangan paling kanan. Kemudian hasilnya dijumlahkan. Misal, 79AF(hexa) = (Fx2⁰) + (9x2¹) + (Ax2²) = 15+144+2560+28672 = 31391(desimal).

Konversi bilangan desimal menjadi bilangan biner, octal atau hexadesimal.
Konversi dari bilangan desimal menjadi biner, octal atau hexadesimal juga memiliki konse yang sama. Konsepnya bilangan desimal harus dibagi dengan basis bilangan tujuan, hasilnya dibulatkan kebawah dan sisa hasil baginya (remainder) disimpan. Ini dilakukan terus menerus hingga hasil bagi < basis bilangan tujuan. Sisa bagi ini kemudian diurutkan dari yang paling akhir hingga yang paling awal dan inilah yang merupakan hasil konversi bilangan tersebut. Untuk lebih jelasnya lihat pada contoh berikut;

Konversi bilangan desimal ke biner.
Cara konversi bilangan desimal ke biner adalah dengan membagi bilangan desimal dengan 2 dan menyimpan sisa bagi per seitap pembagian terus hingga hasil baginya < 2. Hasil konversi adalah urutan sisa bagi dari yang paling akhir hingga paling awal. Contoh:

125(desimal) = .... (biner)
125/2 = 62 sisa bagi 1
62/2= 31    sisa bagi 0
31/2=15 sisa bagi 1
15/2=7       sisa bagi 1
7/2=3 sisa bagi 1
3/2=1         sisa bagi 1
hasil konversi: 1111101

Konversi bilangan desimal ke octal.
Cara konversi bilangan desimal ke octal adalah dengan membagi bilangan desimal dengan 8 dan menyimpan sisa bagi per seitap pembagian terus hingga hasil baginya < 8. Hasil konversi adalah urutan sisa bagi dari yang paling akhir hingga paling awal.

Konversi bilangan desimal ke hexadesimal.
Cara konversi bilangan desimal ke octal adalah dengan membagi bilangan desimal dengan 16 dan menyimpan sisa bagi per seitap pembagian terus hingga hasil baginya < 16. Hasil konversi adalah urutan sisa bagi dari yang paling akhir hingga paling awal. Apabila sisa bagi diatas 9 maka angkanya diubah, untuk nilai 10 angkanya A, nilai 11 angkanya B, nilai 12 angkanya C, nilai 13 angkanya D, nilai 14 angkanya E, nilai 15 angkanya F.

Listing Proram :

1. Module Konversi Bilangan

Public a, b As Integer

Public Function BinToDes(ByVal NBiner As String) As Long

Dim a As Integer

Dim b As Long

Dim Nilai As Long

On Error GoTo ErrorHandler

b = 1

For a = Len(NBiner) To 1 Step -1

If Mid(NBiner, a, 1) = "1" Then Nilai = Nilai + b

b = b * 2

BinToDes = Nilai

Exit Function

ErrorHandler:

BinToDes = 0

End Function

Public Function DesToBin(ByVal NDesimal As Long) As String

Dim C As Byte

Dim D As Long

Dim Nilai As String

On Error GoTo ErrorHandler

D = (2 ^ 31) - 1

While D > 0

If NDesimal - D >= 0 Then

NDesimal = NDesimal - D

Nilai = Nilai & "1"

Else

If Val(Nilai) > 0 Then Nilai = Nilai & "0"

End If

D = D / 2

Wend

DesToBin = Nilai

Exit Function

ErrorHandler:

DesToBin = 0

End Function

Public Function DesToHex(ByVal NDesimal As Long) As String

DesToHex = Hex(NDesimal)

End Function

Public Function DesToOk(ByVal NDesimal As Long) As String

DesToOk = Oct(NDesimal)

End Function

Public Function OkToDes(ByVal NOktal As String) As Long

Dim G As Integer

Dim H As Long

Dim Nilai As Long

On Error GoTo ErrorHandler

For G = Len(NOktal) To 1 Step -1

Nilai = Nilai + (8 ^ H) * CInt(Mid(NOktal, G, 1))

H = H + 1

Next G

OkToDes = Nilai

Exit Function

ErrorHandler:

OkToDes = 0

End Function

Public Function BinToOk(ByVal bin As Long) As String

BinToOk = DesToOk(BinToDes(bin))

End Function

Public Function BinToHex(ByVal NBiner As Long) As String

BinToHex = DesToHex(BinToDes(NBiner))

End Function

Public Function OkToBin(ByVal NOktal As Double) As String

OkToBin = DesToBin(OkToDes(NOktal))

End Function

Public Function OkToHex(ByVal NOktal As Double) As String

OkToHex = DesToHex(OkToDes(NOktal))

End Function

Public Function HexToBin(ByVal NHexa As String) As String

HexToBin = DesToBin(HexToDes(NHexa))

End Function

Public Function HexToOk(ByVal NHexa As String) As Double

HexToOk = DesToOk(HexToDes(NHexa))

End Function

2. Program Utama Konversi Bilangan

Option Explicit

Private Sub command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text8.Text = ""

End Sub

Private Sub command3_Click()

End

End Sub

Private Sub command1_Click()

If Len(Trim(Text1.Text)) = 0 Then

MsgBox "Nilai Bilangan Desimal mohon di Masukkan"

Text1.SetFocus

Else

If Option1.Value And Option6.Value Then Text2.Text = DesToBin(Text1.Text)

If Option1.Value And Option7.Value Then Text2.Text = DesToOk(Text1.Text)

If Option1.Value And Option7.Value Then Text8.Text = OkToBin(Text2.Text)

If Option1.Value And Option8.Value Then Text2.Text = DesToHex(Text1.Text)

If Option1.Value And Option8.Value Then Text8.Text = HexToBin(Text2.Text)

'konversi 1 to lsb dan msb dan ke biner

If Option6.Value = True Then

If Len(Trim(Text2.Text)) = 1 Then

Text2.Text = "0000000" & Text2.Text

Text3.Text = Right(Text2.Text, 7)

Text4.Text = Left(Text2.Text, 7)

Label5.Caption = Left(Text2.Text, 1)

Label6.Caption = Right(Text2.Text, 1)

ElseIf Len(Trim(Text2.Text)) = 2 Then

Text2.Text = "000000" & Text2.Text

Text3.Text = Right(Text2.Text, 7)

Text4.Text = Left(Text2.Text, 7)

Label5.Caption = Left(Text2.Text, 1)

Label6.Caption = Right(Text2.Text, 1)

ElseIf Len(Trim(Text2.Text)) = 3 Then

Text2.Text = "00000" & Text2.Text

Text3.Text = Right(Text2.Text, 7)

Text4.Text = Left(Text2.Text, 7)

Label5.Caption = Left(Text2.Text, 1)

Label6.Caption = Right(Text2.Text, 1)

ElseIf Len(Trim(Text2.Text)) = 4 Then

Text2.Text = "0000" & Text2.Text

Text3.Text = Right(Text2.Text, 7)

Text4.Text = Left(Text2.Text, 7)

Label5.Caption = Left(Text2.Text, 1)

Label6.Caption = Right(Text2.Text, 1)

ElseIf Len(Trim(Text2.Text)) = 5 Then

Text2.Text = "000" & Text2.Text

Text3.Text = Right(Text2.Text, 7)

Text4.Text = Left(Text2.Text, 7)

Label5.Caption = Left(Text2.Text, 1)

Label6.Caption = Right(Text2.Text, 1)

ElseIf Len(Trim(Text2.Text)) = 6 Then

Text2.Text = "00" & Text2.Text

Text3.Text = Right(Text2.Text, 7)

Text4.Text = Left(Text2.Text, 7)

Label5.Caption = Left(Text2.Text, 1)

Label6.Caption = Right(Text2.Text, 1)

ElseIf Len(Trim(Text2.Text)) = 7 Then

Text2.Text = "0" & Text2.Text

Text3.Text = Right(Text2.Text, 7)

Text4.Text = Left(Text2.Text, 7)

Label5.Caption = Left(Text2.Text, 1)

Label6.Caption = Right(Text2.Text, 1)

Else

Text2.Text = Text2.Text

a = Len(Trim(Text2))

b = a - 1

Text3.Text = Right(Text2.Text, b)

Text4.Text = Left(Text2.Text, b)

Label5.Caption = Left(Text2.Text, 1)

Label6.Caption = Right(Text2.Text, 1)

End If

'Oktal ke LSB dan MSB

ElseIf Option7.Value = True Then

If Len(Trim(Text8.Text)) = 1 Then

Text8.Text = "0000000" & Text8.Text

Text3.Text = Right(Text8.Text, 7)

Text4.Text = Left(Text8.Text, 7)

Label5.Caption = Left(Text8.Text, 1)

ElseIf Len(Trim(Text8.Text)) = 2 Then

Text8.Text = "000000" & Text8.Text

Text3.Text = Right(Text8.Text, 7)

Text4.Text = Left(Text8.Text, 7)

Label5.Caption = Left(Text8.Text, 1)

Label6.Caption = Right(Text8.Text, 1)

ElseIf Len(Trim(Text8.Text)) = 3 Then

Text8.Text = "00000" & Text8.Text

Text3.Text = Right(Text8.Text, 7)

Text4.Text = Left(Text8.Text, 7)

Label5.Caption = Left(Text8.Text, 1)

Label6.Caption = Right(Text8.Text, 1)

ElseIf Len(Trim(Text8.Text)) = 4 Then

Text8.Text = "0000" & Text8.Text

Text3.Text = Right(Text8.Text, 7)

Text4.Text = Left(Text8.Text, 7)

Label5.Caption = Left(Text8.Text, 1)

Label6.Caption = Right(Text8.Text, 1)

ElseIf Len(Trim(Text8.Text)) = 5 Then

Text8.Text = "000" & Text8.Text

Text3.Text = Right(Text8.Text, 7)

Text4.Text = Left(Text8.Text, 7)

Label5.Caption = Left(Text8.Text, 1)

Label6.Caption = Right(Text8.Text, 1)

ElseIf Len(Trim(Text8.Text)) = 6 Then

Text8.Text = "00" & Text8.Text

Text3.Text = Right(Text8.Text, 7)

Text4.Text = Left(Text8.Text, 7)

Label5.Caption = Left(Text8.Text, 1)

Label6.Caption = Right(Text8.Text, 1)

ElseIf Len(Trim(Text8.Text)) = 7 Then

Text8.Text = "0" & Text8.Text

Text3.Text = Right(Text8.Text, 7)

Text4.Text = Left(Text8.Text, 7)

Label5.Caption = Left(Text8.Text, 1)

Label6.Caption = Right(Text8.Text, 1)

Else

Text8.Text = Text8.Text

a = Len(Trim(Text8.Text))

b = a - 1

Text3.Text = Right(Text8.Text, b)

Text4.Text = Left(Text8.Text, b)

Label5.Caption = Left(Text8.Text, 1)

Label6.Caption = Right(Text8.Text, 1)

End If

ElseIf Option8.Value = True Then

If Len(Trim(Text8.Text)) = 1 Then

Text8.Text = "0000000" & Text8.Text

Text3.Text = Right(Text8.Text, 7)

Text4.Text = Left(Text8.Text, 7)

Label5.Caption = Left(Text8.Text, 1)

ElseIf Len(Trim(Text8.Text)) = 2 Then

Text8.Text = "000000" & Text8.Text

Text3.Text = Right(Text8.Text, 7)

Text4.Text = Left(Text8.Text, 7)

Label5.Caption = Left(Text8.Text, 1)

Label6.Caption = Right(Text8.Text, 1)

ElseIf Len(Trim(Text8.Text)) = 3 Then

Text8.Text = "00000" & Text8.Text

Text3.Text = Right(Text8.Text, 7)

Text4.Text = Left(Text8.Text, 7)

Label5.Caption = Left(Text8.Text, 1)

Label6.Caption = Right(Text8.Text, 1)

ElseIf Len(Trim(Text8.Text)) = 4 Then

Text8.Text = "0000" & Text8.Text

Text3.Text = Right(Text8.Text, 7)

Text4.Text = Left(Text8.Text, 7)

Label5.Caption = Left(Text8.Text, 1)

Label6.Caption = Right(Text8.Text, 1)

ElseIf Len(Trim(Text8.Text)) = 5 Then

Text8.Text = "000" & Text8.Text

Text3.Text = Right(Text8.Text, 7)

Text4.Text = Left(Text8.Text, 7)

Label5.Caption = Left(Text8.Text, 1)

Label6.Caption = Right(Text8.Text, 1)

ElseIf Len(Trim(Text8.Text)) = 6 Then

Text8.Text = "00" & Text8.Text

Text3.Text = Right(Text8.Text, 7)

Text4.Text = Left(Text8.Text, 7)

Label5.Caption = Left(Text8.Text, 1)

Label6.Caption = Right(Text8.Text, 1)

ElseIf Len(Trim(Text8.Text)) = 7 Then

Text8.Text = "0" & Text8.Text

Text3.Text = Right(Text8.Text, 7)

Text4.Text = Left(Text8.Text, 7)

Label5.Caption = Left(Text8.Text, 1)

Label6.Caption = Right(Text8.Text, 1)

Else

Text8.Text = Text8.Text

a = Len(Trim(Text8.Text))

b = a - 1

Text3.Text = Right(Text8.Text, b)

Text4.Text = Left(Text8.Text, b)

Label5.Caption = Left(Text8.Text, 1)

Label6.Caption = Right(Text8.Text, 1)

End If

Else

Text2.Text = Text2.Text

End If

With Text1

.SelStart = 0

.SelLength = Len(Text1.Text)

End With

End If

End Sub

Private Sub Form_Load()

Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Option1.Value = True

End Sub

Private Sub Option10_Click()

Option11.Value = False

Option12.Value = False

Text6.Text = Text3.Text

Text5.Text = Text4.Text

End Sub

Private Sub Option11_Click()

Option11.Value = True

Option10.Value = False

Option12.Value = False

Text6.Text = BinToOk(Text3.Text)

Text5.Text = BinToOk(Text4.Text)

End Sub

Private Sub Option12_Click()

Option12.Value = True

Option10.Value = False

Option11.Value = False

Text6.Text = BinToHex(Text3.Text)

Text5.Text = BinToHex(Text4.Text)

End Sub

untuk Program Lebih lengkap Download dibawah ini
Konversi Bilangan dengan VB

Semoga bermanfaat.

SilaenTech

Rabu, 07 Juni 2017

MySQLi

Jumat, 20 Mei 2016

ECOMMERCE LENGKAP STUDI KASUS

Konversi Bilangan dengan Pemrograman Visual Basic 6.0

Kategori

Follow us on FB

Featured Video

Subscribe to Newsletter

Popular Posts

Labels

Elegant Themes

Most Popular

Villa Golden Residences

Entertainment

About Me

Blogger templates

Followers

Total Pageviews