MARHABAN YA RAMADHAN. SELAMAT MENUNAIKAN IBADAH PUASA 1429.

Ucapkan MERDEKA dengan sepenuh hati dan setulus hati … Mudah – mudahan Bangsa yang besar ini lebih Besar dari bangsa lain bukannya tambah mengecil.. MERDEKA.

17 Agustus 2008 [AsepGumilar.Wordpress.COm]

Orang Bandung sendiri termasuk saya kalau sudah menjelang weeend season ( ceilah kayak bule aja nih ) maksudnya waktu hari libur sekitar Sabtu dan Minggu sudah males untuk keluar rumah karena setiap tempat sudah mulai sesak oleh mobil – mobil atau orang – orang yang sengaja dari luar kota bandung untuk berlibur di bandung. Kegiatan tersebut sudah di mulai sejak pagi buta tengok saja ke daerah Gedung Sate weleeehhhhh bukannya kita ingin jalan pagi menghirup udara segar malah sudah penuh sesak dengan pedagang – pedagang yang menjajakan dagangan ( ooohhh bandung aku rindu suasanamu tempo dulu ), kemudian kalau kita bergeser sedikit ke arah Jl LL RE Martadinata dulu sangat sejuk penuh dengan berbagai macam pohon langka yang besar sekarang alamaak outlet dah dimana – mana, macet di mana mana, kenapa bandung ku seperti ini . Apakah bandung sekarang kita bisa sulap lagi dengan sekali simsalabim menjadi bandung tempo dulu yang Paris van Java (cuman berharap saja ) , sebagai nostalgia dibawah ini saya ambil foto jaman dulu mudah-mudahan bisa mengobati rasa rindu kita terhadap Bandung yang BERHIBER (moto bandung loh Bersih Hijau dan Berbunga he he he) untuk lebih menikmati suasan tempo doeloe bisa kunjungi website http://www.bandung.go.id

Oke baraya bandung sadayana wilujeung tepang deui ( Ind : Oke Sobat Bandung semuanya Sampai Jumpa Lagi )

- Pertama jalankan terlebih dahulu Visual Studio 2005 ( kalau ga di jalankan mana bisa buat project .. )

• Kedua buat New Project
• Setelah membuat Project Baru rubah Form 1 menjadi frmUtama
• Tambahkan satu form lagi kasih nama frmSplash
• Setelah itu tambahkan Reference ke dalam project yaitu : Microsoft.VisualBasic
• Nah kalau sudah buka Program.cs, rubah code nya menjadi seperti di bawah ini :

  *****************************************

using System;
using System.Collections.Generic;
using System.Windows.Forms;
using Microsoft.VisualBasic.ApplicationServices;

namespace CIS
{
static class Program
{
///
/// The main entry point for the application.
///
[STAThread]
static void Main(String[] args)
{
Application.EnableVisualStyles();
Application.SetCompatibleTextRenderingDefault(false);
new CISApp().Run(args);
}
}

public class CISApp : WindowsFormsApplicationBase
{
protected override void OnCreateSplashScreen()
{
this.SplashScreen = new frmSplash();
}

protected override void OnCreateMainForm()
{
this.MainForm = new frmUtama();
}
}
}
*****************************************

Oke bro sampai disini dulu, lain waktu kita lanjut lagi cerio …..

• Buat 1 Project misalkan SplashOke
• Tambahkan 1 Form misalkan di beri nama frmSplash
• Tambahkan 1 Form lagi misalkan di beri nama frmUtama
• Didalam Solution Explorer klik Show All File, Buka Folder My Project, di dalamnya akan terdapat file Application.myapp
• Klik tanda (+) di Application.myapp akan muncul 1 file namanya Application.Designer.vb
• Klik kanan di file Application.Designer.vb tersebut pilih View Code
• Akan muncul code seperti di bawah ini :

  ***********************************************************

Option Strict On
Option Explicit On

Namespace My
‘NOTE: This file is auto-generated; do not modify it directly. To make changes,
‘ or if you encounter build errors in this file, go to the Project Designer
‘ (go to Project Properties or double-click the My Project node in
‘ Solution Explorer), and make changes on the Application tab.
‘
Partial Friend Class MyApplication
‘
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.Authentication
Mode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode
.AfterMainFormCloses
End Sub
‘
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.SplashOke.frmUtama
End Sub
End Class
End Namespace

***********************************************************

