Author Topic: woiyo...ada contoh soal pemrograman basis data  (Read 12203 times)

0 Members and 1 Guest are viewing this topic.

dagungsetyo

  • Guest
Re: woiyo...ada contoh soal pemrograman basis data
« Reply #30 on: April 21, 2009, 02:50:09 PM »
Jeng Indri yg lg naik daun.. :) sepertinya kamu lebih mungkin dapat jodoh di forum ini ketimbang contoh soal yg kamu minta. :)
Kemarin kamu ga salah contreng, sekarang kamu ga boleh salah pilih..

So, selamat berjuang para pejuang.. Merdeka!

Offline Batman Kasarung

  • Senior Member
  • *
  • Posts: 469
  • Pemula Banget
    • Mari Belajar Lewat Internet !
Re: woiyo...ada contoh soal pemrograman basis data
« Reply #31 on: April 21, 2009, 03:19:01 PM »
Jeng indri ini sejenis ulat yaa.. kok bisa naik daun.. hueheuheuheu
Visual Foxpro.... Enjoy aja!
http://kaewin.co.cc
http://dksoftware.co.cc

Offline impas73

  • Full Member
  • *
  • Posts: 78
Re: woiyo...ada contoh soal pemrograman basis data
« Reply #32 on: April 21, 2009, 04:01:19 PM »
bedane bug dengan debug apa om... ???

Offline armen_sakti

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 1.254
Re: woiyo...ada contoh soal pemrograman basis data
« Reply #33 on: April 21, 2009, 04:14:57 PM »
ho..hohohoho kirain masih bahas contoh soal basis data.....
E......taunya bicarain kutu, ulat makhluk halus juga

Numpang ketawa ya haha...haha...haha
haha...haha...haha....haha...haha...haha...haha...haha...haha

Offline davidmustakim

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 14.053
  • Awas ya...
Re: woiyo...ada contoh soal pemrograman basis data
« Reply #34 on: April 21, 2009, 04:25:43 PM »
Jeng indri ini sejenis ulat yaa.. kok bisa naik daun.. hueheuheuheu
kalo naik pohon ya kliatan dong telapak kakinya

Offline rnd

  • Hero Member
  • *
  • Posts: 1.284
Re: woiyo...ada contoh soal pemrograman basis data
« Reply #35 on: April 21, 2009, 06:11:22 PM »
Waduh.... kiran bahas masalah apaan, sampe bisa jadi sticky topik de, ngak taunya bahas masalah serangga

Offline indry_paramitha

  • Newbie
  • *
  • Posts: 34
  • Iman tanpa perbuatan pada hakekatnya mati
Re: woiyo...ada contoh soal pemrograman basis data
« Reply #36 on: April 21, 2009, 07:18:54 PM »
Waduh.... kiran bahas masalah apaan, sampe bisa jadi sticky topik de, ngak taunya bahas masalah serangga
lho piye tho?
aku bnr2 butuh soal...
tapi kok malah jadi kaya gini  :crybaby2:
tolong donk bnr2 bantuin aku  :crybaby2:

Offline indry_paramitha

  • Newbie
  • *
  • Posts: 34
  • Iman tanpa perbuatan pada hakekatnya mati
Re: woiyo...ada contoh soal pemrograman basis data
« Reply #37 on: April 21, 2009, 07:20:00 PM »
ngomong2 ada yg tau cara konversi huruf ke angka di VB g?
 :angel:

Offline rnd

  • Hero Member
  • *
  • Posts: 1.284
Re: woiyo...ada contoh soal pemrograman basis data
« Reply #38 on: April 21, 2009, 07:30:41 PM »
ngomong2 ada yg tau cara konversi huruf ke angka di VB g?
 :angel:

waduh.. topik makin jauh de dari serangga ke VB, masih lebih baik ke FB kali

Offline davidmustakim

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 14.053
  • Awas ya...
Re: woiyo...ada contoh soal pemrograman basis data
« Reply #39 on: April 21, 2009, 08:04:39 PM »
lho masa bisa sih convert serangga dari angka VB ke huruf FB ?

Offline indry_paramitha

  • Newbie
  • *
  • Posts: 34
  • Iman tanpa perbuatan pada hakekatnya mati
Re: woiyo...ada contoh soal pemrograman basis data
« Reply #40 on: April 21, 2009, 08:15:53 PM »
yipiiiii...
aku dah tau  8)
Function Terbilang(ByVal MyNumber)
Dim Rupiah, Sen, Temp
Dim Des, Desimal, Count, Tmp
Dim IsNeg

ReDim Place(9) As String
Place(2) = "ribu "
Place(3) = "juta "
Place(4) = "milyar "
Place(5) = "trilyun "

'Ubah angka menjadi string
MyNumber = Round(MyNumber, 2)
MyNumber = Trim(Str(MyNumber))

'Cek bilangan negatif
If Mid(MyNumber, 1, 1) = "-" Then
MyNumber = Right(MyNumber, Len(MyNumber) - 1)
IsNeg = True
End If

