Cara Membuat Lampu Selang - Seling Manual vb6

Manual lampu selang seling – Dalam membuat project ini pastilah harus menggunakan lampu, namun yang dikatakan lampu sangatlah berfariasi mulai dari bentuknya warnanya ukurannya, namun dalam project ini saya menggunakan bentuk lingkaran dan warna kuning ketika on, untuk bab ini kalian bisa mengedit sesuka kalian karena dasaranya sama menggunakan shape,dalam shape bisa terbagi berbagai macam jenis dari kotak lingkaran dan lain lain

Project ini menggunakan metode manual, jadi untuk menjankan program anda masih menekan atau mengaktifkanya secara satu persatu guna memudahkan bagi anda untuk mempelajari project tersebut barulah nantinya saya berika project dengan metode automatis
Berikut adalah kodinganya

Private Sub Command1_Click()
If Command1.Caption = "ON" Then
    Command1.Caption = "OFF"
    Shape1.FillColor = vbYellow ' lampu 1
    Shape4.FillColor = vbYellow ' lampu 3
    Shape2.FillColor = vbYellow ' lampu 5
    Else
    Command1.Caption = "ON"
    Shape1.FillColor = vbWhite 'merah
    Shape4.FillColor = vbWhite
    Shape2.FillColor = vbWhite
End If
End Sub

Private Sub Command2_Click()
If Command2.Caption = "ON" Then
    Command2.Caption = "OFF"
    Shape5.FillColor = vbYellow ' lampu 2
    Shape3.FillColor = vbYellow ' lampu 4
    Shape6.FillColor = vbYellow ' lampu 6
Else
    Command2.Caption = "ON"
    Shape5.FillColor = vbWhite
    Shape3.FillColor = vbWhite
    Shape6.FillColor = vbWhite
End If
End Sub

Private Sub Command3_Click()
If Command3.Caption = "ON" Then
    Command3.Caption = "OFF"
    Command2.Caption = "on"
    Command1.Caption = "on"
    Shape1.FillColor = &HFF&
    Shape2.FillColor = &HFF&
    Shape3.FillColor = &HFF&
    Shape4.FillColor = &HFF&
    Shape5.FillColor = &HFF&
    Shape6.FillColor = &HFF&

Else
    Unload Me
   
End If
End Sub

Keterangan singkat : untuk program vbwhite atau vbyellow atau vbred itu adalah program memudahkan anda untuk mengisi fillcolor backcolor dan fontcolor jika anda perhatikan vbred dengan &HFF& mudahan mana ? namun vbred dan &HFF& adalah program untuk warna merah ( satu kesatuan )
Dan untuk Caption itu merupakan program untuk memberi nama pada sebuah label command ataupun image dan from saya ambil contoh Command1.Caption = "OFF", jadi command1 tulisanya adalah off saat di run program
untuk projectnya sudah saya sediakan

Download Project

Continue Reading

Cara Memperbesar Ukuran Dimensi Pada Autocad

Memperbesar Ukuran Dimensi – Artikel ini saya buat dari masalah teman saya yg sering mengeluh setelah menempatkan ukuran ( DAL ) dimensi linear namun ukurannya sangatlah kecil, ukuranya terlihat jika kita zoom pada ukurannya lalu teman saya bertanya bagaimana caranya, jika dalam teori gambar dengan ukuran haruslah sebanding istilahnya jika size pada object sampai ratusan besarnya maka ukuranpun harus sebanding, namun terkadang teori dengan praktek lebih mudah praktek namun harus ada beberapa teori juga oleh karena itu banyak sekali mengeluh tentang ini maka saya akan memberikan solusinya

Langkah pertama – ketik D pada command line lalu tekan [enter] pada keyboard pc atau leptop anda
 
Langkah kedua – akan muncul form seperti gambar dibawah ini ikuti langkah pada gambar di bawah ini , pastikan sesuai dan benar 

 

Langkah ketiga – lihat nomor 3 pada gambar , rubahlah ukuranya seperti teori yang saya berikan jika terlihat terlalu besar maka buatlah angka lebih kecil, jika masih terlalu kecil buatlah angka lebih besar. Namun untuk melihat hasilnya anda harus tekan ok seperti pada tahap nomor 4 pada gambar dan close

Mudah bukan jangan takut untuk bergerak atau merubah karena jika salah bisa dikembalikan secara default

Sedikit solusi yang sering terjadi lagi pada saat memberi ukuran pada object , jika anda melihat gambar dibawah ini , pernakah anda mengalami masalah seperti ini. 110 dengan 110.000 Sebenarnya ukuranya sama sama namun jika anda merasa jengkel dan ingin menghilakan angka di belakang koma maka caranya juga sama 

