Membuat teks berkedip dengan visual basic 6.0

Membuat teks berkedip dengan Visual Basic 6 tidak lah susah, hanya membutuh 1 buah label dan 1 buah timer. Tulisan berkedip di gunakan untuk animasi tulisan pada form dan berfungsi sebagai menampilkan pesan peringatan dengan menggabung kan logika IF pada vb. Namun untuk artikel ini saya gunakan hanya untuk dasar dalam membuat tulisan berkedip dengan dua metode yaitu : Metode tanpa pengaturan interval , dan pengaturan interval. untuk lebih lanjut nya bisa di sesuaikan dengan keperluaan masing masing.

1.    Buatlah desain form untuk tulisan atau teks berkedip tersebut. Seperti contoh di bawah

Desain Form

2.    Setting pengaturan interval Timer (Tmrtulisan) sebesar 500

3.    Kode program teks berkedip

Letakan pada Timer (tmrtulisan)

Private Sub Tmrtulisan_Timer()
If Lbltulisan.ForeColor = vbRed Then
    Lbltulisan.ForeColor = vbBlue
     Else
   Lbltulisan.ForeColor = vbRed
   End If
End sub

Letakan pada Tmrtulisan2_Timer()

Private Sub Tmrtulisan2_Timer()
i = i + 1
'Supaya tdk overflow, dsb...
  If i = 1000000 Then i = 0  
 
'Bangkitkan angka random untuk merah
  merah = Int(255 * Rnd)   

'Bangkitkan angka random untuk hijau
  hijau = Int(255 * Rnd)   

'Bangkitkan angka random untuk biru
  biru = Int(255 * Rnd)    

'Campur tiga warna
  Label2.ForeColor = RGB(merah, hijau, biru)  

'Jika counter habis dibagi 2
  If i Mod 2 = 0 Then      

'Tampilkan label
     Label2.Visible = True 
  Else                      'Jika counter tidak habis dibagi 2
'Sembunyikan label
     Label2.Visible = False
  End If
End sub

Letakan pada Commandbutton (CmdKeluar)

Private Sub Cmdtutup_Click()
Unload me
End Sub

Letakan pada Form load

Private Sub Form_Load()
i = 0     'Inisialisasi detik
  Timer2.Interval = 100   'Kalau 1000 biasanya lompat 1 detik
End sub

4.    Demo Tulisan berkedip

Itulah sobat tutorial Membuat teks berkedip dengan visual basic 6.0

Shut down menggunakan API dengan Visual Basic 6.0

Shut down menggunakan API dengan Visual Basic 6.0 - Setelah kemarin membahas membuat kontrol shut down dengan 3 button tombol yaitu shutdown, restart dan logoof tanpa menggunakan fungsi API, untuk tutorial sekarang yaitu Shut down menggunakan API. Dan maaf update tutorial vb6-nya telat karena kesibukan saya dengan perkuliahan mau menghadapi sidang perdana untuk gelar ST hehe....

Kita langsung saja, untuk belajar visual basic  ini kita hanya membutuhkan 1 button tombol atau Command dan fungsi API nya di gunakan yaitu SShutDownDialog . seperti Desain Form visual basic yang saya buat di bawah ini : 

Sengaja seperti biasa setiap tutorial saya cantumkan Video Belajar Vb 6 untuk Demo tutornya

Untuk kode program visual basic  nya sangat sangat singkat mudah , dan gampang di ingat. silahkan di coba...

Taruh koding ini di bagian General programnya

Option Explicit

Private Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal sParam As Long) As Long

dan yang ini masukan ke button tombol atau Command yang udah di buat.

Private Sub Command1_Click()

 SHShutDownDialog 0

End Sub

Nah itulah sobat materi tutorial tentang membuat Shut down menggunakan API dengan Visual Basic 6.0, semoga tutorial di atas dapat bermanfaat

perogram VB by yoni andrean

Di buat oleh yoni andrean Kategori : Visual Basic 6   gan bolehh mintak tolong ngak? buatin contoh program konvensi bilangan hexa ke biner?

Terima kasih yoni andrean telah menggunakan fitur kami ini . Jabat Software, Inc

Custom Facebook Like Counter dengan JQuery

Facebook Like Counter with JQuery - Menampilkan jumlah Like Facebook terkadang diperlukan. Tapi tampilannya kadang-kadang tidak sesuai dengan keinginan. Atau terkadang mempengaruhi loading blog.

Setelah mencari dan mencari, akhirnya saya menemukan cara untuk memodifikasi tampilan jumlah count pada like facebook ini. Sebetulnya ini tidak teralu penting, hanya sebagai catatan buat saya dan mungkin

Mitsubishi PLC FX2N & HMI E1000 Networking using BDTP Technology

Networking between E1000 terminals using BDTP Technology.      

 1.   Material Requirement

The required material for the setup is as follows

Sr. no.	Material
1	PLC Type  : FX Series
2	CPU         :  FX2N
3	PLC S/W   : GX Developer Ver. 8.45X
4	HMI          : E1041,E1043
5	Other

 2. Diagram

 

Network communication via BDTP is used to connect two or more E1000-series operator terminals to one or two controllers or several operator terminals to two or more controllers, with retained performance.

Figure 1 Networking between E �Terminals using BDTP Technology

 Cables

The required cables are as follows

    

Sr. no.	Item	Description
1	Medoc cable	Prog. cable for FX PLC
2	Ethernet Cross Cable	Comm. Cable for E-Terminal to E-Terminal & PLC*1

*1 To connect the E-Terminal to E-Terminal if HUB is used then Serial    Straight cable is used.

  

4.  E-Designer Program Setting

 Set IP 192.168.1.1 of BDTP Server in Peripheral Configuration as below.

Fig: Peripheral Configuration of BDTP Server

 Network Connection/Network services:

Select Network Services, Select BDTP Server to edit Max Client.

 

Fig. Network Connection of BDTP Server

 

Fig. Network services of BDTP Server

   5.  BDTP Client Setting

  

   Set IP 192.168.1.2 of BDTP Client as below

Fig: Peripheral Configuration of BDTP Client

  5.  BDTP Client Setting

For the network service BDTP Client, the IP Addresses for the BDTP Servers in the network from which the client is to collect information are defined. Select BDTP Clientin the list and click Edit to enter the settings.

 

Fig. Network services of BDTP Client