'Posisi desimal, 0 jika bil. bulat
Desimal = InStr(MyNumber, ".")
'Pembulatan sen, dua angka di belakang koma
Des = Mid(MyNumber, Desimal + 2)
If Desimal > 0 Then
Tmp = Left(Mid(MyNumber, Desimal + 1) & "00", 2)
If Left(Tmp, 1) = "0" Then
Tmp = Mid(Tmp, 2)
Sen = Satuan(Tmp)
Else
Sen = Puluhan(Tmp)
End If
MyNumber = Trim(Left(MyNumber, Desimal - 1))
End If

Count = 1
Do While MyNumber <> ""
Temp = Ratusan(Right(MyNumber, 3), Count)
If Temp <> "" Then Rupiah = Temp & Place(Count) & Rupiah
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop

Select Case Rupiah
Case ""
Rupiah = "nol rupiah"
Case Else
Rupiah = Rupiah & "rupiah"
End Select

Select Case Sen
Case ""
Sen = ""
Case Else
Sen = " dan " & Sen & "sen"
End Select

If IsNeg = True Then
Terbilang = "minus " & Rupiah & Sen
Else
Terbilang = Rupiah & Sen
End If

End Function
Function Ratusan(ByVal MyNumber, Count)
Dim Result As String
Dim Tmp

If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)

'Mengubah seribu
If MyNumber = "001" And Count = 2 Then
Ratusan = "se"
Exit Function
End If

'Mengubah ratusan
If Mid(MyNumber, 1, 1) <> "0" Then
If Mid(MyNumber, 1, 1) = "1" Then
Result = "seratus "
Else
Result = Satuan(Mid(MyNumber, 1, 1)) & "ratus "
End If
End If

'Mengubah puluhan dan satuan
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & Puluhan(Mid(MyNumber, 2))
Else
Result = Result & Satuan(Mid(MyNumber, 3))
End If

Ratusan = Result

End Function
Function Puluhan(TeksPuluhan)
Dim Result As String

Result = ""
' nilai antara 10-19
If Val(Left(TeksPuluhan, 1)) = 1 Then
Select Case Val(TeksPuluhan)
Case 10: Result = "sepuluh "
Case 11: Result = "sebelas "
Case Else
Result = Satuan(Mid(TeksPuluhan, 2)) & "belas "
End Select
' nilai antara 20-99
Else
Result = Satuan(Mid(TeksPuluhan, 1, 1)) _
& "puluh "
Result = Result & Satuan(Right(TeksPuluhan, 1))
'satuan
End If
Puluhan = Result
End Function
Function Satuan(Digit)
Select Case Val(Digit)
Case 1: Satuan = "satu "
Case 2: Satuan = "dua "
Case 3: Satuan = "tiga "
Case 4: Satuan = "empat "
Case 5: Satuan = "lima "
Case 6: Satuan = "enam "
Case 7: Satuan = "tujuh "
Case 8: Satuan = "delapan "
Case 9: Satuan = "sembilan "
Case Else: Satuan = ""
End Select
End Function

Offline rnd

  • Hero Member
  • *
  • Posts: 1.284
Re: woiyo...ada contoh soal pemrograman basis data
« Reply #41 on: April 21, 2009, 08:25:53 PM »
Waduh non... hebat de udah bisa, cuma kayanya jadi rancu de judul postingnya sama pembahasannya, kasian de kita yg masih newbie kirain command VB bisa vfp, coba saya mau download vfp terbaru mungkin sudah ketinggalan kali versi saya punya

Offline shee

  • Hero Member
  • *
  • Posts: 756
Re: woiyo...ada contoh soal pemrograman basis data
« Reply #42 on: April 22, 2009, 07:15:31 AM »
emang aku  makhluk halus pa?

dik indrii mahluk halus semacam putri dari kayangan gitu..... , yang harus dplakukan extra hati2x lembut diiringi musik gamelan jawa.... gitu dehhh

Offline indry_paramitha

  • Newbie
  • *
  • Posts: 34
  • Iman tanpa perbuatan pada hakekatnya mati
Re: woiyo...ada contoh soal pemrograman basis data
« Reply #43 on: April 22, 2009, 09:56:11 AM »
emang aku  makhluk halus pa?

dik indrii mahluk halus semacam putri dari kayangan gitu..... , yang harus dplakukan extra hati2x lembut diiringi musik gamelan jawa.... gitu dehhh
auk ah gelap...
g tau mksdnya apa?
lagi mumet nieh mikir command button di vb
kmrn br dpt materi soal tu sieh... :icon_study:
temen2... smangat  :director:

Offline shee

  • Hero Member
  • *
  • Posts: 756
Re: woiyo...ada contoh soal pemrograman basis data
« Reply #44 on: April 22, 2009, 11:12:22 AM »
gini aja, dik indri kirim id yahoo ato nomor HP nya tar kita bahas secara private tentang command botton, biar yng lain ga baca kirim aja ksini :alien_sgp@yahoo.com,
kita pgi dari sini yukk.. dsini banyak orang ga asikkk (hihihi)