Langkah pertama –  ketik D pada command line lalu tekan [enter] pada keyboard pc atau leptop anda
 
Langkah kedua – akan muncul form seperti gambar dibawah ini ikuti langkah pada gambar di bawah ini , pastikan sesuai dan benar

Lalu lihat lah hasil ukuran pada project kalian jika anda masih ada pertanyaan dan bingung anda bisa bertanya I komentar di bawah ini

Continue Reading

Cara Mengganti Warna Background Di Autocad

Mengganti Background – Sering kali kita mendengar kata atau kalimat background, yah memang sudah tidak asing lagi namun dalam artikel ini akan membahas cara mengganti background di autocad
mungkin sebagian orang bosan akan tampilan atau warna itu itu saja oleh karena itu saya akan berbagi tipsnya , dengan memanfaatkan settingan yang di sediakan di dalam autocad kita bisa merubahnya dengan mudah tidak hanya background namun cursor , ground , ucs , object dan camera bisa di rubah warnanya, berikut adalah caranya yang saya buat sesingkat mungkin namun to the point

langkah pertama – klik kanan pada area drawing. Pilih options

langkah kedua – ikuti tahap pada gambar di bawah ini. Pastikan anda mengikuti tahapanya dengan benar

langkah ketiga – untuk nomor 3 anda bisa pilih sesuai warna yang anda sukai jika tida ada warna yang anda inginkan maka anda bisa pilih select  color maka disitu akan tampil semua warna RPG 

langkah keempat – klik apply dan lihat hasilnya...

sangat mudah bukan itulah sedikit tips untuk anda semoga bermanfaat

Continue Reading

Tutorial Cara Membuat Software Pengingat Adzan Visual Basic 6

Contoh program berikut adalah program untuk mengingatkan waktu adzan yang telah kita tentukan
Software ini juga dapat di jadikan software di leptop pribadi untuk mengingatkan secara pribadi tidak hanya di hp android leptop pun ada dan caranya sangatlah mudah dengan modal visual basic yang sudah di install di leptop anda dan anda bisa berkreasi dengan program yang asaya berikan

Berikut codinganya
 

Private Sub Form_Load()
player.URL = App.Path & "\Song\adzan.mp3" ' nama file adzan tsb
Form1.Width = 11880
End Sub

Private Sub Label10_Click() ' tombol setting
Form1.Width = 13500
Label20.Visible = True
End Sub

Private Sub Label20_Click() ' tombol close
Label20.Visible = False
Form1.Width = 11880
End Sub

Private Sub Metode1_Timer() ' sistem utama dalam pembuatan waktu adzan
If HasilM1.Caption = Label8.Caption Then
player.Controls.play
Timertxt.Enabled = True
Label15.Visible = True
End If
If HasilM2.Caption = Label8.Caption Then
player.Controls.play
Timertxt.Enabled = True
Label15.Visible = True
End If
If HasilM3.Caption = Label8.Caption Then
player.Controls.play
Timertxt.Enabled = True
Label15.Visible = True
End If
If HasilM4.Caption = Label8.Caption Then
player.Controls.play
Timertxt.Enabled = True
Label15.Visible = True
End If
If HasilM5.Caption = Label8.Caption Then
player.Controls.play
Timertxt.Enabled = True
Label15.Visible = True
End If
HasilM1.Caption = (Text1.Text) + ":" + (Text2.Text) + ":00" ' ini settingan untuk menu setting
HasilM2.Caption = (Text4.Text) + ":" + (Text3.Text) + ":00"
HasilM3.Caption = (Text6.Text) + ":" + (Text5.Text) + ":00"
HasilM4.Caption = (Text8.Text) + ":" + (Text7.Text) + ":00"
HasilM5.Caption = (Text10.Text) + ":" + (Text9.Text) + ":00"

End Sub

Private Sub Timer1_Timer()
Label8.Caption = Format(Now, "HH:mm:ss") ' jam memnggunakan format
End Sub

Private Sub Timertxt_Timer()
Label15.Caption = Right(Label15.Caption, Len(Label15.Caption) - 1) & Left(Label15.Caption, 1) ' text berjalan
turnofftxt.Caption = turnofftxt.Caption + 1
Select Case turnofftxt.Caption
Case "300"
Label15.Visible = False
MsgBox " Saatnya Sholat ", vbInformation
turnofftxt.Caption = "1"
Timertxt.Enabled = False
End Select
End Sub

jika anda kebingungan untuk penempatanya bisa download projectnya di sini 
atau jika ada pertanyaan bisa komentar dibawah ini , kami akan menanggapi sebaik mungki

Download Project

Continue Reading