Archive for 2016

Download software menghitung layang - layang

Rabu, 20 Juli 2016
Posted by HD Technology Studio
0 Comments
Tag : ,
+


Pada hari ini gue akan share tentang software untuk menghitung Keliling dan luas layang - layang. Terima Kasih gue ucapin untuk para temen - temen gue yang telah membantu gue untuk menyelesaikan software Kl Layang - layang ini. Bagi kalian yang ingin mencoba software ini gue persilahkan untuk mendownload di link di bawah ini. Bagi kalian yang mempunyai saran dan kritik bisa komen di bawah guys. Gue sangat berterima Kasih banget kalo loe semua mau memberi kritik dan saran atas software yang telah gue buat ini. Sebelum nya gue juga udah share tentang cara pembuatan software ini yaitu di sini...

Cara penggunaan software ini sudah terdapat di dalam file rar nya guys, jadi loe gak usah bingung untuk cara menggunakan nya. Ok guys langsung saja gue berikan link download nya...

DOWNLOAD Via tusfiles

Download software menghitung bangun datar persegi panjang

Minggu, 03 Juli 2016
Posted by HD Technology Studio
0 Comments
Tag : ,
+

Setelah gue post tentang software Menghitung persegi, kali ini gue akan lanjutin dengan software menghitung bangun datar persegi panjang. Software ini tidak beda jauh dari software menghitung bangun datar persegi panjang.
Software ini berfungsi untuk :
1. Menghitung luas dan keliling persegi panjang jika diketahui panjang dan lebar.
2. Menghitung panjang jika diketahui luas dan lebar, atau keliling dan lebar.
3. Menghitung lebar jika diketahui luas dan panjang, atau keliling dan panjang.
Mungkin untuk sementara software ini hanya memiliki fungsi seperti itu. Dan berharap untuk kedepannya software ini bisa berkembang lebih baik lagi.
Silahkan bagi yang ingin mendownload dan terima kasih bagi yang sudah download maupun yang datang berkunjung.
Link download
Via tusfiles DOWNLOAD
Via usercloud DOWNLOAD
Kalo link bermasalah Silahkan comment di bawah gan....

Download software menghitung persegi

Rabu, 29 Juni 2016
Posted by HD Technology Studio
0 Comments
Tag : ,
+
Kali ini gue akan share software menghitung salah satu bangun datar yaitu persegi. Walaupun tampilan nya mungkin agak kurang keren tapi gue harap loe semua menikmatinya. Untuk panduan penggunaan software ini, bisa dilihat sendiri di dalam software ini. Kalo agan - agan masih kurang paham bisa langsung tulis komen di bawah gan. Insyaallah ane bakal jawab komen - komen agan semuanya.
Tanpa banya ngomong lagi, silahkan download saja di bawah ini.
DOWNLOAD link by usercloud
DOWNLOADlink by tusfiles
Satu lagi gan, gue butuh kritik, saran serta masukkan dari agan - agan sekalian untuk mengembangkan software ini.
Thanks banget gan bagi yang udah download, gue harap loe semua gak kecewa. Jangan lupa tunggu karya gue berikutnya....
Jangan lupa komen gam kali ada masalah pada link nya😀😀😀

Membuat software perhitungan lingkaran dengan vb.net

Selasa, 24 Mei 2016
Posted by HD Technology Studio
0 Comments
Tag : ,
+
Pada hari ini admin ingin share pengetahuan tentang membuat program komputer menegenai lingkaran dengan vb.net. fungsi program nya cukup sederhana yaitu menghitung luas, keliling, dan diameter lingkaran. Selain itu program ini juga berfungsi untuk  menghitung jari - jari lingkaran jika diketahui luas, keliling, dan diameternya. Untuk membedakan dengan operasi yang lain, admin membedakan namanya dengan jari – jari keliling untuk menghitung jari – jari jika diketahui kelilingnya, jari – jari luas untuk menghitung jari – jari jika diketahui luasnya, jari – jari diameter untuk menghitung jari – jari jika diketahui luasnya. Untuk mulai membuat nya silahkan ikuti langkah – langkah berikut ini.
Langkah 1 :
Buat form baru dengan cara klik file – new – project – windows form application
Buat desain dengan tampilan seperti gambar diatas. Adapun beberapa tool / komponen yang digunakan yaitu 5 buah label, 4 buah textbox, 2 buah button, 1 buah groupbox, 6 buah radiobutton
Langkah 2 : memasukkan niai pada properti masing – masing komponen
untuk nilai pada properti komponen itu sendiri bisa dilihat pada tabel di bawah ini.
Langkah 3 : Listing code
klik view – code atau shortcut F7 untuk memulai memasukkan kode script.
Copy dan paste kan kode script berikut :

