Kisi-kisi Soal UTS dan UAS Elektronika Beserta Jawaban

SOAL A 1) Berikut ini yang termasuk komponen elektronika dengan jenis komponen pasif yaitu ....

Kisi-kisi Soal UTS dan UAS Sistem Terdistribusi Beserta Jawaban

SOAL A 1. Berikut ini yang merupakan karakteristik dari definisi sistem terdistribusi adalah ....

Remove Bios Password and Harddissk (HDD) Laptop

I think to remove the bios password on an average PC is already can, although without having to memorize the password. the system jumpers or removing battery bios. ever see a supervisor, admin, system, HDD, bios, setup password?

Memperbaiki Kick Starter Motor Matic

Motor Matic is a motor that is the easiest to use and most in our homeland. please note that the motor also takes care of very sensitive, just like a computer that also takes care of sensitive anyway.

Gejala Kerusakan Mesin Air Submersible Metabo

Mesin Air Submersible atau yang sering disebut kebanyakan orang (satelit) ini sangat bagus, dengan sistemnya yang canggih dan fleksible. tipe mesin yang berbasis kerja di dalam tanah dan hanya menggunakan satu pipa ini, sangat berguna untuk anda yang memiliki banyak lumpur atau air kuning setelah pengeboran.

Showing posts with label VB. Show all posts
Showing posts with label VB. Show all posts

02 February 2020

Cara Membuat Traffic Light Sederhana dengan Visual Basic

, No comments
Siapkan VB dan langsung meluncur membuat form seperti ini:



Setelah itu pastikan code-nya seperti ini
Private Sub Command1_Click()
Timer1.Interval = Text3.Text
Timer2.Interval = Text1.Text
Timer3.Interval = Text2.Text
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Shape2.FillColor = &H808080
Shape3.FillColor = &H808080
Shape4.FillColor = &H808080
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End Sub

Private Sub Timer1_Timer()
If Shape2.FillColor = &H808080 Then
Shape2.FillColor = &HFF&
Shape3.FillColor = &H808080
Shape4.FillColor = &H808080
End If
Timer1.Enabled = False
Timer2.Enabled = True
Timer3.Enabled = False
End Sub

Private Sub Timer2_Timer()
If Shape3.FillColor = &H808080 Then
Shape2.FillColor = &H808080
Shape3.FillColor = &HFFFF&
Shape4.FillColor = &H808080
End If
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = True
End Sub

Private Sub Timer3_Timer()
If Shape4.FillColor = &H808080 Then
Shape2.FillColor = &H808080
Shape3.FillColor = &H808080
Shape4.FillColor = &HFF00&
End If
Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
End Sub



Semoga dapat mengembangkannya ya.
Share:
Read More

Cara Membuat Kalkulator sederhana dengan Visual Basic

, No comments
Siapkan VB dan langsung meluncur membuat form seperti ini



Setelah itu pastikan code-nya seperti ini
Private Sub clear_Click(Index As Integer)
bil1.Text = ""
bil2.Text = ""
hasil.Text = ""
End Sub

Private Sub kali_Click()
hasil.Text = Val(bil1.Text) * Val(bil2.Text)
End Sub

Private Sub bagi_Click()
hasil.Text = Val(bil1.Text) / Val(bil2.Text)
End Sub

Private Sub tambah_Click()
hasil.Text = Val(bil1.Text) + Val(bil2.Text)
End Sub

Private Sub kurang_Click()
hasil.Text = Val(bil1.Text) - Val(bil2.Text)
End Sub

Private Sub keluar_Click()
Unload Me
End Sub



Semoga dapat mengembangkannya ya.
Share:
Read More

06 February 2017

Cara Membuat Traffic Light Sederhana dengan Visual Basic

No comments
Siapkan VB dan langsung meluncur membuat form seperti ini:



Setelah itu pastikan code-nya seperti ini
Private Sub Command1_Click()
Timer1.Interval = Text3.Text
Timer2.Interval = Text1.Text
Timer3.Interval = Text2.Text
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Shape2.FillColor = &H808080
Shape3.FillColor = &H808080
Shape4.FillColor = &H808080
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End Sub

Private Sub Timer1_Timer()
If Shape2.FillColor = &H808080 Then
Shape2.FillColor = &HFF&
Shape3.FillColor = &H808080
Shape4.FillColor = &H808080
End If
Timer1.Enabled = False
Timer2.Enabled = True
Timer3.Enabled = False
End Sub

Private Sub Timer2_Timer()
If Shape3.FillColor = &H808080 Then
Shape2.FillColor = &H808080
Shape3.FillColor = &HFFFF&
Shape4.FillColor = &H808080
End If
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = True
End Sub

Private Sub Timer3_Timer()
If Shape4.FillColor = &H808080 Then
Shape2.FillColor = &H808080
Shape3.FillColor = &H808080
Shape4.FillColor = &HFF00&
End If
Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
End Sub



Semoga dapat mengembangkannya ya.
Share:
Read More

Cara Membuat Kalkulator sederhana dengan Visual Basic

No comments
Siapkan VB dan langsung meluncur membuat form seperti ini



Setelah itu pastikan code-nya seperti ini
Private Sub clear_Click(Index As Integer)
bil1.Text = ""
bil2.Text = ""
hasil.Text = ""
End Sub

Private Sub kali_Click()
hasil.Text = Val(bil1.Text) * Val(bil2.Text)
End Sub

Private Sub bagi_Click()
hasil.Text = Val(bil1.Text) / Val(bil2.Text)
End Sub

Private Sub tambah_Click()
hasil.Text = Val(bil1.Text) + Val(bil2.Text)
End Sub

Private Sub kurang_Click()
hasil.Text = Val(bil1.Text) - Val(bil2.Text)
End Sub

Private Sub keluar_Click()
Unload Me
End Sub



Semoga dapat mengembangkannya ya.
Share:
Read More

02 April 2011

If Then Else

No comments
Private Sub Command1_Click()
Dim harga As Currency
harga = 0
If jeniskamar(0).Value Then
harga = harga + 150000
ElseIf jeniskamar(1).Value Then
harga = harga + 250000
ElseIf jeniskamar(2).Value Then
harga = harga + 450000
End If
If fasilitas(0).Value Then
harga = harga + 50000
Share:
Read More

Digital Time

No comments
Private Sub Command1_Click()
End
End Sub

Private Sub Command3_Click()
If Command3.Caption = "&stop" Then
Command3.Caption = "&start"
Timer2.Enabled = False
Else
Command3.Caption = "&stop"
Timer2.Enabled = True
End If
End Sub
Share:
Read More

Select Case

No comments
Dim NilaiTm As Integer
Dim NilaiMid As Integer
Dim NilaiFinal As Integer
Dim NilaiAkhir As Integer
Dim Grade As String

Private Sub Command1_Click()
NilaiTm = Val(Text1.Text)
NilaiMid = Val(Text2.Text)
NilaiFinal = Val(Text3.Text)
NilaiAkhir = NilaiTm * 0.2 + NilaiMid * 0.3 + NilaiFinal * 0.5
Select Case NilaiAkhir
Share:
Read More

Form Login VB to Access

No comments
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQL, Pesan As String

Private Sub Command2_Click(Index As Integer)
    If Text1.Text = "" Then
        MsgBox "Masukkan Username dengan benar", vbInformation
        Text1.SetFocus
        Exit Sub
    End If
    If Text2.Text = "" Then
        MsgBox "Masukkan Password dengan benar", vbInformation
        Text2.SetFocus
        Exit Sub
Share:
Read More

Blog Archive