- Tambahkan code berikut ini setelah OnCreateMainForm()

Protected Overrides Sub OnCreateSplashScreen()
Me.SplashScreen = Global.SplashOke.frmSplash
End Sub

- Setelah itu tekan F5 lihat hasilnya

• Oke untuk property SplashScreen sampai di sini dulu, kita lanjut ke yang lainnya di pembahasan selanjutnya, Cerioo

Design Form :

• Jalankan VS .NET 2003 ( so pasti lawong code nya pake .NET he he he he)
• Buat Satu project Visual Basic .NET dengan nama TestDelegate
• Setelah terbuat tambahkan 2 Button di dalam Form1 misalkan Button1 dan Button2
• Rubah property Enabled Button2 menjadi False
• Tambahkan Form2 pada Project, setelah itu tambahkan 1 button pada form2

Code :

• Buat Class misalkan TestDelegate, tambahkan Code-nya seperti di bawah ini

Public Delegate Sub myDelegate(ByVal sender As Object, ByVal e As TestDelegate)
Public Class TestDelegate
Inherits System.EventArgs
Private myValue As String

Public Sub New(ByVal myStr As String)
MyBase.New()
myValue = myStr
End Sub

Public ReadOnly Property ValueTestDelegate()
Get
Return myValue
End Get
End Property
End Class

• Di Form2 Deklarasikan event dari delegate tersebut , seperti di bawah ini :

Public Event myEvent As myDelegate
- Kemudian di dalam Form2 tambahkan variable string untuk di setting nilainya
Private myValueParent As String = “Aktif Button”
- setelah itu Button1 di Form 2 tambahkan code seperti di bawah ini :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If myValueParent = “Aktif Button” Then
Dim myTestDelegate As New TestDelegate(“Aktif Button”)
RaiseEvent myEvent(Me, myTestDelegate)
End If
Me.Close()
End Sub

• Kemudian silahkan masuk ke Form1, tambahkan code untuk Button1 di Form1 seperti di bawah ini :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myForm2 As New Form2
AddHandler myForm2.myEvent, AddressOf Aktifkan
myForm2.ShowDialog()
End Sub

• kemudian buat procedure Aktifkan seperti di bawah ini :

Private Sub Aktifkan(ByVal sender As Object, ByVal e As TestDelegate)
Me.Button2.Enabled = True
End Sub

Oke selanjutnya di coba …. cerioooo

Code :

Function Terbilang(ByVal myNum As Double) As String
Dim myString As String() = {“”, “satu”, “dua”, “tiga”, “empat”, “lima”, _
“enam”, “tujuh”, “delapan”, “sembilan”, “sepuluh”, “sebelas”}
Dim myTmpString As String = “”
Select Case myNum
Case Is < 12
myTmpString = myString(myNum)
Case Is < 20
myTmpString = Terbilang(myNum – 10) + ” ” + “belas”
Case Is < 100
If Microsoft.VisualBasic.Right(myNum, 1) > 0 Then
myTmpString = Terbilang(Int(myNum / 10)) + ” ” + “puluh”
+ ” ” + Terbilang(myNum Mod 10)
Else
myTmpString = Terbilang(Int(myNum / 10)) + ” ” + “puluh”
End If
Case Is < 200
myTmpString = “seratus” + ” ” + Terbilang(myNum – 100)
Case Is < 1000
myTmpString = Terbilang(Int(myNum / 100)) + ” ” + “ratus”
+ ” ” + Terbilang(myNum Mod 100)
Case Is < 2000
myTmpString = “seribu” + ” ” + Terbilang(myNum – 1000)
Case Is < 1000000
myTmpString = Terbilang(Int(myNum / 1000)) + ” ” + “ribu”
+ ” ” + Terbilang(myNum Mod 1000)
Case Is < 1000000000
myTmpString = Terbilang(Int(myNum / 1000000)) + ” ” + “juta”
+ ” ” + Terbilang(myNum Mod 1000000)
Case Is < 1000000000000
myTmpString = Terbilang(Int(myNum / 1000000000)) + ” ” + “milyar”
+ ” ” + Terbilang(myNum Mod 1000000000)
Case Is < 1000000000000000
myTmpString = Terbilang(Int(myNum / 1000000000000)) + ” “
+ “trilyun” + ” ” + Terbilang(myNum Mod 1000000000000)
End Select
Return myTmpString
End Function