
Kode Kecil
Simple code about computer programming and Words of life
Simple code about computer programming and Words of life
Home All posts
INSERT INTO tblmhs (nama, nim) VALUES('CHOTIMATUL MUSYAROFAH', '1012501983');
INSERT INTO t_mhs(c_nim, c_nama) SELECT c_nim, c_nama FROM t_daftar;
Syalom.. selamat pagi teman teman.. gimana kabarnya.. Semoga selalu dengan semangat yang tak pernah menyerah untuk belajar.. apalagi tentang pemrograman.. :D
Pagi ini saya ingin bagikan cript tentang game android yang saya dapat dari halaman pembelajaran asal benua seberang yang saya buat ulang pake versi indo.. heehee..:D
Gamenya adalah game Tic Tac Toe.. pasti teman teman tau kan gimana itu game tictac toe. dan kali ini di kemas dengan pemrograman android
Gak pakai lama lama dahh.. ini langsung saja saya tampilkan screenshotnya..
Syalom.. Pagi teman teman selamat beraktifitas semua.. gimana belajarnya..?? makin semangat belajar programnya..?? pastinya ya.. hheehee.. langsung aja teman teman ya. karna emang pada dasarnya saya gak pintar basa basi. langsung aja ya kita lanjut belajar pemrogramanya.
Imports System.Data.SqlClient Imports System.Data Module Koneksi Public strConnection As String = "Data Source=EL_RE-PC\SQLEXPRESS;initial catalog=RekamMedis;Integrated Security=True;" Public conn As New SqlConnection Public Sub hubungkan() conn = New SqlConnection(strConnection) If conn.State <> ConnectionState.Open Then conn.Open() End If End Sub Public Sub tutupkoneksi() If conn.State = ConnectionState.Open Then Try conn.Close() Catch ex As Exception MsgBox("Gagal Menutup Koneksi" & ex.ToString) End Try End If End Sub End Module
Imports System.Data.SqlClientImports System.DataDim ds As DataSetPublic Class FormObatDim dt As New DataTableDim myadp As SqlDataAdapterDim DREADER As SqlDataReaderDim query As String Dim CMD As SqlCommandPublic comSQL As New SqlClient.SqlCommandDim sql As String Sub refreshtampil() hubungkan()myadp = New SqlDataAdapter(query, conn)query = ("SELECT * FROM Tbl_Obat") dt.Clear() myadp.Fill(dt)TextBox3.Enabled = FalseDataGridView1.DataSource = dt End Sub Private Sub NoNable() TextBox2.Enabled = FalseButton3.Enabled = FalseTextBox4.Enabled = False ComboBox2.Enabled = False ComboBox1.Enabled = False Button4.Enabled = FalseTextBox4.Enabled = TrueButton5.Enabled = False End Sub Private Sub Enable() TextBox2.Enabled = True TextBox3.Enabled = TrueTextBox1.Text = ""ComboBox2.Enabled = True ComboBox1.Enabled = True End Sub Private Sub clear() Button2.Enabled = True NoNable()Private Sub kodeotomatis()TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" ComboBox2.Text = "" ComboBox1.Text = "" End Sub hubungkan()If dr.Read = False Thensql = "select max(kodeobat) as no from Tbl_Obat" comSQL = New SqlCommand(sql, conn) Dim dr As SqlDataReader = comSQL.ExecuteReader() TextBox1.Text = "OB-0001" ElseTextBox1.Text = "OB-000" & (Val(TextBox1.Text) + 1)TextBox1.Text = dr("no").ToString TextBox1.Text = Microsoft.VisualBasic.Right(TextBox1.Text, 4) If Val(TextBox1.Text) < 10 Then ElseIf Val(TextBox1.Text) >= 10 And Val(TextBox1.Text) < 100 ThenTextBox1.Text = "OB-" & (Val(TextBox1.Text) + 1)TextBox1.Text = "OB-00" & (Val(TextBox1.Text) + 1) ElseIf TextBox1.Text > 99 Then TextBox1.Text = "OB-0" & (Val(TextBox1.Text) + 1) ElseIf TextBox1.Text > 999 Then End If End If tutupkoneksi() End SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickPrivate Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Dispose() End Sub Private Sub FormObat_Load(sender As Object, e As EventArgs) Handles Me.Load refreshtampil() NoNable() kodeotomatis() TextBox1.Enabled = False End Sub Enable() Button2.Enabled = FalseCMD = New SqlCommand("SELECT * FROM Tbl_Obat WHERE kodeobat= '" & TextBox1.Text & "'", conn)Button3.Enabled = True TextBox2.Focus() End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click clear() kodeotomatis() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click hubungkan() DREADER = CMD.ExecuteReader If DREADER.Read ThenDim tambah As String = "INSERT INTO Tbl_Obat VALUES ('" & UCase(TextBox1.Text) & "','" & UCase(TextBox2.Text) & "','" & ComboBox1.SelectedItem & "','" & ComboBox2.SelectedItem & "','" & UCase(TextBox3.Text) & "','" & UCase(TextBox4.Text) & "')"MsgBox("Data Sudah Ada..!!") clear() TextBox1.Focus() ElseIf TextBox1.Text = "" Or TextBox2.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then MsgBox("Lengkapi Data Anda..!!") TextBox1.Focus() Else DREADER.Close() Dim cmd As New SqlCommandIf TextBox1.Text = "" Or TextBox2.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Thencmd.Connection = conn cmd.CommandText = tambah cmd.ExecuteNonQuery() refreshtampil() DataGridView1.Refresh() clear() NoNable() conn.Close() kodeotomatis() End If End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click MsgBox("Lengkapi Data Anda..!!")cmd.Connection = connTextBox1.Focus() Else hubungkan() Dim tambah As String = "UPDATE Tbl_Obat SET namaobat ='" & UCase(TextBox2.Text) & "',jenis='" & ComboBox1.SelectedItem & "',kategori='" & ComboBox2.SelectedItem & "', harga='" & UCase(TextBox3.Text) & "', jumlah='" & UCase(TextBox4.Text) & "' WHERE kodeobat = '" & TextBox1.Text & "'" Dim cmd As New SqlCommand cmd.CommandText = tambahDim cmd As New SqlCommandcmd.ExecuteNonQuery() refreshtampil() DataGridView1.Refresh() clear() NoNable() kodeotomatis() conn.Close() End If End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click hubungkan() Dim tambah As String = "DELETE FROM Tbl_Obat WHERE kodeobat = '" & TextBox1.Text & "'" cmd.Connection = connCMD = New SqlCommand("SELECT * FROM Tbl_Obat WHERE kodeobat= '" & a & "'", conn)cmd.CommandText = tambah cmd.ExecuteNonQuery() refreshtampil() DataGridView1.Refresh() clear() NoNable() conn.Close() kodeotomatis() End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click hubungkan() Dim a As String a = InputBox("Please Insert Kode Pasien..!! : ", "PENCARIAN") DREADER = CMD.ExecuteReader If DREADER.Read ThenMsgBox("Dala Tidak Ditemukan")Enable() Button2.Enabled = False Button4.Enabled = True Button5.Enabled = True TextBox1.Text = DREADER.Item("kodeobat") TextBox2.Text = DREADER.Item("namaobat") ComboBox1.Text = DREADER.Item("jenis") ComboBox2.Text = DREADER.Item("kategori") TextBox3.Text = DREADER.Item("harga") TextBox4.Text = DREADER.Item("jumlah") Else NoNable() End IfEnd ClassDREADER.Close()End Sub
Syalom sahabat., selamat beraktifitas.. buat yang masi sekolah atau kuliah.. semangat belajar aja.. jangan lupa buat tugasnya.. hheheh..
Dipostingan saya kali ini saya akan menulis tentang bagai mana cara membuat kalkulator sederhana dengan android. langsung saja kita praktekkan bagai mana cara membuatnya..
Pertama buat projek baru dengan nama kakkulatorku
package com.example.kalkulatorku;
import android.R.string;
import android.app.Activity;
import android.os.Bundle;
import android.view.Menu;
import android.view.View;
import android.view.View.OnClickListener;
import android.widget.Button;
import android.widget.EditText;
import android.widget.TextView;
public class MainActivity extends Activity {
Button proses;
EditText bil1 , bil2;
TextView hasil;
@Override
protected void onCreate(Bundle savedInstanceState) {
super.onCreate(savedInstanceState);
setContentView(R.layout.activity_main);
bil1 = (EditText) findViewById(R.id.bil1);
bil2 = (EditText) findViewById(R.id.bil2);
hasil = (TextView) findViewById(R.id.hasil);
proses = (Button) findViewById(R.id.button1);
proses.setOnClickListener(new OnClickListener() {
@Override
public void onClick(View v) {
int a = Integer.parseInt(bil1.getText().toString().trim());
int b = Integer.parseInt(bil2.getText().toString().trim());
int c = a + b ;
String d = String.valueOf(c);
hasil.setText("Hasil :" + d);
}
});
}
@Override
public boolean onCreateOptionsMenu(Menu menu) {
// Inflate the menu; this adds items to the action bar if it is present.
getMenuInflater().inflate(R.menu.main, menu);
return true;
}
}