Info New feature syntax highlighter for IBTeam Revolution - Printable Version +- Indonesian Back|Track Team (https://www.indonesianbacktrack.or.id/forum) +-- Forum: Community Zone (https://www.indonesianbacktrack.or.id/forum/forum-167.html) +--- Forum: Pusat Informasi (https://www.indonesianbacktrack.or.id/forum/forum-2.html) +--- Thread: Info New feature syntax highlighter for IBTeam Revolution (/thread-5291.html) |
New feature syntax highlighter for IBTeam Revolution - zee eichel - 11-01-2013 Karena yang kemarin ada bugs .. maka kita ganti Quote:note : tanpa tanda kutipMemposting kode pemograman c syntax : Quote:["c"]source code["/c"] hasil : [c]#include <stdio.h> int main() { printf("Goodbye, cruel world... "); return 0; }[/c] Memposting kode pemograman C++ syntax : Quote:["cpp"]source code["/cpp"] hasil : [cpp]#include <stdio.h> int main() { printf("Goodbye, cruel world... "); return 0; } [/cpp] Memposting kode pemograman javascript syntax : Quote:["js"]source code["/js"] hasil : [js]document.open() document.write(document.firstline) document.open()[/js] Memposting kode pemograman Visual Basic syntax : Quote:["vb"]source code["/vb"] [vb]Sub Main() On Error GoTo Failed Dim app As Netica.Application app = New Netica.Application app.Visible = True Dim net_file_name As String net_file_name = System.AppDomain.CurrentDomain.BaseDirectory() & "..\..\..\ChestClinic.dne" Dim net As Netica.Bnet net = app.ReadBNet(app.NewStream(net_file_name)) net.Compile() Dim TB As Netica.BNode TB = net.Nodes.Item("Tuberculosis") Dim belief As Double belief = TB.GetBelief("present") MsgBox("The probability of tuberculosis is " & belief) net.Nodes.Item("XRay").EnterFinding("abnormal") belief = TB.GetBelief("present") MsgBox("Given an abnormal X-Ray, the probability of tuberculosis is " & belief) net.Nodes.Item("VisitAsia").EnterFinding("visit") belief = TB.GetBelief("present") MsgBox("Given abnormal X-Ray and visit to Asia, the probability of tuberculosis is " & belief) net.Nodes.Item("Cancer").EnterFinding("present") belief = TB.GetBelief("present") MsgBox("Given abnormal X-Ray, Asia visit, and lung cancer, the probability of tuberculosis is " & belief) net.Delete() If Not app.UserControl Then app.Quit() End If Exit Sub Failed: MsgBox("NeticaDemo: Error " & (Err.Number And &H7FFFS) & ": " & Err.Description) End Sub[/vb] Memposting kode pemograman PHP syntax : Quote:["php"]source code["/php"] hasil : PHP Code: <?php Memposting kode pemograman xml syntax : Quote:["xml"]source code["/xml"] hasil : [xml]<!-- Edited by XMLSpy® --> <note> <to>Tove</to> <from>Jani</from> <heading>Reminder</heading> <body>Don't forget me this weekend!</body> </note>[/xml] Memposting kode pemograman HTML syntax : Quote:["html"]source code["html"] hasil : [html] <html> <head> <title>zee ganteng</title> </head> <body> <h1>just test</h1> </body> </html> [/html] Memposting kode pemograman bat syntax : Quote:["bat"]source code["/bat"] hasil : [bat]if exist %1 goto end for %%a IN *.exe DO echo "%%a" :end[/bat] Memposting kode sql syntax : Quote:["sql"]source code["/sql"] hasil : [sql]SELECT * FROM zee_ganteng WHERE username LIKE "%me%"[/sql] Others : [ini]tes[/ini] Code: tes semoga bisa membantu dalam dokumentasi postingan RE: New feature syntax highlighter for IBTeam Revolution - abdilahrf - 11-07-2014 udh nga bisa ya sekarang pake syntax highlight nya :/ tinggal php |