Belajar Jadi Preakerrrrrrrrr Ala VB6

Mungkin Akhir Akhir ini banyak sekali posting posting yang berkaitan dengan Trik trik gratis , dan aplikasinya sudah di bungkus dengan sedemikian rupa , dan tool tersebut langsung bisa di pake , dan koneksi internet langsung bisa gratis ,

Tapi disini tidak pernah di perlihatkan bagaimana cara membuat tool tersebut ? why ?
karena sekolahnya lebih mahal dari sarjana , begitu pow ?
Haissssssssssssssssh >.<
atos kata²mu bos

karena pada kenyataannya seperti itu , dan disini saya pengen bahas pembuatan tool tersebut
ini digunakan sebagai contoh , bukan sebagai tool ea bos ,
ahihihi

'latihan bikin replacement
'Create On 07 April 2013
'Create By http://nifqi18.blogspot.com
'This Code For Example to you

' Component yang di butuhkan adalah winsock control dan RightTextBox

Enum ColourTypes
    intInfo = &H8000&
    intInbound = vbBlue
    intOutbound = vbRed
    intWSError = vbBlack
End Enum
Option Explicit
Dim anu() As String
Dim i As Long
Private Sub Command1_Click()
anu() = Split(txtIP.Text, ":")

If Command1.Caption = "&Start" Then
Command1.Caption = "&Stop"
    If anu(0) = "" Or Val(txtPort.Text) = 0 Then
        addtextRtbin "Cannot Connect To port " & txtPort.Text, intInfo
    End If
    
    socklisten.LocalPort = Val(txtPort.Text)
    socklisten.Listen
    addtextRtbin "Listen To Port " & txtPort.Text, intInfo
ElseIf Command1.Caption = "&Stop" Then
Command1.Caption = "&Start"
    socklisten.Close
    InputTxt.SelText = "Stop " & txtPort.Text
End If

End Sub
Sub addtextRtbin(strText As String, intColour As ColourTypes)
If Right$(strText, 2) <> vbCrLf Then strText = strText & vbCrLf
Dim intPrvLen As Long
intPrvLen = Len(InputTxt.Text)
InputTxt.SelStart = intPrvLen + 1
InputTxt.SelText = strText
InputTxt.SelStart = intPrvLen
InputTxt.SelLength = Len(strText)
InputTxt.SelColor = intColour
InputTxt.SelStart = Len(InputTxt.Text) + 1

End Sub
Sub addtextRtbin1(strText As String, intColour As ColourTypes)
If Right$(strText, 2) <> vbCrLf Then strText = strText & vbCrLf
Dim intPrvLen As Long
intPrvLen = Len(rtbGet.Text)
rtbGet.SelStart = intPrvLen + 1
rtbGet.SelText = strText
rtbGet.SelStart = intPrvLen
rtbGet.SelLength = Len(strText)
rtbGet.SelColor = intColour
rtbGet.SelStart = Len(InputTxt.Text) + 1

End Sub

Private Sub sockin_DataArrival(Index As Integer, ByVal bytesTotal As Long)
On Error Resume Next
Dim strData As String

sockin(Index).GetData strData
sockout(Index).SendData strData
addtextRtbin1 strData & "'", intInbound
End Sub

Private Sub socklisten_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next
anu() = Split(txtIP.Text, ":")
addtextRtbin "Connection requested, connecting to server...", intInfo
i = FindNewIndex()

sockout(i).RemoteHost = anu(0)
sockout(i).RemotePort = Val(anu(1))
sockout(i).Connect

Do
DoEvents
Loop Until sockout(i).State = sckConnected
sockin(i).Accept requestID
addtextRtbin "Allowed connection to " & sockin(i).RemoteHostIP, intInfo
DoEvents

End Sub
Function FindNewIndex() As Integer

For i = 1 To sockin.UBound
    If sockin(i).State = 0 Then
        FindNewIndex = i
        Exit Function
    End If
Next
    
i = sockin.UBound + 1
Load sockin(i)
Load sockout(i)
FindNewIndex = i
End Function

Private Sub sockout_DataArrival(Index As Integer, ByVal bytesTotal As Long)
On Error Resume Next
Dim data As String
sockout(Index).GetData data, vbString
sockin(Index).SendData data
If Right$(data, 2) = vbCrLf Then data = Left$(data, Len(data) - 2)
addtextRtbin "The server sent '" & data & "'", intOutbound
End Sub

