ANGKA OTOMATIS BERTAMBAH MULAI DARI 001 (AUTONUMBER)

dear, teman - teman yang sudah mampir di blog saya, :) seiring dengan terbitnya tulisan ini yang dimana hari ini adalah moment yang tak terlupakan,

nah pada form ini terlihatnya nomer "014" itu adalah nomer dari dalam database acces saya yang terakhir,  dimana pada tanggal sekarang saya sudah 14 kali menekan nya atau kalau istilah antrian, sudah ada 14 orang yang ngantri.

ini aku share karena ada temen saya yang tanya, ya mungkin ada temen - temen yang lain yang sedang mencarinya juga, :)

ini sub codenya bisa di panggil melalui button_click atau pakai keypress untuk memanggil dengan cara menekan tombol di keyboard :

Sub No_Karcis()

        Try

            no = no + 1

            lbnomer.Text = no

            If Len(lbnomer.Text) = 1 Then

                lbnomer.Text = "00" & lbnomer.Text & ""

            ElseIf Len(lbnomer.Text) = 2 Then

                lbnomer.Text = "0" & lbnomer.Text & ""

            End If

        Catch

            conen.Close()

        End Try

bagi kalian yang sadar dengan hanya melihat kodenya, pasti sudah tau kan kalau ada variabel yang harus di deklarasikan terlebih dahulu, :) yak, betul... udah tau kan, siiip ;;? :) selamat mencoba, :)

#dalam hati saya masih pengen pergi, :( #ngarep #depan #kamismanis :)

Continue reading ANGKA OTOMATIS BERTAMBAH MULAI DARI 001 (AUTONUMBER)

LAMPU JALAN

kalau ini referensi dari grup VB.Net
http://xbasicpro.blogspot.co.id/2016/05/membuat-simulasi-traffic-light-dengan-3.html
kita bisa coba membuat simulasi traffic light dengan 3 buah timer di vb .net
cara kerjanya sih mirip loket antrian, kalau menurut aku.
Lihat gambar di bawah ini:

Untuk membuar form seperti di atas ANDA meletakkan

3 buah Ovalshape

1 buah RectangleShape

3 buah label

3 buah timer

1 buah button

Kode lengkapnya  di bawah ini:


Public Class Form1

    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click

        Timer1.Interval = 1000
        Timer2.Interval = 1000
        Timer3.Interval = 1000

        OvalShape1.FillStyle = PowerPacks.FillStyle.Solid
        OvalShape1.FillColor = Color.White

        OvalShape2.FillStyle = PowerPacks.FillStyle.Solid
        OvalShape2.FillColor = Color.White

        OvalShape3.FillStyle = PowerPacks.FillStyle.Solid
        OvalShape3.FillColor = Color.White


        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Static i As Integer
        i = i + 1

        Label1.Text = i

        If i = 1 Then
            OvalShape1.FillStyle = PowerPacks.FillStyle.Solid
            OvalShape1.FillColor = Color.Red
        End If

        If i = 2 Then
            OvalShape1.FillColor = Color.White
            i = 0
            Timer2.Start()
            Timer1.Stop()
        End If

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        Static i As Integer
        i = i + 1

        Label2.Text = i

        If i = 1 Then
            OvalShape1.FillStyle = PowerPacks.FillStyle.Solid
            OvalShape2.FillColor = Color.Yellow
        End If

        If i = 2 Then
            OvalShape2.FillColor = Color.White
            i = 0
            Timer3.Start()
            Timer2.Stop()
        End If

    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

        Static i As Integer
        i = i + 1

        Label3.Text = i

        If i = 1 Then
            OvalShape1.FillStyle = PowerPacks.FillStyle.Solid
            OvalShape3.FillColor = Color.YellowGreen
        End If

        If i = 2 Then
            OvalShape3.FillColor = Color.White
            i = 0
            Timer3.Stop()
            Timer1.Start()
        End If
    End Sub

selamat mencoba, semoga bermanfaat, :)

Continue reading LAMPU JALAN