Public Class Form1
    Public luas As Double
    Public keliling As Double
    Public jarikeliling As Double
    Public jariluas As Double
    Public jaridiameter As Double
    Public diameter As Double
    Public hasiljariluas As Double
    Public ka As Double
    Public operation As String

    Private Sub btnhitung_Click(sender As Object, e As EventArgs) Handles btnhitung.Click
        If operation = "a" Then
            luas = 22 / 7 * txtjari.Text ^ 2
            txtluas.Text = luas
        ElseIf operation = "b" Then
            keliling = 2 * 22 / 7 * txtjari.Text
            txtkeliling.Text = keliling
        ElseIf operation = "c" Then
            diameter = txtjari.Text * 2
            txtdiameter.Text = diameter
        ElseIf operation = "d" Then
            ka = 2 * 3.14
            jarikeliling = txtkeliling.Text / ka
            txtjari.Text = jarikeliling
        ElseIf operation = "e" Then
            jariluas = txtluas.Text * 7 / 22
            hasiljariluas = Math.Sqrt((jariluas))
            txtjari.Text = hasiljariluas
        ElseIf operation = "f" Then
            jaridiameter = txtdiameter.Text / 2
            txtjari.Text = jaridiameter
        End If
    End Sub

    Private Sub rbluas_Click(sender As Object, e As EventArgs) Handles rbluas.Click
        operation = "a"
    End Sub

    Private Sub rbkeliling_Click(sender As Object, e As EventArgs) Handles rbkeliling.Click
        operation = "b"
    End Sub

    Private Sub rbdiameter_Click(sender As Object, e As EventArgs) Handles rbdiameter.Click
        operation = "c"
    End Sub

    Private Sub rbjarikel_Click(sender As Object, e As EventArgs) Handles rbjarikel.Click
        operation = "d"
    End Sub

    Private Sub rbjariluas_Click(sender As Object, e As EventArgs) Handles rbjariluas.Click
        operation = "e"
    End Sub

    Private Sub rbjaridiameter_Click(sender As Object, e As EventArgs) Handles rbjaridiameter.Click
        operation = "f"
    End Sub

    Private Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
        txtdiameter.Text = ""
        txtjari.Text = ""
        txtkeliling.Text = ""
        txtluas.Text = ""
    End Sub
End Class

Langkah 4 : Debugging
Untuk memulai melakukan debugging pada program yang telah kita buat, klik debug – start debugging atau dengan shortcut F5 untuk memulai debug.
Jika tidak terjadi masalah, maka program yang telah kalian buat telah berhasil.

Membuat software perhitungan layang - layang dengan vb.net

Rabu, 18 Mei 2016
Posted by HD Technology Studio
0 Comments
Tag : ,
+

.Langkah 1 : membuat desain form
Buat form baru dengan cara klik file – new – project – windows form application
Buatlah desain form seperti gambar diatas
Komponen yang dibutuhkan adalah 1 buah picturebox, 3 buah button, 13 label, 1 buah groupbox, 12 buah radiobutton, 12 buah textbox
Nb : pada gambar diatas ada dua operasi untuk menghitung panjang dg yaitu dg dan dg 2. Yang perlu diketahui adalah operasi panjang dg digunakan jika yang dii tanyakan panjang dg dan yang diketahui adalah panjang cd dan panjang cg sementara operasi panjang dg 2 digunakan jika ditanyakan panjang dg sementara yang diketahui adalah panjang de dan panjang eg.
Langkah 2 : ,memberi nilai pada masing2 komponen
Klik pada komponen yang akan diberi nilai kemudian masukkan nilai berikut pada properti komponen.

Langkah 3 : listing code

Klik view – code atau shortcut F7 untuk memulai memasukkan kode

Masukkan kode seperti dibawah ini


