11-01-2013, 03:42 PM
Karena yang kemarin ada bugs .. maka kita ganti
syntax :
hasil :
[c]#include <stdio.h>
int main()
{
printf("Goodbye, cruel world... ");
return 0;
}[/c]
Memposting kode pemograman C++
syntax :
hasil :
[cpp]#include <stdio.h>
int main()
{
printf("Goodbye, cruel world... ");
return 0;
}
[/cpp]
Memposting kode pemograman javascript
syntax :
hasil :
[js]document.open() document.write(document.firstline) document.open()[/js]
Memposting kode pemograman Visual Basic
syntax :
[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 :
hasil :
Memposting kode pemograman xml
syntax :
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 :
hasil :
[html]
<html>
<head>
<title>zee ganteng</title>
</head>
<body>
<h1>just test</h1>
</body>
</html>
[/html]
Memposting kode pemograman bat
syntax :
hasil :
[bat]if exist %1 goto end
for %%a IN *.exe DO echo "%%a"
:end[/bat]
Memposting kode sql
syntax :
hasil :
[sql]SELECT * FROM zee_ganteng WHERE username LIKE "%me%"[/sql]
Others :
[ini]tes[/ini]
semoga bisa membantu dalam dokumentasi postingan
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
$myvar = 'b';
?>
<html>
<head>
<script language="javascript">
<!--
function runstuff()
{
var mytext = "hullo";
if(mytext.match(/hu?llo/i))
alert("Hey!");
}
//-->
</script>
</head>
<body onload="runstuff();">
<?php
echo "This is variable \$myvar: $myvar";
?>
<img src="http://someplace" />
</body></html>
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
FOLLOW @DutaLinux
for more question and sharing about security and Opensource only
for more question and sharing about security and Opensource only