Thursday, November 1, 2012

Fransiskus Sutris

Windows sering hang ketika membuka Explorer dan Device Printer

By     2 comments:
Jika dilihat dari sisi visual antara windows xp dan windows seven, saya lebih tertarik dan memilih untuk menggunakan windows seven ketimbang windows xp. Tetapi yang tidak saya suka dari windows seven adalah kadang kala sering hang dan lambat sekali loadingnya. Ketika membuka Explore loadingnya lama sekali, membuka device and printer pun sama saja.
 
Bagi anda yang menggunakan windows seven di PC atau pun Notebook, Kalau anda pernah mengalami hal seperti apa yang saya alami cobalah untuk melakukan tips berikut untuk memperbaikinya.

Kendala tersebut bisa saja terjadi karena hal-hal berikut:
- Andanya Network Drive di windows anda
- Ada atau bahkan banyak printer sharing di Device and printer 

Cobalah untuk menonaktifkan network drive di windows explorer dengan cara :
1. Buka Windows Explorer
2. Klik kanan pada nama Network Drive 
3. Lalu klik disconnnect


Tips selanjutnya adalah dengan cara hapus semua nama printer di device and printer yang tidak digunakan, khususnya printer yang didapat dari hasil sharing dari PC lain.
 
Demikian, semoga membantu anda sekalian.

Read More
Fransiskus Sutris

go

By     No comments:

Read More

Wednesday, October 31, 2012

Fransiskus Sutris

a

By     No comments:

Read More

Friday, October 26, 2012

Fransiskus Sutris

Membuat Website Multi Language (Multi bahasa) dengan PHP

By     No comments:
Kali ini saya akan share ke pembaca sekalian mengenai teknik membuat website dengan multi bahasa. Yang saya bahas berikut adalah contoh sederhana untuk membuat website kita dalam 2 bahasa (Indonesia dan English) dengan memanfaatkan PHP.

Kita perlu membuat 4 buah file .php yaitu :
1. control.php
2. english.php
3. indonesia.php
4. index.php

SILAHKAN ANDA DOWNLOAD SOURCE CODE di bawah postingan ini.

Dalam file control.php berisi fungsi untuk memilih bahasa apa yang aktif atau kita pilih. Ketik kode berikut :


<?
function PilihBahasa($bh) { 
   switch ($bh) { 
      case "en": 
       require_once "english.php"; 
       break; 
      case "id": 
       require_once "indonesia.php"; 
       break; 
   } 
} 
?>
Yang kedua adalah file english.php, disini menyimpan semua variable yang akan ditampilkan melalui file index.php. jadi dalam file index.php semua teks yang akan ditampilkan dalam 2 bahasa tersebut harus didefinisikan di file english.php untuk versi englishnya dan juga didefinisikan pada file indonesia.php untuk versi indonesianya.

Berikut isi coding pada file english.php :
   <?
    define("WELCOME", "Welcome to English Language Websites"); 
    define("SELECT_LANG", "SELECT LANGUAGE"); 
    define("NM","Name");
    define("PARENT","Parent");
  ?>

Berikut isi coding untuk file indonesia.php :
  <? 
    define("WELCOME", "Selamat Datang di websites Bahasa Indonesia");
    define("SELECT_LANG", "PILIH BAHASA");
    define("NM","Nama");
    define("PARENT","Orangtua");
?> 

Langkah terakhir adalah membuat file index.php, berikut isi file index.php :

<? 
  include "control.php"; 
  if ($_GET['lang']!="") { 
    PilihBahasa($_GET['lang']); 
  } else { 
    PilihBahasa("id");  //Set ke bahasa default 
  } 
?>
<head> 
<title><?=WELCOME?> 
</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />  </head>

<body>
 <table border="1">        
  <tr> 
    <td><?=SELECT_LANG?></td>
    <td><a href='index.php?lang=id'&gt;Indonesia</a></td>
    &lt;td><a href='index.php?lang=en'>English</a></td>
  </tr>
 </table>
 <BR>
 <br> 
<?=NM?><? echo " = Fransiskus Sutris"?> 
<br> 
<?=PARENT?><? echo " = Petrus Parlan"?>
</body>
</html>

Semua langkah sudah selesai, sekarang tinggal anda test saja di browser.

  DOWNLOAD

