







Demo Admin password : admin user:admin
Demo Siswa password: 01 user :01
Download Link

Kemudian berikan kode pada tombol start sebagai berikutvar
Form1: TForm1;
ar:integer;
procedure TForm1.Timer1Timer(Sender: TObject);
var
jam,menit,detik:word;
begin
dec(ar);
jam:=ar div 3600;
menit:=ar div 60;
detik:=ar-(jam*3600)-(menit*60);
panel1.Caption:=Formatdatetime('hh:nn:ss',Encodetime(jam,menit,detik,0));
if (ar=0) then
begin
timer1.Enabled:=false;
showmessage('waktu habis');
form1.Close;
end;
end;
Pada tombol Stop berikan code sebagai berikut:procedure TForm1.Button1Click(Sender: TObject);
begin
ar:=strtoint('10');
timer1.Enabled:=true;
end;
Yang terakhir untuk event oncreate pada form berikan code seperti dibawahprocedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=false;
end;
Sudah selesai silah kan dirun programnya... kalo penulisan semua benar seharunya program berjalan.procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=false;
end;
Private Sub DataGridView1_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick If e.Button = Windows.Forms.MouseButtons.Right Then Me.Text = ("[" & e.RowIndex & " ; " & e.ColumnIndex & "]") Dim pt As Point = MousePosition ContextMenuStrip1.Show(pt) ElseIf e.Button = Windows.Forms.MouseButtons.Left Then Dim dgvbc As DataGridViewButtonCell If e.RowIndex > 0 AndAlso e.ColumnIndex > 0 Then If e.ColumnIndex = cButton.Index Then dgvbc = Me.DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex) dgvbc.FlatStyle = FlatStyle.Flat dgvbc.Style.BackColor = Color.Yellow dgvbc.Selected = False End If End If End If End Sub |
package com.sunil.listviewdialog;
import java.util.ArrayList;
import java.util.Arrays;
import android.app.Activity;
import android.app.AlertDialog;
import android.content.DialogInterface;
import android.os.Bundle;
import android.text.Editable;
import android.text.TextWatcher;
import android.view.View;
import android.view.View.OnClickListener;
import android.widget.AdapterView;
import android.widget.AdapterView.OnItemClickListener;
import android.widget.Button;
import android.widget.EditText;
import android.widget.LinearLayout;
import android.widget.ListView;
public class MainActivity extends Activity implements OnClickListener, OnItemClickListener{
private Button btn_listviewdialog=null;
private EditText txt_item=null;
private String TitleName[]={"Sunil Gupta","Ram Chnadra"," Abhishek Tripathi","Amit Verma","Sandeep Pal","Awadhesh Diwakar","Shishir Verma","Ravi Vimal","Prabhakr Singh","Manish Srivastva","Jitendra Singh","Surendra Pal"};
private ArrayListarray_sort;
int textlength=0;
private AlertDialog myalertDialog=null;
@Override
protected void onCreate(Bundle savedInstanceState) {
super.onCreate(savedInstanceState);
setContentView(R.layout.activity_main);
txt_item=(EditText)findViewById(R.id.editText_item);
btn_listviewdialog=(Button)findViewById(R.id.button_listviewdialog);
btn_listviewdialog.setOnClickListener(this);
}
@Override
public void onClick(View arg0) {
AlertDialog.Builder myDialog = new AlertDialog.Builder(MainActivity.this);
final EditText editText = new EditText(MainActivity.this);
final ListView listview=new ListView(MainActivity.this);
editText.setCompoundDrawablesWithIntrinsicBounds(R.drawable.discoverseed_larg1, 0, 0, 0);
array_sort=new ArrayList(Arrays.asList(TitleName));
LinearLayout layout = new LinearLayout(MainActivity.this);
layout.setOrientation(LinearLayout.VERTICAL);
layout.addView(editText);
layout.addView(listview);
myDialog.setView(layout);
CustomAlertAdapter arrayAdapter=new CustomAlertAdapter(MainActivity.this, array_sort);
listview.setAdapter(arrayAdapter);
listview.setOnItemClickListener(this);
editText.addTextChangedListener(new TextWatcher()
{
public void afterTextChanged(Editable s){
}
public void beforeTextChanged(CharSequence s,
int start, int count, int after){
}
public void onTextChanged(CharSequence s, int start, int before, int count)
{
editText.setCompoundDrawablesWithIntrinsicBounds(0, 0, 0, 0);
textlength = editText.getText().length();
array_sort.clear();
for (int i = 0; i < TitleName.length; i++)
{
if (textlength <= TitleName[i].length())
{
if(TitleName[i].toLowerCase().contains(editText.getText().toString().toLowerCase().trim()))
{
array_sort.add(TitleName[i]);
}
}
}
listview.setAdapter(new CustomAlertAdapter(MainActivity.this, array_sort));
}
});
myDialog.setNegativeButton("cancel", new DialogInterface.OnClickListener() {
@Override
public void onClick(DialogInterface dialog, int which) {
dialog.dismiss();
}
});
myalertDialog=myDialog.show();
}
@Override
public void onItemClick(AdapterView arg0, View arg1, int position, long arg3) {
myalertDialog.dismiss();
String strName=TitleName[position];
txt_item.setText(strName);
}
}
package com.sunil.listviewdialog;
import java.util.ArrayList;
import android.app.Activity;
import android.content.Context;
import android.view.LayoutInflater;
import android.view.View;
import android.view.ViewGroup;
import android.widget.BaseAdapter;
import android.widget.TextView;
public class CustomAlertAdapter extends BaseAdapter{
Context ctx=null;
ArrayListlistarray=null;
private LayoutInflater mInflater=null;
public CustomAlertAdapter(Activity activty, ArrayListlist)
{
this.ctx=activty;
mInflater = activty.getLayoutInflater();
this.listarray=list;
}
@Override
public int getCount() {
return listarray.size();
}
@Override
public Object getItem(int arg0) {
return null;
}
@Override
public long getItemId(int arg0) {
return 0;
}
@Override
public View getView(int position, View convertView, ViewGroup arg2) {
final ViewHolder holder;
if (convertView == null ) {
holder = new ViewHolder();
convertView = mInflater.inflate(R.layout.alertlistrow, null);
holder.titlename = (TextView) convertView.findViewById(R.id.textView_titllename);
convertView.setTag(holder);
}
else {
holder = (ViewHolder) convertView.getTag();
}
String datavalue=listarray.get(position);
holder.titlename.setText(datavalue);
return convertView;
}
private static class ViewHolder {
TextView titlename;
}
}
![]() |
Contoh Program menggerakan label dengan Visual basic 6.0 |
![]() |
Desain Form Chating VB 6 |
android.widget.TimePicker
component. In this tutorial we are going to see how the user can select the hour, and the minute using the android.app.TimePickerDialog
which is an easy to use the dialog box.package com.example.customtimepicker;
import java.util.Calendar;
import android.app.Activity;
import android.app.TimePickerDialog;
import android.content.Context;
import android.os.Bundle;
import android.view.View;
import android.view.View.OnClickListener;
import android.widget.Button;
import android.widget.EditText;
import android.widget.TimePicker;
public class MainActivity extends Activity implements OnClickListener{
private EditText txt_time=null;
private Button btn_time=null;
@Override
protected void onCreate(Bundle savedInstanceState) {
super.onCreate(savedInstanceState);
setContentView(R.layout.activity_main);
txt_time=(EditText)findViewById(R.id.editText_time);
btn_time=(Button)findViewById(R.id.button_time);
btn_time.setOnClickListener(this);
}
@Override
public void onClick(View arg0) {
CustomTimePickerDialog timePickerDialog = new CustomTimePickerDialog(MainActivity.this, timeSetListener,
Calendar.getInstance().get(Calendar.HOUR),
CustomTimePickerDialog.getRoundedMinute(Calendar.getInstance().get(Calendar.MINUTE) + CustomTimePickerDialog.TIME_PICKER_INTERVAL), true);
timePickerDialog.setTitle("Set hours and minutes");
timePickerDialog.show();
}
public static class CustomTimePickerDialog extends TimePickerDialog{
public static final int TIME_PICKER_INTERVAL=15;
private boolean mIgnoreEvent=false;
public CustomTimePickerDialog(Context context, OnTimeSetListener callBack, int hourOfDay, int minute, boolean is24HourView) {
super(context, callBack, hourOfDay, minute, is24HourView);
}
@Override
public void onTimeChanged(TimePicker timePicker, int hourOfDay, int minute) {
super.onTimeChanged(timePicker, hourOfDay, minute);
if (!mIgnoreEvent){
minute = getRoundedMinute(minute);
mIgnoreEvent=true;
timePicker.setCurrentMinute(minute);
mIgnoreEvent=false;
}
}
public static int getRoundedMinute(int minute){
if(minute % TIME_PICKER_INTERVAL != 0){
int minuteFloor = minute - (minute % TIME_PICKER_INTERVAL);
minute = minuteFloor + (minute == minuteFloor + 1 ? TIME_PICKER_INTERVAL : 0);
if (minute == 60) minute=0;
}
return minute;
}
}
private CustomTimePickerDialog.OnTimeSetListener timeSetListener = new CustomTimePickerDialog.OnTimeSetListener() {
@Override
public void onTimeSet(TimePicker view, int hourOfDay, int minute) {
txt_time.setText(String.format("%02d", hourOfDay) + ":" +String.format("%02d", minute));
}
};
}
function AutoNumber(Q:TAdoQuery;table,key,kode:String;edit:TEdit):String;Untuk cara penggunaanya hanya dengan memanggil function AutoNumber;
var
nomer:Integer;
Kd:String;
begin
with Q do
begin
Close;
SQL.Text:='select * from '+table+'';
Open;
end;
if Q.RecordCount = 0 then nomer:=1 else
if Q.RecordCount > 0 then
begin
with Q do
begin
Close;
SQL.Text:='select max(right('+key+',10)) as kd from '+table+'',True);
Open;
end;
nomer:=Q.FieldByName('kd').AsInteger + 1;
end;
kd:=inttostr(nomer);
kd:=Copy('0000000000'+kd,length('0000000000'+kd)-9,10);
edit.text :=kode+kd;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
AutoNumber(AdoQuery1,'tb_barang','kode_barang','BR.',Edit1.Tetx);
end;