Public Class Form1

    Public operasi As Byte

    Public diagonal1 As Double

    Public diagonal2 As Double

    Public luas As Double

    Public keliling As Double

    Public hasila As Double

    Public hasilb As Double

    Public hasilc As Double

    Public akhir As Double

    Private Sub btnexit_Click(sender As Object, e As EventArgs) Handles btnexit.Click

        Me.Close()

    End Sub


    Private Sub btnhitung_Click(sender As Object, e As EventArgs) Handles btnhitung.Click

        If operasi = "1" Then

            luas = txtd1.Text * txtd2.Text * 1 / 2

            txtluas.Text = luas

        ElseIf operasi = "2" Then

            hasila = Double.Parse(txtcd.Text) + Double.Parse(txtde.Text)

            keliling = 2 * (hasila)

            txtkeliling.Text = keliling

        ElseIf operasi = "3" Then

            hasila = 1 / 2 * Double.Parse(txtd2.Text)

            diagonal1 = Double.Parse(txtluas.Text) / (hasila)

            txtd1.Text = diagonal1

        ElseIf operasi = "4" Then

            hasila = txtcg.Text ^ 2

            hasilb = txtdg.Text ^ 2

            hasilc = hasilb + hasila

            akhir = Math.Sqrt((hasilc))

            txtcd.Text = akhir

        ElseIf operasi = "5" Then

            hasila = txtcd.Text ^ 2

            hasilb = txtcg.Text ^ 2

            hasilc = hasila - hasilb

            akhir = Math.Sqrt((hasilc))

            txtdg.Text = akhir

        ElseIf operasi = "6" Then

            hasila = txtcd.Text ^ 2

            hasilb = txtdg.Text ^ 2

            hasilc = hasila - hasilb

            akhir = Math.Sqrt((akhir))

            txtcg.Text = akhir

        ElseIf operasi = "7" Then

            hasila = 1 / 2 * Double.Parse(txtd1.Text)

            diagonal2 = Double.Parse(txtluas.Text) / (hasila)

            txtd2.Text = diagonal2

        ElseIf operasi = "8" Then

            hasila = Double.Parse(txtdg.Text) ^ 2

            hasilb = Double.Parse(txteg.Text) ^ 2

            hasilc = hasila + hasilb

            akhir = Math.Sqrt((hasilc))

            txtde.Text = akhir

        ElseIf operasi = "9" Then

            hasila = Double.Parse(txtde.Text) ^ 2

            hasilb = Double.Parse(txtdg.Text) ^ 2

            hasilc = hasila - hasilb

            akhir = Math.Sqrt((akhir))

        ElseIf operasi = "10" Then

            hasila = Double.Parse(txtcg.Text) + Double.Parse(txteg.Text)

            txtce.Text = hasila

        ElseIf operasi = "11" Then

            hasila = Double.Parse(txtdg.Text) + Double.Parse(Label14.Text)

            txtdf.Text = hasila

        ElseIf operasi = "12" Then

            hasila = Double.Parse(txtde.Text) ^ 2

            hasilb = Double.Parse(txteg.Text) ^ 2

            hasilc = hasila - hasilb

            akhir = Math.Sqrt((hasilc))

            txtdg.Text = akhir

        End If

    End Sub


    Private Sub rbluas_Click(sender As Object, e As EventArgs) Handles rbluas.Click

        operasi = 1

    End Sub


    Private Sub rbkeliling_Click(sender As Object, e As EventArgs) Handles rbkeliling.Click

        operasi = 2

    End Sub


    Private Sub rbd1_Click(sender As Object, e As EventArgs) Handles rbd1.Click

        operasi = 3

    End Sub


    Private Sub rbcd_Click(sender As Object, e As EventArgs) Handles rbcd.Click

        operasi = 4

    End Sub


    Private Sub rbdg_Click(sender As Object, e As EventArgs) Handles rbdg.Click

        operasi = 5

    End Sub


    Private Sub rbcg_Click(sender As Object, e As EventArgs) Handles rbcg.Click

        operasi = 6

    End Sub


    Private Sub rbd2_Click(sender As Object, e As EventArgs) Handles rbd2.Click

        operasi = 7

    End Sub


    Private Sub rbde_Click(sender As Object, e As EventArgs) Handles rbde.Click

        operasi = 8

    End Sub


    Private Sub rbeg_Click(sender As Object, e As EventArgs) Handles rbeg.Click

        operasi = 9

    End Sub


    Private Sub rbce_Click(sender As Object, e As EventArgs) Handles rbce.Click

        operasi = 10

    End Sub


    Private Sub rbdf_Click(sender As Object, e As EventArgs) Handles rbdf.Click

        operasi = 11

    End Sub


    Private Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click

        txtcd.Text = ""

        txtce.Text = ""

        txtcg.Text = ""

        txtd1.Text = ""

        txtd2.Text = ""

        txtde.Text = ""

        txtdf.Text = ""

        txtdg.Text = ""

        txteg.Text = ""

        txtfg.Text = ""

        txtkeliling.Text = ""

        txtluas.Text = ""

    End Sub


    Private Sub rbdg2_Click(sender As Object, e As EventArgs) Handles rbdg2.Click

        operasi = 12

    End Sub

End Class

Langkah 4 : Debugging

Jika semua langkah – langkah telah dilakuukan maka selanjutnya adalah proses debugging. Untuk memullai nya klik Debug – start debugging atau dengan shortcut F5 jika tidak ada masalah maka software akan berjalan seperti gambar diatas.

Membuat software pehitungan persegi panjang

Selasa, 17 Mei 2016
Posted by HD Technology Studio
0 Comments
Tag : ,
+

Langkah 1 : Membuat desain form