nah di atas codednyaaaaaaaaaaaaaa silahkan di rangkai sendiri :P

Read more »

Menentukan Bilangan Prima Atau Bukan Di VB6

 Hallo Sahabat Blogger , Ketemu lagi dengan saya Bang nifqi18 , yang lucu , imut , tapi tidak kaya marmut , Topik kali ini adalah Membahas Bilangan Prima dari matematika

Sedikit tentang pengertian bilangan prima ,

 

Bilangan prima

Dalam matematika, bilangan prima adalah bilangan asli yang lebih besar dari 1, yang faktor pembaginya adalah 1 dan bilangan itu sendiri. 2 dan 3 adalah bilangan prima. 4 bukan bilangan prima karena 4 bisa dibagi 2. Sepuluh bilangan prima yang pertama adalah 2, 3, 5, 7, 11, 13, 17, 19, 23 dan 29.
---------------------- potong disini -------------------------

sumber : wikipedia.org 

Nah dari Pengertian di atas bahwa kita tahu , kita ambil algoritmanya ( mulai pusing nih ) >.<
algoritma yang di dapet
1. Bilangan Asli yang Lebih besar dari 1
2. Bahwa Angka 1 bukan angka prima
3. Bilangan yang hanya habis di bagi bilangan itu sendiri adalah bilangan prima

nah dari data di atas kita ketemu , atau bisa membuat aturan simple dari algoritmanya ( Algo kui opo ) , Mari kita rancang codingnya satu persatu

'kita ibaratkan data yang selalu kita cek adalah text1.text
if text1.text <= "0" then
msgbox "Angka yang anda masukan harus lebih besar dari 0" ' algo pertama
End if

If text1.text = 1 then
msgbox "angka 1 bukan bilangan prima" ' Algo Kedua
End IF 

 
dim nilai as string ' Deklarasi nilai
For i = 2 to (val(text1.text) - 1) ' Mengapa menggunakan For ? Sebagai pengecekan
nilai = Val(text1.text) mod val(i) ' Fungsi mod adalah untuk ? 
if nilai = "0" then
x = x + 1
exit for '  Sebagai Pengulangan Pengecekan
End IF
ext i

'Algoritma Final nya
If x > 0 then
msgbox "Bilangan Prima"
Else 
msgbox "Bukan Bilangan Prima"
End If

saya rasa saya sudah capek nuli artikel ini , dengan jelasin sampe ke akar akar nya . . sudah dulu akh , capek ,

Upssssssssssss , Heh Bang , Koding Lengkapnya gmana ? , dari tadi di tungguin malah algo algo mlulu >.<

Lha Itu masih kurang paham juga kah ?
aaaaaaaaaaaaaaaaagkhhhhhhhhhhhhhhh >.<
dasar Endonesia Loe :P , Mau nya yang simpel saja :D , nooh koding nya di bawah aye

Dim nilai, x
'============================================================================================================
If Text1.Text = "" Then
    MsgBox "Anda belum memasukkan angka", vbInformation + vbOKOnly, "Error"
    Text1.SetFocus
    ElseIf Val(Text1.Text) <= "0" Then
    MsgBox "Anda hanya boleh memasukkan angka lebih besar dari 0", vbInformation + vbOKOnly, "Error"
    Text1.SetFocus
    ElseIf Val(Text1.Text) = "1" Then
    MsgBox Text1.Text & " BUKAN PRIMA", vbInformation + vbOKOnly, "Informasi"
    Text1.SetFocus
Else
    For i = 2 To (Val(Text1.Text) - 1)
    nilai = Val(Text1.Text) Mod Val(i)
        If nilai = "0" Then
        x = x + 1
        Exit For
        End If
    Next i
'===========================================================================================================
    If x > 0 Then
    MsgBox Text1.Text & " BUKAN PRIMA"
    Else
    MsgBox Text1.Text & " BILANGAN PRIMA"
    End If
'============================================================================================================
End If

Upssssssssss, Ketahuan Endonesia banget yak :(
Ente orang indon kan bos ?
saya jowo bos , bukan indon :P

sudah capek nulis nulis , ujung² nya di copast >.< sakit kagak bos kira²
udah biasa orang endonesia bos , Kagak Kaget >.<

sekian dulu aaaaaaakh , Kaburrr >.<

Read more »