select case di gambas

select case digunakan untuk melakukan pemilihan kondisi yang jumlahnya banyak
atau bertingkat,dengan pernyataan if pun bisa dilakukan pemilihan kondisi tertentu tetapi tidak seefektif bila memakai
select case.untuk memahami pernyataan select case coba perhatikan dibawah ini;

Jika saya memilih menu

menu ayam goreng harganya = “Rp 10.000″

menu bebek goreng harganya = “Rp 15.000″

menu ayam bakar harganya = “Rp 20.000″

menu ikan bakar hargany = “Rp 15.000″

kalimat diatas adalah logika dari pernyataan select case,sintak pernyataan select case :
select ekpresi
[case ekpresi [,ekpresi …]
[case ekpresi [,ekpresi …]
[case ekpresi [,ekpresi …]
end select

listing programnya :
‘ Gambas class file
‘originil code by STT DUTA BANGSA
‘Selamat bertemu kembali dalam belajar gambas
‘Semoga kode sederhana ini membantu anda dalam belajar

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB TextBox1_change()
DIM menupilihan AS String

menupilihan = TextBox1.Text
SELECT menupilihan
CASE 1
TextBox2.Text = “Rp 10.000″
CASE 2
TextBox2.Text = “Rp 15.000″
CASE 3
TextBox2.Text = “Rp 20.000″
CASE 4
TextBox2.Text = “Rp 15.000″
END SELECT
END

PUBLIC SUB Button1_Click()

QUIT

END

struktur if then (gambas)

kali ini,kita belajar tentang struktur if then di gambas,juga sedikit cara menampilkan pesan dalam msgbox.

 

 

 

 

 

 

 

 

 

 

 

lihat listing programnya :

‘ Gambas class file
‘Belajar struktur if then
‘bersama kami STT DUTABANGSA
PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()
‘blok kode program yang dikerjakan bila kondisi TRUE dan akan ada pesan benar kalau passwordnya tepat.
IF TextBox1.Text = “sttdutabangsa” THEN
PictureBox1.Visible = TRUE
TextBox1.Enabled = FALSE
Button1.Enabled = FALSE
Message.Info(“password benar … silahkan kreasikan ke form form selanjutnya..!”)
ELSE
‘blok kode program bila yang dikerjakan pada kondisi FALSE
Message.Info(“password salah!”)
TextBox1.text = “”
TextBox1.SetFocus
END IF

END

PUBLIC SUB Button2_Click()

QUIT

END

mudah bukan … silahkan dipraktekan :)

Option select (gambas)

 

 

 

 

 

 

 

 

 

 

 

 

Selamat bertemu kembali dalam belajar gambas,kali ini kita belajar tentang penggunaan perintah option select .yang mudah dipelajari,perintah ini akan mengubah teks label sesuai dengan option yang kita pilih.lihat listing dibawah ini :

‘ Gambas class file
‘===========================================================
‘Belajar gambas bersama STTDB
‘pada pelajaran ini kita belajar command option dan checkbox
‘dan juga sedikit if then else
‘selamat belajar
‘===========================================================
PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB RadioButton1_Click()

TextLabel1.ForeColor = Color.blue

END

PUBLIC SUB RadioButton2_Click()

TextLabel1.ForeColor = Color.Red

END

PUBLIC SUB CheckBox1_Click()

IF TextLabel1.Font.Bold THEN
TextLabel1.Font.Bold = FALSE
ELSE
TextLabel1.Font.Bold = TRUE
ENDIF

END

PUBLIC SUB CheckBox2_Click()

IF TextLabel1.font.Italic THEN
TextLabel1.Font.Italic = FALSE
ELSE
TextLabel1.Font.Italic = TRUE
ENDIF

END

PUBLIC SUB Button1_Click()

TextLabel1.Caption = TextBox1.Text

END

PUBLIC SUB Button2_Click()

QUIT

END

mudah bukan,silahkan anda berkreasi dengan program progam lain  :)

 

Latihan Program VB

Tutorial ini akan memberikan kita wacana dan pemahaman pemrograman visual basic,berisi contoh contoh varian program visual basic.akan memudahkan kita dalam mempelajari visual basic

 

silahkan klick disini

 

semoga bermanfaat

Belajar Sendiri MySql

MySQL (My Structure Query Language) adalah salah satu database dari sekian banyak database
lain seperti Oracle, MS SQL, PostgresSQL dan banyak lagi. Kesemuanyaitu mempunyai fungsi
dan manfaat yang hampir sama namun dalam pengerjaanya sedikit berbeda tetapi MySQL adalah
penggunaan yang paling mudah.
Kenapa MySQL?
MySQL adalah database manajemen sistem (DBMS) DBMS (Database Manajemen System)
merupakan salah satu system dalam mengakses database yang menggunakan bahasa SQL,
MySQL menggunakan bahasa SQL dan dapat dikatakan sebagai DBMS.
MySQL software open source Open source artinya memungkinkan untuk semua orang untuk
menggunakan dan memodifikasi software. Setiap orang dapat men-download MySQL dari
internet dan menggunakannya tanpa membayar apapun. Jika mau, anda bisa mempelajari kode
sumber dan menukar apa yang anda inginkan.
Kenapa menggunakan MySQL?
Databas e MySQL sangat cepat, reliable, dan mudah untuk digunakan, selain itu MySQL telah
banyak menangani pembuatan software besar Lebih lengkapnya Klik  Belajar MySql

Buat Webserver Sendiri Pake IP Speedy

Buat Webserver Sendiri Pake Speedy Ada keinginan untuk membuat hosting tanpa harus menyewa host?. Kawan-kawan dapat melakukan dengan menggunkan infrastruktur yang telah ada. Kebutuhan infrastructur :

1. satu buah PC dengan OS XP

2. Modem ADSL dengan koneksi Speedy Unlimited

3. XAMPP sebagai Localhost Dengan Asumsi kebutuhan infrastruktur diatas sudah terpasang dan koneksi speedy sudah jalan normal kita dapat membuat webhost sendiri dengan bantuan XAMPP.

Sekarang kita mulai memodifikasi konfigurasi modem untuk menjadikan pc yang terhubung dengan adsl kita sebagai server yg meng-host kebutuhan seperti yang saya sebut diatas (www, ftp, telnet, dan lain-lain).

1. login lah ke Modem ADSL Speedy anda

2. ubahlah koneksi speedy di modem, yang awalnya PPPoE/PPPoA (dengan user&password), Menjadi Bridge Mode (tanpa user & password)

3. Simpan Konfigurasi Modem Anda sekarang untuk bisa mendapatkan ip dynamic dari speedy, kita beralih ke PC yang terkoneksi dengan Speedy langsung atau yang terhubung melalui hub.

4. bukalah Network Connection atau dengan meng-klik Start – Settings – Control Panel – Network Connections

5. Kemudian Buatlah Koneksi PPP dari Windows Anda untuk mendapatkan ip dynamic dari speedy dengan mengklik Create a new connections dengan username dan password Speedy

6. Kemudian akan muncul Kotak isian Username & Password, jika anda telah mengikuti langkah2 diatas dengan benar, maka kotak yang muncul akan sudah terisi untuk kolom username & password nya, Sekarang untuk melakukan Koneksi, tekan CONNECT

7. Bila koneksi Speedy Anda Akan muncul 2 indikator seperti gambar dibawah ini, dan bila di ipconfig via DOS, PC Anda Mempunyai 2 IP Address, yaitu IP Local (private ip) dan IP dari Speedy (public IP) Dari Percobaan diatas, PC anda sekarang sudah bisa di jadikan Server yang bisa dikenali dunia secara langsung, dalam artian bisa meng-host banyak kebutuhan diantaranya www, ftp, email, dan lain-lain, karena peran modem diatas hanyalah sebagai Bridging (tidak memiliki IP dan sebagai penjembatan koneksi internet speedy Anda) Memperoleh dinamic DNS melalui DynDNS DynDNS ( Dynamic DNS) – http://www.dyndns.com Adalah penyedia DNS untuk dynamic dan static IP serta banyak Sub-Domain yang bisa di gunakan secara bebas dan GRATIS, dalam artikel ini kita akan membuat satu sub domain ‘anda.subdomain.xxx’ dengan puluhan pilihan subdomain yang sudah tersedia di dyndns.com serta updating secara berkala supaya domain selalu mengenali ip speedy anda yang selalu berganti karena bersifat dinamis, serta software pendukung nya Syarat dan Caranya :

1. internet anda harus udah tersambung dengan koneksi speedy

2. buka url ini di browser anda : http://www.dyndns.com

3. atau langsung aja buat account baru di : https://www.dyndns.com/account/create.html

4. lakukan konfirmasi melalui email Anda tadi, dan klik url yang ada didalam nya untuk mengaktifkan account anda.

5. bila sudah aktivasi, account anda akan langsung aktif

6. lakukan login ke dydns dengan user+password anda tadi

7. klik pada My Services yang terletak pada pojok atas kanan

8. pilih lah menu Add Host Services (gb. lingkar 1)

9. kemudian klik Add Dynamic DNS Host ) Cara cepat untuk mem by-pass nomer 7-9 dengan meng klik / copy paste di browser: https://www.dyndns.com/account/services/hosts/dyndns/add.html Contoh : – misal pada hostname anda isian : hostku – Kemudian dengan pilihan domain : blogdns.net – Settingan yg lain ? default (tanpa ada perubahan) – Kemudian klik ? Add Host maka alamat url domain untuk speedy anda adalah : http://hostku.blogdns.net/ NOTE: * Sub-Domain yang anda buat bisa menjadi sub-domain anda selamanya * Sub-domain yang anda buat tadi ( http://hostku.blogdns.net/ ) tidak bisa mengikuti perubahan ip pada speedy anda kecuali anda mengikuti tahap terakhir yang akan saya jelaskan di bawah ini, yang akan secara otomatis mengupdate ip dynamic anda dengan sub-domain di dyndns Proses Updating DNS pada DynDNS.com Updating DNS pada DynDNS ini sangat diperlukan, mengingat ip Speedy Anda adalah Dynamic IP ( tidak memiliki IP tetap ) Agar DynDNS selalu mengerti perubahan IP speedy anda, anda perlu untuk meng-update ya secara berkala di web nya dyndns, terutama saat modem baru di nyalakan, atau faktor lain yg menyebabkan ip berubah Untuk memudahkan proses Updating dan update secara OTOMATIS, DynDNS telah menyediakan Software pendukung nya yang disediakan secara Free, yang berfungsi untuk peng-updatan secara otomatis sub-domain dengan ip dynamic speedy Anda. ikuti langkah-langkah dibawah ini dan download file updater : 1.https://www.dyndns.com/support/clients/ atau di http://www.download.com/DynDNS-Updater/3000-2381-10405775.html?part=dl-DynDNSUpd&subj=dl&tag=button 2.extract lah file tersebut 3.install file tersebut 4. buat groups 5.isikan username dan password speedy anda disitu, atau klik tombol detect untuk detect dialer account yang sudah anda buat tadi 6.kemudian Klik OK sampe aplikasi tertutup, tapi pastikan icon try dyndns masih ada, tunggu sebentar sekitar 5-10 detik, untuk dyndns melakukan connecting secara otomatis masukkan sub-domain yang sudah anda buat tadi (wongedan.blogdns.net), dengan pilihan system dyndns indikator centang hijau Anda berhasil Centang kuning proses update Centang merah anda gagal Pengalaman Penulis, Joomla 1.5 stabil digunakan dalam metode ini INGAT !!!, ini hanya diperuntukan untuk Speedy Unlimited karena Bandwith yang terpakai cukup banyak.

