TUGASQ MINGGU INI

HAYOOO SEMANGAT!!!!,,,,,,,,,,



Hemmm.......dapet tugas nich minggu kemaren ama dosen, baru sempet dech ngerjain maklum kuli jadi sambil belajar sambil kerja heheheheehhe....

Ada 2 soal minggu kemaren yang dikasih sama pak dosen ,
1. Buatlah tampilan bilangan yang habis dibagi 7 dan habis dibagi 4
2. Buatlah tampilan yang sisa hasilnya 3 jika pembaginya 4

Ngerjain bareng - bareng yukk.....

1. Tampilan bilangan yang habis dibagi (7 dan 4) atau (4 atau 7)

yang pertama adalah bikin form, karena aku sedikit bingung aku bikin dua-duanya dan sama atau, kayak gini nie desainya :



Tinggal drag dari toolbox, udah dech.....

selanjutnya coding, sempet bingung habisnya pakek looping (**Maklum dari semester 1 paling g suka looping ribet...heheheheh.....)



buat codingnya :

For h = 1 To Val(TextBox2.Text)
If h Mod i = 0 Then
ListBox1.Items.Add(h)
i = h
End If
If h Mod j = 0 Then
ListBox1.Items.Add(h)
j = h
End If

Disini dijelasin bahwa h = item bilangan yang akan tampil pada listbox dengan syarat h = i ; h /i =0 ( dimana i = 4 ) dan h/j=0 ( dimana j = 7 ).

nah jika di running kayak gini nie :



Nah, jadi dech bagian pertama, nah yang kedua buat tampilan dimana bilangan tersebut dapat dibagi 4 dan 7 atau dengan kata lain 4 dan 7 merupakan faktor bilangan tersebut .Oh iya, masih satu form lho......

Nie Codingnya :



Nah ini penjelasanya :

Dim i As Integer
ListBox1.Items.Clear()
For i = 1 To Val(TextBox2.Text)
If (i Mod 7 = 0) And (i Mod 4 = 0) Then
ListBox1.Items.Add(i)
End If
Next

Looping dengan variable i, dengan item yang ditampilkan adalah i dimana syaratnya i/4 = 0 dan i/7 = 0.

Nie Hasilnya :




Kelar juga tugas pertama.....^^ (* Loncat2 girang hehehehe.....^^ )

Oke lanjut soal kedua......

2. Tampilan dimana sisa hasilnya 3 jika di bagi 4

Bikin desain formnya dulu ea.....Klo aq kayak gini nie.....biasa tinggal drag...



Yang simple simple aja dulu dech, maklum amatiran heheheheh.......
Nah beranjak ke coding yang sama, maksudnya sama2 Looping.....^^



Sebenernya basicnya sama sich tinggal ngrubah2 untuk loopingnya,

Dim i As Integer
ListBox1.Items.Clear()
For i = 4 To Val(TextBox1.Text)
If i Mod 4 = 3 Then
ListBox1.Items.Add(i)
End If
Next

Deklarasinya aku bikin juga sama, biar gampang euy.....jadi aq bikin nilai awalnya alias batas bawahnya 4 ( i = 4) dengan batas sesuai input pada text box.
Selanjutnya i = item yang muncul pada list box dengan syarat jika i dibagi 4 dan sisanya 3, Nah ini hasilnya :



Nah selesai juga,,,,,Buat temen2 yang liat blog aku, kasih koment ea pa lagi klo mo share ilmunya, yang pasti akan seneng banget, maklum ane masih pemula jadi yang simple simple aja dulu ea, ntar kasih yang ribet blum waktunya hehehheeheh,.,,,,

Ditunggu Nie Share ilmunya, klo ada yang salah benerin ea.....^_^

Semangat Belajar..........^^