Buat form baru dengan cara klik file ( new ( project ( pilih windows form application ( ok

Buatlah desain atau tampilan program seperti gambar diatas.
Langkah 2 : Memberi nilai pada properti kompoen
Klik pada komponen yang akan diberi nilai.
Masukkan nilai berikut pada properti masing – masing.

Langkah 3 : Listing code
Klik pada view ( code, atau mengunakan shortcut F7
Masukkan code berikut ini.

Public Class Form1
    Public luas As Double
    Public panjang As Double
    Public lebar As Double
    Public keliling As Double
    Public operation As Byte
    Public hasila As Double

    Private Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
        txtkeliling.Text = ""
        txtluas.Text = ""
        txtlebar.Text = ""
        txtpanjang.Text = ""
    End Sub

    Private Sub btnhitung_Click(sender As Object, e As EventArgs) Handles btnhitung.Click
        If operation = "1" Then
            keliling = 2 * Double.Parse(txtpanjang.Text) + 2 * Double.Parse(txtlebar.Text)
            txtkeliling.Text = keliling
        ElseIf operation = "2" Then
            luas = Double.Parse(txtpanjang.Text) * Double.Parse(txtlebar.Text)
            txtluas.Text = luas
        ElseIf operation = "3" Then
            hasila = Double.Parse(txtkeliling.Text) / 2
            panjang = hasila - Double.Parse(txtlebar.Text)
            txtpanjang.Text = panjang
        ElseIf operation = "4" Then
            hasila = Double.Parse(txtkeliling.Text) / 2
            lebar = hasila - Double.Parse(txtpanjang.Text)
            txtlebar.Text = lebar
        End If
    End Sub

    Private Sub rbluas_Click(sender As Object, e As EventArgs) Handles rbluas.Click
        operation = 2
    End Sub

    Private Sub rbkeliling_Click(sender As Object, e As EventArgs) Handles rbkeliling.Click
        operation = 1
    End Sub

    Private Sub rbpanjang_Click(sender As Object, e As EventArgs) Handles rbpanjang.Click
        operation = 3
    End Sub

    Private Sub rblebar_Click(sender As Object, e As EventArgs) Handles rblebar.Click
        operation = 4
    End Sub
End Class

Langkah 4 : Debugging
Untuk memulai menjalankan software klik Debug ( Start Debugging atau dengan shortcut F5
Jika tidak terjadi masalah berarti anda telah sukses membuat nya.

Download Instaler software nya di sini.


Membuat software perhitungan keliling, luas dan sisi persegi

Selasa, 19 April 2016
Posted by HD Technology Studio
0 Comments
Tag : , , ,
+



Langkah 1 : Desain Form
Pertama – tama buatlah project baru dengan cara klik File ( New Project ( windows form application.
Buatlah desain form seperti gambar diatas. Adapun tools yang dibutuhkan dan konfigurasinya yaitu :




Langkah 2 : Listing Code

Public Class Form1
    Public angka As Double
    Public sisi As Double
    Public luas As Double
    Public keliling As Double
    Public operation As Byte
    Private Sub btncount_Click(sender As Object, e As EventArgs) Handles btncount.Click
        If operation = "1" Then
            keliling = 4 * txtsisi.Text
            rthasil.Text = keliling
        ElseIf operation = "2" Then
            luas = txtsisi.Text ^ 2
            rthasil.Text = luas
        ElseIf operation = "3" Then
            sisi = Math.Sqrt((txtluas.Text))
            rthasil.Text = sisi
        ElseIf operation = "4" Then
            angka = txtkeliling.Text / 4
            rthasil.Text = angka
        End If
    End Sub

    Private Sub optkel_Click(sender As Object, e As EventArgs) Handles optkel.Click
        operation = 1
        angka = Double.Parse(txtsisi.Text)
    End Sub

    Private Sub optluas_Click(sender As Object, e As EventArgs) Handles optluas.Click
        operation = 2
        angka = Double.Parse(txtsisi.Text)
    End Sub

    Private Sub optsisi2_Click(sender As Object, e As EventArgs) Handles optsisi2.Click
        operation = 4S
    End Sub

    Private Sub optsisi_Click(sender As Object, e As EventArgs) Handles optsisi.Click
        operation = 3
    End Sub

    Private Sub btnexit_Click(sender As Object, e As EventArgs) Handles btnexit.Click
        Me.Close()
    End Sub

    Private Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
        txtkeliling.Text = ""
        txtluas.Text = ""
        txtsisi.Text = ""
        rthasil.Text = ""
    End Sub
End Class

Langkah 3 : Debugging
Klik Debug ( Start Debugging
Jika tidak terjadi error maka software buatan anda berhasil. Jika terjadi bug atau error silahkan periksa kembali.

Silahkan download source codenya di sini
Atau download hasil software nya disini



















Welcome to My Blog

Translate

Popular Post

Flag Counter

- Copyright © HD Technology Studio -Robotic Notes- Powered by Blogger - Designed by Johanes Djogan -