sc : anakendari.blogspot.com/

Belajar GAMBAS (vb nya Linux)

gambas dibuat oleh seorang programer asal prancis benoit minisini.

gambas adalah bahasa pemograman basic,jadi penulisanya mirip visual basic tetapi bukan visual basic.karena dalam developnya gambas dikembangkan oleh bahasa gambas sendiri.Mempelajari gambas hampir sama dengan mempelajari bahasa visual basic.bila anda menggunakan ubuntu anda tinggal menginstal lewat synaptic packet manager ,kemudian search “gambar” kemudian download dan install .

berikut ini contohnya ,kita mulai dengan operator matematika yang sederhana dulu ;

gambar run nya

listing program
‘ Gambas class file
‘++++++++++++++++++++++++++++++++++++++++++++++++
‘+ Belajar Gambas di kampus STT DUTABANGSA +
‘+ +
‘+ kampus B cikarang +
‘++++++++++++++++++++++++++++++++++++++++++++++++

PRIVATE sngbilangan1 AS Single
PRIVATE sngbilangan2 AS Single
PRIVATE snghasil AS Single

PUBLIC SUB cmdJumlah_Click()

sngbilangan1 = TextBox1.Text
sngbilangan2 = TextBox2.Text
snghasil = sngbilangan1 + sngbilangan2
TextBox3.text = snghasil

END

PUBLIC SUB cmdKurang_Click()
sngbilangan1 = TextBox1.Text
sngbilangan2 = TextBox2.Text
snghasil = sngbilangan1 – sngbilangan2
TextBox3.text = snghasil

END

PUBLIC SUB cmdTutup_Click()

QUIT

END

PUBLIC SUB cmdKali_Click()

sngbilangan1 = TextBox1.Text
sngbilangan2 = TextBox2.Text
snghasil = sngbilangan1 * sngbilangan2
TextBox3.text = snghasil

END

PUBLIC SUB cmdBagi_Click()

sngbilangan1 = TextBox1.Text
sngbilangan2 = TextBox2.Text
snghasil = sngbilangan1 / sngbilangan2
TextBox3.text = snghasil

END

‘sampai jumpa pada penulisan berikutnya :)

Ikuti

Get every new post delivered to your Inbox.