Selamat berkreasi!!!
Read More

Thursday, September 27, 2012

Fransiskus Sutris

TERIMA SERVICE KOMPUTER DAN LAPTOP PANGGILAN PALEMBANG

By     No comments:

SKY-COMP

Kami menerima jasa perbaikan/service panggilan komputer dan laptop untuk di Kota Palembang.
Alamat kami di Jl. Sududuk Putih No. D61 Komplek Perwira. Dekat dengan Pura.

Untuk sementara waktu kami menerima panggilan service mulai dari pkl. 18.00 - 21.00 WIB atau jam 6 Sore.

Silahkan menghubungi saya di 0878.971 66 5 11 (Fransiskus Sutris)
Read More

Wednesday, September 19, 2012

Fransiskus Sutris

Flexible AutoNumber In VB.NET (English)

By     1 comment:

Flexible Auto number

By using this function you able to make the flexible auto number, why called flexible? Because my function not only generate from number only, but will generate the auto number contained the letter and number. Such as invoice number, purchase order number, etc.

See illustrate on the table below:
Recent Number
Next Number
1
2
3
And so on
00001
00002
00003
And so on
PO-0001
PO-0002
PO-0004
And so on
INV-20.09.2012-00001
INV-20.09.12-00002
INV-20.09.2012-00003
And so on

Let's look at an example of using this function is simply to be easily understood.
1.
Create new project on your VB Express/.NET. Give Name Of Your Project with FlexibleAutoNumber.
2.
Put two labels, two textbox and one button (can be arranged on the picture below).
3.
Add a class in your project and name it with the name clsFunction.vb, see picture below.
4.
Open clsFunction.vb by double-click, then remove the two lines of code there, and paste the following code:

Public Class clsFunction
    Function GetNextNumber(ByVal strBefore As String) As String
        Dim temp1 As String = vbNullString
        Dim lnStrBefore, lnTemp1 As Integer

        temp1 = Val(strBefore) + 1

       lnStrBefore = Len(strBefore)
        lnTemp1 = Len(temp1)

        If lnStrBefore > lnTemp1 Then
            Dim a As Integer
            For a = lnTemp1 To (lnStrBefore - 1)
                temp1 = "0" & temp1
            Next
        End If
        Return temp1
    End Function

    Function GetNextString(ByVal strBefore As String) As String
        Dim strAwal As String = vbNullString
        Dim temp1 As String = vbNullString
        Dim lnStrBefore As Integer

        lnStrBefore = Len(strBefore)
        Dim a, b As Integer
        Dim cKarakter As String

        b = lnStrBefore + 1
        For a = 1 To lnStrBefore
            b = b - 1
            cKarakter = Mid(strBefore, b, 1)

            If IsNumeric(cKarakter) = False Then
                strAwal = Left(strBefore, b)
                temp1 = Right(strBefore, a - 1)
                temp1 = strAwal & GetNextNumber(temp1)'CALLFUNCTION GetNextNumber
                Exit For
            End If
        Next
        Return temp1
    End Function

    Function FlexibleAutoNumber(ByVal strRecentNumber As String) As String
        If IsNumeric(strRecentNumber) Then
            Return GetNextNumber(strRecentNumber)
        Else
            Return GetNextString(strRecentNumber)
        End If
    End Function
End Class
5.
A brief description of 3 functions above.
a.    Function GetNextNumber used when the layout consists of digits Numeric only
b.    Function GetNextString used when the layout consists of the incorporation of letters and numeric.
c.    FlexibleAutoNumber function, this function will call one of  two functions above according to the type number.
6.
Immediately open the Form1 design, and double click on button1, then fill in the coding below:

Public Class Form1
    Dim c As New clsFunction
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As String = TextBox1.Text
        TextBox1.Text = c.FlexibleAutoNumber(a)
    End Sub
End Class
7.
Save your project and try to run it, please input sample number, eg INV-0001 after the Save button is clicked then the INV-0001 will turn into INV-0002, and so on.


 After button Save is clicked
8.
Please explore themselves to use this function in accordance with the program you have created. Good luck and hopefully useful.

Just clik Here if want to downlod the Project








Read More
© Copyright 2015 BEJO'S APPLICATIONS. Designed by Bloggertheme9 | Distributed By Gooyaabi Templates. Powered by Blogger.